VB循环结构练习题.docxVIP

VB 循环结构练习题 一、分析程序的运行结果（每题 2 分，共 60 分） 1、以下循环的执行次数是_____。 K=0 Do While k=10 k=k+1 Loop 2、下列程序段的执行后输出的结果为_____。 I=4:A=5 Do I=I+1:A=A+2 Loop Until I=7 Print A=;A 3、下列程序的执行结果是____。 T = O : m = 1 : Sum = 0 Do t = t + m : Sum = Sum + t : m = m + 2 Loop While m = 9 Print Sum 4、下列程序段的执行时，共循环____次。 For a=0 To 1 For b=1 To 2 For c=1 To 3 I=I+1 Next c  Next b next a 5、下列程序段的运行结果是： Sub sele() Dim n as Integer I=21:n=3 Do While In I=I-n Loop Print I End Sub 打印结果_____。 6、执行下面的程序段后，s 的值为____。 S=5 For I=2.6 To 4.9 Step 2 s=s+1 Next I 7、下列程序段的执行后输出的结果为_______。 K = 1 For I = 1 To 3 A = I ^ I ^ K Next I Print A 8、下列程序的执行结果是_____。 M1 = 1:m2 = 1 Do While m26 m1 = m1*m2 : m2 = m2+1 Loop Print m1 9、下列程序的执行结果是_____。 Private Function P(N As Integer) For I = I To N SUM = SUM + 1 Next I P = SUM End Function Private Sub Command1_Click() S = P(1) + P(2) + P(3) + P(4) Print S; End Sub 10、以下程序用来输出 1 到 100 所有奇数的和，请补充完该程序。 Private Sub Command3_Click() Dim s As Long Dim x As Integer s = 0 For x=1 to 100 step____ s = s + x Next x Print s End Sub 11、下列程序的执行结果是_______。  A = 75 If a60 Then I = 1 ElseIf a70 Then I = 2 ElseIf a80 Then I = 3 ElseIf a90 Then I = 4 End If Print I 12、下列程序段的运行后 t 的值为______。 Dim t,k as single k=5 : t=1 do While k=-1 t=t*k : K=K-1 loop 13、下面程序段的输出结果是_____。 P=0:s=0 Do p = p+2 s = s+p Loop While p11 Print s=s 14、下面程序段的输出结果是______。 For X=1.5 To 5 Step 5 Print X; Next X 15、执行下面的程序段后，s 的值为______。 S=5 For I=2.6 To 4.9 Step 0.6 s=s+1 Next I 16、在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() =InputBox(请输入一个整数) =InputBox(请输入一个整数) Print a+b End Sub 17、程序运行后，单击命令按钮，在输入对话框中分别输入 321 和 456， 输出结果为____。 执行下面的程序段后，b 的值为_____。 A=300:b=20 a=a+b:b=a-b:a=a-b 18、下列程序段执行后 x 的值是______。 X=100 : y=50 if xy then x=x-y else x=x+y 19、有如下程序，该程序的运行结果是______。 A=20 : b=10 print ab 20、有如下程序，该程序的运行后输出的结果是______。 Private sub Command1_Click()  I=AAAAAA Mid(I,4,3)=BBB Print I End Sub 21、下面程序段执行后的结果是_____。 X=10 For I=6.3 to 4.9 Step -0.3 x=x-1 Next Print x 22、在窗体上画一个命令按钮(其 Name 属性为 CommAnd1)，然后编写如下 代码： Priva