早教吧作业答案频道 -->其他-->
如何使用vb求两个数的最大公约数和最小公倍数
题目详情
如何使用vb求两个数的最大公约数和最小公倍数
▼优质解答
答案和解析
最大公约数
m = InputBox("输入第一个自然数")
n = InputBox("输入第二个自然数")
If m < n Then t = m: m = n: n = t
r = m Mod n
Do While (r <> 0)
m = n
n = r
r = m Mod n
Loop
End if
MsgBox ("最大公约数为" & n)
最小公倍数
Dim a%, b%, m%
a = InputBox("第一个数")
b = InputBox("第二个数")
For m = b To 1 Step -1
If a Mod m = 0 And b Mod m = 0 Then
Exit For
End If
Next
m = a * b / m
MsgBox "最小公倍数是" + CStr(m)
m = InputBox("输入第一个自然数")
n = InputBox("输入第二个自然数")
If m < n Then t = m: m = n: n = t
r = m Mod n
Do While (r <> 0)
m = n
n = r
r = m Mod n
Loop
End if
MsgBox ("最大公约数为" & n)
最小公倍数
Dim a%, b%, m%
a = InputBox("第一个数")
b = InputBox("第二个数")
For m = b To 1 Step -1
If a Mod m = 0 And b Mod m = 0 Then
Exit For
End If
Next
m = a * b / m
MsgBox "最小公倍数是" + CStr(m)
看了 如何使用vb求两个数的最大公...的网友还看了以下:
翻译(急)灵公好妇人而丈夫饰者.国人尽服之.公使吏禁之曰:"女子而男子饰者,裂其衣,断其带."裂衣 2020-05-13 …
灵公好妇人而丈夫饰者.国人尽服之.公使史禁之曰:"女子而男子饰者,裂其衣,断其带.''裂衣断带,相 2020-05-20 …
文言文禁何以止出自《晏子春秋·内篇杂下第一》:灵公好妇人而丈夫饰者.国人尽服之.公使吏禁之.曰、女 2020-06-05 …
看短文回答问题秦穆公使贾人载盐,微诸贾人.贾人买百里奚以五羖羊之皮,使将车之秦.秦穆公观盐,见百里 2020-06-11 …
△x=aT²此公式如何用这个公式怎么用,△x指的是什么?以前一直用平均公式做现在貌似发现了一个好东西 2020-11-01 …
用若干个大小相同的小立方体搭一个几何体,使得从正面和从上面看到的这个几何体的形状如图所示.用若干个大 2020-11-11 …
怎样量出4公升的水?有一个人到河边打水,他只带了两个没有任何测量刻度的不规则形状的容器,但是知道这两 2020-12-08 …
怎样量出4公升的水?有一个人到河边打水,他只带了两个没有任何测量刻度的不规则形状的容器,但是知道这两 2020-12-08 …
依法行使权利观察如图漫画,回答下列问题.(1)微博(网络)举报是公民在行使什么权利?(2)除此之外, 2021-01-05 …
任何公民在依法行使自己的民主权利、维护自身合法权益的同时,必须自觉维护法律尊严,认真履行公民应尽义务 2021-01-12 …