你可能感兴趣的试题
Private Sub Form Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Intege Text1.Text=Chr(KeyCode-4) End Sub Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Intege Text1.Text=Text1.Text+Chr(KeyCode-4) End Sub Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer,Shift As Intege Text1.Text=Text1.Text+Chr(KeyCOde-4) End Sub Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer,Shift As Intege Text1.Text=Chr(KeyCode-4) End Sub
FORM1.TEXT2.PASSWORDCHAR="*" FORM1.TEXT2.PASSWORD="*" THISFORM.TEXT2.PASSWORD="*" THISFORM.TEXT2.PASSWORDCHAR="*"
123456 579 123456 123456 579 579 579 123456
123456 579 123456 123456 579 579 579 123456
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=Chr(KeyCode-4)
End Sub 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 Private Sub Form_Load()
Show
Text1.Text=" "
Text2.Text=" "
Text2.SetFocus
End Sub
Private Sub Text2_Click(KeyCode As Integer,Shift As Integer)
Text1.Text=Text1.Text+Chr(KeyCOde-4)
End Sub Private Sub Form_Load()
Show
Text1.Text=" "
Text2.Text=" "
Text2.SetFocus
End Sub
Private Sub Text2_Click(KeyCode As Integer,Shift As Integer)
Text1.Text=Chr(KeyCode-4)
End Sub
abc和ABC abc和abc ABC和abc ABC和ABC
FORM1.TEXT2.PASSWORDCHAR="*" FORM1.TEXT2.PASSWORD="*" THISFORM.TEXT2.PASSWORD="*" THISFORM.TEXT2.PASSWORDCHAR="*/
Index Option1.Index Option1(Inde Option1(IndValue
FORM1.TEXT2.PASSWORDCHAR="*" FORM1.TEXT2.PASSWORD="*" THISFORM.TEXT2.PASSWORD="*" THISFORM.TEXT2.PASSWORDCHAR="*"
BeijingChina China Beijing BeijingC