单项选择题

在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim arrayl(10,10)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=2 To 4 array l(i,j)=i+j Next j Next i Text1.Text=arrayl(2,3)+arrayl(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。

A．12
B．13
C．14
D．15

<上一题目录下一题>

热门试题

单项选择题

有如下程序： Private Sub Form_C1ick() Dim CheCk,Counter CheCk=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Ptint Counter,Check End Sub 程序运行后，单击窗体，输出结果为______。

A．15 0
B．20 -1
C．10 Tree
D．10 False

单项选择题

在窗体上画一个列表框和一个命令按钮，其名称分别为Listl和Commandl，然后编写如下事件过程 Private Sub Form_Load() Listl.Addltem Iteml Listl.Addltem Item2 Listl.Addltem Item3 End Sub Private Sub Commandl_Click() Listl.List(Listl.ListCount)= AAAA End Sub 程序运行后，单击命令按钮，其结果为______。

A．把字符串“AAAA”添加到列表框中，但位置不能确定
B．把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)
C．把列表框中原有的最后一项改为“A从A”
D．把字符串“AAAA”插入到列表框的最前面(即“Iteml”的前面)

相关试题