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

admin2016-01-22  28

问题 在窗体上有一个文本框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”,则在文本框中显示的内容为(    )。

选项 A、PP
B、pP
C、PP
D、Pp

答案B

解析 本题考查字符串函数的应用。在Text1中按下字母“p”,则首先显示字符“p”,接下来触发KeyPress事件,其中,UCase把字符“p”转化为大写字母,显示大写字母“P”。   
转载请注明原文地址:https://jikaoti.com/ti/acJ0FFFM
0

最新回复(0)