一道趣味数学题(二)

123456789这九个按顺序排列的数，要求在它们之间插入若干个+，-，*，/ ，使其结果正好等于100如： 1*2*3*4+5+6+7*8+9=100

以下代码在http://blog.csdn.net/northwolves/archive/2004/07/25/51038.aspx基础上修改而成:

Sub main() '开始计算 getall 100 getall 100, False End Sub Private Sub getall(ByVal theresult As Long, Optional ByVal asc As Boolean = True) Dim temp As Long '四进制转换中间变量 Dim x(8) As String '获得8个位置四则运算符 Dim op(5) As String '定义四个四则运算符 Dim i As Long, j As Long '循环变量 Dim out As String '最终表达式 Dim num As Long '循环范围和输出计数 op(0) = "+" op(1) = "-" op(2) = "*" op(3) = "/" op(4) = "" For i = 0 To 5 ^ 8 - 1 temp = i x(0) = IIf(asc, 1, 9) For j = 1 To 8 x(j) = op(temp Mod 5) & IIf(asc, j + 1, 9 - j) temp = temp / 5 Next out = Join(x, "") If Evaluate(out) = theresult Then '条件判断 num = num + 1 Debug.Print "解 " & num & ":" & vbTab & Replace(out, ".0", "") & "=" & theresult End If Next If num = 0 Then Debug.Print "无解！" If num > 0 Then Debug.Print "共 " & num & " 组解！" End Sub

返回：

解 1:   12+34+5*6+7+8+9=100
解 2:   1+23-4+56+7+8+9=100
解 3:   1/2/3*456+7+8+9=100
解 4:   1*2+34+5+6*7+8+9=100
解 5:   12+34-5+6*7+8+9=100
解 6:   1-2-3+45+6*7+8+9=100
解 7:   1+2*3+4+5+67+8+9=100
解 8:   12+3-4+5+67+8+9=100
解 9:   1-2+3*4+5+67+8+9=100
解 10:  1-2-3+4*5+67+8+9=100
解 11:  12*3-4*5+67+8+9=100
解 12:  1+23*4+5-6+7-8+9=100
解 13:  1*2+34+56+7-8+9=100
解 14:  1+2+3*4*56/7-8+9=100
解 15:  1*23+4+5+67-8+9=100
解 16:  1+2+34-5+67-8+9=100
解 17:  12+3*4+5+6+7*8+9=100
解 18:  1*2*3*4+5+6+7*8+9=100
解 19:  12-3+4*5+6+7*8+9=100
解 20:  1*2+34+5-6+7*8+9=100
解 21:  12+34-5-6+7*8+9=100
解 22:  1-2-3+45-6+7*8+9=100
解 23:  12-3-4+5*6+7*8+9=100
解 24:  1*23+4+56/7*8+9=100
解 25:  1*23*4-56/7/8+9=100
解 26:  1+2+3-4+5+6+78+9=100
解 27:  1*2*3-4+5+6+78+9=100
解 28:  1*2+3*4+5-6+78+9=100
解 29:  12+3*4-5-6+78+9=100
解 30:  1*2*3*4-5-6+78+9=100
解 31:  1*2-3+4*5-6+78+9=100
解 32:  1+2+3*4*5/6+78+9=100
解 33:  1+2*34-56+78+9=100
解 34:  1+234*5*6/78+9=100
解 35:  1+23*4-5+6+7+8-9=100
解 36:  123-4-5-6-7+8-9=100
解 37:  1-2+3*4*5+6*7+8-9=100
解 38:  123+4*5-6*7+8-9=100
解 39:  1+23*4+56/7+8-9=100
解 40:  123+45-67+8-9=100
解 41:  12/3+4*5*6-7-8-9=100
解 42:  1*2*34+56-7-8-9=100
解 43:  1*2+3+45+67-8-9=100
解 44:  1-2+3+45+6+7*8-9=100
解 45:  1-2+3*4*5-6+7*8-9=100
解 46:  12/3+4*5*6*7/8-9=100
解 47:  1+23-4+5+6+78-9=100
解 48:  1*2+3+4*5+6+78-9=100
解 49:  12*3-4+5-6+78-9=100
解 50:  1*2+3-4+5*6+78-9=100
解 51:  12/3/4+5*6+78-9=100
解 52:  1+2+3+4+5+6+7+8*9=100
解 53:  1*2*3+4+5+6+7+8*9=100
解 54:  1+23-4-5+6+7+8*9=100
解 55:  1-2*3+4*5+6+7+8*9=100
解 56:  12*3-4-5-6+7+8*9=100
解 57:  1+2*3+4*5-6+7+8*9=100
解 58:  1-2*3-4+5*6+7+8*9=100
解 59:  1+2-3*4+5*6+7+8*9=100
解 60:  1+2*3*4*5/6+7+8*9=100
解 61:  1-2-34+56+7+8*9=100
解 62:  1/2*3/4*56+7+8*9=100
解 63:  12+3*4+5+6-7+8*9=100
解 64:  1*2*3*4+5+6-7+8*9=100
解 65:  12-3+4*5+6-7+8*9=100
解 66:  1*2+34+5-6-7+8*9=100
解 67:  12+34-5-6-7+8*9=100
解 68:  1-2-3+45-6-7+8*9=100
解 69:  12-3-4+5*6-7+8*9=100
解 70:  1-2*3-4-5+6*7+8*9=100
解 71:  1+2-3*4-5+6*7+8*9=100
解 72:  1+2+3-4*5+6*7+8*9=100
解 73:  1*2*3-4*5+6*7+8*9=100
解 74:  1+23-4+56/7+8*9=100
解 75:  1*2+34-56/7+8*9=100
解 76:  1-2-3+4*56/7+8*9=100
解 77:  1+2+3-45+67+8*9=100
解 78:  1*2*3-45+67+8*9=100
解 79:  1+2+34*5+6-7-8*9=100
解 80:  1+234-56-7-8*9=100
解 81:  1*234+5-67-8*9=100
解 82:  1*2-3+4-5+6+7+89=100
解 83:  1+2*3-4-5+6+7+89=100
解 84:  1-23+4*5+6+7+89=100
解 85:  12-3-4+5-6+7+89=100
解 86:  1+2+3*4-5-6+7+89=100
解 87:  1-23-4+5*6+7+89=100
解 88:  1*2/3+4*5/6+7+89=100
解 89:  1/2*34-5+6-7+89=100
解 90:  12+3+4+5-6-7+89=100
解 91:  1*23-4+5-6-7+89=100
解 92:  12/3+4*5-6-7+89=100
解 93:  1-23-4-5+6*7+89=100
解 94:  1*2-3+4+56/7+89=100
解 95:  1+2*3-4+56/7+89=100
解 96:  12+3+4-56/7+89=100
解 97:  1*23-4-56/7+89=100
解 98:  123-45-67+89=100
解 99:  1+234*5/6-7-89=100
解 100: 12+3*45+6*7-89=100
解 101: 123+4-5+67-89=100
共 101 组解！

解 1:   9*8+7+6+5+4+3+2+1=100
解 2:   98-7-6+5+4+3+2+1=100
解 3:   9+8+76+5-4+3+2+1=100
解 4:   9*8+7*6-5*4+3+2+1=100
解 5:   9*8+76-54+3+2+1=100
解 6:   98+7-6+5-4-3+2+1=100
解 7:   9+87-6-5+4*3+2+1=100
解 8:   9*8+7*6-5-4*3+2+1=100
解 9:   9*8+7+6*5-4*3+2+1=100
解 10:  9*8-7-6-5+43+2+1=100
解 11:  9+8*7-6-5+43+2+1=100
解 12:  9+8+7*6-5+43+2+1=100
解 13:  9+8+7+6*5+43+2+1=100
解 14:  98+7-6-5+4+3-2+1=100
解 15:  98-7+6+5-4+3-2+1=100
解 16:  98/7*6+5*4-3-2+1=100
解 17:  9*8*7/6+5*4-3-2+1=100
解 18:  98/7*6+5+4*3-2+1=100
解 19:  9*8*7/6+5+4*3-2+1=100
解 20:  9+8+7+65+4*3-2+1=100
解 21:  9*8+7+65-43-2+1=100
解 22:  98/7*6+5+4+3*2+1=100
解 23:  9*8*7/6+5+4+3*2+1=100
解 24:  9+8+7+65+4+3*2+1=100
解 25:  9+87+6-5-4+3*2+1=100
解 26:  9*8+7-6+5*4+3*2+1=100
解 27:  9*8+7*6-5-4-3*2+1=100
解 28:  9*8+7+6*5-4-3*2+1=100
解 29:  9*8+7+6+5*4-3*2+1=100
解 30:  98-7-6+5*4-3*2+1=100
解 31:  98/7*6*5/4-3*2+1=100
解 32:  9*8*7/6*5/4-3*2+1=100
解 33:  98+7-6*5+4*3*2+1=100
解 34:  9+8-7+65+4*3*2+1=100
解 35:  98/7-6+5+43*2+1=100
解 36:  9+8+7-6-5+43*2+1=100
解 37:  98+7-6*5/4+3/2+1=100
解 38:  9+8+7-6+54*3/2+1=100
解 39:  9*8+7+6*5*4/3/2+1=100
解 40:  9+87-6+54/3/2+1=100
解 41:  98+7*6-5-4-32+1=100
解 42:  98+7+6*5-4-32+1=100
解 43:  98+7+6+5*4-32+1=100
解 44:  9-8+76+54-32+1=100
解 45:  9+8+7*6*5-4*32+1=100
解 46:  9*8-7-6+5/4*32+1=100
解 47:  9+8*7-6+5/4*32+1=100
解 48:  9+8+7*6+5/4*32+1=100
解 49:  98-7+6-5+4+3+2-1=100
解 50:  9-8+76*5/4+3+2-1=100
解 51:  9+8+76+5+4-3+2-1=100
解 52:  98+7+6-5-4-3+2-1=100
解 53:  98+7-6+5-4+3-2-1=100
解 54:  98-7+6+5+4-3-2-1=100
解 55:  9-8+7*6+5*4*3-2-1=100
解 56:  9+8-76+54*3-2-1=100
解 57:  9*8+7+6+54/3-2-1=100
解 58:  98-7-6+54/3-2-1=100
解 59:  98*7/6-5*4/3*2-1=100
解 60:  9+87+6*5/4/3*2-1=100
解 61:  98/7+6-5+43*2-1=100
解 62:  9+87*6-5*43*2-1=100
解 63:  9+87-6+5+4*3/2-1=100
解 64:  9*8-7+6*5+4*3/2-1=100
解 65:  9+8*7+6*5+4*3/2-1=100
解 66:  9+87+6+5-4*3/2-1=100
解 67:  9*8-7+6+5*4*3/2-1=100
解 68:  9+8*7+6+5*4*3/2-1=100
解 69:  98/7+6+54*3/2-1=100
解 70:  9-8+7+65-4+32-1=100
解 71:  9+87+6-5+4-3+2*1=100
解 72:  9+87-6+5+4+3-2*1=100
解 73:  9*8-7+6*5+4+3-2*1=100
解 74:  9+8*7+6*5+4+3-2*1=100
解 75:  9*8+7*6-5-4-3-2*1=100
解 76:  9*8+7+6*5-4-3-2*1=100
解 77:  9*8+7+6+5*4-3-2*1=100
解 78:  98-7-6+5*4-3-2*1=100
解 79:  98/7*6*5/4-3-2*1=100
解 80:  9*8*7/6*5/4-3-2*1=100
解 81:  9*8+7+6+5+4*3-2*1=100
解 82:  98-7-6+5+4*3-2*1=100
解 83:  98/7*6+54/3-2*1=100
解 84:  9*8*7/6+54/3-2*1=100
解 85:  9-8-7+6*54/3-2*1=100
解 86:  9-8-7+65+43-2*1=100
解 87:  98+7*6+5-43-2*1=100
解 88:  9*8+7+6+5+4+3*2*1=100
解 89:  98-7-6+5+4+3*2*1=100
解 90:  9+8+76+5-4+3*2*1=100
解 91:  9*8+7*6-5*4+3*2*1=100
解 92:  9*8+76-54+3*2*1=100
解 93:  98-7+6+5+4-3*2*1=100
解 94:  9*8-7+6+5+4*3*2*1=100
解 95:  9+8*7+6+5+4*3*2*1=100
解 96:  98+7/6+5/4/3*2*1=100
解 97:  98+7-6*5/4/3*2*1=100
解 98:  9*8+7-65+43*2*1=100
解 99:  98-7+6*5/4+3/2*1=100
解 100: 98+7-6-5+4*3/2*1=100
解 101: 98+7+6-5-4*3/2*1=100
解 102: 9*8-7-6+5+4+32*1=100
解 103: 9+8*7-6+5+4+32*1=100
解 104: 9+8+7*6+5+4+32*1=100
解 105: 9-8+76-5-4+32*1=100
解 106: 9-8+7+6+54+32*1=100
解 107: 98+7*6-5/4*32*1=100
解 108: 9-8*7*6-5+432*1=100
解 109: 9+87+6-5+4-3+2/1=100
解 110: 9+87-6+5+4+3-2/1=100
解 111: 9*8-7+6*5+4+3-2/1=100
解 112: 9+8*7+6*5+4+3-2/1=100
解 113: 9*8+7*6-5-4-3-2/1=100
解 114: 9*8+7+6*5-4-3-2/1=100
解 115: 9*8+7+6+5*4-3-2/1=100
解 116: 98-7-6+5*4-3-2/1=100
解 117: 98/7*6*5/4-3-2/1=100
解 118: 9*8*7/6*5/4-3-2/1=100
解 119: 9*8+7+6+5+4*3-2/1=100
解 120: 98-7-6+5+4*3-2/1=100
解 121: 98/7*6+54/3-2/1=100
解 122: 9*8*7/6+54/3-2/1=100
解 123: 9-8-7+6*54/3-2/1=100
解 124: 9-8-7+65+43-2/1=100
解 125: 98+7*6+5-43-2/1=100
解 126: 9*8+7+6+5+4+3*2/1=100
解 127: 98-7-6+5+4+3*2/1=100
解 128: 9+8+76+5-4+3*2/1=100
解 129: 9*8+7*6-5*4+3*2/1=100
解 130: 9*8+76-54+3*2/1=100
解 131: 98-7+6+5+4-3*2/1=100
解 132: 9*8-7+6+5+4*3*2/1=100
解 133: 9+8*7+6+5+4*3*2/1=100
解 134: 98+7/6+5/4/3*2/1=100
解 135: 98+7-6*5/4/3*2/1=100
解 136: 9*8+7-65+43*2/1=100
解 137: 98-7+6*5/4+3/2/1=100
解 138: 98+7-6-5+4*3/2/1=100
解 139: 98+7+6-5-4*3/2/1=100
解 140: 9*8-7-6+5+4+32/1=100
解 141: 9+8*7-6+5+4+32/1=100
解 142: 9+8+7*6+5+4+32/1=100
解 143: 9-8+76-5-4+32/1=100
解 144: 9-8+7+6+54+32/1=100
解 145: 98+7*6-5/4*32/1=100
解 146: 9-8*7*6-5+432/1=100
解 147: 9-8+76-5+4+3+21=100
解 148: 9*8+7+6-5-4+3+21=100
解 149: 98-7-6-5-4+3+21=100
解 150: 98-7*6+5*4+3+21=100
解 151: 98-76+54+3+21=100
解 152: 9*8+7-6+5+4-3+21=100
解 153: 9+87+6-5*4-3+21=100
解 154: 98-7+6-54/3+21=100
解 155: 9*8+7*6-5+4*3-21=100
解 156: 9*8+7+6*5+4*3-21=100
解 157: 9-8*7+6+54*3-21=100
解 158: 9-8-7*6+54*3-21=100
解 159: 98*7/6+5*4/3-21=100
解 160: 9*8+7-6+5+43-21=100
解 161: 9-8+76-5+4/3*21=100
共 161 组解！