在窗体上画一个名称为Text1的文本框,然后编写如下事件过程: Private Sub Form_Load() Text1.Text = "" End Sub Private Sub Text1_KeyDown(KeyCode As Integer

admin2018-09-19  28

问题 在窗体上画一个名称为Text1的文本框,然后编写如下事件过程:
Private Sub Form_Load()
    Text1.Text = ""
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    Const Alt = 4
    Const Key_F2 = &H71        ’&H71是F2键的键码
    AltD = (Shift And Alt) > 0
    F2D = (KeyCode = Key_F2)
    If AltD And F2D Then
        Text1.Text = "abl"
    End If
End Sub
程序运行后,如果按Shift+F2键,则文本框中的内容是

选项 A、Alt+F2
B、abl
C、随机显示
D、不显示任何信息

答案D

解析 KeyDown事件的参数KeyCode表示按键的键盘码,此题为&H71;参数Shift表示在该事件发生时相应Shift、Ctrl和Alt键的状态,用一个3位的二进制数表示,只有Shift被按下时为001。按下Shift+F2键,条件KeyCode = Key_F2为False,即F2D = False,文本框不显示内容。故正确答案为选项D。
转载请注明原文地址:https://jikaoti.com/ti/gbm0FFFM
0

最新回复(0)