Question

编写一个VB程序，怎么在运行之前设置密码？即输入密码才运行

Answer 1

‘三次机会，如果都不正确退出 ，测试一下：
Private Sub Form_Load()
Dim i As Integer, password As String,a as string,b as string, s As String, n As Integer
password = "abc"
a="请输入登陆密码！",
b="登陆系统"
For i = 1 To 3
s = InputBox(a, b)
If s = password Then
Exit For
else
if i<3 then
a="登陆失败"
b="密码错误，您刚才输入的密码是" & s & ",请检查后再输入，您还有" & 3-i & "次机会！"
else
msgbox "对不起！您尝试登陆系统的次数达到限定，系统将关闭！",vbokonly,"登陆失败，您无权使用本系统！"
end
end if
end if
Next i
End Sub

Answer 2

‘三次机会，如果都不正确退出 ，测试一下：
Private Sub Form_Load()
Dim i As Integer, password As String, s As String, n As Integer
password = "123"
For i = 1 To 3
s = InputBox("输入密码：", "提示")
If s = password Then Exit For
Next
If i = 4 Then Unload Me
End Sub

Answer 3

执行主程序前加个验证
或者单独做一个验证的工程
通过以后才执行另外个文件
否则不执行

Answer 4

假设只是一个固定密码,简单加密的话
设置一个窗体2来启动,然后窗体2上面加文本框,用按钮来对比文本框内容和设置的密码,相同就启动窗体1

Answer 5

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If MessageBox.Show("你想使用密码登录吗？", "登录提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
Dim inputinfo As String
inputinfo = InputBox("请输入密码")
If inputinfo = "123" Then
MessageBox.Show("登录成功")
Else
MessageBox.Show("密码错误")
Me.Close()
End If
Else
MessageBox.Show("退出登录")
Me.Close()
End If

End Sub