题目内容
（请给出正确答案）
执行下列程序后，鼠标单击窗体，输出结果为 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，Y As single) Print "Up" End Sub
A．DownUpClick
B．ClickDownUp
C．DownClickUp
D．UpDownclick
如果结果不匹配，请 联系老师 获取答案
更多“执行下列程序后，鼠标单击窗体，输出结果为Private Su…”相关的问题
对窗体编写如下事件过程： Private Sub Form_MouseDown(Button As Integer，Shift As Integer,X As Single， Y As Single) If Button=2 Then Print "AAAAA" End If End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single， Y As Single) Print "BBBBB" End Sub 程序运行后，如果单击鼠标右键，则输出结果为 ______ 。
A．AAAAA BBBBB
B．BBBBB
C．AAAAA
D．BBBBB AAAAA
在窗体上画一个命令按钮，然后编写下列程序 Private Sub Command3_Click() Tcl 2 Tcl 3 Tcl 4 End Sub Sub Tcl(a As Integer) Static x As Integer x=x+a Print x; End Sub 程序运行后，单击命令按钮，输出结果为
A．2 3 4
B．2 5 9
C．3 5 4
D．2 4 3
在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序：
窗体打开运行后，单击命令按钮，则消息框的输出结果为__________。
在窗体上画一个命令按钮，然后编写下列程序 Private Sub Command3_Click() Tcl 2 Tcl 3 Tel 4 End Sub Sub Tcl(a As Integer) Static x As Integer x=x + a Print x； End Sub 程序运行后，单击命令按钮，输出结果为
A．2 3 4
B．2 5 9
C．3 5 4
D．2 4 3
在窗体下添加一个命令按钮(名为CommandI)，然后编写如下程序：
打开窗体运行后，单击命令按钮，消息框的输出结果为（）。
A. 10
B. 20
C. T
D. F
在窗体上画一个名称为Coramandl的命令按钮，然后编写如下程序； Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim a As Boolean SW=False End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox("") If SW Then Print flmc(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为
A．输出0
B．输出2
C．输出45
D．无任何输出
在程序运行时，下面的叙述中正确的是（）。
A.用鼠标右键单击窗体中无控件的部分，会执行窗体的Form_Load事件过程
B.用鼠标左键单击窗体的标题栏，会执行窗体的Form. Click事件过程
C.只装入而不显示窗体，也会执行窗体的Form. Load事件过程
D.装入窗体后，每次显示该窗体时，都会执行窗体的Form. Click事件过程
在窗体上画一个命令按钮，然后编写如下程序。运行后，单击命令按钮，输出结果为 ()。
Private Sub Command4_Click()
Dima As Integer,bASInteger
a=1
b=2
PrintN(a,b)
End Sub
Function N(X As Integer,yAsInteger)AsInteger
N=IIf(x＞y，x，y)
End Funcfion
