VB循环结构练习题

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 \

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 I>n 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 m2<>6

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 a>60 Then I = 1

ElseIf a>70 Then I = 2

ElseIf a>80 Then I = 3

ElseIf a>90 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 p<11 Print \

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() a=InputBox(\请输入一个整数\b=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 x>y then x=x-y else x=x+y

19、有如下程序，该程序的运行结果是______。 A=20 : b=10 print a>b

20、有如下程序，该程序的运行后输出的结果是______。 Private sub Command1_Click()

I=\

Mid(I,4,3)=\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)，然后编写如下代码：

Private Sub CommAnd1_Click() Dim M(10) As Integer For k=1 To 10 M(k)=12-k Next k x=6

Print M(2+M(x)) End Sub

程序运行后，单击命令按钮，输出结果是______。

23. 在窗体上画一个命令按钮，然后编写如下事件过程。程序运行后，单击命令按钮，依次在输入对话框中输入5，4，3，2，1，-1，输出结果为________

Private Sub Command1-Click() x=0 Do Until x=-2

a=Val(InputBox(”请输入A的值”)) b=Val(InputBox(”请输入B的值”)) x=Val(InputBox(”请输入x的值”)) a=a+b+x Loop Print a EndSub

24、 以下程序段中Do?Loop循环执行的次数为________。 n=5 Do

If n Mod 2=0 Then n=n＼2 Else n=n*3+1

End If Loop until n=1 A.4 B.3 C.5 D.2

25. 下列程序段执行后，x的值为________。 x=0

For i=1 To 10 For j=i To 10 x=x+1 Next j Next i

A.50 B.55 C.100 D.105 26. 下面的程序运行结果是________。 Private Sub Form_Click() i=0 Do i=i+1

if i>10 then Exit Do