教甄◆電腦科專業題庫

【非選題】
(四)、請以 VB 遞迴程式的方式寫出一程式,可以求出x,y兩個>0整數 的最大公因數及最小公倍數。12%
編輯私有筆記及自訂標籤
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