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