福利彩票和体育彩票近两年比较火暴,相应在VB论坛上大家讨论也较多。其实选择彩票与集合选择子集相同道理。下面给出一种VB的递归算法(虽然明知存入数组会加快运算速度,但最终也没能满意地实现,请大家多多指教。另外,效率确实不高)
Option Explicit
Private Sub Command1_Click()
Dim temp, i As Long, starttime As Long, endtime As Long
starttime = Timer
temp = cmn(22, 6)
endtime = Timer
Open "d:\mofn.txt" For Binary As #1 '写入文件
Put #1, , temp
Close #1
MsgBox UBound(Split(temp, vbCrLf)) + 1 & " 种组合", 64, "共用时 " & endtime - starttime & " 秒" '计算组合可能情况和耗时
End Sub
Function cmn(ByVal m As Integer, ByVal n As Integer) As String ' select n number from 1~m
Dim a() As String, temp As String, i As Long
ReDim a(1 To m) '定义数组
For i = 1 To m
a(i) = i
Next
If m = 3 Then
If n = 1 Then cmn = 1 & vbCrLf & 2 & vbCrLf & 3
If n = 2 Then cmn = "1,2" & vbCrLf & "1,3" & vbCrLf & "2,3"
If n = 3 Then cmn = "1,2,3"
ElseIf m > 3 Then
If n = 1 Then cmn = Join(a, vbCrLf)
If n = m Then cmn = Join(a, ",")
If n > 1 And n < m Then
temp = cmn(m - 1, n - 1)
'Debug.Print m - 1 & "," & n - 1 & vbCrLf & "----------------" & vbCrLf & temp & vbCrLf & "---------------------------" & vbCrLf '可以在立即窗口查看算法过程
temp = Replace(temp, vbCrLf, "," & m & vbCrLf) & "," & m
cmn = cmn(m - 1, n) & vbCrLf & temp
End If
End If
End Function
下面给出利用集合实现不重复随机选取某几个号码,这个函数也可用来实现数组全部元素的随机排列。
Function getone(ByVal m As Integer, ByVal n As Integer) As String ' one random option to select n number from 1~m without repeat number
Dim a() As String, temp As New Collection, i As Long, tempi As Long
ReDim a(1 To n) '定义数组
For i = 1 To m
temp.Add i '可以根据需要更改
Next
Randomize
For i = 1 To n
tempi = Int(Rnd * temp.Count) + 1
a(i) = temp(tempi)
temp.Remove tempi
Next
getone = Join(a, ",")
Set temp = Nothing
Erase a
End Function
Private Sub Command2_Click()'演示用法
MsgBox getone(30, 8), 64, "30选8 的一种选法"
MsgBox getone(100, 100), 64, "1 到100 的一种不重复全排列"
End Sub
分享到:
相关推荐
组合的递归算法(递归求*组合*),很简洁。
此段程序用了递归算法计算组合数在相应表中的序数。
易语言递归法取排列组合例程源码,递归法取排列组合例程,子程序_取组合
此代码实现从N个数字中取出M个数字的所有组合,有两种实现方法,递归方法和非递归方法。
递归法取排列组合易语言源码例程.rar 递归法取排列组合易语言源码例程.rar 递归法取排列组合易语言源码例程.rar 递归法取排列组合易语言源码例程.rar 递归法取排列组合易语言源码例程.rar 递归法取排列组合...
组合算法的重要性不言而喻,本文很巧妙地使用递归实现组合算法,呕心沥血之作,组合过程独创。
大学计算机程序与递归组合抽象与构造PPT课件.pptx
递归实现组合型枚举.md
数字排列组合是个经典的算法问题,它很通俗易懂,适合不懂业务的人...这种算法常用递归或迭代来实现,单当M=14时,中间结果数量已经过亿,再大的话很容易超过单台机器的处理能力,所以我用hadoop来实现多机分别处理。
java m取n 重复 不重复 排列组合 for循环嵌套递归
程序与递归组合抽象与构造学习课程.pptx
全排列的非递归实现。输入1,2,3 得到 [1],[2],[3],[1,2],[1,3],[2,3],[1,2,3]六种组合
易语言源码递归法取排列组合易语言源码例程.rar 易语言源码递归法取排列组合易语言源码例程.rar 易语言源码递归法取排列组合易语言源码例程.rar 易语言源码递归法取排列组合易语言源码例程.rar 易语言源码递归法...
排列与组合的Java递归实现.doc
大学计算机程序与递归组合抽象与构造学习教案.pptx
算法设计与分析实验报告:递归与分治策略,用python写的,附源码。主要处理问题如下: 1.ackerman函数实现; 2.大数划分; 3. 数据集合{1,2,3,4,5,6,7,8,9,10}的排列组合;
递归求解几类排列组合问题,求组合数列的情况
大学计算机程序与递归组合抽象与构造PPT学习教案.pptx
对案例进行排列组合的小程序
NULL 博文链接:https://largestone.iteye.com/blog/599295