x = Val(InputBox("请输入第一个数"))
y = Val(InputBox("请输入第一个数"))
If x < y Then temp = x: x = y: y = temp
Do
     r = x Mod y
     x = y
     y = r
Loop While r <> 0
Print x