有谁能提供vbs里20的阶乘的详细程序

最佳答案
本回答由提问者推荐

laisean 7级
2011-03-30 回答

function jx(x)

  j=1

  for i=2 to x

    j=j*i

  next

  jx=j

end function

msgbox jx(20)

 

追问:
这是关键的部分,可是之前的怎么写呢,像<html>那些之类的
追答:

问题要表达清楚啊!

<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>阶乘计算</title> <script language="vbscript"> function jx(x)   j=1   for i=2 to x     j=j*i   next   jx=j end function </script> </head>

<body> <input name="jcs" type="text" id="jcs" size="10" maxlength="10"> 的阶乘 <input name="Submit" type="submit" onClick="jcjg.value=jx(jcs.value)" value="等于"> <input name="jcjg" type="text" id="jcjg"> </body> </html>