在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程

Option Base 1

Pribate Sub Command1_Click（）

D．im a（5.5） As Integer

F．or i=1 To 5

a（I,j）*5/10

Next j

Next i

S=0

F．or i=1 To 5

S=s+a（i,i）

Next i

Print s

E．nd Sub

程序运行后，单击命令按钮，输出结果是（ ）。

A．15

B．13

C．11

D．9

[单选题]在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京"，"上海"，"天津"，"重庆") Print city(1) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A．空白B．错误提示C．北京D．上海

[单选题]在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程； Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京", "上海", "天津", "重庆") Print city(1) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。A．空白B．错误提示C．北京D．上海

[单选题]在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： option Base 1 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4, 5) For i=1 To UBound(a)a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。A．4B．5C．6D．7

[单选题]在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）a=0F．or i=1 To 2F．or j=1 To 4If j Mod 2<>0 Thena=a-1E．nd Ifa=a+1Next jNext iPrint aE．nd Sub程序运行后，单击命令按钮，输出结果是（ ）。A．0B．2C．3D．4

[单选题]在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 2＜＞0 Then a=a-1 End If a=a＋1 Next j Next i Print a EndSub 程序运行后，单击命令按钮，输出结果是______。A．0B．2C．3D．4

[单选题]在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_ Click() c=1234 c1=Trim(str(c)) For i=1 To 4 Print ______ NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234则在横线外应填入的内容为______。A．Right (c1，i)B．Left(c1，i)C．Mid(c1，i，1)D．Mid(c1，i，i)

[单选题]在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num=1 DO Until num＞6 Print num; num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 ______。A．13.45.8B．1 3 5C．1 4 7D．无数据输出

[单选题]在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click_() For n=1 To 20 If n Mod 3＜＞0 Then m=m+n/3 Next n print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 ______。A．15B．18C．21D．24

[主观题]在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click（）D．im arr（1 To 100）As IntegerF．or i=1 To 100arr（i）=Int（Rnd*1000）Next iMax=arr（1）Min=arr（1）F．or i=1 To 100If________ThenMax=arr（i）E．nd IfIf________ThenMin=arr（i）E．nd IfNext iPrint"Max="；

[单选题]在窗体上画一个命令按钮，名称为 Command1, 然后编写如下代码：Option Base 0Private Sub Command1_Click（）D．im A （4）As Integer,B（4） As IntegerF．or k=0 To 2A．（k+1）=InputBox（“ 请输入一个整数 ”）B．（3-k）=A（k+1）Next kPrint B（k）E．nd Sub程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输入结果为（ ）。 A．0B．2C．3D．4