VF编程问题任意输入两个数,求最大公约数.

clear
input "请输入第1个数：" to a
input "请输入第2个数：" to b
c=min(a,b)
do while c>0
if a%c=0 and b%c=0
s=c
exit
endif
c=c-1
enddo
?"它们的最大公约数是：",s