vfp中,怎么用表单求两个数的最大公约数和最小公倍数

你双击右边的那个文本框,在其click事件中输入程序代码
a=val(allt(thisform.text1.value))
b=val(allt(thisform.text1.value))
for m=min(a,b) to 1 step -1
if a%m=0 and b%m=0
exit
endif
endfor
thisform.label1.caption="两个数的最大公约数是："+allt(str(m))
thisform.label2.caption="两个数的最小公倍数是："+allt(str(a*b/m))
thisform.refresh
表单运行时,在两个文本框中输入数以后,你用鼠标单击右边的文本框就能执行.