【单选题】设在窗体上有一个文本框,然后编写如下的事件过程: Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger) Const Alt=4 Const Key_f2=&H71 altdown%=(Shift And Alt) > 0 f2down% And f2down% Then If altdown% And f2down% The...
【单选题】在窗体上面有一个文本框,其名称为Text1,然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) TextText=String(2,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,则...
【单选题】窗体上有1个文本框Text1,然后编写如下事件过程,程序运行后在键盘上按下字母a,在窗体上打印 。 Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode + 3); End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Print C...