单项选择题

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

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

<上一题目录下一题>

热门试题

单项选择题

单击命名按钮时，下列程序代码的执行结果为 Public Sub procl ( n As Integer， Byval m As Integer) n=n Mod 10 m=m Mod 10 End Sub Private Sub Cmmand1 Click() Dim x As Integer， y As Integer x=12：y=12 Call Procl (x， y) Print x；y End Sub

A．12 2
B．2 12
C．2 2
D．12 12

单项选择题

在窗体上绘制一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1+Click() a=InputBox(“请输入日期(1～31)”) t=“旅游景点：” &If(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．旅游景点：故宫

相关试题