学时安排： 实验教学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=""