vb 分数约分

fz=分子
fm=分母

fz1 = fz: fm1 = fm

DO '辗转相减法求最大公约数
IF fz1 < fm1 THEN fm1 = fm1 - fz1
IF fz1 > fm1 THEN fz1 = fz1 - fm1
LOOP UNTIL fz1 = fm1

fz = fz / fz1
fm = fm / fm1

Msgbox fz; "/"; fm '此处的FZ为约分后的分子,FM为分母
REM This program is from zona1993@gmail.com