执行下列程序，输入数字3，则输出结果为______。

Private Sub Command1_Click()

a=inputBox("Input a Number")

If a＞5 Then

G．oTo L5

E．lse If a＞2 Then

G．oTo L2

E．lse

G．oTo L3

E．nd If

E．xit Sub

L5:

Print a Mod 5

E．xit Sub

L3:

Print a Mod 3

E．xit Sub

L2：

Print a Mod 2

E．nd Sub

[单选题]执行下列程序后，鼠标单击窗体，输出结果为。 Private Sub Form_Click() Print“Click”； End Sub Private Sub Form_MouseDown(Button As Integer，Shift_ As Integer，X As Single，Y As Single) Print “Donw” End Sub Private Sub Form_MouseUp(Button As Integer，Shift_ As Integer，X As Single

[单选题]下列程序的执行结果为______。Private sub Command1_ Click ( ) a = 100 b = 50 if a ＜＞ b then a = a + b Else b = b -a Print a, bEnd SubA．50 50B．150 50C．200 200D．10 10

[单选题]以下程序运行时，输入3和4后输出的结果是______。 Private Sub Command1_Click() a=InputBox(“请输入a的值”) b=InputBox(“请输入b的值”) Print a+b End SubA．3+4B．7C．34D．12

[单选题]有下列程序，程序运行后单击命令按钮，则输出的结果为( )。Private Sub Command1_Click()Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# For i=1 To 4 a(i)=i Next i For i=3 To 6 b(i)=i Next i s1=Factorial(A) s2=Factorial(B)Print "s1="；s1；"s2="；s2End SubFunction Factorial(a()As Integer)Dim

[单选题]（ 30 ）下面程序运行时，若输入 395 ，则输出结果是Private Sub Comand1_Click （）D．im x%x=InputBox (" 请输入一个 3 位整数 ")Print x Mod 10,x/100, ( x Mod 100 ) /10E．nd SubA． ） 3 9 5B． ） 5 3 9C． ） 5 9 3D． ） 3 5 9

[单选题]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_Click()Print "Click"；E．nd SubPrivate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)Print "Donw"E．nd SubPrivate Sub Form_MouseUp(ButtonAs Integer，Shift As Integer，X As Single，Y A

[单选题]执行下列程序后,鼠标单击窗体,输出结果为Private Sub Form_Click()Print "Click";E．nd SubPrivate Sub Form_mouseDown(Button As Integer,ShiftA．s Integer, X As Single, Y As Single)Print "Donw"E．nd SubPrivate Sub Form_MouseUp(ButtonAsInteger,ShiftA．s Integer, X As Single,

[单选题]执行下列程序后，鼠标单击窗体，输出结果为 Private Sub Form_Click() Print"Click"： End Sub Private Sub Form_MouseDown(Button As Integer，Shift_As Integer，X As Single，Y As Single) Print"Donw" End Sub Private Sub Form_MouseUp(Button As Integer，Shift_As Integer，X As Single

[单选题]单击命令按钮执行下列程序，其输出结果是( )。Private Sub Command1_Click()D．im a As Integer,b As Integer,c As Integera=3b=4c=5Prim SecProc(c,b,A)E．nd SubF．unction FirProc(x As Integer,y As Integer,z As Integer)F．irProc=2*x+y+3*zE．nd FunctionF．unction SecProc(x As Integer,y