问题
单项选择题
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写如下代码：
Dim SaveAll As String
Private Sub Form_Load()
show
Text1.Text=""
Text1.SetFocus
End Sub
Private Sub Command1_Click()
Text1.Text=LCase(SaveAll)+SaveAll
End Sub
Private Sub Form_KeyPress(keyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，直接用键盘输入“VB”，再单击命令按钮，则文本框中显示的内容为
A．vbVB
B．不显示任何信息
C．VB
D．出错
答案
参考答案：A
解析： 把窗体的KeyPreview属性设置为True，当用键盘输入时，首先处理窗体的KeyPress事件，然后再处理相关控件的KeyPress事件。本题中输入VB两个符号时，通过窗体的KeyPress事件将按键字母连接到SaveAll变量中，SaveAll="VB"，当单击命令按钮时，LCase函数将"VB"字符转换为"vb"再连接上SaveAll变量的值"VB"，连接结果为"vbVB"，最后把"vbVB"赋值给Text1控件显示出来，所以显示出来的结果为：vbVB，正确答案为A。