原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
[高等教育]VB练习题集
VB课程练习题集
第五章 选择分支与循环
姓名 班级 序号 成绩
知识点回顾题：
1．要退出For…Next循环，可使用的语句是（ ）。
A．Exit B．Exit For
C．End Do D．Exit Do
2、阅读以下程序段，写出运行结果：
private Sub form_click()
a=150
b=100
if ab then
print 较大数是：;a
else
print 较大数是：;b
end if
End Sub
运行结果：
3、阅读以下程序段，写出运行结果：
x=8
For i=3 to 5
print x,
Next i
运行结果：
4、阅读以下程序段，写出运行结果：
s=0
For i=10 to 4 Step -3
s=s+i
Next i
print s=;s
运行结果：
5、阅读以下程序段，写出运行结果：
s=1
Do while s10
s=s+s
Loop
Print
运行结果： 6、阅读以下程序段，写出运行结果：
s=1
for i=10 to 4 step -3
s=s*i
Print i, s
next i
运行结果：
7. 阅读下列程序并写出运行结果
Option Explicit
Private Sub Command1_Click()
Dim S As Integer
Dim i As Integer
S = 1
For i = 1 To 5
S = S * i
Next i
Print S
End Sub
8. 阅读下列程序并写出运行结果
S = 0: T = 0
For X = 1 To 3
For Y = 1 To 3
S = S + 1
Next Y
T = T + 1
Next X
Print S; T
9、阅读下列程序并写出运行结果
Dim i As Integer, j As Integer, k As Integer
k = 0
For i = 0 To 10 Step 3
For j = 1 To 10
If j 5 Then k = k + 4: Exit For
k = k + 1
Next j
Print i, k
If i 8 Then Exit For
Next i
Print i, k
10. 阅读下列程序并写出运行结果
Private Sub Command1_Click()
x = 0
Do While x 50
x = (x + 2) * (x + 3)
n = n + 1
Loop
Text1.Text = Str(n)
Text2.Text = Str(x)
End Sub
11. 阅读下列程序并写出运行结果
Private Sub Command1_Click()
Dim Sum1 As Integer, Sum2 As Integer
Sum1 = 0: Sum2 = 1
For i = 1 To 4
For j = 1 To i
Sum2 = Sum2 * j
Next j
Sum1 = Sum1 + Sum2
Next i
Print Sum1
End Sub
12. 阅读下列程序并写出运行结果
Private Sub form_Click()
A = 1
b = A
Do Until A = 5
X = A * b
Print Str(A) *; Str(b) =; Str(X)
A = A + b
b = b + A
Loop
End Sub
13. 阅读下列程序并写出运行结果
For i = 1 To 3
For j = 1 To i
For k = j To 3
A = A + 1
Next k
Next j
Next i
14. 执行下面程序段后，变量x的值为 。
x=5
For i=1 To 20 step 2
x=x+I\5
Next i
A、21 B、
文档评论（0）