VB6.0实现密码验证功能

1、打开VB6.0，新建一个工程，在窗体中添加一个命令按钮，caption改为“校验”，名称改为check，添加一个标签改名为Lbl1，将其caption属性改为”密码：“，添加一个文本框，将Text属性清空，将界面设置成下图：

2、双击校验命令按钮，进入代码编辑窗口，输入如下代码：password = InputBox("请输入密码：", "输入")Text1.Text = passwordIf password = "123456" ThenMsgBox ("输入密码正确，开始登录系统")ElseMsgBox ("输入密码错误，请重新输入")End If

3、关闭代码窗口，按下F5运行程序，单击校验命令按钮，弹出对话框提示输入密码，如图：

4、系统默认密码假设是”123456“，输入后提示输入正确，开始进入系统。

5、输入错误提示警告，请重新输入。