执行下列程序后，鼠标单击窗体，输出结果为( )。
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

设工程文件中包名称分别为Form1、Form2的两个窗体，且Form1的菜单属性设置如下：

标题(p)	名称(m)	内缩符号	Index
窗体	Mnu（　）	无
显示窗体2	Mnu1	1	1
退出	Mnu1	1	2

窗体Form1中的程序如下：
Dim Flag As Boolean
Private Sub Form_Load（　）
Flag = True
End Sub
Private Sub mnu1_Click(index As Integer)
If Index = 1 Then
If Flag = True Then
Form2. show
mnu1 (1). Caption = "隐藏窗体2"
Flag = False
Else
Form2. Hide
mnu1 (1). Caption = "显示窗体2"
Flag = True
End If
End If
If Index = 2 Then End
End Sub
关于上述程序，以下叙述中错误的是( )。

A:Index属性的值可以用来区分控件数组元素 B:Index为1的菜单项的标题可能会改变 C:两个名称均为Mnu1的菜单项构成一个控件数组 D:语句Form2. Hide将Form2卸载

有如下程序：　　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)