单项选择题

阅读下面的程序：
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

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个文本框，然后编写如下程序： Option Base 1 Private Sub Form_Click() Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1．Text：Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后，单击窗体，在文本框中显示的内容是

A．1
B．3
C．6
D．10

单项选择题

给出下面程序： 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循环

相关试题