VB练习题集.doc
文本预览下载声明
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
显示全部