本文目录
V *** 怎么编写密码?
>刚刚写过了类似的代码 ,算了 再写下
Private Sub Command1_Click()
Static i As Integer '说明下,假设 用户名、密码 分别是 yutian8802和 123456
If i > 2 Then
Msg *** ox "您已登录三次了。。。程序将结束!"
End
Else
If Text1.Text = "yutian8802" Then
If Text2.Text = "123456" Then
Msg *** ox "成功"
Else
Msg *** ox "密码错,请重新输入!"
End If
Else
Msg *** ox "用户名错,请重新输入!"
End If
>i = i + 1
End If
End Sub
测试了 没问题了 你试试!有什么问题 一起探讨~
s://iknow-pic.cdn.bcebos/738b4710b912c8fc108d35abfc039245d688215e
本文目录
V *** 怎么编写密码?
>刚刚写过了类似的代码 ,算了 再写下
Private Sub Command1_Click()
Static i As Integer '说明下,假设 用户名、密码 分别是 yutian8802和 123456
If i > 2 Then
Msg *** ox "您已登录三次了。。。程序将结束!"
End
Else
If Text1.Text = "yutian8802" Then
If Text2.Text = "123456" Then
Msg *** ox "成功"
Else
Msg *** ox "密码错,请重新输入!"
End If
Else
Msg *** ox "用户名错,请重新输入!"
End If
>i = i + 1
End If
End Sub
测试了 没问题了 你试试!有什么问题 一起探讨~
s://iknow-pic.cdn.bcebos/738b4710b912c8fc108d35abfc039245d688215e
本文目录
V *** 怎么编写密码?
>刚刚写过了类似的代码 ,算了 再写下
Private Sub Command1_Click()
Static i As Integer '说明下,假设 用户名、密码 分别是 yutian8802和 123456
If i > 2 Then
Msg *** ox "您已登录三次了。。。程序将结束!"
End
Else
If Text1.Text = "yutian8802" Then
If Text2.Text = "123456" Then
Msg *** ox "成功"
Else
Msg *** ox "密码错,请重新输入!"
End If
Else
Msg *** ox "用户名错,请重新输入!"
End If
>i = i + 1
End If
End Sub
测试了 没问题了 你试试!有什么问题 一起探讨~
s://iknow-pic.cdn.bcebos/738b4710b912c8fc108d35abfc039245d688215e
还没有评论,来说两句吧...