在窗体上有一个文本框Text1,Text属性值为空,然后编写下列事件过程: Private Sub Text1 KeyPress(KeyAscii As Integer) Dim str As String,n As Integer str=UCase(C

admin2013-04-11  66

问题 在窗体上有一个文本框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”。
转载请注明原文地址:https://jikaoti.com/ti/4Z60FFFM
0

相关试题推荐
最新回复(0)