单项选择题

设有如下通用过程： Public Sub Fun(a( )As Integer，x As Integer) For i=1 TO 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Cliek( ) Dim arr(5) As Integer，n As Integer For i=1 To 5 arr(i)=i+i Next Fun arr，n Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是

A．30
B．25
C．20
D．15

<上一题目录下一题>

热门试题

单项选择题

阅读程序： 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．旅游景点：故宫

相关试题