单项选择题

阅读程序： Option Base 1 Dim arr( )As Integer Private Sub Form_Click( ) Dim i AsInteger，j As Integer ReDim arr(3，2) For i=1 To 3 Forj=1 To 2 arr(i，j)=i*2+j Next j Next i ReDim Preserve arr(3，4) For j=3 To 4 arr(3，j)=j+9 Nextj Print arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为

A．21
B．13
C．8
D．25

<上一题目录下一题>

热门试题

单项选择题

在窗体上画—命令按钮和一个文本框；名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1_Click( ) a=InputBox(“请输入日期(1～31)”) t=“旅游景点” &llf(a＞0 And a＜=10，“长城”，“”，)_ &Ill(a＞10 And a＜=20，“故宫”，“”)_ &Iff(9＞20 And a＜=31，“颐和园”，“”) TextI.Text=t End Sub 程序运行后，如果从键盘—亡输A16，则在文本框中显示的内容是

A．旅游景点：长城故宫
B．旅游景点：长城颐和园
C．旅游景点：颐和园
D．旅游景点：故宫

单项选择题

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click( ) Dim i As Integer，x As Integer For i=l To 6 If i=1 Then x=i lf i＜=4 Then x=x+1 Else x=x+2 End lf Next i Print x End Sub 程序运行后，单击命令按钮，其输出结果为

A．9
B．6
C．12
D．15

相关试题