【单选题】

在窗体上画一个文本框，然后编写如下事件过程：

Private Sub Text1_KeyPress(KeyAsciiAs Integer)
Dim charAs String
char=Chr(KeyAscii)
KeyAscii=Asc(UCase(char))
Text1.Text=String(6，KeyAscii)
End Sub
程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为 ______。
A．a
B．A
C．aaaaaaa
D．AAAAAAA