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