网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
编写如下事件过程：
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 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 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
热门标签
最新试卷
