【单选题】在窗体上面有一个文本框,其名称为Text1,编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dims str As String str=Chr(KeyAscii) KeyAseii=Asc(UCase(str)) Text1.Text=String(2,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,...
【单选题】在窗体上面有一个文本框,其名称为Text1,编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,则...