有以下程序：

Private Sub Form_Activate()

F．or j=1 to 3

x=3

F．or i=l to 2

x=x+6

Next

Next

Print x

E．nd Sub

程序运行后，窗体上显示的结果为______。

[单选题]3有如下程序，输出结果为( )。 Private Sub Form_Activate() Dima a=Array(1,2,3,4,5) Fori=LBound(a)To UBound(A) a(i)=i*a(i) Nexti Printi，LBound(a)，UBound(a)，a(i) End SubA．4 0 4 25B．5 0 4 25C．不确定D．程序出错

[单选题]编写如下事件过程： Private Sub Form_Activate() Dimscore(1 to 3)As Integer Dimi As Integer Dim t As Variant Fori= 3 To 1 Step-1 score(i)=2*i Nexti ForEach t Inscore Printt Next End Sub 程序运行后窗体上显示的值是( )。A．642B．246C．2D．6

[单选题]程序如下：Private Sub form_ Activate() Dim a As Integer for i=4 To 5 a=fun(i) Print a, Next iEnd SubPrivate Function fun(n)As Integer if n ＞0 then fun =n* fun(n-1) Else fun=1 End ifEnd Function 程序最后打印结果是______。A．4 5B．12 120C．24 120D．24 60

[单选题]阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。A．105B．1C．120D．15

[单选题]以下程序段：Private Sub Form_Load( )D．im Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopC．ase 1Op = "+"Result = Num1 + Num2C．ase 2Op = "-"Result = Num1 - Num2C．ase 3Op = "×"Result = Num1 * Num2C．ase

[单选题]（ 32 ）设有以下程序：Private Sub Form_Click()X=50F．or i=1 To 4Y=InputBox( “ 请输入一个整数 ” )Y=Val(y)If y Mod 5=0 Thena=a+yx=yE．lsea=a+xE．nd IfNext iPrint aE．nd Sub程序运行后，单击窗体，在输入对话框中依次输入 15 、 24 、 35 、 46 ，输出结果为A． ） 100B． ） 50C． ） 120D． ） 70

[单选题]设有以下程序：Private Sub Form_ Click() x=50 For i=1 To 4 y=InputBox(“请输入—个整数”) y=Val(y) If y Mod 5=0 Then a=a+ y x=y Else a=a+ x End If Next i Print aEnd Sub 程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为 ______。A．100B．50C．120D．70

[单选题]现有以下程序代码： Private sub Form_click( ) Static s as integer s=s+1 text4, text = str(s) End sub 单击窗体4次后，文本框中的内容是( )。A．4B．0C．2D．以上都不对

[单选题]在Activate事件过程中，写入下面的程序： Prirate Sub Form_Activate() Dim S As String，a As String，b As String a="*"：b="$" For i=1 To 4 If i/2=Int(i/2) Then S=String(Len(a)+i,b) Else S=String(Len(a)+i,a) End If Print S： Next i End Sub 运行程序后，显示的结果是( )。A．$$***$$$$***

[单选题]运行下列程序：Private Sub form_Click( )F．or i = 1 To 4t = t * 10 + is = s + tNext iPrint sE．nd Sub单击窗体后，则输出结果是( )。A．1234B．4321C．1370D．4444