求它们的最大公约数和最小公约数倍数。谁能用VB帮我编译一个最小公约数倍数 程序?最小公约数倍数是:第一个数*第二个数/两个数的最大公约数,让它找出任意n个数中最不常见的倍数?利用vb教程求最小公约数倍数最大公约数私有子命令1 _ click()马頔aslon。
最大公约数函数getgcd (num1aslong,num 2 aslong)aslongdamiaslongforiif(num 1 tenthencallqiujie(m,n)elseifmbthenca:ab:bcdountilb 1 mode a10 CB 1 moda 1 B1 a1 coolop print最大公约数,
a * b/a1结束Sub .设两个数A和B为1,先求最大公约数:去掉两个数的模,若B能除A,则为这两个数的最大公约数(如6和3的最大公约数为3),否则调用GCD (a,b) GCD (B,AMODB)。比如求58和8的最大公约数:GCD(。