Public Sub king(ByVal i As Integer)
Select Case i
Case 1
A = numberA
B = numberB
C = numberC
D = numberD
data(A, B, C, D)
Case 2
A = numberA
B = numberB
C = numberD
D = numberC
data(A, B, C, D)
Case 3
A = numberA
B = numberC
C = numberB
D = numberD
data(A, B, C, D)
Case 4
A = numberA
B = numberD
C = numberB
D = numberC
data(A, B, C, D)
Case 5
A = numberA
B = numberC
C = numberD
D = numberB
data(A, B, C, D)
Case 6
A = numberA
B = numberD
C = numberC
D = numberB
data(A, B, C, D)
Case 7
A = numberB
B = numberA
C = numberC
D = numberD
data(A, B, C, D)
Case 8
A = numberC
B = numberA
C = numberD
D = numberC
data(A, B, C, D)
Case 9
A = numberC
B = numberA
C = numberB
D = numberC
data(A, B, C, D)
Case 10
A = numberC
B = numberA
C = numberD
D = numberB
data(A, B, C, D)
Case 11
A = numberC
B = numberA
C = numberD
D = numberB
data(A, B, C, D)
Jieguo = a + b + c - d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "+" & b & "+" & c & "-" & d & "=24")
End If
Case 3
Jieguo = a + b + c * d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "+" & b & "+" & c & "*" & d & "=24")
End If
Case 4
Jieguo = a + b + c / d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "+" & b & "+" & c & "/" & d & "=24")
End If
Case 5
Jieguo = a * b + c + d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "+" & c & "+" & d & "=24")
End If
Case 6
Jieguo = a * b + c - d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "+" & c & "-" & d & "=24")
End If
Case 7
Jieguo = a * b * c + d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "*" & c & "+" & d & "=24")
End If
Case 8
Jieguo = a * b * c - d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "*" & c & "-" & d & "=24")
End If
Case 9
Jieguo = a * b * c * d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "*" & c & "*" & d & "=24")
End If
Case 10
Jieguo = a * b - c * d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "-" & c & "*" & d & "=24")
End If
Case 11
Jieguo = a / b + c + d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "/" & b & "+" & c & "+" & d & "=24")
End If
Case 12
Jieguo = a * b / c + d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "/" & c & "+" & d & "=24")
End If
Case 13
Jieguo = a * b * c / d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "*" & c & "/" & d & "=24")
End If
Case 14
Jieguo = a * b / c - d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "/" & c & "-" & d & "=24")
End If
Case 15
Jieguo = a * b / c / d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "/" & c & "/" & d & "=24")
End If
Case 16
Jieguo = (a + b) * c / d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "+" & b & ")" & "*" & c & "/" & d & "=24")
End If
Case 17
Jieguo = (a + b) * (c + d)
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "+" & b & ")" & "*" & "(" & c & "+" & d & ")" & "=24")
End If
Case 18
Jieguo = (a + b) * (c - d)
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "+" & b & ")" & "*" & "(" & c & "-" & d & ")" & "=24")
End If
Case 19
Jieguo = (a - b) * (c - d)
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "-" & b & ")" & "*" & "(" & c & "-" & d & ")" & "=24")
End If
Case 20
Jieguo = (a - b) * c / d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "-" & b & ")" & "*" & c & "/" & d & "=24")
End If
Case 21
Jieguo = (a - b) * c * d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "-" & b & ")" & "*" & c & "*" & d & "=24")
End If
Case 22
Jieguo = (a + b + c) * d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "+" & b & "+" & c & ")" & "*" & d & "=24")
End If
Case 23
Jieguo = (a + b + c) / d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "+" & b & "+" & c & ")" & "/" & d & "=24")
End If
Case 24
Jieguo = (a + b - c) * d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "+" & b & "-" & c & ")" & "*" & d & "=24")
End If
Case 25
Jieguo = a * (b + c) + d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & "(" & b & "+" & c & ")" & "+" & d & "=24")
End If
Case 26
Jieguo = a * (b - c) + d
If (Jieguo = 24) Then
Me.lblshow.Text = System.Convert.ToString(a & "*" & "(" & b & "-" & c & ")" & "+" & d & "=24")
End If
Case 27
Jieguo = a * (b + c) - d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & "(" & b & "+" & c & ")" & "-" & d & "=24")
End If
Case 28
Jieguo = a * (b - c) - d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & "(" & b & "-" & c & ")" & "-" & d & "=24")
End If
Case 29
Jieguo = a + (b + c) / d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "+" & "(" & b & "+" & c & ")" & "/" & d & "=24")
End If
Case 30
Jieguo = (a - b / c) * d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "-" & b & "/" & c & ")" & "*" & d & "=24")
End If
End Select
Next j
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
numberA = Convert.ToSingle(txt1.Text)
numberB = Convert.ToSingle(txt2.Text)
numberC = Convert.ToSingle(txt3.Text)
numberD = Convert.ToSingle(txt4.Text)
For i = 1 To 13
king(i)
Next i
If (lblshow.Text = "请稍后……") Then
lblshow.Text = "无解!!!"
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize()
txt1.Text = (Int(Rnd() * 13) + 1).ToString()
txt2.Text = (Int(Rnd() * 13) + 1).ToString()
txt3.Text = (Int(Rnd() * 13) + 1).ToString()
txt4.Text = (Int(Rnd() * 13) + 1).ToString()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Close()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.txt1.Text = ""
txt2.Text = ""
txt3.Text = ""
txt4.Text = ""
End Sub
End Class