单项选择题

阅读下面的程序：
Private Sub Command1_Click()
For i=1 To 3
For j=1 To i
For k=j To 3
x=x+1
Next k
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，窗体上输出的结果是

A．3
B．9
C．14
D．21

<上一题目录下一题>

热门试题

单项选择题

给出下面程序： Private Sub Command1_Click() Dim x，y，z X=False For Each y In 2 If y．Text= Hello Then x=True Exit For End If Next y End Sub 下面描述正确的是

A．退出For Each…Next循环的条件是x=True
B．退出For Each…Next循环的条件是x=False
C．程序检查y对象的Text属性，等于“”时退出For Each…Next循环
D．程序逐一查找在z中的对象，不确切并判断其Text属性，文本框中的内容等于“Hello”时退出For Each…Next循环

单项选择题

阅读下面的程序： Private Sub Form_Click() Dim Check， Counter Check=True Counter=0 Do Do While Counter ＜ 20 Counter=Counter + 1 If Counter=10 Then Check = False Exit Do End If Loop Loop Until Check = False Print Counter， Check End Sub 程序运行后，单击窗体，输出的结果为

A．15 0
B．20 -1
C．10 True
D．10 False

相关试题