问题详情

在窗体上一个文本框，其名称为Text1,然后编写如下事件过程：
PrivateSubText2_KeyPress(KeyAsciiAsInteger)
DimstrAsString,nAsInteger
str=Ucase(Chr(KeyAscii))
n=Len(str)
Text1=String(n,str)
EndSub
程序运行后，如果在TEXT2中通过键盘上输入单字母"k"，则在文本框Text1中显示的内容为()
A.k
B.K
C.KK
D.Kk