Option Explicit
Private Sub Combo1_Change()
List1.Clear
List2.Clear
Command1.SetFocus
End Sub
Private Sub Combo1_Click()
List1.Clear
List2.Clear
Command1.SetFocus
End Sub
Private Sub Combo2_Change()
List1.Clear
List2.Clear
End Sub
Private Sub Combo2_Click()
List1.Clear
List2.Clear
End Sub
Private Sub Command1_Click()
Dim a As Integer
Dim b, c, d, e, f, g, h, y, z(4) As Variant
a = Val(Combo1.Text)
If Combo2.Text = "" Then
MsgBox "系数不能为空", vbInformation + vbOKOnly, "提示"
Exit Sub
End If
For b = 1 To 5
For c = 0 To 10
For d = 0 To 10
If Combo2.Text = "2" Then
If (c + d) <= 10 And (c + d) > 0 Then
If (a \ b) = (c + d) Then
z(1) = b & "×" & "(" & (c & "+" & d) & ")"
List1.AddItem z(1)
y = a Mod b
If (a Mod b) = 0 Then
List2.AddItem ""
Else
List2.AddItem y
End If
End If
End If
End If
For e = 0 To 10
If Combo2.Text = "3" Then
If (c + d + e) <= 10 And (c + d + e) > 0 Then
If (a \ b) = (c + d + e) Then
z(2) = b & "×" & "(" & (c & "+" & d & "+" & e) & ")"
List1.AddItem z(2)
y = a Mod b
If (a Mod b) = 0 Then
List2.AddItem ""
Else
List2.AddItem y
End If
End If
End If
End If
For f = 0 To 10
If Combo2.Text = "4" Then
If (c + d + e + f) <= 10 And (c + d + e + f) > 0 Then
If (a \ b) = (c + d + e + f) Then
z(3) = b & "×" & "(" & (c & "+" & d & "+" & e & "+" & f) & ")"
List1.AddItem z(3)
y = a Mod b
If (a Mod b) = 0 Then
List2.AddItem ""
Else
List2.AddItem y
End If
End If
End If
End If
For g = 0 To 10
If Combo2.Text = "5" Then
If (c + d + e + f + g) <= 10 And (c + d + e + f + g) > 0 Then
If (a \ b) = (c + d + e + f + g) Then
z(4) = b & "×" & "(" & (c & "+" & d & "+" & e & "+" & f & "+" & g) & ")"
List1.AddItem z(4)
y = a Mod b
If (a Mod b) = 0 Then
List2.AddItem ""
Else
List2.AddItem y
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Unload Me
frmLogin.Show
End Sub
Private Sub Form_Load()
Dim i, x As Integer
For i = 10 To 50
Combo1.AddItem i
Next i
For x = 2 To 5
Combo2.AddItem x
Next x
End Sub
