早教吧作业答案频道 -->其他-->
VB题--设计一个检测密码程序:当用户输入的密码正确时,在窗体上显示“欢迎您使用本系统!”;否则,显示设计一个检测密码程序:当用户输入的密码正确时,在窗体上显示“欢迎您使用
题目详情
VB题--设计一个检测密码程序:当用户输入的密码正确时,在窗体上显示“欢迎您使用本系统!”;否则,显示
设计一个检测密码程序:当用户输入的密码正确时,在窗体上显示“欢迎您使用本系统!”;否则,显示“密码错误!请重新输入密码。”。若连续三次输入的密码都不正确,则在屏幕上显示一个消息框,并在消息框上显示提示信息“对不起,您不能使用本系统!”,然后结束本程序的执行。
设计一个检测密码程序:当用户输入的密码正确时,在窗体上显示“欢迎您使用本系统!”;否则,显示“密码错误!请重新输入密码。”。若连续三次输入的密码都不正确,则在屏幕上显示一个消息框,并在消息框上显示提示信息“对不起,您不能使用本系统!”,然后结束本程序的执行。
▼优质解答
答案和解析
Private Sub cmdOK_Click()
Static interr As Integer
Dim suser As String
Dim spass As String
suser = UCase$(Trim$(txtUser.Text))
spass = Trim$(txtPassword.Text)
If suser = "ADMIN" And spass = "123456" Then
frmMain.Show
Unload Me
Else
interr = interr + 1
If interr > 3 Then
MsgBox "对不起,您不是本系统的合法用户。", vbInformation, "提示"
End
Else
MsgBox "用户名或密码错误,请重新输入", vbExclamation, "提示"
If suser <> "ADMIN" Then
txtUser.SelStart = 0
txtUser.SelLength = Len(txtUser.Text)
txtUser.SetFocus
Else
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword.Text)
txtPassword.SetFocus
End If
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Static interr As Integer
Dim suser As String
Dim spass As String
suser = UCase$(Trim$(txtUser.Text))
spass = Trim$(txtPassword.Text)
If suser = "ADMIN" And spass = "123456" Then
frmMain.Show
Unload Me
Else
interr = interr + 1
If interr > 3 Then
MsgBox "对不起,您不是本系统的合法用户。", vbInformation, "提示"
End
Else
MsgBox "用户名或密码错误,请重新输入", vbExclamation, "提示"
If suser <> "ADMIN" Then
txtUser.SelStart = 0
txtUser.SelLength = Len(txtUser.Text)
txtUser.SetFocus
Else
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword.Text)
txtPassword.SetFocus
End If
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub
看了VB题--设计一个检测密码程序...的网友还看了以下:
怎么用数字电路设计密码锁我们老师要求我们设计一个密码锁,“密码锁该锁有4个密码拨动开关(设定0和1) 2020-03-30 …
11.小球m用细线通过光滑水平板中间的小孔与砝码M相连,如图所示.当小球以线速度V在水平面内作匀速 2020-06-05 …
小命用托盘天平称量一个装有清水的小烧杯的的质量(已知质量在托盘天平的称量范围内),在右盘先放入10 2020-06-05 …
如图所示,一辆砂车的总质量为M,静止于光滑的水平面上,一个质量为m的物体A以速度v落入砂车中,v与 2020-06-29 …
1、把杠杆调整平衡,在两边分别挂上一个钩码,让杠杆保持平衡.2、在烧杯内倒入水,让两边的钩码分别浸 2020-06-30 …
某医院要建一个住院病人信息库,请你设计一个编码方法,给住院的病人编号.要求每位病人的号码不重复,而 2020-07-10 …
读图,回答问题:(1)图中人口稠密的四个地区是(填数码).(2)图中有四个数码代表人口稀少地区,根 2020-07-16 …
密码加密:任意输入一个密码,先判断密码是否是6位数,如不是六位要求重复输入直到符合要求,当符合要求后 2020-11-18 …
在一个正方体的8个顶点处上,填1-9这些数码中的8个,每个顶点处只填一个数码师的每个面上的四个顶点处 2020-11-18 …
一道有关信息技术的填空题目!(4)下列说法中正确的是()A.汉字编码是解决如何利用西文标准键盘来快捷 2021-01-17 …