水月洞天之豆豆怀孕:vb 分数约分
来源:百度文库 编辑:高校问答 时间:2024/04/28 03:19:59
在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