20200420使用VB6.0求12选3的全组合数

 

最近需要求组合数（买双色球生成号码用^_）

以前在大学专门学习过VB6.0，今后会迁移到VC6.0。

预计会在2020.5.1强化一下MFC，就可以了！

 

 

Option Explicit

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()
    Dim h1%, h2%, h3%, h4%, h5%, h6%
    Dim h6sum%
    
    Dim i%
    Dim j%
    Dim temp%
    Dim count%
    Dim guangyayuan(35) As Integer
    Dim wutongshan(35) As Integer
    
    Dim guangyayuan6(35) As Integer
    Dim hong1%, hong2%, hong3%, hong4%, hong5%, hong6%
    
    Dim strWj As String
    
    
    
    
    For hong1 = 1 To 10
        'For hong2 = hong1 To 11
        For hong2 = hong1 + 1 To 11
            For hong3 = hong2 + 1 To 12
                'Text2 = Text2 & hong1 & "," & hong2 & "," & hong3 & "," & hong4 & vbCrLf
                Text2 = Text2 & hong1 & "," & hong2 & "," & hong3 & vbCrLf
            Next hong3
        Next hong2
    Next hong1
    
    
    
    
    Close #2
    
    'Open "d:\ScoreW2.txt" For Output As #1
    Open "d:\求12选3的全组合数.txt" For Output As #1
    Write #1, Text2
    'Write #1, strWj
    Close #1
End Sub

 

 

 

使用VB6.0求12选3的全组合数：
"1,2,3
1,2,4
1,2,5
1,2,6
1,2,7
1,2,8
1,2,9
1,2,10
1,2,11
1,2,12
1,3,4
1,3,5
1,3,6
1,3,7
1,3,8
1,3,9
1,3,10
1,3,11
1,3,12
1,4,5
1,4,6
1,4,7
1,4,8
1,4,9
1,4,10
1,4,11
1,4,12
1,5,6
1,5,7
1,5,8
1,5,9
1,5,10
1,5,11
1,5,12
1,6,7
1,6,8
1,6,9
1,6,10
1,6,11
1,6,12
1,7,8
1,7,9
1,7,10
1,7,11
1,7,12
1,8,9
1,8,10
1,8,11
1,8,12
1,9,10
1,9,11
1,9,12
1,10,11
1,10,12
1,11,12
2,3,4
2,3,5
2,3,6
2,3,7
2,3,8
2,3,9
2,3,10
2,3,11
2,3,12
2,4,5
2,4,6
2,4,7
2,4,8
2,4,9
2,4,10
2,4,11
2,4,12
2,5,6
2,5,7
2,5,8
2,5,9
2,5,10
2,5,11
2,5,12
2,6,7
2,6,8
2,6,9
2,6,10
2,6,11
2,6,12
2,7,8
2,7,9
2,7,10
2,7,11
2,7,12
2,8,9
2,8,10
2,8,11
2,8,12
2,9,10
2,9,11
2,9,12
2,10,11
2,10,12
2,11,12
3,4,5
3,4,6
3,4,7
3,4,8
3,4,9
3,4,10
3,4,11
3,4,12
3,5,6
3,5,7
3,5,8
3,5,9
3,5,10
3,5,11
3,5,12
3,6,7
3,6,8
3,6,9
3,6,10
3,6,11
3,6,12
3,7,8
3,7,9
3,7,10
3,7,11
3,7,12
3,8,9
3,8,10
3,8,11
3,8,12
3,9,10
3,9,11
3,9,12
3,10,11
3,10,12
3,11,12
4,5,6
4,5,7
4,5,8
4,5,9
4,5,10
4,5,11
4,5,12
4,6,7
4,6,8
4,6,9
4,6,10
4,6,11
4,6,12
4,7,8
4,7,9
4,7,10
4,7,11
4,7,12
4,8,9
4,8,10
4,8,11
4,8,12
4,9,10
4,9,11
4,9,12
4,10,11
4,10,12
4,11,12
5,6,7
5,6,8
5,6,9
5,6,10
5,6,11
5,6,12
5,7,8
5,7,9
5,7,10
5,7,11
5,7,12
5,8,9
5,8,10
5,8,11
5,8,12
5,9,10
5,9,11
5,9,12
5,10,11
5,10,12
5,11,12
6,7,8
6,7,9
6,7,10
6,7,11
6,7,12
6,8,9
6,8,10
6,8,11
6,8,12
6,9,10
6,9,11
6,9,12
6,10,11
6,10,12
6,11,12
7,8,9
7,8,10
7,8,11
7,8,12
7,9,10
7,9,11
7,9,12
7,10,11
7,10,12
7,11,12
8,9,10
8,9,11
8,9,12
8,10,11
8,10,12
8,11,12
9,10,11
9,10,12
9,11,12
10,11,12
"