问题 单项选择题

在窗体上画一个命令按钮和一个文本框(名称分别为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
Pivate Sub Form_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后,直接用键盘输入ABC,再单击命令按钮,则文本框中显示的内容为______。

A) abcABC
B) 不显示任何信息
C) ABC
D) 出错

答案

参考答案:A

解析: KeyPreview属性是用来返回/设置是否在激活对象上控件的键盘事件之前,优先激活对象键盘事件,本题窗体的KeyPreview属性设置为True,每当键盘输入一个字符,就会优先触发窗体的键盘事件,输入完毕,单击Command1按钮,此时的SaveAll=ABC,所以在Text1文本框显示的是abcABC。

单项选择题 案例分析题
单项选择题