搜索
首页 电脑/网络 互联网

用vfp编写的计算器代码

全部回答

2005-11-13

0 0

    1)【提示】 操作步骤:1)【提示】 操作步骤:第一步:向表单添加文本框和命令组控件,分别设置命令按钮的Caption属性,在对命令按钮"="的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 casecase lue=1t=t+"1" lue=tcase lue=2t=t+"2" lue=tcase lue=3t=t+"3" lue=tcase lue=4t=t+"4" lue=tcase lue=5t=t+"5" lue=tcase lue=6t=t+"6" lue=tcase lue=7t=t+"7" lue=tcase lue=8t=t+"8" lue=tcase lue=9t=t+"9"thisfo lue=tcase lue=10t=t+"0" lue=tcase lue=11t=t+"*" lue=tcase lue=12t=t+'+' lue=tcase lue=13t=t+'-' lue=tcase lue=14 lue=alltrim(str(&t,20,6)) && 宏替换T将得到数值表达式计算结果,20与6可以自己根据需要确定case lue=15t='' lue=tendcase fresh第四步:当输入的表达式错误时,将引发命令组的Error事件,编写命令组的Error事件代码: lue="运算式错误"。

类似问题换一批

热点推荐

热度TOP

相关推荐
加载中...

热点搜索 换一换

电脑/网络
互联网
程序设计
电脑装机
操作系统/系统故障
硬件
笔记本电脑
百度
反病毒
软件
互联网
互联网
QQ
上网帮助
网站推荐
举报
举报原因(必选):
取消确定举报