问题
单项选择题
在窗体上有一个文本框Text1，Text属性值为空，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String,n As Integer
str=UCase(Cbr(KeyAscii))
n=Len(str)
Text1.Text=String(n,str)
End Sub
程序运行后，如果在文本框中输入字母“p”，则在文本框中显示的内容为( )。
A．pp
B．pP
C．PP
D．Pp
答案
参考答案：B
解析： 本题考查字符串函数的应用。在Text1中按下字母“p”，则首先显示字符“p”，接下来触发KeyPress事件，其中，UCase把字符“p”转化为大写字母，显示大写字母“P”。