一个简单的计算器
　　选择“新建”表单，进入表单设计器，增加一个文本框控件Textl、一个标签控件Label1和一个命令按钮组CommandGroup1,并将命令按钮组的ButtonCount属性改为16。
　　(2)设置对象属性如下表所示：
　　CommandGroup1中各按钮的属性设置
　　对象 属性 属性值 说明
　　Command1～Command10 Caption 依次改为：1、2、3、4、5、6、7、8、9、0
　　FontBold .T.
　　Command11～Command10 Caption 依次改为：.、=、+、-、*、/
　　FontBold .T.
　　(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+"-"
　　THISFORM.Tag=""
　　⑥编写“*”按钮Command15的Click事件代码：
　　a=THISFORM.Text1.Value
　　THISFORM.Text1.Value=a+"*"
　　THISFORM.Tag=""
　　⑦编写“/”按钮Command16的Click事件代码：
　　a=THISFORM.Text1.Value
　　THISFORM.Text1.Value=a+"+"
　　THISFORM.Tag=""
我还在按钮0~~9这十个数字添加了下面这个单击事件：
a=THISFORM.Text1.Value
THISFORM.Text1.Value=a+"0"（这个0是0~9的数字中的一个。1~9我就没放上来！）

我刚刚学VFP。那位大师指点下好吗？上面这个代码不能运行！结果是出来了，但弹出一个对话框说此数据类型无效！还有就是当我输入超过1位数字的时候，除第一个数字以外，后面的数字就看不见，要用光标移过去才能看见。