注：文章内容来源于网络，真实性有待确认，请自行甄别。
用vfp编写的计算器代码
发表于：2024-10-24 00:00:00浏览：4次
问题描述：用vfp编写的计算器代码
1)【提示】 操作步骤：1)【提示】 操作步骤：第一步：向表单添加文本框和命令组控件，分别设置命令按钮的aption属性，在对命令按钮"="的Caption属性设置时，不能在其属性窗口中直接输入半角的"="，否则提示语法错误。可以输入全角"＝"或在表单FROM1的Init事件中，输入如下代码完成： for i=1 to 10 mandgroup1.buttons(i).caption=alltrim(str(i))endfor mandgroup1.buttons(11).caption="*" mandgroup1.buttons(12).caption="+" mandgroup1.buttons(13).caption="-" mandgroup1.buttons(14).caption="=" mandgroup1.buttons(15).caption="C"第二步：在表单FORM1的Init事件中定义全局变量T，并赋初值空串PUBLIC T=''第三步：编写命令组的Click事件代码，完成接收输入的表达式：do casecase lue=1t=t+"1" lue=tcase lue=2t=t+"2" lue=tcase lue=3t=t+"3" lue=tcase lue=4t=t+"4" lue=tcase lue=5t=t+"5" lue=tcase lue=6t=t+"6" lue=tcase lue=7t=t+"7" lue=tcase lue=8t=t+"8" lue=tcase lue=9t=t+"9"thisfo lue=tcase lue=10t=t+"0" lue=tcase lue=11t=t+"*" lue=tcase lue=12t=t+'+' lue=tcase lue=13t=t+'-' lue=tcase lue=14 lue=alltrim(str(&t,20,6)) && 宏替换T将得到数值表达式计算结果,20与6可以自己根据需要确定case lue=15t='' lue=tendcase fresh第四步：当输入的表达式错误时，将引发命令组的Error事件，编写命令组的Error事件代码： lue="运算式错误"