文档详情

VB练习题集.doc

发布:2016-07-31约17.22万字共170页下载文档
文本预览下载声明
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
显示全部
相似文档