来源:作者: 发布时间:2007-11-09 05:14:02

求最大公约数和最小公倍数
<%
cala=Request.form("cala")
if cala="y" then
a=Request.form("mynuma")
b=Request.form("mynumb")
if a
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 & " "
end if
%>
|
还没有关于此文章的相关评论!