UC知道关于visual basic一道题的编程
来源：百度知道 编辑：UC知道 时间：2024/06/28 20:19:38
开发具有密码验证与修改功能的应用程序，基本要求如下：
1）具有密码验证功能
a．输入密码位数的设定范围在6～12位之间；
b．输入的密码无论正确或错误均有提示；
c．若连续三次密码输入错误，则禁止进入系统．若密码输入正确，则自动进入系统主界面；
d．按动系统主界面上的进入系统按钮，则出现”谢谢你使用本信息系统！”窗口．
2）具有密码修改功能
若点击密码修改按钮，将出现密码修改功能界面，利用其输入正确的旧密码，再输入新密码并二次验证新密码．若以上三种信息均满足，则出现消息框提示密码修改成功．反之则出现密码重新输入消息提示．
1）具有密码验证功能
a．输入密码位数的设定范围在6～12位之间；
b．输入的密码无论正确或错误均有提示；
c．若连续三次密码输入错误，则禁止进入系统．若密码输入正确，则自动进入系统主界面；
d．按动系统主界面上的进入系统按钮，则出现”谢谢你使用本信息系统！”窗口．
2）具有密码修改功能
若点击密码修改按钮，将出现密码修改功能界面，利用其输入正确的旧密码，再输入新密码并二次验证新密码．若以上三种信息均满足，则出现消息框提示密码修改成功．反之则出现密码重新输入消息提示．
Private Sub Command1_Click()
Dim pwdb As Integer
pwdb = 0
If pwdb >= 3 Then
MsgBox "你输入的密码次数大于3次，谢谢你使用本系统！"
End
Else
If Len(Text2.Text) < 6 Then
MsgBox "你输入的密码位数小于6位，请重新输入！"
pwdb = pwdb + 1
Else
If Text2.Text <> "123456" Then
MsgBox "你输入的密码不正确！请重新输入！"
pwdb = pwdb + 1
Else
MsgBox "你输入的密码正确！请进入系统！"
pwdb = pwdb + 1
End If
End If
End If
End Sub
Private Sub Form_Load()
Text2.MaxLength = 12
Text2.PasswordChar = "*"
End Sub
呵呵
nineng789 这位兄台很根直...说话直接.........
我也想帮...但这又不能交流到好技术.又不吃好.........
并且.还累的事...还真难找到人帮楼主....
介意,楼主.再加点分吧...虽然分目前没什么用...但也能说明别人帮你的一点点价值呀...........
vb+access，最简单的你一接触就会
看看楼上这个哥们,你们啊,5分也好的呀.
好久没有用VB写了，路过……
5分？