王峰炬

摘要： Q:如何对整数N分解质因数？ A:一般是循环2-SQRT(N)间的素数去试除N.这里提供一个利用网络资源分解质因数的方法； Function Numberfactorizer(ByVal number As String) As String If number Like "*[!0-9]*"... 阅读全文

摘要： 问题：双色球所有的红球全排序 组合中，2, 3, 5, 8, 13, 21排第几个？ 可以创建自定义 函数解决这个问题： 1. Function SeqNum(ParamArray d()) As Long 2. Dim k&, i&, j& 3. k = UBound... 阅读全文