請問最大公因數的vb程式要怎麼寫??

Question

如何用vb 6.0 寫最大公因數跟最小公倍數的程式
想不出來..請大大指點一下

好複雜阿@"@
有簡單點的寫法嗎?我還是新手....

Answer 1

Private Sub Command1_Click()'求15 & 60 之最大公因數及最小公倍數Print GCD(15, 60)Print GCM(15, 60)End Sub'最大公因數Function GCD(ByVal S1 As Long, ByVal S2 As Long) As LongDim T As LongDo While S1 Mod S2 <> 0  T = S1 Mod S2: S1 = S2: S2 = TLoopGCD = S2End Function'最小公倍數Function GCM(ByVal S1 As Long, ByVal S2 As Long) As LongGCM = S1 * S2 / GCD(S1, S2)End Function

Answer 2

到我的部落格看看吧！

不知道在哪裡，就看自我介紹的地方不就有了。