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

Option Base 1

Pribate Sub Command1_Click （）

D．im a （ 5.5 ） As Integer

F．or i=1 To 5

F．or j=1to5

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

[单选题]在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：D．im Flag As BooleanPrivate Sub Command1_Click（）D．im intNum As IntegerintNum=InputBox（"请输入："）If Flag ThenPrint f（intNum）E．nd IfE．nd SubF．unction f（X As Integer）As IntegerIf X<10 ThenY=XE．lseY=X+10E．nd Iff=YE．nd F

[单选题]在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：Private Sub Command1_Click（）D．im a（10）As IntegerD．im x As IntegerF．or i=1 To 10a（i）=8+iNextx=2Print a（f（x）+x）E．nd SubF．unction f（x As Integer）x=x+3f=xE．nd Function程序运行后，单击命令按钮，输出结果为（ ）。A．12B．15C．17D．18

[单选题]在窗体上画1个命令按钮，名称为Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(“请输入：”) If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If X＜10 Then Y=X Else Y=X＋10 End If f=Y En

[单选题]在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序： Private Sub Command1 Click() Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2 Print a(f(x)＋x) End Sub Function f(x As Integer) x=x＋3 f=x End Function 程序运行后，单击命令按钮，输出结果为______。A．12B．15C．17D．18

[单选题]在窗体上画1个命令按钮，名称为Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox("请输入：") If Flag Then Printf(intNum) End If End Sub Function f(x As Integer)As Integer If X＜10 Then Y=X Else Y=X+10 End If f=Y E

[单选题]在窗体上画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

[单选题]在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程Option Base 1Pribate Sub Command1_Click（）D．im a（5.5） As IntegerF．or i=1 To 5a（I,j）*5/10Next jNext iS=0F．or i=1 To 5S=s+a（i,i）Next iPrint sE．nd Sub程序运行后，单击命令按钮，输出结果是（ ）。A．15B．13C．11D．9

[单选题]在窗体上画—个名称为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．无数据输出