在窗体上画一个文本框,然后编写如下事件过程: Private Sub Textl_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(K

admin2020-06-30  37

问题 在窗体上画一个文本框,然后编写如下事件过程:
    Private Sub Textl_KeyPress(KeyAscii As Integer)
            Dim char As String
            char=Chr(KeyAscii)
            KeyAscii=Asc(UCase(char))
            Textl.Text=String(6,KeyAscii)
    End Sub
    程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为(    )。

选项 A、a   
B、A   
C、aaaaaa
D、AAAAAA

答案D

解析 本题考查KeyPress事件过程和字符串函数。KeyPress事件的过程格式为:Sub obje2013w47/ct_KeyPress([Index As Integer,]KeyAscii As Intoger),其中KeyAscii为字符ASCⅡ码。当在文本框中输入字符a后,UCase函数把输入的字符转化为大写字符,Asc函数则把字符转化为ASCⅡ码值。String函数则产生6个同样的字符A。
转载请注明原文地址:https://kaotiyun.com/show/6UHp777K
0

最新回复(0)