用VBS精確計(jì)算2的100次方的代碼
更新時(shí)間：2011年01月21日 23:20:52 作者：
即Grade school multiplication（小學(xué)乘法？）算法的VBS實(shí)現(xiàn)。
既然Python可以計(jì)算2的100次方，那么我就要用VBS實(shí)現(xiàn)。不過這個(gè)效率嘛，計(jì)算2的10000次方Python用了0.009013秒，VBS用了120.9805秒，不是一個(gè)等級(jí)的，我就不多說什么了。
直接上代碼：
'Date: 2010/10/27
'Author: Demon
'QQ: 380401911
'E-mail: still.demon@gmail.com
begin = Timer
n = 1
For i = 1 To 100
n = multiple(n, 2)
Next
finish = Timer
WScript.Echo n
WScript.Echo finish - begin
'Grade school multiplication, Algorithm 14.12
'http://www.cacr.math.uwaterloo.ca/hac/about/chap14.pdf
Function multiple(byVal x, byVal y)
Dim n, t, i, j, z, w()
n = Len(x) - 1
t = Len(y) - 1
ReDim w(n + t + 1)
x = CStr(x) : y = CStr(y)
For i = 0 To UBound(w)
w(i) = "0"
Next
For i = 0 To t
Dim c : c = 0
Dim uv : uv = 0
For j = 0 To n
uv = (w(i+j)-"0") + c + _
(Mid(x,n-j+1,1)-"0") * (Mid(y,t-i+1,1)-"0")
w(i+j) = CStr(uv Mod 10 + "0")
c = uv \ 10
Next
w(i+n+1) = CStr(uv \ 10 + "0")
Next
z = Join(w,"")
z = StrReverse(z)
Do While Left(z,1) = "0"
z = Mid(z,2)
Loop
multiple = z
End Function
原文：http://demon.tw/programming/vbs-long-multiplication.html
直接上代碼：
復(fù)制代碼 代碼如下:
'Date: 2010/10/27
'Author: Demon
'QQ: 380401911
'E-mail: still.demon@gmail.com
begin = Timer
n = 1
For i = 1 To 100
n = multiple(n, 2)
Next
finish = Timer
WScript.Echo n
WScript.Echo finish - begin
'Grade school multiplication, Algorithm 14.12
'http://www.cacr.math.uwaterloo.ca/hac/about/chap14.pdf
Function multiple(byVal x, byVal y)
Dim n, t, i, j, z, w()
n = Len(x) - 1
t = Len(y) - 1
ReDim w(n + t + 1)
x = CStr(x) : y = CStr(y)
For i = 0 To UBound(w)
w(i) = "0"
Next
For i = 0 To t
Dim c : c = 0
Dim uv : uv = 0
For j = 0 To n
uv = (w(i+j)-"0") + c + _
(Mid(x,n-j+1,1)-"0") * (Mid(y,t-i+1,1)-"0")
w(i+j) = CStr(uv Mod 10 + "0")
c = uv \ 10
Next
w(i+n+1) = CStr(uv \ 10 + "0")
Next
z = Join(w,"")
z = StrReverse(z)
Do While Left(z,1) = "0"
z = Mid(z,2)
Loop
multiple = z
End Function
原文：http://demon.tw/programming/vbs-long-multiplication.html
您可能感興趣的文章:
相關(guān)文章
VBScript如何從剪貼板中抓取一個(gè)URL然后在瀏覽器中打開該 Web 站點(diǎn)2008-11-11
VBS教程：函數(shù)-CreateObject 函數(shù)
CreateObject 函數(shù)創(chuàng)建并返回對(duì) Automation 對(duì)象的引用,在vbscirpt經(jīng)常用到，這里就為大家簡(jiǎn)單介紹一下需要的朋友可以參考一下啊2006-11-11
管理網(wǎng)卡的vbs腳本2008-04-04
用vbs刪除前一天創(chuàng)建的備份文件...2007-03-03
下面的hta主要用于實(shí)現(xiàn)網(wǎng)易文件的提取，提供這個(gè)代碼希望大家學(xué)習(xí)他的hta編寫2008-06-06
VBS教程：屬性-FileSystem 屬性...2006-11-11
有時(shí)候我們?cè)趥€(gè)人電腦上，每次輸入密碼比較麻煩，可以自動(dòng)登錄，但如果qq賬號(hào)多了，就可以使用這個(gè)腳本了2013-07-07
TCP版backshell的VBS腳本2008-05-05
VBS監(jiān)控CPU的使用率(如占用率一直維持在80%超過30秒則運(yùn)行某程序)
用vbs實(shí)現(xiàn)的監(jiān)控CPU的使用率,VBS監(jiān)控CPU的使用率,如占用率一直維持在80%超過30秒，則運(yùn)行某程序,以保證機(jī)器的正常運(yùn)行2013-04-04
ipclear.vbs源代碼...2007-02-02