在窗体上画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．12

B．15

C．17

D．18

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

[试题]在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：Private Sub Command1_Click()D．im a(10)As IntegerD．im x As IntegerF．or i=1 To 10a(i)=iNext ix=1MsgBoxa(f(x)+x)E．nd SubF．unction f(y As Integer)y=y+2f=yE．nd Function程序运行后，单击命令按钮，消息框的输出结果为______。

[单选题]在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：Private Sub Command 1_Click()D．im aa=Array(1,2，3，4)i=3：i=1D．o While i>=0s=s+a(i)*ji=i-1j=j*10LoopPrint sE．nd Sub运行上面的程序，单击命令按钮，则输出结果是( )。A．4321B．123C．234D．1234

[单选题]在窗体上画—个名称为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，然后编写如下程序：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

[单选题]在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function Func(By Val x As Integer, Y As Integer) y=x*y If y＞0 Then Func=x Else Func=y End If End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a=3 b=4 c=Func(a,b)Print" a="; a Print" b=";

[单选题]在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function Func(ByVal x As Integer，y As Integer) y=x*y If y＞0 Then Func=x Else Func=y End If End Function Private Sub Command1_Click() Dim a As Integer，b As Integer a=3 b=4 c=Func(a,B)Print "a=";a Print=b="；b Print

[单选题]在窗体上画一个命令按钮，其名称为Command1,然后编写如下程序： Function Func(ByVal x As Integer, y As Integer) y=x*y If y ＞ 0 Then Func = x Else Func = y End If End Function Private Sub Command1_Click( ) Dim a As Integer, b As Integer a=3 b=4 c=Func(a，B)Print "a="；a Print "b