遍历排列的实现——VB2005
前两日,写了一篇“html">遍历组合的实现——VB2005”。在数学分支里,排列与组合是不分家的。于是,动手写下本文。在上一文中,采用了递归调用,虽然便于理解,但是算法的效率上打个折扣。本文一并重写,改为循环调用。代码赋予其后,用的是VB2005
两个类,一个是clsPermutation,用来计算排列的;一个是clsCombination,用来计算组合的。下面,把各个函数说明一下。
类clsPermutation:
函数:GetPermutation
获得指定标号的排列,返回值是一个数组
参数: Lower,排列中的下限
Upper,排列中的上限
Count,排列中的元素的个数
Index,该排列的标号
示例: tI=GetPermutation(1,8,4,23)
返回一个从1到8中选4个数的一个排列,标号为23
函数:GetPermutationRandom
获得随机的排列,返回值是一个数组
参数: Lower,排列中的下限
Upper,排列中的上限
Count,排列中的元素的个数
示例: tI=GetPermutation(1,8,4)
返回一个从1到8中选4个数的一个排列
函数:Factorial
获得指定参数的阶乘,返回值是一个整数
参数: N,指定参数
示例: tI=Fratorial(4)
返回4的阶乘,为24
函数:P
获得指定参数的排列数,返回值是一个整数
参数: M,指定参数上标;N,指定参数下标
示例: tI=P(2,6)
计算P(2,6)的值,为30
类clsCombination:
函数:GetCombination
获得指定标号的排列,返回值是一个数组
参数: Lower,排列中的下限
Upper,排列中的上限
Count,排列中的元素的个数
Index,该排列的标号
示例: tI=GetCombination(1,8,4,23)
返回一个从1到8中选4个数的一个组合,标号为23
函数:GetCombinationRandom
获得随机的排列,返回值是一个数组
参数: Lower,排列中的下限
Upper,排列中的上限
Count,排列中的元素的个数
示例: tI=GetCombination(1,8,4)
返回一个从1到8中选4个数的一个组合
函数:C
获得指定参数的排列数,返回值是一个整数
参数: M,指定参数上标;N,指定参数下标
示例: tI=C(2,6)
计算C(2,6)的值,为15
1 Public Class clsPermutation
2 Private Shared mList() As Integer
3
4 Public Shared Function GetPermutationRandom(ByVal Lower As Integer, _ByVal Upper As Integer, _ByVal Count As Integer) As Integer()
5 If Count > Upper - Lower + 1 Then Return Nothing
6 If Count <= 0 Then Return Nothing补充:软件开发 , Vb ,
上一个:vb编写QQ信息群发器代码实例
下一个:遍历组合的实现——VB2005
- 更多VB疑问解答:
- 批处理转移文 之errorlevel
- vb 6.0 调用vb.net dll混合程序集错误
- VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急!!
- 求助在Dir1控件当前目录下新建一个文件夹的代码
- CreateObject创建Word Excel对象失败,提示,无法加载DLL,怎么解决?
- 有两个磁盘阵列,如何使用能达到最好的效果
- cloudStack 如何实现 vSphere的DRS功能
- 和难缠客户的那些事儿
- 批处理转移文 之errorlevel
- vb 6.0 调用vb.net dll混合程序集错误
- VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急!!
- 求助在Dir1控件当前目录下新建一个文件夹的代码
- CreateObject创建Word Excel对象失败,提示,无法加载DLL,怎么解决?
- 有两个磁盘阵列,如何使用能达到最好的效果
- cloudStack 如何实现 vSphere的DRS功能