单项选择题

在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1(下标从0开始，依次增大)，然后编写如下事件过程：
Private Sub Command1_Click()
For Each TextBox In TeXt1
Text1(i)=Text1(i).Index
i=i+1
Next
End Sub
程序运行后，单击命令按钮，四个文本框中显示的内容分别为 ______。

A．0 1 2 3
B．1 2 3 4
C．0 1 3 2
D．出错信息
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2=0 Then f=m Else f=1 End If End Function Private Sub Command1 Click() Dim i As Integer s=0 For i=1 To 5 s=s+f(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是 ______。
A．11
B．10
C．9
D．8
单项选择题
在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() str Text=InputBox( 请输入 ) Text1.Text=strText End Sub Private Sub Text1_Change() Label1.Caption=Right(Trim(Text1.Text)，3) End Sub 程序运行后，如果在对话框中输入abcdef，则在标签中显示的内容是 ______。
A．空
B．abcdef
C．abc
D．def
相关试题