一、要使循环体至少执行一次,应使用循环.A)For…NextB)While…EndWhileC)Do[While|Until]…LoopD)Do…Loop[While|Until]二、下列程序段的执行后,k,x结果为.x=6

Question

一、要使循环体至少执行一次,应使用 ____ 循环.
A) For … Next
B) While … End While
C) Do [ While | Until ] … Loop
D) Do … Loop [ While | Until ]
二、下列程序段的执行后,k,x 结果为 ____.
　　　　x = 6
　　　　For k = 1 To 0
　　　　　x = x + k
　　　　Next k
A) k = -1,x = 6
B) k = -1,x = 16
C) k = 1,x = 6
D) k = 11,x = 31
三、下面的程序段运行后,Label1 显示的内容是 ____.
　　　　x = 0
　　　　Do While x < 10
　　　　　x = x + 1 :x = x * x
　　　　Loop
　　　　Label1.Text = x
A) 16
B) 19
C) 20
D) 25
四、下列程序段执行后,Label1.Text显示结果为____.
　　　x = 1
　　　y = 1
　　　For i = 1 To 3
　　　　f = x + y
　　　　x = y
　　　　y = f
　　　　Label1.Text = Label1.Text & f & "/"
　　　Next i
A) 2/3/6
B) 2/2/2
C) 2/3/4
D) 2/3/5
五、执行下列程序段,从键盘分别输入4 和 5,则变量 s 的值是 ____.
　　　　x = InputBox("请输入x的值")
　　　　y = InputBox("请输入y的值")
　　　　s = x
　　　　If x > y then s = s * s
A) 4
B) 16
C) 20
D) 25
六、下列程序段执行后,"标签"显示的结果为____.
　　　i = 4
　　　a = 5
　　　Do
　　　　i = i + 1
　　　　a = a + 2
　　　Loop Until i >= 7
　　　标签.Text = " i=" & i & vbCrLf
　　　标签.Text += "a=" & a
A) i = 4
a = 5
B) i = 7
a = 13
C) I = 8
a = 7
D) I = 7
a = 11
七、运行程序段后,Label1 显示 ____ 个“*”号.
　　　For i = 1 To 2
　　　　For j = 0 To i - 1
　　　　　Label1.Text += "*"
　　　　Next j
　　　Next i
A) 1
B) 2
C) 3
D) 4
八、下列程序段的执行后,Label1 显示的结果为 ____.
　　　a = 0 :b = 1
　　　Do
　　　　a = a + b
　　　　b = b + 1
　　　Loop While a < 10
　　　Label1.Text = a & "/" & b
A) 10/5
B) a/b
C) 0/1
D) 10/30
九、执行下面的程序段后,a 的值为 ____.
　　　a = 1
　　　For i = 1 To 12 Step 2
　　　　a = a + i Mod 8
　　　Next i
A) 1
B) 5
C) 17
D) 21
十、运行下面的程序段后,x的值为______.
　　　x = 4
　　　For i = 1 To 5
　　　　x = x + x \ 3
　　　Next i
A) 16
B) 13
C) 10
D) 9

Answer 1

1~5: D, C, D, D, A
6~10: D, C, A, B, B
其中,第四题没答案.正确答案是：2/3/5/（最后有一个斜杠）