![[单项选择题] 在窗体上画一个命令按钮和一个文本框，并将窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub For](http://www.mshxw.com/aiimages/31/253564.png "[单项选择题] 在窗体上画一个命令按钮和一个文本框，并将窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub For")
[单项选择题] 在窗体上画一个命令按钮和一个文本框，并将窗体的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的答案是正确的。问题解析:
解析无
