繁體中文
当前位置：首页 > 信息世界 > 程序源码 > 详细内容
『vb』求两个正整数m和n的最大公约数
发布时间：2009/7/5  阅读次数：2600  字体大小: 【小】 【中】【大】

最大公约数
private sub form_click()
dim m as integer,n as integer,r as integer
m=val(inputbox("输入正整数m的值"))
n=val(inputbox("输入正整数n的值"))
r=m mod n
while r<>0
m=0
n=r
r=m mod n
wend
print"最大公约数为：";n
end sub

最小公倍数
private sub form_click()
dim m as integer,n as integer,r as integer，h as integer,x as integer
m=val(inputbox("输入正整数m的值"))
n=val(inputbox("输入正整数n的值"))
h=m*n
r=m mod n
while r<>0
m=0
n=r
r=m mod n
wend
x=h/n
print"最小公倍数为：";x
end sub

上一篇：『vb』求3~100之间的素数 下一篇：『vb』求1+2+3+…+100的总和
我要评论
  • 匿名发表
  • [添加到收藏夹]
  • 发表评论：(匿名发表无需登录，已登录用户可直接发表。) 登录状态：未登录
最新评论
所有评论[0]
    暂无已审核评论!
本栏最新发布
本栏热门信息
 
 版权声明     关于本站      在线留言       登陆管理      个人博客   
 『辰桦网络』. All Rights Reserved
Station construction time: on April 4, 2006