题目内容：
在窗体上有一个文本框Text1，Text 属性值为空，然后编写下列事件过程：Private Sub Text1＿KeyPress（KeyAscii As Integer）
Di mstr As Stri ng ，n As Integer
str ＝UCase（Chr（KeyAscii））
n ＝Len（str）
Text1．Text ＝Stri ng（n ，str）
End Sub
程序运行后，若在文本框中输入单字母"p"，则在文本框Text1中显示的内容为（ ）。 A．pp
B．pP
C．PP
D．Pp
参考答案：【答案仅供学习，请勿对照自行用药等】
答案解析：