vb 判断什么时候用加号什么时候用减号使等式成立

用一个循环钳套就行了,

Dim Result As Long
Dim Temp As Long
Dim Number(99) As Long
Dim XS(99) As Integer
Dim NumberCount As Integer

Me.AutoRedraw = True

Temp = 0

Result = -8

NumberCount = 5

Number(0) = 8
Number(1) = 4
Number(2) = 5
Number(3) = 1
Number(4) = 9

Do While True
For l1 = -1 To 1 Step 2
XS(0) = l1
For l2 = -1 To 1 Step 2
XS(1) = l2
For l3 = -1 To 1 Step 2
XS(2) = l3
For l4 = -1 To 1 Step 2
XS(3) = l4
For l5 = -1 To 1 Step 2
XS(4) = l5

Temp = 0

For i2 = 0 To NumberCount - 1
Temp = Temp + Number(i2) * XS(i2)
Next

If Temp = Result Then Exit Do

Next
Next
Next
Next
Next
Loop

For i3 = 0 To NumberCount - 2
Print IIf(XS(i3) = -1, "第 " & i3 + 1 & " 个运算符为 -", "第 " & i3 + 1 & " 个运算符为 +")
Next
<