在窗体上画一个命令按钮和一个文本框(名称分别为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) 出错