新手 vb 2005 功课请教大家~

Home Home

引用 | 编辑 soloman124
2006-12-07 18:57

楼主
▼

要求
Try to modify the program such than when user fail to input correct password more than 3 time, an error message will be displayed and does not allow user to try any more.

如何 ..

访客只能看到部份内容，免费加入会员

引用 | 编辑 nomaid
2006-12-07 21:00

1楼
▲ ▼

复制程式

dim wrongval as integer '定义wrongval 为integer
Dim username, password As String
Dim LoginSuccess As Boolean = False

wrongval = 0 '将wrongval 预设等于0 

Do Until LoginSuccess
 username = InputBox("Username Please")
 password = InputBox("Password Please")


 If username = "Peter" And password = "1234" Then
  LoginSuccess = True
else
  wrongval +=1 ' 判断如果不等于的话 则wrongval + 1
 End If

 if wrongval >3 then                           ' 判断如果错误次数超过3则秀出弹跳视窗
    messagebox.show("已输入三次错误!!")
 end if
Loop

MsgBox ("Login success")

不晓得你要的错误画面是什么随便写了一段你自己看看吧
有附加说明有问题的话可以PM询问~

引用 \| 编辑 soloman124 2006-12-07 21:50	2楼 ▲ ▼
下面是引用nomaid于2006-12-7 21:00发表的 : [code]dim wrongval as integer '定义wrongval 为integer Dim username, password As String Dim LoginSuccess As Boolean = False ....... 多谢解答唔明再问你感激^__^ x0

引用 \| 编辑 soloman124 2006-12-07 23:20	3楼 ▲ ▼
下面是引用nomaid于2006-12-7 21:00发表的 : [code]dim wrongval as integer '定义wrongval 为integer Dim username, password As String Dim LoginSuccess As Boolean = False ....... 有bug 当三次失败后再次成功时两者都会弹出成功和成败@@ x0

引用 \| 编辑 nomaid 2006-12-08 00:59	4楼 ▲ ▼
你自行再判断错误次数是否大于三后面加上中断跳出的指令 (exit do)就可以了^^" 复制程式 if wrongval >3 then ' 判断如果错误次数超过3则秀出弹跳视窗 messagebox.show("已输入三次错误!!") exit do ' 新增的语法位置.. end if x0

引用 \| 编辑 soloman124 2006-12-08 19:59	5楼 ▲ ▼
下面是引用nomaid于2006-12-8 00:59发表的 : 你自行再判断错误次数是否大于三后面加上中断跳出的指令 (exit do)就可以了^^" [code] if wrongval >3 then ' 判断如果错误次数超过3则秀出弹跳视窗 messagebox.show("已输入三次错误!!") ....... exit do 是点解? 多谢你但我想知为什么加me.close() 不能关闭 ? x0

引用 \| 编辑 nomaid 2006-12-09 00:06	6楼 ▲
exit do 的意思就是离开do回圈直接离开你的回圈判断并且跳出你输入三次错误的视窗 me.close() => 我都是直接下 close() 这样比较简略程式写法有很多种不只我这种写法你自己可以再去想想其他的写法你应该再多去找找相关的程式教学网站或是多看点书才会对你有帮助 x0

新手 vb 2005 功课 请教大家~

新手 vb 2005 功课请教大家~