摘要：参考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... 阅读全文

摘要：需要添加对VB项目的信任 Sub UDFSOFACTIVEWORKBOOK()Dim sh As Worksheet, r As Range, dic As Object, i As Long, temp As String, vbcomp, s() As String, UDF As Strin... 阅读全文