高次乘方高精度计算.docVIP

关于如何运用计算机进行高次高精运算，笔者研究后写出如下vbs代码，可计算较小整数的高次运算，输入底数与指数，1、2、千次方运算可以在3、4秒内完成，如果改用c++或其他编程语言编译成.exe或.com文件，会有更高的执行效率，因为vbs 是便翻译边执行的，浪费了大量时间。 复制如下代码到记事本中，保存时文件名改为*.vbs 然后双击文件即可运行。 a=InputBox(底数) b=InputBox(指数) Dim aa(100000) c=100000 e=100 main(b) d=c Do d=d-1 Loop Until aa(d)0 Or d=1 For zz=1 To d Step 1 If aa(zz)10 Then qwe=aa(zz) qwe Else If aa(zz)0 Then qwe=0 aa(zz) qwe Else qwe=00 qwe End If End If Next MsgBox(qwe) Set ws=WScript.CreateObject(WScript.Shell) Set fso=WScript.CreateObject(Scripting.FileSystemObject) Set fi=fso.CreateTextFile(结果.txt,True) fi.Write(qwe) fi.Close sub main(x)