在窗体上阃一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True,然后编写如下代码：

Dim SaveAll As String

Private Sub Command1_Click()
    Text1.Text = UCase(SaveAll)
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    SaveAll = SaveAll + Chr(KeyAscii)
End Sub

程序运行后，在键盘上输人abcdefg,单击命令按钮，则文本框中显示的内容是什么？

   解：在该题中，窗体的KeyPreview属性被设置为True,如果按下键盘上的某个键，则激活的是窗体的键盘亊件过程，因此，程序运行后，如果从键盘上输人abcdefg，则这些字符被存人变量SaveAll中，当单击命令按钮时，在文本框中显示的内容为：
ABCDEFG

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_10.2.html