vfp表单计算

来源：百度知道 编辑：UC知道 时间：2024/06/08 14:29:35
要求在该表单的文本框Text1中输入正整N的值后单击“计算”命令按钮能计算出N！并输出至表单的文本框Text2中，单击“退出” 命令按钮关闭表单。请完成“计算”和“退出”命令按钮的代码图片：
谢谢啦
计算的不行啊，提示操作符/操作数类型不匹配

改成这样：

sum=1
for i=1 to val(thisform.text1.value)
sum=sum*i
endfor
thisform.text2.value=int(sum)
thisform.text2.refresh

计算代码
if thisform.text1.value<=0
=messagebox("请输入正整数!",48,"提示信息")
return
endif
sum=1
for i=1 to thisform.text1.value
sum=sum*i
endfor
thisform.text2.value=sum
thisform.text2.refresh
退出代码
thisform.release
quit &&代表退出VFP,不加就只退出表单