噢噢...這個程式怎麼寫??!

Question

約成最簡分數
例如:9/18變成1/2
怎麼用vb寫出來呀??

Answer 1

Private Sub Command1_Click()    Dim N As Long        '先找出最大公因數    N = GCD(9, 18)    '輸出    Print "9 / 18 ="; 9 / N; "/"; 18 / NEnd SubFunction GCD(ByVal A1 As Long, ByVal A2 As Long) As Long '最大公因數副函數    Dim T As Long        Do While A1 Mod A2      T = A1 Mod A2: A1 = A2: A2 = T    Loop    GCD = A2End Function