下面是窗体的MouseDown事件框架，可通过它的( )参数来识别按下的是哪一个鼠标键。 Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single， Y As Single) End SubA．ButtonB．ShiftC．XD．Y
下面是窗体的MouseDown事件框架，可通过它的( )参数来识别按下的是哪一个鼠标键。 Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single， Y As Single) End Sub
A．Button
B．Shift
C．X
D．Y
相关考题：
有如下事件过程：Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)If (Button And 3) =3 ThenPrint "OK"End IfEnd Sub程序运行后，为了在窗体上输出“OK”，应当按下的鼠标键是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 “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 and 3)=3 then Print"Hello" End if End Sub 程序运行后，为了在窗体上输出“Hello”，应该窗体上执行以下( )操作。A．只能按下左键并拖动B．只能按下右键并拖动C．必须同时按下左、右键并拖动D．按下左键拖动或按下右键拖动
编写如下事件过程:()Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Button And 3) = 3 ThenPrint "AAAA"End IfEnd Sub程序运行后,为了在窗体输出“AAAA”,应按下的鼠标键为() A、左B、右C、同时按下左、右D、按什么键都不显示
编写如下事件过程： 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 If End Sub程序运行后，为了在窗体上输出BBBB，应执行的操作为______。A．同时按下Shift 键和鼠标左键B．同时按下Ctrl、Alt 键和鼠标右键C．同时按下Shift 键和鼠标右键D．同时按下Ctrl、Alt 键和鼠标左键
窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（ ）。A.Private Sub Form1 Click（ ）End Sub···B.Private Sub Form1. Click（ ）End Sub···C.Private Sub Command1 click（ ）End Sub···D.Private Sub Command Click（ ）End Sub···
有如下SUB过程：Sub s(x As Single，y As Single)t =xx=t / yY=t Mod yEnd Sub在窗体上添加一个命令按纽，然后编写如下事件过程：Private Sub Form_ Click()Dim a As SingleDim b As Singlea=5b=4s a，bPrint a，bEnd Sub则程序运行后，单击命令按纽，输出的结果为：【 】。
编写如下事件过程： Private SubForm_KeyDown(KeyCodeAsIntege《ShiftAsInteger',) If (Button And 3)=3 Then Print"AAAA" End If End Sub 程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为 ______。A．左B．右C．同时按下左、右D．按什么键都不显示
下面程序是由鼠标事件在窗体上画图，如果按下鼠标可以画图，双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量：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
设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为Bt，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单相应鼠标右键菜单的是A．Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_ X As Single, Y As Single) If Button=2 Then PopupMenu Bt, 2 End SubB．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PopupMenu Bt End SuhC．Private Sub Form. MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PopupMenu Bt,0 End SubD．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If (Button=vbLeftButton) Or ( Button=vbRightButton) Then PopupMenu Bt End Sub
编写如下事件过程： Private Sub Form_ Key Down(Key Code As Integer, Shift As Integer) If(Button And3)=3Then 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 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(KeyCode As Integer,Shift As Integer) If (Button And 3)=3 Then Print"AAAA" End If End Sub 程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键是A．左B．右C．同时按下左和右D．按什么键都不显示
窗体的MouseDown事件过程Form_MouseDown(Button As Integer,Shift As Integer, XAsSingle,Y As Single)有4千参数，关于这些参数，正确的描述是 ______。A．通过Button参数判定当前按下的是哪一个鼠标键B．Shift参数只能用来确定是否按下Shift键C．Shift参数只能用来确定是否按下Alt和Ctrl键D．参数X，Y用来设置鼠标当前位置的坐标
窗体Forml上有一个名称为Commandl的命令按钮，以下对应窗体单击事件的事件过程是A．Private Sub Forml_Click() … End SubB．Private Sub Form_Click() … End SubC．Private Sub Commandl_Click() … End SubD．Private Sub Command_Click() … End Sub
编写如下事件过程： Private Sub Form-MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Shift=6 And Button=2 Then Print"Hello" End If End Sub 程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下( )操作。A．同时按下Shift键和鼠标左键B．同时按下Shift键和鼠标右键C．同时按下Ctrl、Alt键和鼠标左键D．同时按下Ctrl、Alt键和鼠标右键
编写了如下事件过程： 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．按鼠标键没有反应
设已经在菜单编辑器中设计了窗体的快捷菜单，某顶级菜单为a1，且取消其“可见”属性。运行时，哪个事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是A．Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=2 Then PopupMenu a1，2 End SubB．Private Sub Form_MouseDown(ButtonAsInteger，ShiftAsInteger，X As Single，Y As Single) PopupMenu a1，0 End SubC．Private Sub Form_Mouse Down(Button As Integer，Shift As Integer，X As Single，Y As Single) PopupMenu a1 End SubD．Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If(Button=vbLetfButton) Or (Button=vbRightButton) Then PopupMenu a1 End Sub
下面是窗体的MouseUp事件框架,在发生该事件时按下了键,可通过它的 ()参数来识别。A.ButtonB 下面是窗体的MouseUp事件框架，在发生该事件时按下了＜Ctrl＞键，可通过它的 ( )参数来识别。A．ButtonB．ShiftC．XD．Y
编写如下事件过程：Private Sub Form_ KeyDown(KeyCode As Integer，Shift As Integer) If (Button And 3)= 3 Then Print "AAAA" End IfEnd Sub程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为______。A．左B．右C．同时按下左、右D．按什么键都不显示
编写如下事件过程: Private Sub Form_ MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 6 And Button = 2 Then Print “Hello” End If End Sub 程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下______ 操作。A．同时按下Shift键和鼠标左按钮．B．同时按下Shift键和鼠标右按钮C．同时按下Ctrl、Alt键和鼠标左按钮D．同时按下Ctrl、Alt键和鼠标右按钮
下面一段程序的功能是，单击窗体弹出对话框。在对话框中输入一个文件名，窗体中输出该文件名的文件号。请填空。Private Sub Form_ click()filename = InputSox (“请输入文件名”)Filecode =Open filename For Output As FilecodePrint filename; “的文件号是”; FilecodeClose FilecodeEnd Sub
有一个名称为Fom1的窗体，上面没有控件，设有以下程序(其中方法PSet(X，Y)的功能是在坐标X，Y处画一个点)： Dim cmdmave As Boolean Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) cmdmave=True End Sub Private Sub Form_MouseMove(Button AS Integer，Shift As Integer，X AS Single，Y As Single) If cmdmave Then Forml．PSet(X，Y) End lf End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) cmdmave=False End Sub 此程序的功能是。 A．每按下鼠标键一次，在鼠标所指位置画一个点 B．按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失 C．不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线 D．按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线
假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单的名称为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 al End If End SubB．Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)PopupMenu a1 End SubC．Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)If Button = 1 Then PopupMenu a 1 End If End SubD．Private Sub Form_ MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)If Button = 2 Then PopupMenu a 1 End If End Sub
假定编写了如下事件过程： 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_ Load() Show Text1.Text = " " Text1.SetFocus End Sub Private Sub Form_ MouseUp (Button As Integer, Shift As Integer, X As Single, Y As SinglE)Print “程序设计” End Sub Private Sub Text1_ KeyDown (KeyCode As Integer, Shift As Integer) Print "Visual Basic" End Sub程序运行后，如果在文本框中输入字母a(即直接按a键)，然后单击窗体，则在窗体上显示的内容是______。A．Visual BasicB．程序设计C．Visual Basic程序设计D．A程序设计
窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是A）Private Sub Form. 1_Click() B）Private Sub Form. _Click()End Sub End SubC）Private Sub Commandl_Click() D）Private Sub Command_ Click()End Sub End Sub