(31) 设在窗体上有一个文本框,然后编写如下的事件过程:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(Shift And Alt) > 0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down% Then
Text1.Text="abl"
End If
End Sub
程序运行后,清除文本框中原有内容,如果按Shift+F2键,则在文本框中显示的是
A) Alt+F2
B) abl
C) 随机出几个数
D) 不发生变化
正确答案: D