单项选择题

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

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

单项选择题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim array1(10，10)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=2 T0 4 Array1(i，j)=i+j Next j Next i Text1.Text=array1(2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是
A．15
B．14
C．13
D．12
单项选择题
假字在窗体(名称为Forml)的代码窗口中定义如下记录类型: Private Type animal Anima1Name As String * 20 aColor As String * 10 End Type 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Dim rec As animal Open c: vbTest.dat For Random As#1 Len = Len(rec) rec.animalName = Cat rec.aColor = White Pat#1 , rec Close#1 End Sub 则以下叙述中正确的是
A．记录类型animal不能在Form1中定义,必须在标准模块中定义
B．如果文件c：\vbTesdat不存在，则Open命令执行失败
C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D．语句"Put#1，rec"将animal类型的两个数据元素写到文件中
相关试题