在窗体上画两个文本框，其名称分别为Text1和Text2,然后编写如下事件过程：

Private Sub Form_Load()
    Show
    Text1.Text = ""
    Text2.Text = ""
    Text2.SetFocus
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
    Text1.Text = Text1.Text + Chr(KeyCode - 4)
End Sub

程序运行后，如果在Text2文本框屮输人efghi,则Textl文本框中的内容是什么？

    解：对于KeyDown事件过程来说，参数KeyCode 以“键”为准，即使输人小写字母，KeyCode的值仍为相应的大写字母的ASCII码。因此，如果在Text2文本 框中输人efghi，则Textl文本框中的内容为ABCDE，

------visual basic程序设计教程第四版答案 刘炳文 编著

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

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