測驗達人

susan
博一上
54270次
司法特考錄..
高二下
53569次
魯筱筱
研二下
44616次
(+20次)
Cyril..
研二上
38297次
(+11次)
錄事考試
小六下
25910次

教甄◆電腦科專業題庫

【非選題】(四)、請以 VB 遞迴程式的方式寫出一程式,可以求出x,y兩個>0整數 的最大公因數及最小公倍數。12%

#13650
編輯私有筆記
1F
sofi1030 國二下 (2015/05/02 14:11):
Function Big(a as integer,b as integer) as integer if b = 0 then Big = a else t = a mod b Big=Big(b, t) end if End Function Private Sub main() Dim x, y,small as Integer small = x * y / Big(x,y) End Sub