求一个速度最快的算法

进行9位数次以上的运算,不慢才怪~
就算快也快不了多�

对，所以算法的快慢对速度影响很大，所以来问一个相对最快的算法�

9层For...Next
怎么可能用9层？

昨晚在群里讨论了一下这个问题。UK说使用递推公式。。�

用嵌入汇编写运算

最好具体点，给出全套算法，包括声明方式。因为每一句都会影响速度�

000000000
000000001
都是可以�

楼主的速度有多少?

Private Declare Func啊tion GetInputState Lib "user32" () As Long

Private Sub Form_Click()
Open "d:\linshi.txt" For Output As #1
Dim i As Long
Dim shu(9) As Long
For i = 100000000 To 999999999
shu(1) = Val(Mid$(Str(i), 1, 1))
shu(2) = Val(Mid$(Str(i), 2, 1))
shu(3) = Val(Mid$(Str(i), 3, 1))
shu(4) = Val(Mid$(Str(i), 4, 1))
shu(5) = Val(Mid$(Str(i), 5, 1))
shu(6) = Val(Mid$(Str(i), 6, 1))
shu(7) = Val(Mid$(Str(i), 7, 1))
shu(8) = Val(Mid$(Str(i), 8, 1))
shu(9) = Val(Mid$(Str(i), 9, 1))
shu(0) = shu(1) ^ 9 + shu(2) ^ 9 + shu(3) ^ 9 + shu(4) ^ 9 + shu(5) ^ 9 + shu(6) ^ 9 + shu(7) ^ 9 + shu(8) ^ 9 + shu(9) ^ 9
If GetInputState Then DoEvents
Print #1, shu(0) & " " & i
If shu(0) = i Then Debug.Print i: Print #1, i
If GetInputState Then DoEvents
Next
Close
End Sub

Private Sub Form_Load()
MsgBox "循环次数：" & 100000000 - 999999999 & "，时间可怕的长，做好心里准备后在程序内部单击鼠标"
End Sub

真的很长时间……因为时间长的缘故……把东西都放在文件里了……测试了下……不到一分钟……文件有7MB
-_-!
如果你不需要实时监视……可以把
Print #1, shu(0) & " " & i 去掉

ls是个办法

但是这个并没有牵扯到算法

关注

--后代