UC知道vbscript 组合问题
来源：百度知道 编辑：UC知道 时间：2024/06/15 19:48:27
下面是我的程序，不知道哪儿错了，点提交不管事。帮忙看下。
如果程序有很大毛病，麻烦写一个能行的。
注：必须要用fuction power()
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>组合问题</title>
</head>
<body>
<form name="register" action="5.asp"
method="get">
<B></B> m:
<input type="text" name="text1">
n:
<input type="text" name="text2">
<input type="submit" name="Submit" value="提交">
</form>
<%
function Power(n)
m=text1.value
n=text2.value
if n=1 then
Result=m
end if
if n=2 then
result=m*(m-1)
end if
if n-2>0 then
for i =1 to n-1
temp=m*(m-i)
Result=Result*temp
next
if n-2=1 then
num=m
else
for j=
如果程序有很大毛病，麻烦写一个能行的。
注：必须要用fuction power()
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>组合问题</title>
</head>
<body>
<form name="register" action="5.asp"
method="get">
<B></B> m:
<input type="text" name="text1">
n:
<input type="text" name="text2">
<input type="submit" name="Submit" value="提交">
</form>
<%
function Power(n)
m=text1.value
n=text2.value
if n=1 then
Result=m
end if
if n=2 then
result=m*(m-1)
end if
if n-2>0 then
for i =1 to n-1
temp=m*(m-i)
Result=Result*temp
next
if n-2=1 then
num=m
else
for j=
嗯，我帮你编写。。
代码：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>组合问题</title>
</head>
<body>
<%
Function fac(n)'n阶乘
fac=1
For i=1 to n
fac=fac*i
Next
End Function
Function cmn(m,n)'m个中选n个的组合
cmn=fac(m)/(fac(n)*fac(m-n))
End Function
if request("submit")<>"" then
m=cint(request("m"))
n=cint(request("n"))
if m < n then
response.write "m必须大于n"
else
response.write m&"个中选"&n&"个的组合cmn="&cmn(m,n)
end if
end if
%>
<p>
计算组合：m个中选n个的组合<br>
<form name="register" action="" method="post">
<B></B> m:
<input type="text" name="m" val