请教下有关循环的问题 — 编程爱好者社区

主题：请教下有关循环的问题

luo1353167 [专家分：0] 发布于 2008-09-18 19:11:00

这是一道老师出的题
[color=008080][size=4]开始屏幕应该提供接收用户名和密码的界面。应用程序应该检查注册名称是否为“sa”，而密码是否为“callcenter”。应用程序应该允许用户至少三次输入用户名和密码。如果三次都输入了错误的用户名和密码，则应该显示错误信息并关闭应用程序。 [/size][/color]
我想请问下高手用什么语句来控制如果三次都输入了错误的用户名和密码，则应该显示错误信息并关闭应用程序呢，具体代码是什么样的。本人是新手，请高手指教下！！！

本帖地址： http://bbs.pfan.cn/post/285154.html

回复列表（共3个回复）

沙发

一江秋水 [专家分：9680] 发布于 2008-09-18 19:41:00

假设接收用户名和密码的界面为Form1，代码如下：

Option Explicit

Dim k As Integer '计数器

Private Sub Command1_Click()
k = k + 1: If k = 3 Then End
If Text1 <> "sa" Then MsgBox "用户名错误！你还有" & 3 - k & "次机会！": Exit Sub
If Text2 <> "callcenter" Then MsgBox "密码错误！你还有" & 3 - k & "次机会！": Exit Sub
Form2.Show
End Sub

板凳

wdkshp [专家分：5490] 发布于 2008-09-19 15:06:00

Form2.Show前最好加上 k=0

3 楼

luo1353167 [专家分：0] 发布于 2008-09-20 13:34:00

[b]真测很感谢你，虽然不是我自己做的但是还是很又成就感。。[em2][/b]

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：请教下有关循环的问题

回复列表（共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：请教下有关循环的问题

回复列表 （共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共3个回复）