特克斯（tex）

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

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

窗体上有一个名称为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)

在窗体上画—个文本框（名称为Text1）和—个标签（名称为Label1），程序运行后，在文本框中每输入—个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是（）。

A:Private Sub Text1_ Change() Label1.Caption =Str (Len(Text1.Tex)End Sub B:Private Sub Text1_ Click() Label1.Caption=Str(Len(Text1.Tex)End Sub C:Private Sub Text1_ Change() LabelCaption =Text1.TextEnd Sub D:Private Sub Label1_ Change() LabelCaption=Str(Len(Text 1. Tex)End Sub