流程控制综合练习.ppt

1、流程控制综合练习,一、单项选择,1. 假定有以下循环结构 Do Until条件 循环体 Loop 则正确的描述是（） A.如果条件是一个为0的常数，则一次循环体也不执行 B.如果条件是一个为0的常数，则无限次执行循环体 C.如果条件是一个不为0的常数，则至少执行一次循环体 D.不论条件是否为真，至少要执行一次循环体,2. 假定x的值为5，则在执行以下语句时，其输出结果为“Result”的Select Case语句是（） A.Select Case x Case 10 To 1 Print Result End Select B.Select Case x Case Is 5, Is 5 Pri

2、nt Result End Select C.Select Case x Case Is 5, 1, 3 To 10 Print Result End Select D.Select Case x Case 1, 3, Is 5 Print Result End Select,3下列程序执行循环的次数是_ Private Sub Form_Click() For i = 7 To 90 Step 5 Print i; Next i End Sub A）14B）15C）16D）17,D,4下列程序 Private Sub Form_Click() For j = 1 To 20 a = a +

3、j 7 Next j Print a End Sub 在运行时输出a 的值是_ A）21B）41C）63D）210,A,5下列程序 Private Sub Form_Click() For j = 1 To 15 a = a + j Mod 3 Next j Print a End Sub 运行后输出的结果是 _ A）1B）15C）90D）120,B,6下列程序 Private Sub Form_Click() For x = 1 To 2 a = 0 For y = 1 To x + 1 a = a + 1 Next y Print a; Next x End Sub 运行时输出的结果是_

4、A）11 B）00 C）12 D）23,D,7下列程序 Private Sub Form_Click() m = 1 For k = 3 To 1 Step -1 x$ = String(k, *) Print m; x$ m = m + 1 Next k End Sub 运行后输出的是_ A）1 *B）1 *C）3 *D）1 * * * 2 * * 2 * 2 * * 2 * * 3 * * * 3 * 1 * * * 3 *,D,8下列程序 Private Sub Form_Click() Sum = 0 For j = 1 To 10 If j = 10 Then Else Sum =

5、Sum + j End If Next j Print Sum End Sub 运行后输出的结果是_ A）45 B）55 C）显示错误信息 D）36,A,9下列程序 Private Sub Form_Click() s = 0 Do s = (s + 1) * (s + 2) Number = Number + 1 Loop Until s = 30 Print Number; s End Sub 运行时输出的结果是_ A）01 B）30 30 C）430 D）3182,D,10下列程序 Private Sub Form_Click() a = 70 For j = 1 To 4 x = Va

6、l(InputBox(请输入一个数) If x Mod 5 = 0 Then b = b + x: a = x Else b = b + a End If Next j Print b End Sub 运行时输入75，55，42，80，输出的结果是_ A）252B）265C）280D）285,B,11下列程序 Private Sub Form_Click() s = 0 i = 1 Do While i 0 Then s = s + i End If i = i + 1 Loop Print s End Sub 运行后输出的结果是_ A）4050B）5050C）5000D）4500,D,12下

7、面的程序执行时，若从键盘输入5，则输出为_ Private Sub Form_Click() x = Val(InputBox(请输入x) For i = 1 To 20 Step 2 x = x + i 5 Next i Print x End Sub A）21B）22C）23D）24,A,13下面程序运行的输出结果是_ Private Sub Form_Click() x = 100: a = 10: b = 20: ok1 = True: ok2 = False If a 15 Then If Not ok1 Then x = 1 Else If ok2 Then x = 10 x =

8、-1 End If End If End If Print x End Sub A）-1B）0C）1D）不确定的值,A,14下面程序执行时，输入4和2，输出是_ Option Explicit Private Sub Form_Click() Dim m As Integer, n As Integer Dim a, b, r m = InputBox(请输入第一个正整数) n = InputBox(请输入第二个正整数) a = m: b = n: r = a Mod b Do While r 0 a = b b = r r = a Mod b Loop Print b End Sub A）0

9、B）1C）2D）3,C,15有如下程序 Private Sub Form_Click() s = 0 n = 5 For i = 1 To n s = s + n Next i Print s End Sub 运行后输出的结果是_ A）15B）20C）25D）30,C,16下列程序 Private Sub Form_Click() For i = 1 To 4 m = 0 For j = 1 To 6 m = 1 For k = 1 To 6 m = m + 5 Next k Next j Next i Print m End Sub 运行后输出的结果是_ A）11B）21C）31D）41,C,17下列程序 Private Sub Form_Click() For i = 1 To 4 m = 0 For j = 1 To 3 If j = 2 Then m = m - 59 For k = 1 To 6 m = m + 5 Next k Next j Next i Print m End Sub 运行后输出的结果是_ A）11B）21C）31D）41,C,18.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Priva