当前位置:IT认证>BASIC题库

问题:[填空题]

[填空题] 在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下代码: Dim SaveAll As String Private Sub Command1_Click() Text1.Text=Left(UCase(SaveAll),4) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后,在文本框中输入

  

参考答案:

"ABCD

  参考解析

本题考查的知识点是KeyPress事件的KeyAscii参数,KeyrAscii参数代表的是键盘按下时字符所对应的ASCII码,因此在文本框中输入abcdefg之后变量SaveAll的值为"abcdefg",UCase()函数把字符串变量SaveAll中的字母全部变为大写形式,Left()函数取出字符串SaveAll中前4个字符,所以本题的正确答案为”ABCD”。

微信端