各位达人请教个数学问题

hkkhhk

VBA可以弄

Option Explicit

Sub TwoB()
   Dim i1%, i2%, i3%, k%, MyArray(1 To 15) As String
MyArray(1) = "4 "
MyArray(2) = "14 "
MyArray(3) = "24 "
MyArray(4) = "34 "
MyArray(5) = "44 "
MyArray(6) = "8 "
MyArray(7) = "18 "
MyArray(8) = "28 "
MyArray(9) = "38 "
MyArray(10) = "48 "
MyArray(11) = "9 "
MyArray(12) = "19 "
MyArray(13) = "29 "
MyArray(14) = "39 "
MyArray(15) = "49 "
   k = 1
    For i1 = 1 To 15
        For i2 = i1 + 1 To 15
            For i3 = i2 + 1 To 15
                Sheet1.Cells(k, 1).Value = MyArray(i1) + MyArray(i2) + MyArray(i3)
                k = k + 1
            Next i3
        Next i2
    Next i1
End Sub

风干的眼泪

Aphrodite

数学不好的飘过

怕娃落地

1: 04 14 24
2: 04 14 34
3: 04 14 44
4: 04 14 08
5: 04 14 18
6: 04 14 28
7: 04 14 38
8: 04 14 48
9: 04 14 09
10: 04 14 19
11: 04 14 29
12: 04 14 39
13: 04 14 49
14: 04 24 34
15: 04 24 44
...
hkkhhk 发表于 2009-2-7 20:12

我擦，你用程序算的？

诺依

我觉得LZ是想问三组，每组挑一个的组合吧....这数字太规律了的说