问题 单项选择题

在窗体上画一个命令按钮和一个文本框(名称分别为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属性用于设置是否在控件的键盘事件之前激活窗体的键盘事件。KeyPress (KeyAscii As Integer)事件是在对象具有焦点时,按下键盘上的键时触发的事件。KeyAscii参数是所按键的Ascii的代码将每个字符的大、小写形式作为不同的键代码解释。Chr()可返回Ascii码对应的字符。   本题程序运行时,在文本框中每输入一个字符,该字符将被连入变量SaveAll中,当输入为“VB”时,SaveAll="VB"。单击命令按钮后,文本框中显示内容应为“vbVB”。

单项选择题
填空题