运行下列程序，单击窗体后输出的结果是( )。

Private Sub Form_Click()

D．im a

D．im s As Integer, i As Integer

a = Array(1, 2, 3, 4, 5, 6)

s = 1

F．or i = 5 To 1 Step -2

s = s * a(i)

Next i

Print s

E．nd Sub

A． 15

B． 48

C． 120

D． 720

[单选题]程序运行后，单击窗体，屏幕显示的结果是( )。 Private Sub Form_Click() num1="乙" num2=76 Select Case numl Case"甲" If num2＞=80 Then Print"德艺优秀" Else If num2＞=60 Then Print"德优秀，艺普通" End If Case"乙" If num2>=80 Then Print"德艺双佳" ElselfnumA．德艺双佳B．德艺普通C．德优秀，艺普通D．德艺

[单选题]执行下列程序后，鼠标单击窗体，输出结果为。 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 Form. _Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End SubA．10B．15C．80D．100

[单选题]执行下列程序后，鼠标单击窗体，输出结果为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 Commandl_Click( ) Dim x As Integer，y As Integer，z As Integer X=4：y=2： Z=3 Call Gopd(x，x，z) Print x；X；Z Call Gopd(x，y，y) Print x；y；y End Sub Private Sub Gopd(x As Integer，y As Integer，z As Integer) X=3 * Z + 1 y=2 * z z=x

[单选题]以下程序运行后的输出结果是______。 Private Sub Form_ Click() y=1 ：x=2 Print Iif(x＞=y，x，y) End SubA．0B．1C．2D．3

[试题]下面运行程序后,单击命令按钮,输出的结果是 [ ] 。Private Sub Command1_Click()D．im a%(1 To 5),i%, s#F．or i=1 To 5a(i)=iNexts=Fun(a)Print "s="; s;E．nd SubF．unction Fun(a() As Integer)D．im t#, i%t=1F．or i=LBound(a) To UBound(a)t=t  a(i)NextF．un=tE．nd Function

[单选题]下列程序运行后立即窗口输出的结果是 Private Sub Form_ClickO X="a":y="b" Z=1:u=2 Debug.x;y,z;u Debug.z;x,y;u End Sub A.a b 12 1 ab 2 B.ab 121 a b2C.ab 12 1a b2 D.ab 121a b2