Private Sub Form_Load()Dim a, b, c, d As Integer
For a = 1 To 9
For b = 0 To 9
For c = 1 To 9
For d = 0 To 9
If (a + c = b + d) Then List1.AddItem a & b & c & d
Next d, c, b, a
End Sub或者,前面这个只是简化了点Private Sub Form_Load()Dim a, b, c, d As Integer
For a = 1 To 9
For b = 0 To 9
For c = 1 To 9
For d = 0 To 9
If (a*10+b + c*10 +d = 10*b+a + 10*d + c) Then List1.AddItem a & b & c & d
Next d, c, b, a
End Sub
|