Next i For i= 1 To 3 k=k+p()*2 Next i Print k End Sub A.33 B.28 D.37 (20)执行下面程序后,输出的结果是 Private Sub Form Click Dim a(10, 10)As Integer For i=2 To 4 Fori=4 To 5 a(,j)=1* Next i Print a(2,5)+a(3,4)+a( End Sub A.22 B.42 C.32 D.52 2.10填空题 (1)填空,使得程序运行后,能在窗体上打印如图所示的图案。 Private Sub Form Click Print Print Tab(8-1) 与,Form1 1 To 8 Print " Print 本本本冰率 End Sub (2)下面程序的功能是利用随机函数产生1个(1之的随机整数,打印其中 能被5整除的数并求其和,请用正确的内容填空。 Private Sub Form Click Dim sum As Integer, x As Integer For i= 1 To 10 =Int(Rnd*100+1) The sum= sum +x End lf If sum <>0 Then Print "sum=. sum End If End Sub (3)用正确的内容填空,使得以下程序能够找出50以内所有能构成直角三角形的整 Private Sub Form Click Dim a as integer. b As Integer Dim c as single For a=1 To 50 For b= a To 50 Sqr(a 2+b 2) (3) Then Print a, b, c Next bNext i For i = 1 To 3 k = k + p(i) * 2 Next i Print k End Sub A. 33 B. 28 C. 35 D. 37 （20）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim a(10, 10) As Integer For i = 2 To 4 For j = 4 To 5 a(i, j) = i * j Next j Next i Print a(2, 5) + a(3, 4) + a(4, 5) End Sub A. 22 B. 42 C. 32 D. 52 2.10 填空题 （1） 填空，使得程序运行后，能在窗体上打印如图所示的图案。 Private Sub Form_Click() Print For i = 1 To 4 Print Tab(8 - i); For j = 1 To 8 Print "*"; （1） Print Next i End Sub （2） 下面程序的功能是利用随机函数产生 10 个（1~100）之间的随机整数，打印其中 能被 5 整除的数并求其和，请用正确的内容填空。 Private Sub Form_Click() Dim sum As Integer, x As Integer For i = 1 To 10 x = Int(Rnd * 100 + 1) If （2） = 0 Then sum = sum + x Print "x="; x End If Next i If sum <> 0 Then Print "sum="; sum End If End Sub （3） 用正确的内容填空，使得以下程序能够找出 50 以内所有能构成直角三角形的整 数。 Private Sub Form_Click() Dim a As Integer, b As Integer Dim c As Single For a = 1 To 50 For b = a To 50 c = Sqr(a ^ 2 + b ^ 2) If （3） Then Print a, b, c Next b Next a