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

admin2019-03-14  22

问题 在窗体上有一个文本框Textl,Text属性值为空,然后编写如下事件过程:
    Private Sub Text l KeyPress(KeyAscii As Integer)
    Dim str As String,n As Integer
    str=UCase(Chr(KeyAscii))
    n=Len(strl
    Text1.Text=String(n,str)
    End Sub
    程序运行后,如果在文本框巾输入字母“P”,则在文本框巾显示的内容为(    )。

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

答案B

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

最新回复(0)