请问怎么向vb程序添加登录密码并使其可修改（不需要用户名）

'假设你的登录窗口有一个文本框控件,名为Text1,用来输入密码

一个按钮,名为cmdOK,用来点击登录

窗体Form1是你输对密码后要显示的窗体,则用如下代码即可.

Private

Sub

cmdOK_Click()

If

Text1.Text

=

"password"

Then

'把password改成你的密码.

Form1.Show

Unload

Me

Else

Msgbox

"密码错误,请重新输入."

End

If

End

Sub

txtpwd 放在模块中定义为 Public 变量，不然，form2中是无法修改密码的。不过就算你密码修改成功，下次启动时密码还是为初始状态。所以第一次启动时判断是否有密码文件，如果存在就读入到txtpwd 这个变量中，如果没有就把初始密码保存到文件。当程序运行状态下修改密码成功后保存到文件，同时置新密码到txtpwd 变量中。密码保存到文件时可以作一下加密变化，读的时候当然要逆变换一下。

Dim key As String, code As String, i As Integer

key = "123asd" '这个你随便设置，就是你需要的密码

code = InputBox("请输入密码")

i = Len(code)

For a = 1 To i

x = Mid(code, a, 1)

If Asc(x) >123 Then MsgBox ("只能输入数字字母")

Next

---