admin 管理员组文章数量: 1086019
2024年3月27日发(作者：matlab函数调用)
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
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
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
d=a:a=b:b=d
版权声明：本文标题：(完整版)VB循环结构练习题 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1711495200a596923.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论