问题：将5个数加减乘除，将得到的结果按大小排列！
我的解决办法：用嵌套循环，代码大略如下：
Dim i(4) As Integer '代表输入的5个数
Dim a(3) As String
Dim b(3) As String
Dim c(3) As String
Dim d(3) As String

    a(0) = b(0) = c(0) = d(0) = "+"  ' 这4句出错
    a(1) = b(1) = c(1) = d(1) = "-"
    a(2) = b(2) = c(2) = d(2) = "*"
    a(3) = b(3) = c(3) = d(3) = "/"

Private Sub JS()
    For h = 0 To 119
        For j = 0 To 3
            For k = 0 To 3
                For l = 0 To 3
                    For n = 0 To 3
                        Sum(h) = i(0) & a(j) & i(1) & b(k) & i(2) & c(l) & i(3) & d(n) & i(4)
                    Next n
                Next l
            Next k
        Next j
    Next h
End Sub


求各位大大给点提示啊！感谢！

应该是String变量不能用dim a(3) as string这样申明吗？
改成 ：
Dim i(4) As Integer '代表输入的5个数
Dim a(3) As integer
Dim b(3) As integer
Dim c(3) As integer
Dim d(3) As integer

    a(0) = b(0) = c(0) = d(0) = 43
    a(1) = b(1) = c(1) = d(1) = 45
    a(2) = b(2) = c(2) = d(2) = 42
    a(3) = b(3) = c(3) = d(3) = 47

Private Sub JS()
    h = i(0) & Chr(a(0)) & i(1) & Chr(b(0)) & i(2) & Chr(c(0)) & i(3) & Chr(d(0)) & i(4)
    Print h
End Sub


用5个1做实验，结果打印出：1口1口1口1口1的结果。看样子是“a(0)=b(0)=c(0)=d(0)=43”这一句有问题了，望指教！

[此贴子已经被作者于2005-8-11 3:12:04编辑过]

再次修改成：
    a(0) = 43
    b(0) = 43
    c(0) = 43
    d(0) = 43
    a(1) = 45
    b(1) = 45
    c(1) = 45
    d(1) = 45
    a(2) = 42
    b(2) = 42
    c(2) = 42
    d(2) = 42
    a(3) = 47
    b(3) = 47
    c(3) = 47
    d(3) = 47

实验：用5个1
h = i(0) & Chr(a(0)) & i(1) & Chr(b(0)) & i(2) & Chr(c(0)) & i(3) & Chr(d(0)) & i(4)
Print h

结果是：1+1+1+1+1
并不是我想要的结果！晕

恩，谢谢！