Question

vb编程3，急急急，各位高手帮帮忙啊！！！！

编一帐号和密码输入的检验程序。对输入的帐号和密码规定如下：
（1）帐号指定为6位数字，密码为4位字符，在本题中，密码假定为“Pass”。
（2）密码输入时在屏幕上不显示输入的字符，而以“*”代替。
（3）当输入不正确，如帐号为非数字字符或密码不正确时，显示有关信息。
（4）当输入正确时，关闭密码窗口，显示记事本窗口。

Answer 1

VB6.0的参数：

Private Sub Command1_Click() '确定键
Static a As Integer
Text2.PasswordChar = "*"

If Text1.Text <> "123" Or Text2.Text <> "abc" Then '用户名为123，密码为abc
a = a + 1
a = MsgBox("密码或帐号输入错误", vbOKOnly, "警告") '显示错误警告
If a > 2 Then End
Else
Form2.Show '打开记事本
End If
End Sub

Private Sub Command2_Click() '取消键
End
End Sub

Private Sub Form_Load()
Text2.PasswordChar = "*"
End Sub

Answer 2

Text2.PasswordChar = "*"
if Text2.text <> "pass" then
msgbox "密码不正确"
else
unload me '关闭密码窗口
form2.show '显示记事本窗口
end if

Private Sub Text1_Change()
s=right(text1.text,1)
i=instr(1,"0123456789",s)
if i<1 then msgbox "输入的不是数字"

End Sub