编写如下事件过程:Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _X As Single, Y As Single)If Shift=6 And Button=2 ThenPrint "PC"End IfEnd 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 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 BBBBBB.BBBBBC.AAAAAD.BBBBB AAAAA

下面程序是由鼠标事件在窗体上画图,如果按下鼠标可以画图,双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量:Dim PaintStart As Boolean编写如下事件过程:Private Sub Form_Load()DrawWidth=2ForeColor=vbGreenEnd SubPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer,X AS Single,Y AS Single)PaintStart=TrueEnd SubPrivate Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)If PaintStart ThenPSet(X,Y)End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)End SubPrivate Sub Form_DblClick()ClsEnd Sub

编写如下事件过程; Private Sub Form_ MouseDown (Button As Integer, Shift As Integer, X As Single, Y As SinglE)If Shift = 6 And Button = 1 Then Print "BBBB" End If End Sub程序运行后,为了在窗体上输出 “BBBB”,应执行的操作为______。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 Shift=6 And Button=2 Then Print "BBBB" End IfEnd Sub程序运行后,为了在窗体上输出“BBBB”,应执行的操作为______。A.同时按下Shift键和鼠标左键B.同时按下Shift键和鼠标右键C.同时按下Ctrl、Alt键和鼠标左键D.同时按下Ctrl、Alt键和鼠标右键

编写如下代码:Dim Flag As BooleanPrivate Sub Form. MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)Flag = TrueEnd SubPrivate Sub Form. MouseMove (Button As Integer,Shift As Integer, X As Single, Y As Single)Flag = FalseEnd SubPrivate Sub Form_ MouseUp (Button As Integer,Shift As Integer, X As Single, Y As Single)If Flag = False ThenPrint "DDDD"End IfEnd Sub程序运行后,如果想在窗体上输出DDDD,则应执行的操作为______。

对窗体编写如下事件过程: 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 BBBBBB.BBBBBC.AAAAAD.BBBBB AAAAA

对窗体编写如下事件过程: Private Sub Form_ Mouse Down(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 BBBBBB.BBBBB AAAAAC.AAAAAD.BBBBB

对窗体编写如下事件过程: Private Sub Form. _ MouseDown(BuRon 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 BBBBBB.BBBBBC.AAAAAD.BBBBB AAAAA

假定编写了如下事件过程: Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single, Y As Single) If Button=2 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=2 Then Print "AAA" End If End Sub Private Sub Form. MouseUp (Button As Integer,Shift As Integer,_ x As Single,Y As Single) Print "BBB" End Sub 程序运行后,如果单击鼠标右键,则输出结果为 ______。A.AAA BBBB.BBBC.AAA AAAD.BBB