学时安排： 现实训诲1学时。

现实指标：

使用表单打算器，打算一个能达成四则运算的筹办器。

现实条款：1. 每东说念主一机，孤苦完成现实。2. 每次现实完成将着力存入我方的U盘，或上传至信息中心个东说念主聚集U盘中保存。

现实征战：硬件建立：筹办机现实训诲示范中神思房筹办机。软件建立：Windows操作系统，Visual Foxpro6.0系统。

现实本色及门径：

1．诞生阁下步调用户界面。　　采选“新建”表单，参加表单打算器，增多一个文本框控件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事件代码：x=this.value

if x=10

  x=0

endif

IF THISFORM.Tag="t"

  THISFORM.Text1.Value=ALLT(STR(x))

  THISFORM.Tag=""

ELSE

  a=THISFORM.Text1.Value

  THISFORM.Text1.Value=a+ALLT(STR(x))

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=""