[单选题]

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

B.BBBBB

C.AAAAA

D.BBBBB AAAAA

参考答案与解析:

相关试题

编写如下事件过程:Private Sub Form. MouseDown(But

[单选题]编写如下事件过程: 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.同时按下Shift键和鼠标右键C.同时按下Ctrl、Alt键和鼠标左键D.

  • 查看答案
  • 编写如下事件过程:Private Sub Form. KeyDown(KeyCo

    [单选题]编写如下事件过程: 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. KeyDown (KeyC

    [单选题]编写如下事件过程: Private Sub Form. KeyDown (KeyCode As Integer, Shift As Integer) Print Chr (KeyCode) End Sub Private Sub Form_KeyPress( KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住Shift键和锁定大写键时)运行程序,若按“T”键,则程序输出的结果是A.T TB.t TC.T tD.t t

  • 查看答案
  • 编写如下事件过程:Private Sub Form. Click() Dim C

    [单选题]编写如下事件过程: Private Sub Form. Click() Dim Char As String,i As Integer Const ch$="#" msg$= "Enter a String:" char=InputBox$(msg$) n=Len(Char) For i=1 To n If Mid$(char,i,1)=ch$ Then Exit For End If Next i Print i - 1 End Sub 其中InputBox函数的功能是弹出一个输入对话

  • 查看答案
  • 编写如下事件过程:Private Sub Form. Mouse Down(Bu

    [单选题]编写如下事件过程: Private Sub Form. Mouse Down(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.同时按下Shift键和鼠标右键C.同时按下Ctrl、Alt键和鼠标左键

  • 查看答案
  • 对窗体编写如下事件过程:Private Sub Form_ MouseDown(

    [单选题]对窗体编写如下事件过程: 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” E

  • 查看答案
  • 对窗体编写如下事件过程:Private Sub Form_MouseDown(B

    [单选题]对窗体编写如下事件过程:Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single Y As Single)If Button=2ThenPrint"AAAAA"EndIfEndSubPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)Print"BBBBB&quo

  • 查看答案
  • 对窗体编写如下事件过程:Private Sub Form_MouseDown(B

    [单选题]对窗体编写如下事件过程: 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"

  • 查看答案
  • 对窗体编写如下事件过程:Private Sub Form_ Mouse Down

    [单选题]对窗体编写如下事件过程: 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 "BBBB

  • 查看答案
  • ( 32 )设有如下窗体单击事件过程:Private Sub Form. Cli

    [单选题]( 32 )设有如下窗体单击事件过程:Private Sub Form. Click ()a = 1F.or i = 1 To 3Select Case iC.ase 1 , 3a = a + 1C.ase 2, 4a = a + 2E.nd SelectNext iMsgBox aE.nd Sub打开窗体运行后,单击窗体,则消息框的输出的结果是A. ) 3B. ) 4C. ) 5D. ) 6

  • 查看答案
  • 对窗体编写如下事件过程:Private Sub Form. _ MouseDow