王峰炬

摘要： 参考http://blog.csdn.net/northwolves/archive/2007/08/29/1764177.aspx中的代码,将字符串数组x取n个元素进行排列组合: Sub getall(ByRef x() As String, ByVal n As Byte, Optional ... 阅读全文

摘要： 从1--m中选n个数字的排列组合的简单实现,速度还可以: Sub getall(ByVal m As Byte, ByVal n As Byte, Optional types As Byte = 0)'types=0为排列 types=1 为组合Dim num As Long, i As Int... 阅读全文

摘要： 题目: 求一个分数，分子5位数（第1位不是0），分母也是5位数（第1位不是0），分子和分母这10个数正好由0到9这10个数字组成（不缺也不重复）。求最接近π值的那个分数 解法1(穷举法) Sub getit()Const num As Long = 3628800 ' 10!Dim tt As S... 阅读全文