level 1
每种都要吗？
2020年12月22日 01点12分
level 11
2
组内是排列还是组合？这个很重要
2020年12月22日 01点12分
还有，组是有序的还是无序的（即组之间是组合还是排列）？
2020年12月22日 01点12分
针对福彩快乐8，快乐8开出20个号码，我想把每期的的开奖号码，每四个一组排列出来，看看哪四个号码出奖的次数最多。开奖数据在https://kl8.17500.cn/data/kl81000_asc.txt
2020年12月22日 12点12分
@万年妖1979 请用数学语言说话
2020年12月22日 12点12分
level 15
level 1
万年妖1979
楼主
Private Sub Command2_Click()
Dim s
Label1.Caption = " "
s = Array(11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30)
For a = 0 To UBound(s)
For b = 1 To UBound(s)
For c = 2 To UBound(s)
For d = 3 To UBound(s)
If c < d And b < c And a < b Then
z = s(a) & " " & s(b) & " " & s(c) & " " & s(d) & " "
Label1.Caption = Label1.Caption & z & "|"
t = t + 1
End If
Next d
Next c
Next b
Next a
Text1.Text = t
End Sub
我居然是这样实现的。
2020年12月23日 13点12分
6
Dim s
Label1.Caption = " "
s = Array(11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30)
For a = 0 To UBound(s)
For b = 1 To UBound(s)
For c = 2 To UBound(s)
For d = 3 To UBound(s)
If c < d And b < c And a < b Then
z = s(a) & " " & s(b) & " " & s(c) & " " & s(d) & " "
Label1.Caption = Label1.Caption & z & "|"
t = t + 1
End If
Next d
Next c
Next b
Next a
Text1.Text = t
End Sub
我居然是这样实现的。
![[哈哈]](/static/emoticons/u54c8u54c8.png)
level 11
Private Sub Command1_Click()
Dim s
Label1.Caption = " "
s = Array(11, 12, 13, 14, 15, 16)
For a = 0 To UBound(s)
For b = a + 1 To UBound(s)
For c = b + 1 To UBound(s)
For d = c + 1 To UBound(s)
'If c < d And b < c And a < b Then
z = s(a) & " " & s(b) & " " & s(c) & " " & s(d) & " "
Label1.Caption = Label1.Caption & z & "|"
t = t + 1
'End If
Next d
Next c
Next b
Next a
Text1.Text = t
End Sub
2020年12月24日 02点12分
7
Dim s
Label1.Caption = " "
s = Array(11, 12, 13, 14, 15, 16)
For a = 0 To UBound(s)
For b = a + 1 To UBound(s)
For c = b + 1 To UBound(s)
For d = c + 1 To UBound(s)
'If c < d And b < c And a < b Then
z = s(a) & " " & s(b) & " " & s(c) & " " & s(d) & " "
Label1.Caption = Label1.Caption & z & "|"
t = t + 1
'End If
Next d
Next c
Next b
Next a
Text1.Text = t
End Sub