假唱大比拼第二季歌单:vb 分数约分
来源:百度文库 编辑:查人人中国名人网 时间:2024/05/15 11:31:37
在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