在窗体上画一个文本框(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