最大公约数do until a=bif a>b thena=a-belseif b>a thenb=b-aend ifloopmsgbox (a)最小公倍数c = a22:If a Mod b = 0 Or b Mod a = 0 ThenIf a > b ThenMsgBox(a)ElseMsgBox(b)End IfElsea = a + cGoTo 22End If辗...