在窗体上画一个命令按钮和一个文本框，并将窗体的KeyPreview属性

问题单项选择题

在窗体上画一个命令按钮和一个文本框，并将窗体的KeyPreview属性设置为True，然后编写如下代码：
Dim SaveAll As String
Private Sub Form_Load()
Show
Text1.Text=" "
Text1.SetFocus
End Sub
Private Sub Command1_Click()
Text1.Text = Ucase(SaveAll)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，在键盘上输入abcdefg，单击命令按钮，则文本框中显示的内容为

A．abcdefg

B．不显示任何信息

C．ABCDEFG

D．出错

答案

参考答案：C

解析：

[分析]：将窗体的KeyPreview属性设置为True，在键盘上输入abcdefg时，触发Form_KeyPross事件，变量SaveAll的值为“abcdefg”。由于 SaveAll为过程变量，单击命令按钮后，UCase函数将SaveAll的内容转换成大写字符。选项C的答案是正确的。