（ 31 ） 在窗体上画一个命令按钮和一个文本框 （ 名称分别为 Command1 和 Text1 ） ， 并把窗体的Keyprewie w属性设置为 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 ）出错