求最大公约数和最小公倍数
作者：johnsun
来源：
日期：2002-6-12
<div align="center"><font color="#FF0000"><b>求最大公约数和最小公倍数
</b></font><b></b> </div>
<%
cala=Request.form("cala")
if cala="y" then
a=Request.form("mynuma")
b=Request.form("mynumb")
if a<b then
t=a
a=b
b=t
end if
aa=a
bb=b
Do
temp=aa mod bb
aa=bb
bb=temp
Loop while (bb<>0)
Response.Write a & "和" & b & "的整大公约数是：" & aa & "; 它们的最小公倍数
是：" & a*b/aa & "<br>"
end if
%>
<form method="post" action="<%=Request.ServerVariables("Script_Name")%>">
两个整数（求它们的最大公约数和最小公倍数）
<input type="text" name="mynuma">
<input type="text" name="mynumb">
<input type=hidden name=cala value=y>
<input type="submit" name="Submit" value="提交">
</form>
