![[单项选择题] 在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程： Private Sub Text1 KeyPress(KeyAscii As Integer) Dim st](http://www.mshxw.com/aiimages/31/256042.png "[单项选择题] 在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程： Private Sub Text1 KeyPress(KeyAscii As Integer) Dim st")
[单项选择题] 在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程： Private Sub Text1 KeyPress(KeyAscii As Integer) Dim str As String,n As Integer str=UCase(Chr(KeyAscii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。
A．pp
B．pP
C．PP
D．Pp
参考答案：
B问题解析:
解答本题的前提是了解下列几个函数的作用：UCase函数的作用是将某字符串中的字符全部转成大写；String(n,str)函数的作用是返回n个重复字符的字符串；Len函数的作用是返回字符串的长度。因为KeyPress事件中接收KeyAscii参数为输入键的ASCII码，输入小写字母“p”后，str为大写字母“P”，n=1，String(n,str)为“P”，所以Text1中在按下键盘上的键时又添加了一个“P”。
