• 2021-04-14
    编写如下事件过程: Private Sub Form_Keydown(KeyCode As Integer, Shift As Integer) If (Button And 3) = 3 Then Print "AAAA" End If End Sub 程序运行后,为了在窗体上输出 “AAAA”,应按下的鼠标键为()。
  • 按什么键都不显示

    内容

    • 0

      在窗体上画一个文本框,其名称为Text1,然后编写如下过程: Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As integer) Print Chr(KeyCode+2) End Sub 程序运行后,把焦点移到文本框中,此时如果敲击“A”键,则输出结果为 A: A B: A C: A D: B E: A F: C G: A H: D

    • 1

      窗体上有文本框Text1,编写如下事件过程,运行时,向文本框输入字符“y”,输出的数值是( )。 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print KeyCode End Sub

    • 2

      编写如下事件过程: Private Sub Form_Keydown(KeyCo...出 “AAAA”,应按下的鼠标键为()。

    • 3

      在窗体上画1个文本框,其名称为Text1,然后编写如下过程:Pfivme Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode+2)End Sub程序运行后,把焦点移到文本框中,此时如果敲击“A”键,则输出结果为()。 A: A A B: A B C: A C D: A D

    • 4

      执行下列程序后,鼠标单击窗体,输出结果为( )。 Private Sub Form_Click() Print "Click"; End Sub Private Sub Form_MouseDown(Button As Integer, Shift A: As Integer,X As Single,Y As Single) B: Print "Down" C: End Sub D: Private Sub Form_MouseUp(Button As Integer, Shift_As Integer,X As Single,Y As Single) E: Print "Up" F: End SubA) DownUpClick G: B) ClickDownUp H: C) DownClickUp I: D) UpDownClick