• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    用VBS精确计算2的100次方的代码
    既然Python可以计算2的100次方,那么我就要用VBS实现。不过这个效率嘛,计算2的10000次方Python用了0.009013秒,VBS用了120.9805秒,不是一个等级的,我就不多说什么了。

    直接上代码:
    复制代码 代码如下:

    '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
    您可能感兴趣的文章:
    • 用VBS精确计算100的阶乘的实现代码
    上一篇:dim函数第三个参数设置截取字符的长度问题
    下一篇:纯vbs实现zip压缩与unzip解压缩函数代码
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    用VBS精确计算2的100次方的代码 用,VBS,精确,计算,的,100,