[已解决]请教老师，有没有更快的速度运行下列程序的代码

爱疯

香川群子 发表于 2014-11-22 15:19
再介绍一种有趣的算法思路：首先生成0-7这8种不同的奇偶类型对应字符，(二进制3位数的不同组合数=2^3-1=8 ...

19#从说明上有点明白，只是if语句那些，我看着就晕，除非结果惊人，否则真不想去算。
当碰上不大的正整数时，数组正好能发挥它最锐利的一面。。。。

爱疯

如果不是输出“奇”“偶”，而是输出1和0，以上方法都能提高不少，不知为什么

香川群子

最后再补充一个递归算法代码……代码很简洁，可以计算任意n位数的奇偶类型……速度也不算慢！

1. Dim sj$(9), jg(), n&, k&
   
2. Sub test5()
   
3.     For k = 0 To 9 Step 2: sj(k) = "偶": sj(k + 1) = "奇": Next
   
4.     n = 3: ReDim jg(10 ^ n - 1): k = 0: Call dgMN2("", 1)
   
5. '    [b1].Resize(10 ^ n) = WorksheetFunction.Transpose(jg)
   
6. End Sub
   
7. Sub dgMN2(s$, t&)
   
8.     Dim i&
   
9.     For i = 0 To 9
   
10.         If t = n Then jg(k) = s & sj(i): k = k + 1 Else Call dgMN2(s & sj(i), t + 1)
    
11.     Next
    
12. End Sub

复制代码

grf1973

香川群子 发表于 2014-11-22 14:45
很规律的数字，应该直接用数组计算和记录，不要用字典……速度会相差数倍！

下面代码算法目前速度最快 ...

受教了。。。。。。