主题：[求助]黑箱子算法

'a*11+b*9+c*7+d*5+e*3+f=60

Dim aas As String = "0,1,2,3"
Dim bbs As String = "1,2,3,10,11,12,13,20,21"
For Each a As String In aas.Split(",")
    For Each b As String In bbs.Split(",")
        Dim left As Double = 60 - a*11 - b*9
        Dim c As Double = left / (7+5+3+1)
        If CInt(c) = c Then
            output.show(a & "," & b & "," & c)
        End If
    Next
Next

 单元格居左？你可以直接去设置模板啊。