'A ,B ,C ,D分别为：8,12,5,20
Option Explicit
Const N = 45
Private Sub Command1_Click()
Dim A As Integer, B As Integer, C As Integer, D As Integer
For A = 1 To 42
For B = 1 To 42
For C = 1 To 42
For D = 1 To 42
If A + B + C + D = 45 Then
If A + 2 = B - 2 And B - 2 = C * 2 And C * 2 = D / 2 Then Debug.Print A, B, C, D
End If
Next D, C, B, A
End Sub
你没有说清楚怎么个拆法，A、B、C、D要满足什么运算等于45？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024