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 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 "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()
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="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)，然后编写如下代码：
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
vb编程基础知识for whilea=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
    Loop Until i<10
    Print i
    End Sub
27. 下面的程序运行后输出的结果是________
    For i=1 to 2
    S=i
      For j=0 to i-1
        S=S+S*i
      Next j
      Print s
    Next i
28. 以下程序输出的结果为________。
    x=1
    y=4
    Do Until y>4
    X=X*Y
    y=y+1
    Loop
  Print X
29. 下列程序运行后，输出结果为________。
  b = 1
    Do While b < 40
      b = b * (b + 1)
    Loop
      Print b
30．当变量x=2，y=5时，以下程序的输出结果为________。
  Do Until y>5
        x=x*y
            y=y+1
Loop
    Print x
 
二、程序填空（每题4分，共40分）
1) 下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。
  If a<b Then

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。