单选题
在窗体上画一个命令按钮和一个文本框(名称分别为Commandl和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码:
Dim SaveAll As String
Private Sub Form_Load()
Show
Text1.Text=""
Text1.SetFocus
End Sub
Private Sub
Commandl_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.出错