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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/02 18:13:54
vfp中,怎么用表单求两个数的最大公约数和最小公倍数第四题

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

第四题

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
表单运行时,在两个文本框中输入数以后,你用鼠标单击右边的文本框就能执行.