VBScript求两个数的最小公倍数,大数翻倍法;求两个数的最大公约数,辗转相除法.麻烦帮我看看那里错了!谢谢!

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