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

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

Private Sub Form_Load（）

Show

Name1.Text=""

Password1.Text=""

Password1.SetFocus

End Sub

Private Sub Password1_KeyDown（KeyCode As Integer, Shift As Integer）

Name1.Text=Name1.Text + Chr（KeyCode - 3）

End Sub

程序运行后，如果在Password1中输入"hit"，则在Name1文本框中显示的内容是 【8】 。