最大公约数和最小公倍数vb代码如何写？

Question

如题所述

Answer 1

全部程序如下：
function gys(a as integer,b as integer) as integer
dim i as integer,j as integer,r as integer
i=a
j=b
do while i mod j=0
r=i mod j
i=j
j=r
loop
gys=j
end function
function gbs(dim a as integer,b as integer) as integer
dim r as integer
r=gys(a,b)
gbs=a*b/r
end function
Private Sub form1_Click()
dim a as integer,b as integer,c as integer,d as integer
a= Val(inputbox("输入第一个整数","输入"，50))
b= Val(inputbox("输入第二个整数","输入"，75))
c=gys(a,b)
d=gbs(a, b)
print a;"与";b;"的最大公约数是：";c
print a;"与";b;"的最大公倍数是：";d
End Sub
就是这些。
有什么问题请留言。

Answer 2

一般情况下的话我觉得关于这个代码的话可以给我从个人中心主页里面去协调书写就象我觉得一般情况好的话性价比还是非常不错的说说大家可以直接进行加速谢谢就可以了本回答被网友采纳