题目内容:
在窗体上有一个文本框Text1,Text属性值为空,然后编写如下事件过程:Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As Strin9,n As Integer
str=UCase(Chr(KeyAscii))
n=Len(str)
Text1.Text=String(n,str)
End Sub
程序运行后,如果在文本框中输入单字母“P”,则在文本框Textl中显示的内容为( ) 。 A.pp
B.pP
C.PP
D.Pp
参考答案:
答案解析: