求最大公约数和最小公倍数

<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>

原文转自：http://www.ltesting.net