大家能抽空出来看一下,本人都感激不尽了,谢谢
代码如下:
Dim username As String
Private Sub Form_Load()
username = InputBox$("请输入你的用户名!", "身份验证框")
Dim usernames(3) As String '定义一个用户名数组
usernames(0) = "xiaoc"
usernames(1) = "xiaoq"
usernames(2) = "xiaol"
usernames(3) = "xiaoz"
Dim flag As Boolean '定义flag为逻辑型
Dim i As Integer
flag = False
For i = 0 To 3
If username = usernames(i) Then
flag = True
End If
Next i
If flag = False Then
MsgBox ("用户确认失败,退出系统!") '如果输入用户名错误,退出系统
End
End If
End Sub

Private Sub Picture1_Paint()
Picture1.Print " you are welcome!" & username '在图片框中输出欢迎语句和用户名,注意,这个用户名要在
通用中声明,不然用户名显示不出来的
End Sub

问题在密码登陆框中,当用户输入用户名错误的时候,怎么让用户重新输入用户名和限制他仅输入三次即退出运行,输对就欢迎

再次谢谢

[此贴子已经被作者于2006-5-28 0:50:06编辑过]