用VBS精确计算100的阶乘的实现代码
今天又无聊的逛了一下搜搜问问，找到这样一个问题：
有谁能提供vbs里20的阶乘的详细程序
function jx(x)
j=1
for i=2 to x
j=j*i
next
jx=j
end function
msgbox jx(20)
运行一下上面的程序，输出2.43290200817664E+18。笑而不语，再次证明了我之前的结论，在这种网站上回答问题的，大部分水平都不咋地。
其实之前在《用VBS精确计算2的100次方》我已经写过了VBS的大数乘法，调用一下就行了：
代码如下:
'Author: Demon
'Website: http://demon.tw
'Email: 380401911@qq.com
Option Explicit
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
Function factorial(n)
Dim i, t : t = 1
For i = 1 To n
t = multiple(t, i)
Next
factorial = t
End Function
Dim t : t = Timer
WScript.Echo factorial(100)
WScript.Echo Timer - t
另外，dogfish也写了一个求1000阶乘的VBS：
代码如下:
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
不过，能写出这样的程序的人，不会无聊到去回答搜搜问问的问题吧。
原文:http://demon.tw/programming/vbs-factorial.html
相关推荐
-
java阶乘计算获得结果末尾0的个数代码实现
看到题目后,分析了下, 10的阶乘就已经很大了.计算出来再得到这个末尾的0的个数,完全不现实,即使实现了也是很麻烦的. 后来想某个数的阶乘中乘积有5结尾的数字的时候就应该在结果的末尾产生一个0. 付诸实现,测试了几个, 没出错. 贴出来, 大家看看, 有问题了及时指教: 复制代码 代码如下: /** * 求1000~10000之间的数n的阶层并计算所得的数n!末尾有多少个0? */ public static void test2(int number){ i
-
从阶乘函数对比Javascript和C#的异同
JavaScript代码块 复制代码 代码如下: <script type="text/javascript"> function factorial(num) { if (num <= 1) { return 1; } else { return num * arguments.callee(num - 1); } } var trueFactorial = factorial; factorial = function () { return 0; } alert
-
求1000阶乘的结果末尾有多少个0
素数是个科学计算中很重要的一个概念,素数也叫质数.素数就是最纯净的数,没有任何其它成分的数,其它的数都可以说是由素数相乘出来的. 所以,理解好素数,对于数学和程序来说,有重要的意义. 题目是:求1000!的结果末尾有多少个0 复制代码 代码如下: 1000! = 1×2×3×4×5×...×999×1000 复制代码 代码如下: public static void main(String[] args) { /*1000的阶乘已经是天文数字了,所以不可能计算出来,再看有多少个0*/ /* 解题
-
C++求阶乘的两种方法
1.使用静态局部变量static静态局部变量在函数调用结束之后不消失而保留原值,即其占用的存储单元不释放,在下一次该函数调用时,该变量保留上一次函数调用结束时的值. 静态局部变量赋初值实在编译时进行的,即只赋初值一次,在程序运行时它已有初值. code: 复制代码 代码如下: #include<iostream>using namespace std;int fac(int n){ static int f=1; f=f*n; return f;}int main(){ int i; for(
-
C语言 实现N阶乘的程序代码
代码如下所示: 复制代码 代码如下: #include <stdio.h>#include <stdlib.h>#define N 10 //算N的阶乘int main(){ //数组 1位 1! int ary[N] = {1, 1}; int i, j; for (i = 2; i <= N; i++) { //各个下标的阶乘,第0位下标是位数,所以从第1位开始 for (j = 1; j <= a
-
C# 实现阶乘 (递归,非递归) 实现代码
//Main: 复制代码 代码如下: using System;using System.Collections.Generic;using System.Linq;using System.Text; namespace Factorial{ class Program { static void Main(string[] args) { Function obj = new Function(); Cons
-
千万不要被阶乘吓倒
阶乘(Factorial)是个很有意思的函数,但是不少人都比较怕它,我们来看看两个与阶乘相关的问题: 1. 给定一个整数N,那么N的阶乘N!末尾有多少个0呢?例如:N＝10,N!＝3 628 800,N!的末尾有两个0.2.求N!的二进制表示中最低位1的位置. 有些人碰到这样的题目会想:是不是要完整计算出N!的值?如果溢出怎么办?事实上,如果我们从"哪些数相乘能得到10"这个角度来考虑,问题就变得简单了.首先考虑,如果N!= K×10^M,且K不能被10整除,那么N!末尾有M个0.再考
-
c++大数阶乘的实现方法
C++代码如下: #include <algorithm>#include <vector>#include <cstdio>using namespace std;typedef unsigned int Type;enum{ BASE_DATA = 10000, MAX_NUM = 100000 , MAX_SIZE = MAX_NUM+1000};struct MulOpt {Type data1;MulOpt(Type x):data1(x){}inline
-
算阶乘的vbs小程序
dim n,ans,i n=inputbox("n(0<=n<=170)=") ans=1 for i=1 to n ans=ans*i next msgbox(ans)
-
ASP.NET递归法求阶乘解决思路
前台: 复制代码 代码如下: <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox> !<asp:Button ID="Button1" runat="server" onclick="Button1_Click" Text="=" /> <asp:TextBox ID="Tex