[填空题] 在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下代码： Dim SaveAll As String Private Sub Command1_

17 查阅

[填空题] 在窗体上画一个命令按钮和一个文本框，其名称分别为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”。

计算机考试