问题
单项选择题
在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim char As String
char=Chr(KeyAscii)
KeyAscii=Asc(UCase(char))
Text1.Text=String(6,KeyAscii)
End Sub
程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为( )。
A．a
B．A
C．aaaaaa
D．AAAAAA
答案
参考答案：D
解析： 本题考查KeyPress事件过程和字符串函数。KeyPress事件的过程格式为：Sub object_KeyPress([Index As Integer,]KeyAscii As Integer，其中KeyAscii为字符ASCII码。当在文本框中输入字符a后，UCase函数把输入的字符转化为大写字符，Ase函数则把字符转化为ASCII码值。String函数则产生6个同样的字符A。