用VB编程：求两个整数的最小公倍数。
答案:3 悬赏:80 手机版
解决时间 2021-03-08 08:26
- 提问者网友：最美的风景
- 2021-03-07 14:39
用VB编程：求两个整数的最小公倍数。
最佳答案
- 五星知识达人网友：長槍戰八方
- 2021-03-07 15:05
没太多的时间修改,给你个例子:
方法简述：最小公倍数等于两个正整数相乘再除以两个正整数的最大公约数（即a*b/g）。说明求两个正整数最大公约数，自己查找。
vb程序代码如下：
Private Sub Command1_Click()
Dim m As Integer, n As Integer
Dim g As Integer
dim t1 as integer,t2 as integer
m = InputBox("第一个数")
n = InputBox("第二个数")
t1=m 't1,t2是临时变量
t2=n
g = IIf(m < n, m, n)
Do While g > 1
If m Mod g = 0 And n Mod g = 0 Then Exit Do
g = g - 1
Loop
Print m & "与" & n & "的最小公倍数为：" & (t1*t2)/g
End Sub
方法简述：最小公倍数等于两个正整数相乘再除以两个正整数的最大公约数（即a*b/g）。说明求两个正整数最大公约数，自己查找。
vb程序代码如下：
Private Sub Command1_Click()
Dim m As Integer, n As Integer
Dim g As Integer
dim t1 as integer,t2 as integer
m = InputBox("第一个数")
n = InputBox("第二个数")
t1=m 't1,t2是临时变量
t2=n
g = IIf(m < n, m, n)
Do While g > 1
If m Mod g = 0 And n Mod g = 0 Then Exit Do
g = g - 1
Loop
Print m & "与" & n & "的最小公倍数为：" & (t1*t2)/g
End Sub
全部回答
- 1楼网友：酒者煙囻
- 2021-03-07 16:57
才5分。。算了
- 2楼网友：笑迎怀羞
- 2021-03-07 15:24
求出两个数的最小公倍数函数：
Function Min公倍数(A As Long, B As Long)
Dim X As Long, Y As Long, K As Long, 最大公约数 As Long
X = IIf(A >= B, A, B) 'x存入最大值
Y = IIf(A <= B, A, B) 'y 存入最小值
Do '辗转相除法
K = X Mod Y: If K = 0 Then Exit Do
X = Y: Y = K
Loop
最大公约数 = Y
Min公倍数 = A * B / 最大公约数
End Function
Function Min公倍数(A As Long, B As Long)
Dim X As Long, Y As Long, K As Long, 最大公约数 As Long
X = IIf(A >= B, A, B) 'x存入最大值
Y = IIf(A <= B, A, B) 'y 存入最小值
Do '辗转相除法
K = X Mod Y: If K = 0 Then Exit Do
X = Y: Y = K
Loop
最大公约数 = Y
Min公倍数 = A * B / 最大公约数
End Function
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯