单项选择题

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

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

单项选择题
下列程序执行后，变量x的值为( )。 Dim a, b, c, d As Single Dim x As Single a=10 b=30 c=400 If b＞a Then d=a:a=b:b=d End If If b＞c Then x=b Else If a＞c Then x=c Else x=a End If
A．10
B．30
C．400
D．430
单项选择题
在窗体上有一个文本框Text1，Text属性值为空，然后编写如下事件过程：Private Sub Text1_KeyPress(Key Ascii As Integer)Dim str As String, n As Integer str=UCase(Chr(Key Ascii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。
A．pp
B．pP
C．PP
D．Pp
相关试题