Question

填入加减乘除使6（）8（）3（）2（）7=7（）3（）5（）4（）2（）=9（）4（）3（）6（）1

编程列出使等式成立的所有组合。

Answer 1

Option Explicit

Private Sub Command1_Click()
Dim i%, j%, k%, l%, a, Text$, y#
Dim dic As Object, dic1 As Object
Set dic = CreateObject("Scripting.Dictionary")
Set dic1 = CreateObject("Scripting.Dictionary")
ScriptControl1.Language = "VBScript"
a = Array(6, 8, 3, 2, 7)
For i = 1 To 4
For j = 1 To 4
For k = 1 To 4
For l = 1 To 4
Text = a(0) & Mid("+-*/", i, 1) & a(1) _
& Mid("+-*/", j, 1) & a(2) _
& Mid("+-*/", k, 1) & a(3) _
& Mid("+-*/", l, 1) & a(4)
y = ScriptControl1.Eval(Text)
If dic.Exists(y) Then
dic(y) = dic.Item(y) & "=" & Text
Else
dic(y) = Text
End If
Next l, k, j, i

a = Array(7, 3, 5, 4, 2)
For i = 1 To 4
For j = 1 To 4
For k = 1 To 4
For l = 1 To 4
Text = a(0) & Mid("+-*/", i, 1) & a(1) _
& Mid("+-*/", j, 1) & a(2) _
& Mid("+-*/", k, 1) & a(3) _
& Mid("+-*/", l, 1) & a(4)
y = ScriptControl1.Eval(Text)
If dic.Exists(y) Then
dic1(y) = dic.Item(y) & "=" & Text
dic(y) = dic.Item(y) & "=" & Text
End If
Next l, k, j, i

dic.removeall
a = Array(9, 4, 3, 6, 1)
For i = 1 To 4
For j = 1 To 4
For k = 1 To 4
For l = 1 To 4
Text = a(0) & Mid("+-*/", i, 1) & a(1) _
& Mid("+-*/", j, 1) & a(2) _
& Mid("+-*/", k, 1) & a(3) _
& Mid("+-*/", l, 1) & a(4)
y = ScriptControl1.Eval(Text)
If dic1.Exists(y) Then
dic1(y) = dic1.Item(y) & "=" & Text
dic(y) = dic1.Item(y)
Text1.Text = Text1.Text & vbCrLf & y & "=" & dic.Item(y)
End If
Next l, k, j, i

End Sub

Answer 2

这个简单吧，把三组表达式的所有可能结果都计算出来，然后看三组里面哪个是重复的，就算出来了呗

Answer 3

6（×）8（÷）3（-）2（-）7=7（-）3（×）5（÷）4（-）2=9（×）4（÷）3（-）6（+）1

Answer 4

6（×）8（÷）3（-）2（-）7=7（-）3（×）5（÷）4（-）2=9（×）4（÷）3（-）6（+）1

Answer 5

步子道