[填空题] 在窗体上画两个文本框，其名称分别为Namel和PassWordl，然后编写如下事件过程　　Private Sub Form

[填空题] 在窗体上画两个文本框，其名称分别为Namel和PassWordl，然后编写如下事件过程　　Private Sub Form_Load()　　　　Show　　　　Namel．Text=" "　　 Passwordl．Text=" "　　　　Passwordl．SetFocus　　End Sub　　Private Sub Passwordl_KeyDown(KeyCode As Integer，Shift As Integer)　　　　Namel．Text=Name1．Text+Chr(KeyCode - 3)　　End Sub　　程序运行后，如果在Passwordl中输入“hit’’’，则在Namel文本框中显示的内容是【 】。

EFQ

在Form_Load事件过程中，属性Text用来设置文本框中显示的内容，所 以首先要清空文本框name1和password1中的内容；SetFocus函数是把光标移动到文本框 中，当在窗体上建立了多个文本框后，可以用该方法把光标置于所需要的文本框，所以在 本程序运行时光标位置在password1上；在password1_KeyDown事件过程中，只有一条语 句，即将从password1中接收到的“键”其码值减去3后和前面的一起输出；因为KeyDown 事件返回的是“键”，所以当按下键“a”时，与按下键“A”是一样的KeyCode码，所以当在 password1中输入h时，KeyCode中的值为&H46，当减去3后，它的值为E的码值，而函数 Chr是将码值转换为字符，所以输出E；同样的道理，最后的输出字符应该是EFQ。