执行下列程序后，鼠标单击窗体，输出结果为( )。
Private Sub Form_Click（　）
Print "Click";
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift

A:As Integer,X As Single,Y As Single) B:Print "Down" C:End Sub D:Private Sub Form_MouseUp(Button As Integer, Shift_As Integer,X As Single,Y As Single) E:Print "Up" F:End Sub DownUpClick G:ClickDownUp H:DownClickUp I:UpDownClick

窗体上命令按钮的事件过程如下：
Private Sub Command1_Click（　）

A:A="34":B="26":C="98" B:Print B+C+A C:End Sub D:运行程序后，单击命令按钮，输出结果是( E:)。 "269834" F:269834 G:158 程序运行出错

有如下程序：　　Private Sub Commandl_Click（　）　　　Dim a As Integer　　　a=2　　　For i=1 To 3　　　　　Print Gad (

A:

　　　　　Next i

　　End Sub

　　Function Gad (a As Integer)

　　　b=0

　　　Static c

　　　b=b + 1

End Sub

A:Pfivate Sub Commgld1_LClick() B:Private Sub Command1_Click() C:Pfivate Sub Command1_ C1ick() D:Private Sub Command1_C1ick()

设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为 Command1的命令按钮。窗体Form1的程序代码如下：
Private Sub Command1_Click（　）
Dim a As Integer
a=10
Call g(Form2，

A:
End Sub
Private Sub g(f As Form，

单击一次命令按钮后，下列程序的执行结果为（ ）。 　　Private Sub Command1_Click（　） 　　　　Dim m As Integer，I As Integer，x(10) As Integer 　　　　For I=0 To 4：x(I)=I+1：Next I 　　　　For I=1 TO 2：Call Prioc(x)：Next I 　　　　For I=0 TO 3：Print x(I)；：Next I 　　End Sub 　　Private Sub Prioc(a（　）As Integer) 　　　　Static I As Integer 　　　　Do 　　　　　a(I)=a(I)+a(I+1) 　　　　　I=I+1 　　　Loop While I＜2 　　End Sub

A:private B:无修饰符 C:public D:protected

单击一次命令按钮后，下列程序的执行结果为（ ）。 　　Private Sub Command1_Click（　） 　　　　Dim m As Integer，I As Integer，x(10) As Integer 　　　　For I=0 To 4：x(I)=I+1：Next I 　　　　For I=1 TO 2：Call Prioc(x)：Next I 　　　　For I=0 TO 3：Print x(I)；：Next I 　　End Sub 　　Private Sub Prioc(a（　）As Integer) 　　　　Static I As Integer 　　　　Do 　　　　　a(I)=a(I)+a(I+1) 　　　　　I=I+1 　　　Loop While I＜2 　　End Sub

A:private B:无修饰符 C:public D:protected

窗体上有一个名称为Command1的命令按钮，其中部分代码如下：
Private Sub Command1_Click( )
Dim a(10) As Integer
Dim n As Integer
……
Call calc(a,n)
……
End Sub
calc过程的的首行应该是（）。

A:Sub calc（x() As Integer,n As Integer） B:Public Sub calc(x() As Integer) C:Private Sub calc(a(n) As Integer,n As Integer) D:Public Sub calc(a As Integer, n As Integer)