一个问题！请大家帮帮忙！

Question

假设变量名s1,s2,s3,s4。
  现在想实现下面这个功能。
    s1,s2,s3,s4里面分别有一个数字。
    然后这四个数字进行运算（+，-，*，/），如果结果等于某一个数字。（例如  20）
   这四个数字就会显示结果出来。显示的形式就是一个算式就会出来！
    例如：
   我输入3，6，8，7             而我想让这四个数字之间等于24的组合列出来。
   那么我们可以列：3+6+8+7=24
等等。
  
这个问题我也写了个函数，不过功能实现不了。
  请大家帮帮忙！

Answer 1

几个FOR循环，if i+j+m+n=YouWant then debug.print i &"+"& j &"+"& m &"+"& m &"="YouWant

Answer 2

Private Sub view(txt1 As String, txt2 As String, txt3 As String, txt4 As String, Text() As String)
Dim m As Integer
Dim n As Integer
Dim j As Integer
Dim sum As Integer
 For j = 0 To 2
     For m = 0 To 2
        For n = 0 To 2
sum = Val(Val(txt1) & Trim(Text(j)) & Val(txt2) & Trim(Text(m)) & Val(txt3) & Trim(Text(n)))
Next n
Next m
Next j
end sub

Answer 3

sum = Val(Val(txt1) & Trim(Text(j)) & Val(txt2) & Trim(Text(m)) & Val(txt3) & Trim(Text(n)))
if sum=20 then msgbos  Val(txt1) & Trim(Text(j)) & Val(txt2) & Trim(Text(m)) & Val(txt3) & Trim(Text(n)) & "=20"

Answer 4

写法不对吧
val("10*2")等于10，而不是20

Answer 5

http://dev.csdn.net/develop/article/20/20064.shtm