展开全部
你双击右边的那个文本框，在其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
表单运行时，在两个文本框中输入数以后，你用鼠标单击右边的文本框就能执行。
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
表单运行时，在两个文本框中输入数以后，你用鼠标单击右边的文本框就能执行。
更多追问追答
追问
貌似不对啊，亲
追答
绝对是对的！
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
