VB程序,编写一个用辗转相除法,求俩自然数m、n的最大公约数和最小公倍数.
题目
VB程序,编写一个用辗转相除法,求俩自然数m、n的最大公约数和最小公倍数.
用DO……LOOP循环语句
答案
Private Sub command1_click()
Dim m As Integer,n As Integer
Dim a As Integer,b As Integer
Dim r As Integer
m = InputBox("输入m")
n = InputBox("输入n")
a = m
b = n
Do
r = Abs(m - n)
m = n
n = r
Loop While m n
Print a; "和"; b; "最大公约数是"; r
Print a; "和"; b; "最小公倍数是"; a * b / r
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 丝绸之路河西走廊上的水从哪里来
- 英语翻译
- 可用于生物脱墨的酶有哪些种类
- 1,5,13,29,后面一个数是?
- 给宇航员的一封信(小学一年级)
- 2002年8月在北京召开的国际数学大会会标取材于我国古代数学家赵爽的《勾股圆方图》,它是由四个全等的直角三角形与中间的小正方形拼成的一个大正方形(如图),如果大正方形的面积
- 定积分应用问题
- 数轴上A点表示—5,B、C两点所表示的数互为相反数,且点B到点A的距离为4,求点B和点C各对应什么数?•
- as a fact与as a matter of fact 区别,
- 已知x=-2时,分时x-b/x+a无意义;x=4时,此时分式值为0
热门考点