在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim strAs String,n As Integer
Str=UCase(Chr(KeyAscii)
n=Len(str)
Text1=String(n,str)
End Sub
程序运行后，如果在键盘上输入单字母“k”，则在文本框Text1中显示的内容为( )。

A．kk

B．kK

C．KK

D．Kk