问题 填空题

在窗体上画一个命令按钮和一个文本框,其名称分别为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
程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是______。

答案

参考答案:"ABCD\

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

单项选择题
问答题