题型:问答/综合题（将你的答案在下面的文本框输入） 本题分数:10

来源：百度知道 编辑：UC知道 时间：2024/06/07 17:36:57
题型:问答/综合题（将你的答案在下面的文本框输入） 本题分数:10
内容:
编写程序：利用文本框检查用户口令，而且使用静态变量来限制输入口令的次数。界面如图所示：

图形:
因没权限上传图片所以只能描述了
一个FORM1中
中间第一行是左右均衡的两个空格框
第二行从左到右分别是三个按扭：校验密码，清除，退出
右上角有最小化，最大化，关闭按扭

Option Explicit

Private Sub Command1_Click()
Static a As Integer '静态变量
Dim m As Integer
If a > 2 Then
m = MsgBox("校检失败不能超过3次，要不切你小JJ！", vbInformation, "恭喜！")
Unload Me
End If
If Text1.Text = Text2.Text Then
m = MsgBox("输入一致！", vbInformation, "恭喜！")
Else
Text1.Text = a
Text2.Text = ""
a = a + 1
End If
End Sub