单项选择题

在窗体上画一个名称为Labell的标签，然后编写如下事件过程：
Private Sub Form_Click()
Dim arr(10,10)As Integer
Dim i As Integer,j As Integer
For i =2 To 4
For j=2 To 4
arr(i,j)=i*j
Next j
Next i
Labell.Caption=Str(arr(2,2)+arr(3,3))
End Sub
程序运行后，单击窗体，在标签中显示的内容是（）

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

<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个命令按钮和一个文本框，名称分别为Commandl和Text1，然后编写如下程序： Private Sub Commandl_click() a=InputBox(“请输入日期(1～31)”) t= 旅游景点: & IIf(a＞0 And a＜=10, 长城 , )_ & IIf(a＞10 And a＜=20, 故宫 , )_ & IIf(a＞20 And a＜=31, 颐和园 , ) Text1.Text=t End Sub 程序运行后，如果从键盘上输入16，则在文本框显示的内容是（）。

A．旅游景点：长城故宫
B．旅游景点：长城颐和园
C．旅游景点：颐和园
D．旅游景点：故宫
单项选择题
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程： Private Sub Commandl_click() Dim i As Integer,X As Integer For i=1 To 6 If i=1 Then x=i If i＜=4 Then x=x+1 Else x=x+2 End If Next i Print x End Sub 程序运行后，单击命令按钮，其输出结果为（）。

A．9
B．6
C．12
D．15
相关试题