VBScript求两个数的最小公倍数,大数翻倍法;求两个数的最大公约数,辗转相除法.麻烦帮我看看那里错了!谢谢!最小公倍数代码如下: 两个数的最小公倍数 //以上行不需要修改function gbs(k,h) i=1

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/23 12:31:51
VBScript求两个数的最小公倍数,大数翻倍法;求两个数的最大公约数,辗转相除法.麻烦帮我看看那里错了!谢谢!最小公倍数代码如下:两个数的最小公倍数//以上行不需要修改functiongbs(k,h

VBScript求两个数的最小公倍数,大数翻倍法;求两个数的最大公约数,辗转相除法.麻烦帮我看看那里错了!谢谢!最小公倍数代码如下: 两个数的最小公倍数 //以上行不需要修改function gbs(k,h) i=1
VBScript求两个数的最小公倍数,大数翻倍法;求两个数的最大公约数,辗转相除法.麻烦帮我看看那里错了!谢谢!
最小公倍数代码如下:


两个数的最小公倍数

//以上行不需要修改
function gbs(k,h)
i=1
//修改下行
If h > k Then
h=h:k=k
Else
k=h:h=k
End if
r=k mod h
//修改下行
Do While r 0
h=k
k=r
i=i+1:r=(k*i) mod h
loop
gbs=k*i
End function
//以下行不需要修改



求两个数的最小公倍数

请输入两个自然数:








sub Button1_onClick()
l=Text1.value : m=Text2.value
If not IsNumeric(l) and IsNumeric(m) Then
MsgBox " 您输入的不是数值数据. ", 16 ," 最小公倍数 "
Elseif l*m=0 or l

VBScript求两个数的最小公倍数,大数翻倍法;求两个数的最大公约数,辗转相除法.麻烦帮我看看那里错了!谢谢!最小公倍数代码如下: 两个数的最小公倍数 //以上行不需要修改function gbs(k,h) i=1
没错啊