高次乘方高精度计算

《高次乘方高精度计算》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、关于如何运用计算机进行高次高精运算，笔者研究后写出如下vbs代码，可计算较小整数的高次运算，输入底数与指数，1、2、千次方运算可以在3、4秒内完成，如果改用c++或其他编程语言编译成.exe或.com文件，会有更高的执行效率，因为vbs是便翻译边执行的，浪费了大量时间。复制如下代码到记事本中，保存时文件名改为*.vbs然后双击文件即可运行。a=InputBox("底数")b=InputBox("指数")Dimaa(100000)c=100000e=100main(b)d=cDod=d-1LoopUntilaa(d)>0Ord=1Forzz=1TodStep

2、1Ifaa(zz)>10Thenqwe=aa(zz)&qweElseIfaa(zz)>0Thenqwe="0"&aa(zz)&qweElseqwe="00"&qweEndIfEndIfNextMsgBox(qwe)Setws=WScript.CreateObject("WScript.Shell")Setfso=WScript.CreateObject("Scripting.FileSystemObject")Setfi=fso.CreateTextFile("结果.txt",True)fi.Write(qwe)fi.Closesubmain(x)‘递归主

3、程序'MsgBox("1")ifx=0Thenaa(1)=1elseifxmod2=0Thenmain(x/2)chengElsemain(x-1)achengendIfendIf'MsgBox("11")endSubSubcheng()‘平方过程，幂次加倍'MsgBox("cheng")dimbb(100000)Dimdd=cDod=d-1LoopUntilaa(d)>0Ord=1fori=1Todforj=1Todbb(i+j-1)=aa(i)*aa(j)+bb(i+j-1)nextNextfori=1tocifbb(i)>ethenbb(i+1)=b

4、b(i)e+bb(i+1)bb(i)=bb(i)modeendifNextfori=1tocaa(i)=bb(i)Next'MsgBox("1cheng")endSubsubacheng()‘乘以底数，幂次加一'MsgBox("acheng")Fori=1tocaa(i)=aa(i)*aNextfori=1tocifaa(i)>eThenaa(i+1)=aa(i)e+aa(i+1)aa(i)=aa(i)modeendIfNext'MsgBox("1acheng")endSub