求1000的阶乘 VBS版本

摘自：http://topic.csdn.net/u/20090411/19/325EFF86-7877-4CE8-93FC-E3D470B89995.html

 

不错的贴子，把里面的java程序修改成为vbscript的程序。

 

dim digits(2568)
max_digit = 2568
digits(max_digit) = 1
for d=2 to 1000
     for k=max_digit to ubound(digits)
          digits(k) = digits(k) *d
     next
     k = ubound(digits)
     while k>=max_digit
          if digits(k)>10 then
               digits(k-1) = digits(k-1) + fix(digits(k) / 10)
               digits(k) = digits(k) mod 10
               if k-1<max_digit then
                    max_digit = k - 1
               end if
          end if
          k = k-1
     wend
next

 

'把结果转为字串。

str = ""
for i=max_digit to ubound(digits)
     str = str & digits(i)
next
msgbox str