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

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

2025-03-28 21:12:07

推荐回答（1个）

回答1：

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

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

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