对窗体编写如下事件过程： Private Sub Form_MouseDown（Button As Integer，Sh

编写如下事件过程：

Private Sub Form_MouseDown（Button As Integer, Shift As Integer, _

X As Single, Y As Single）

If Shift＝6 And Button＝2 Then

Print "PC"

End If

End Sub

程序运行后，为了在窗体上输出"PC"，应执行的操作为（ ）。

A．同时按下Shift键和鼠标左键

B．同时按下Ctrl，Alt键和鼠标右键

C．同时按下Shift键和鼠标右键

D．同时按下Ctrl，Alt键和鼠标左键

对窗体编写如下事件过程： 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 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 Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) If(Button And 3)=3 Then Print "AAAA" End If End Sub 程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为______。

A．左

B．右

C．同时按下左、右

D．按什么键都不显示

假定编写如下事件过程： Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single，Y As Single) If(Button and 3)=3 then Print"Hello" End if End Sub 程序运行后，为了在窗体上输出“Hello”，应该窗体上执行以下( )操作。

A．只能按下左键并拖动

B．只能按下右键并拖动

C．必须同时按下左、右键并拖动

D．按下左键拖动或按下右键拖动

编写如下事件过程，当程序运行后，为了在窗体上输出BBBB，应执行的操作为 ______ 。 Private Sub Form_MouseDown(Button As Integer,_ Shift As Integer,X As Single,Y As Single) If Shift = 6 And Button = 2 Then Print "BBBB" EndIf End Sub

A．同时按下Shift 键和鼠标左键

B．同时按下Shift键和鼠标右键

C．同时按下Ctrl、Alt键和鼠标左键

D．同时按下Ctrl, Alt键和鼠标右键

假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单项的名称为a1，其“可见”属性为False。程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是

A．Private Sub Form_MouseDown(Button As Integer，_ Shift As Integer，X As Single，Y As Single) If Button=1 And Button=2 Then PopupMenu a1 End If End Sub

B．Private Sub Form_MouseDown(Button As Integer，_ Shift As Integer，X As Single，Y As Single) PopupMenu a1 End Sub

C．Private Sub Form_MousoDown(Button As Integer，_ Shift As Integer，X As Single，Y As Single) If Button=1 Then PopupMenu a1 End If End Sub

D．Private Sub Form_MouseDown(Button As Integer，_ Shift As Integer，X As Single，Y As Single) If Buaon=2 Then PopupMenu a1 End If End Sub

把窗体的KeyPreView属性设置为True，并编写如下两个事件过程：

Private Sub Form_KeyDown（KeyCode As Integer, Shift As Integer）

Print KeyCode

End Sub

Private Sub Form_KeyPress（KeyAscii As Integer）

Print KeyAscii

End Sub

程序运行后，如果按下B键，则在窗体上输出的数值是 【12】 和 【13】 。

A、左

B、右

C、同时按下左、右

D、按什么键都不显示

下面程序是由鼠标事件在窗体上画图，如果按下鼠标可以画图，双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量：

Dim PaintStart As Boolean

编写如下事件过程：

Private Sub Form_Load()

DrawWidth=2

ForeColor=vbGreen

End Sub

Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X AS Single，Y AS Single)

PaintStart=True

End Sub

Private Sub Form_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single)

If PaintStart Then

PSet(X，Y)

End If

End Sub

Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single)

End Sub

Private Sub Form_DblClick()

Cls

End Sub