在窗体上画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．出错信息

[单选题]在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写下列事件过程：Private Sub Command1_Click()F．or Each TextBox In Text1Text1(i)=Text1(i).Indexi=i+1NextE．nd Sub程序运行后，单击命令按钮，4个文本框中显示的内容分别为( )。A．0 1 2 3B．1 2 3 4C．0 1 3 2D．出错信息

[单选题]（28）在窗体上画4个文本框，并用这4个文本框建立一个控件组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写下列事件过程：Private Sub Command1_Click() 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.出错信息

[单选题]在窗体上画4个文本框(如图16-8所示)，并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In Text1 Text1(i)=Text1(i). Index i=i+1 Next End Sub 程序运行后，单击命令按钮，4个文本框中显示的内容分别为______。A．0 1 2 3B．1 2 3 4C．0 1 3 2D．出错信息

[单选题]在窗体上画四个文本框(如下图所示)，并用这四个文本框建立一个控件数组，名称为 Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程 Private Sub Commandl_Click() For Each TextBoxinTextl Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，四个文本框中显示的内容分别为( )。A．0 1 2 3B．1 2 3 4C．0 1 3 2D．出错信息

[单选题]在窗体上画四个文本框（如图所示），并用这四个文本框建立一个控件数组，名称为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 3B．1 2 3 4C．0 1 3 2D．出错信息

[单选题]（ 17 ） 在窗体上画一个文本框 （ 其名称为 Text1 ） 和一个标签 （ 其名称为 Label1 ） ， 程序运行后 ， 如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是A． ） Private Sub Text1_Click()Label1.Caption = Text1.TextE．nd SubB． ） Private Sub Text1_Change()Label1.Caption = Text1.TextE．nd SubC． ） Pri

[单选题]（ 19 ）在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()D．im i As Integer, n As IntegerF．or i = 0 To 50i = i + 3n = n + 1If i > 10 Then Exit ForNextText1.Text = Str(n)E．nd Sub程序运行后，单击命令按钮，在文本框中显示的值是A． ） 5B． ） 4C． ）

[单选题]（ 15 ）在窗体上画一个文本框（名称为 text1 ）和一个标签（名称为 label1 ） , 程序运行后，在文本框中每输入一个字符 ， 都会立即在标签中显示文本框中字符的个数 ， 以下可以实现实现上述操作的事件过程是A． ）Private Sub Text1_Change()Label1.Caption = Str(Len(Text1.Text))E．nd SubB． ）Private Sub Text1_Click()Label1.Caption = Str(Len(Text1.Text)

[试题]在窗体上画1个文本框，名称为Text1，然后编写如下程序：Private Sub Form_Load（）Open"d:/temp/dat.txt"For Output As#1Text1.Text=""E．nd SubPrivate Sub Text1_KeyPress（KeyAscii As Integer）lf(13)=13 ThenIf UCase（Text1.Text）=______ThenC．lose 1E．ndE．lseWrite#1,______Text1.Text=""

[试题]（ 12 ）在窗体上有一个文本框控件，名称为 Text1 。同时，窗体加载时设置其计时器间隔为 1 秒、计时器触发事件过程则实现在 Text1 文本框中动态显示当前日期和时间。请补充完整。Private Sub Form_Load( )Me.TimerInterval =1000E．nd SubPrivate Sub ( 12 )Me!text1 = Now( )E．nd Sub