在窗体上画一个文本框(Text1)，然后编写如下事件过程： Private Sub
题型：单项选择题
问题：
在窗体上画一个文本框(Text1)，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim char As String
char = Chr(KeyAscii)
KeyAscii = Asc(UCase(char))
Print String(4, KeyAscii)
End Sub
程序运行后，在输入文本框Text1中输入"A"，则程序在窗体上的输出结果为________。
A．a
B．A
C．aaaa
D．AAAA