vfp计算器程序那里错了

来源：百度知道 编辑：UC知道 时间：2024/05/16 12:08:00
命令组的代码（包括加、减、乘、除、小数点和数字）
IF THISFORM.Tag=.T.
THISFORM.Text1.Value=ALLT(RIGHT(STR(THISFORM.Value),1))
THISFORM.Tag=" "
ELSE
a=THISFORM.Text1.Value
THISFORM.Text1.Value=a+ALLT(RIGHT(STR(THISFORM.Value),1))
ENDIF
总显示操作符和操作类型不相符
(3)编写程序代码。
①编写CommandGroup1的Click事件代码：
IF THISFORM.Tag=.T.
THISFORM.Text1.Value=ALLT(RIGHT(STR(THIS.Value),1))
THISFORM.Tag=〃 〃
ELSE
a=THISFORM.Text1.Value
THISFORM.Text1.Value=a+ALLT(RIGHT(STR(THIS.Value),1))
ENDIF
②编写“.”按钮Command11的Click事件代码：
a=THISFORM.Text1.Value
THISFORM.Text1.Value=a+〃.〃
③编写“=”按钮Command12的Click事件代码：
a=THISFORM.Text1.Value
THISFORM.Text1.Value=ALLT(STR(&a))
THISFORM.Tag=.T.
④编写“+”按钮Command13的Click事件代码：
a=THISFORM.Text1.Value
THISFORM.Text1.Value=a+〃+〃
THISFORM.Tag=〃 〃
⑤编写“-”按钮Command14的Click事件代码：
a=THISFORM.Text1.Value
THISFORM.Text1.Value=a+〃-〃
TH

看不懂你的设置意图。
THISFORM.Value？THISFORM没有Value属性，
--------------------------
ALLT(RIGHT(STR(THIS.Value),1)) ???
====================================
text1你是用用计算用的，应设置在数值型，在设计时设置Value=0；
在后面使用时也要按数值型使用。
象下面这句：
THISFORM.Text1.Value=ALLT(RIGHT(STR(THIS.Value),1))
等号前是数值型，等车后是字符型，当然类型不相符！