单项选择题

在窗体上画一个文本框，然后编写如下程序：
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循环
单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x，s) Sum=Sum+ s Next X Print Sum End Sub Private Sub subl(y，w) w = 1 For i=1 To y w = w * i Next i End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．5
B．120
C．153
D．160
相关试题