1、触发器代码Dim a, b, c, d, f(0 To 9), g(0 To 9), j(0 To 9), k(0 To 9), l(0 To 9), m(0 To 9), i, N, e, r, s, t As Integer 定义变量和数组Private Sub Command1_Click()If IsNumeric(Text1.Text) = False Then 如输入不为数字 MsgBox 输入有误 弹出对话框 Text1.Text = : Text1.SetFocus: Exit Sub 清空Text光标在Text闪烁,并退出Sub End Ifa = Val(Text1.Tex
2、t)Label2.Caption = : Label3.Caption = 清空LabelLabel5.Caption = : Label4.Caption = Qn1Select Case (a) Select Case语句选择Case 1Text3.Enabled = True Text变为不能输入Text5.Enabled = FalseText2.MaxLength = 1: Text3.MaxLength = 1 Text最大输入长度为1Label2.Caption = S: Label3.Caption = RCase 2Text3.Enabled = True: Text5.En
3、abled = FalseText2.MaxLength = 1: Text3.MaxLength = 1Label2.Caption = J: Label3.Caption = KCase 3Text3.Enabled = False: Text5.Enabled = FalseText2.MaxLength = 1: Label2.Caption = DCase 4Text3.Enabled = False: Text5.Enabled = FalseText2.MaxLength = 1: Label2.Caption = TCase 11Text3.Enabled = True: Te
4、xt5.Enabled = FalseText2.MaxLength = 10: Text3.MaxLength = 10Label2.Caption = S序列: Label3.Caption = R序列Case 22Text3.Enabled = True: Text5.Enabled = FalseText2.MaxLength = 10: Text3.MaxLength = 10Label2.Caption = J序列: Label3.Caption = K序列Case 33Text3.Enabled = False: Text5.Enabled = FalseText2.MaxLen
5、gth = 10: Label2.Caption = D序列Case 44Text3.Enabled = False: Text5.Enabled = FalseText2.MaxLength = 10: Label2.Caption = T序列Case 12Text3.Enabled = True: Text5.Enabled = TrueLabel2.Caption = S序列: Label3.Caption = R序列: Label5.Caption = Qn2Case 13Text3.Enabled = True: Text5.Enabled = TrueLabel2.Caption
6、= S序列: Label3.Caption = R序列: Label5.Caption = Qn2Case 14Text3.Enabled = True: Text5.Enabled = TrueLabel2.Caption = S序列: Label3.Caption = R序列: Label5.Caption = Qn2Case 23Text3.Enabled = True: Text5.Enabled = TrueLabel2.Caption = J序列: Label3.Caption = K序列: Label5.Caption = Qn2Case 24Text3.Enabled = Tr
7、ue: Text5.Enabled = TrueLabel2.Caption = J序列: Label3.Caption = K序列: Label5.Caption = Qn2Case 34Text3.Enabled = False: Text5.Enabled = TrueLabel2.Caption = D序列: Label5.Caption = Qn2Case ElseLabel4.Caption = MsgBox 输入有误: Exit Sub: End Select: End SubPrivate Sub Command2_Click()Form1.Cls 清空Form If IsNu
8、meric(Text1.Text) = False Then MsgBox 输入有误: Text1.Text = : Text1.SetFocus: Exit Sub End If If IsNumeric(Text2.Text) = False Then MsgBox 输入有误: Text2.Text = : Text2.SetFocus: Exit Sub End If If IsNumeric(Text4.Text) = False Then MsgBox 输入有误: Text4.Text = : Text4.SetFocus: Exit Sub End Ifa = Val(Text1.
9、Text): b = Val(Text2.Text)c = Val(Text3.Text): d = Val(Text4.Text): r = Val(Text5.Text)Select Case (a)Case 1If IsNumeric(Text3.Text) = False Then MsgBox 输入有误: Text3.Text = : Text3.SetFocus: Exit Sub End If If b = 1 And c = 1 ThenMsgBox 不允许: Exit SubElseIf b = 0 And c = 0 Thene = dElseIf b = 0 And c
10、= 1 Thene = 0ElseIf b = 1 And c = 0 Thene = 1End If: End If: End If: End Ift = e: Print eCase 2If IsNumeric(Text3.Text) = False Then MsgBox 输入有误: Text3.Text = : Text3.SetFocus: Exit Sub End IfIf b = 0 And c = 0 Thene = dElseIf b = 0 And c = 1 Thene = 0ElseIf b = 1 And c = 0 Thene = 1ElseIf b = 1 And
11、 c = 1 And d = 0 Thene = 1ElseIf b = 1 And c = 1 And d = 1 Thene = 0End If: End If: End If: End If: End If: Print eCase 3e = b: Print eCase 4If b = 0 Thene = dElseIf b = 1 And d = 0 Thene = 1ElseIf b = 1 And d = 1 Thene = 0End If: End If: End If: Print eCase 11If IsNumeric(Text3.Text) = False Then M
12、sgBox 输入有误: Text3.Text = : Text3.SetFocus: Exit Sub End IfN = Len(Text2.Text) 取Text里内容的长度For i = N - 1 To 0 Step -1If b = 10 i Thenf(i) = 1Elsef(i) = 0End IfIf c = 10 i Theng(i) = 1Elseg(i) = 0End IfIf f(i) = 0 And g(i) = 0 Thene = dElseIf f(i) = 0 And g(i) = 1 Thene = 0ElseIf f(i) = 1 And g(i) = 0
13、Thene = 1ElseIf f(i) = 1 And g(i) = 1 ThenMsgBox 不允许: Exit SubEnd If: End If: End If: End If: Print ed = e: b = b - f(i) * (10 i): c = c - g(i) * (10 i)Next iCase 22If IsNumeric(Text3.Text) = False Then MsgBox 输入有误: Exit Sub: Text3.Text = : Text3.SetFocus End IfN = Len(Text2.Text)For i = N - 1 To 0
14、Step -1If b = 10 i Thenf(i) = 1Elsef(i) = 0End IfIf c = 10 i Theng(i) = 1Elseg(i) = 0End IfIf f(i) = 0 And g(i) = 0 Thene = dElseIf f(i) = 0 And g(i) = 1 Thene = 0ElseIf f(i) = 1 And g(i) = 0 Thene = 1ElseIf f(i) = 1 And g(i) = 1 And d = 0 Thene = 1ElseIf f(i) = 1 And g(i) = 1 And d = 1 Thene = 0End
15、 If: End If: End If: End If: End If: Print ed = e: b = b - f(i) * (10 i): c = c - g(i) * (10 i)Next iCase 33N = Len(Text2.Text)For i = N - 1 To 0 Step -1If b = 10 i Thenf(i) = 1Elsef(i) = 0End Ife = f(i)Print eb = b - f(i) * (10 i)Next iCase 44N = Len(Text2.Text)For i = N - 1 To 0 Step -1If b = 10 i
16、 Thenf(i) = 1Elsef(i) = 0End IfIf f(i) = 0 Thene = dElseIf f(i) = 1 And d = 0 Thene = 1ElseIf f(i) = 1 And d = 1 Thene = 0End If: End If: End If: Print ed = e: b = b - f(i) * (10 i)Next iCase 12If IsNumeric(Text3.Text) = False Then MsgBox 输入有误: Text3.Text = : Text3.SetFocus: Exit Sub End If If IsNum
17、eric(Text5.Text) = False Then MsgBox 输入有误: Text5.Text = : Text5.SetFocus: Exit Sub End IfN = Len(Text2.Text)For i = N - 1 To 0 Step -1If b = 10 i Thenf(i) = 1Elsef(i) = 0End IfIf c = 10 i Theng(i) = 1Elseg(i) = 0End IfIf f(i) = 0 And g(i) = 0 Thenj(i) = dElseIf f(i) = 0 And g(i) = 1 Thenj(i) = 0Else
18、If f(i) = 1 And g(i) = 0 Thenj(i) = 1ElseIf f(i) = 1 And g(i) = 1 ThenMsgBox 不允许End If: End If: End If: End Ifb = b - f(i) * (10 i): c = c - g(i) * (10 i): k(i) = 1 - j(i)If j(i) = 0 Thene = 0Elsee = 1End IfPrint ed = eNext iCase 13If IsNumeric(Text3.Text) = False Then MsgBox 输入有误: Text3.Text = : Te
19、xt3.SetFocus: Exit Sub End If If IsNumeric(Text5.Text) = False Then MsgBox 输入有误: Text5.Text = : Text5.SetFocus: Exit Sub End IfN = Len(Text2.Text)For i = N - 1 To 0 Step -1If b = 10 i Thenf(i) = 1Elsef(i) = 0End IfIf c = 10 i Theng(i) = 1Elseg(i) = 0End IfIf f(i) = 0 And g(i) = 0 Thenj(i) = dElseIf
20、f(i) = 0 And g(i) = 1 Thenj(i) = 0ElseIf f(i) = 1 And g(i) = 0 Thenj(i) = 1ElseIf f(i) = 1 And g(i) = 1 ThenMsgBox 不允许: Exit SubEnd If: End If: End If: End Ifb = b - f(i) * (10 i): c = c - g(i) * (10 i): e = j(i)Print ed = eNext iCase 14If IsNumeric(Text3.Text) = False Then MsgBox 输入有误: Text3.Text =
21、 : Text3.SetFocus: Exit Sub End If If IsNumeric(Text5.Text) = False Then MsgBox 输入有误: Text5.Text = : Text5.SetFocus: Exit Sub End IfN = Len(Text2.Text)For i = N - 1 To 0 Step -1If b = 10 i Thenf(i) = 1Elsef(i) = 0End IfIf c = 10 i Theng(i) = 1Elseg(i) = 0End IfIf f(i) = 0 And g(i) = 0 Thenj(i) = dEl
22、seIf f(i) = 0 And g(i) = 1 Thenj(i) = 0ElseIf f(i) = 1 And g(i) = 0 Thenj(i) = 1ElseIf f(i) = 1 And g(i) = 1 ThenMsgBox 不允许: Exit SubEnd If: End If: End If: End Ifb = b - f(i) * (10 i): c = c - g(i) * (10 i): d = j(i)If j(i) = 0 Thene = rElseIf j(i) = 1 And r = 0 Thene = 1ElseIf j(i) = 1 And r = 1 T
23、hene = 0End If: End If: End If: Print er = eNext iCase 23If IsNumeric(Text3.Text) = False Then MsgBox 输入有误: Text3.Text = : Text3.SetFocus: Exit Sub End If If IsNumeric(Text5.Text) = False Then MsgBox 输入有误: Text5.Text = : Text5.SetFocus: Exit Sub End IfN = Len(Text2.Text)For i = N - 1 To 0 Step -1If
24、b = 10 i Thenf(i) = 1Elsef(i) = 0End IfIf c = 10 i Theng(i) = 1Elseg(i) = 0End IfIf f(i) = 0 And g(i) = 0 Thenj(i) = dElseIf f(i) = 0 And g(i) = 1 Thenj(i) = 0ElseIf f(i) = 1 And g(i) = 0 Thenj(i) = 1ElseIf f(i) = 1 And g(i) = 1 And d = 0 Thenj(i) = 1ElseIf f(i) = 1 And g(i) = 1 And d = 1 Thenj(i) =
25、 0End If: End If: End If: End If: End Ifb = b - f(i) * (10 i): c = c - g(i) * (10 i): e = j(i)Print ed = eNext iCase 24If IsNumeric(Text3.Text) = False Then MsgBox 输入有误: Text3.Text = : Text3.SetFocus: Exit Sub End If If IsNumeric(Text5.Text) = False Then MsgBox 输入有误: Text5.Text = : Text5.SetFocus: E
26、xit Sub End IfN = Len(Text2.Text)For i = N - 1 To 0 Step -1If b = 10 i Thenf(i) = 1Elsef(i) = 0End IfIf c = 10 i Theng(i) = 1Elseg(i) = 0End IfIf f(i) = 0 And g(i) = 0 Thenj(i) = dElseIf f(i) = 0 And g(i) = 1 Thenj(i) = 0ElseIf f(i) = 1 And g(i) = 0 Thenj(i) = 1ElseIf f(i) = 1 And g(i) = 1 And d = 0
27、 Thenj(i) = 1ElseIf f(i) = 1 And g(i) = 1 And d = 1 Thenj(i) = 0End If: End If: End If: End If: End Ifd = j(i): b = b - f(i) * (10 i): c = c - g(i) * (10 i)If j(i) = 0 Thene = rElseIf j(i) = 1 And r = 0 Thene = 1ElseIf j(i) = 1 And r = 1 Thene = 0End If: End If: End If: Print er = eNext iCase 34 If
28、IsNumeric(Text5.Text) = False Then MsgBox 输入有误: Text5.Text = : Text5.SetFocus: Exit Sub End IfN = Len(Text2.Text)For i = N - 1 To 0 Step -1If b = 10 i Thenf(i) = 1Elsef(i) = 0End IfIf f(i) = 0 Thene = rElseIf f(i) = 1 And r = 0 Thene = 1ElseIf f(i) = 1 And r = 1 Thene = 0End If: End If: End Ifb = b
29、- f(i) * (10 i)Print er = eNext i: End Select: End SubPrivate Sub Text1_Click()Text1.Text = : End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii 57 Then KeyAscii = 0 只能输入数字End SubPrivate Sub Text2_click()Text2.Text = : End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii 49 Then KeyAscii = 0 只能输入0或1End SubPrivate