请教一下通分母的算法--------------------在线等待

Question

最小公倍数的求法我大该想了一下,估计不是最好的算发,但是应该可以由于我初学vb,所以就不写程序现丑了,说一个大概思路吧先比较b,d.比如b>d然后
for i=1 to d
如果i*b的 余数(是不是用mod啊)=0的话就求出来了,最小公倍数就是i*b,否则就是b*d
next i

Answer 1

晕。用下面两个函数就行int gcd(int a, int b)   // 最大公约数
{
 if ( b == 0 ) return a;
 else return gcd(b, a%b);
}int lcm(int a, int b)  //最小公倍数
{ 
 return a*b/gcd(a, b);
}

Answer 2

啊!原来有直接可以用的函数啊!
简直是欺负我这样的初学者啊!
我还特意写了一个,还是贴上来吧,希望大家指正.Option Explicit
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim i As Integer
Sub gongbeishu()
a = Val(t1.Text)
b = Val(t2.Text)
If a = 0 Or b = 0 Then
MsgBox ("请输入数据!")
Exit Sub
End If
If a > b Then
c = b
b = a
a = c
End If
For i = 1 To a
  If (i * b) Mod a = 0 Then Exit For
Next i
l3.Caption = i * b
End Sub
Private Sub Command1_Click()
gongbeishu
End SubPrivate Sub Form_Load()
t1.Text = "0"
t2.Text = "0"
End Sub哈哈,我也很厉害吧!

Answer 3

谢谢frman() 和coward_c(车轴草)
前者用递归法虽然简洁明了，但对于我这个VB新手来说，想把它转换成VB语言还得仔细研究，不过幸好coward_c(车轴草)已经写出来比较容易看得懂的。