单项选择题

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

A) 0123
B) 1234
C) 0132
D) 出错信息
<上一题 目录 下一题>
热门 试题

单项选择题
执行语句Open C: StuData.dat For Input As#2后，系统( )。
A) 将C盘当前文件夹下名为StuData.dat的文件的内容读入内存
B) 在C盘当前文件夹下建立名为StuData.dat的顺序文件
C) 将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中
D) 将某个磁盘文件的内容写入C盘当前文件夹下名为StuData.dat的文件中
单项选择题
有如下程序，输出结果为( )。 Private Sub Form_Activate() Dim a() a=Array(1,2,3,4,5) For i=LBoundta)To UBound(a) a(i)=i*a(i) Next i Print i,LBound(a), UBound(a),a(i) End Sub
A) 40 4 25
B) 5 0 4 25
C) 不确定
D) 程序出错
相关试题