在窗体上面有一个文本框,其名称为Text1,编写如下事件过程: Private S
问题:
在窗体上面有一个文本框,其名称为Text1,编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As Stringstr=Chr(KeyAscii)KeyAscii=Asc(UCase(str))Text1.Text=String(2,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,则在文本框Text3中显示的内容为( )。
A.aaa
B.AAA
C.AA
D.aa