原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第5章控制結构
习题5（控制结构）
一、判断题
1．If与End If关键字必须成对地使用，有一个If就有一个End If与之相对应。
2．Do和Loop关键字必须成对使用，有一个Do就必须有一个Loop与之对应。
3．For和Exit For必须成对使用，有一个For就必须有一个Exit For与之对应。
4．Select Case语句实现的是一种循环结构。
5．一个Do循环只能使用一个Loop关键字，但可以使用多个Exit Do语句。
6．如果有多重Do循环嵌套，位于最里层循体语句中的Exit Do语句可以跳出所有的循环。
7．如果有多重Do循环与For循环嵌套使用，并且Exit For语句位于一个内层Do循环中，则该语句不能从Do循环中跳出。
二、填空题
1．判断下面4个循环语句分别执行了多少次循环。
①下面循环执行了 （1） 次：
1 int2=0
2 For int1 = 1 To -2 Step -1
3 int2 = int2+1
4 Next
②下面循环执行了 （2） 次：
1 int2=0
2 For int1 = 1 To 1 Step -1
3 int2 = int2+1
4 Next
③下面循环执行了 （3） 次：
1 int2=0
2 For int1 = 1 To 10 Step 1
3 Exit For
4 int2 = int2+1
5 Next
④下面循环执行了 （4） 次：
1 Dim i As Integer, j As Integer
2 For i = 1 To 10 Step 1
3 i = i + 1
4 j = j + 1
5 Next
6 Print j
2．执行下面的程序段，文本框Text1中显示的是 （5） 。
1 Dim int1 As Integer, int2 As Integer
2 int1 = 1
3 int2 = 0
4 Do While int1 20
5 int2 = int1 + int2
6 int1 = int1 * (int1 + 1)
7 Loop
8 Text1.Text = int2
3．阅读下面的事件过程。单击窗体后，在文本框Text1和Text2中显示的内容分别是 （6） 和 （7） ；若将程序中A语句与B语句的位置互换，再次执行程序，单击窗体后在Text1和Text2中显示的内容分别是 （8） 和 （9） 。
1 Private Sub Form_Click()
2 Dim x As Integer, y As Integer
3 x=1 : y=0
4 Do While x3
5 y=y+x A语句
6 x=x+1 B语句
7 Loop
8 Text1.Text=x
9 Text2.Text=y
10 End Sub
4．下面的事件过程判断文本框txt1中输入的数所在的区间，并在文本框txt2中输出判断结果。请在画线处填入正确的内容。
1 Private Sub Command1_Click()
2 Dim int1 As Integer
3 int1 = CInt(txt1.Text)
4 Select Case int1
5 Case （10）
6 txt2.Text = 值为0
7 Case （11）
8 txt2.Text = 值在1和10之间（包括1和10）
9 Case （12）
10 txt2.Text = 值大于10
11 Case Else
12 txt2.Text = 值小于0
13 End Select
14 End Sub
5．下面程序段中，k循环共执行 （13） 次，在窗体上显示的结果是 （14） 。
1 Dim b As Integer, k As Integer
2 Let b = 1
3 For k = 1 To 5
4 Let b = b * k
5 If b = 15 Then
6 Exit For
7
文档评论（0）