1、第 1部分PART实 验实验 1 Visual FoxPro 6.0 集成开发环境实验目的（1）熟悉 Visual FoxPro 的集成开发环境。（2）掌握主窗口、菜单、工具栏和命令窗口的使用方法。（3）掌握查找帮助主题的方法。实验准备（1）熟悉操作系统环境和基本操作。（2）复习教程中 Visual FoxPro 6.0 集成开发环境内容。实验内容1. Visual FoxPro 6.0 的启动单击“开始”“程序”“Microsoft Visual FoxPro”“Microsoft Visual FoxPro 6.0”。2. 菜单项、快捷键和工具栏按钮的操作 单击“文件”菜单，系统显示文件菜
2、单项，选择“新建（N）Ctrl+N”菜单项，出现“新建”对话框。选择“取消” 。 直接按 Ctrl+N，系统出现 “新建”对话框，选择“取消” 。说明这个快捷键与上述新建菜单项操作功能相同。 选择“常用”工具栏“新建”按钮，系统也出现“新建”对话框，选择“取消” 。说明工具栏的这个按钮与上述新建菜单项操作功能相同。浏 览 整 个 Visual FoxPro 系 统 菜 单 ， 了 解 各 菜 单 中 的 菜 单 项 。 熟 悉 各 种 菜 单 项 的 操 作 方法。3. 工具栏的操作（1）打开工具栏Visual FoxPro 实训2打开工具栏有两种方法。具体操作如下： 单击“显示”菜单，单击“
3、工具栏”菜单项，弹出“工具栏”对话框，在该菜单中进行选择。如图 1.1 所示。 将鼠标光标指向任一工具栏区域后，单击鼠标右键，出现工具栏快捷菜单，在该菜单中进行选择。如图 1.2 所示。（2）查看工具栏按钮的功能将鼠标光标在“常用”工具栏第 1 个按钮上停留片刻，将会显示“新建”功能提示。按钮的功能提示可以取消，只要在如图 1.1 所示“工具栏”对话框中，取消对“工具提示（P） ”复选框的选择即可。图 1.1 打开工具栏对话框 图 1.2 打开工具栏快捷菜单（3）改变工具栏的位置启动 Visual FoxPro（简称 VFP）后，系统默认将“常用”工具栏位于主窗口的顶部。将鼠标光标指向该工具栏
4、的非按钮位置，拖动工具栏到主窗口的任意位置。拖动工具栏在主窗口的四周，该工具栏成一条带。如果拖放到主窗口中间的任何位置，则工具栏成为浮在主窗口上面的“浮动”工具栏，窗口标题即为工具栏的名称。拖放工具栏窗口的边或角可以改变其形状。双击“浮动”工具栏窗口的标题栏，工具栏会移到主窗口顶部。4. 命令窗口的使用命令窗口是用户直接输入 VFP 命令的窗口。（1）命令窗口的打开和关闭进入 VFP 后，命令窗口处于打开状态，单击命令窗口的“关闭”按钮关闭命令窗口。命令窗口关闭后可用下列 3 种方法打开： 单击“常用”工具栏上的“命令窗口”按钮； 使用“窗口”菜单中的“命令窗口” 菜单项； 使用快捷键 Ctr
5、l+F2。（2）在命令窗口中执行命令实验 1 Visual FoxPro 6.0 集成开发环境 3 设置默认的工作文件夹DIR .MD E:CJGLSET DEFAULT TO E:CJGL & 设置默认的工作文件夹为E:CJGLCD & 显示当前目录DIR . & 显示当前文件夹为D:RY_MISCLEAR & 清除屏幕内容对于第 1 条“DIR .”命令可不必重新输入，在命令窗口使用鼠标将光标移动键从当前光标插入点移到第 1 个 DIR .命令行上后回车，命令将重新执行。如命令不完全一样可修改后回车运行。 系统设置命令? 35.6+68.9 & 显示104.50，其中?为显示其后面值的命令
6、? DATE() & 显示系统时间，其中DATE()是得到系统日期的函数SET DATE TO YMD? DATE() & 显示系统时间，但格式改变成年/月/日SET MARK TO “.“? DATE() & 显示系统时间，但格式改变成年.月.日SET CENTURY ON? DATE() & 显示系统时间，但格式年.月.日中年改变成4位SET CLOCK OFF & 关闭VFP时间状态栏SET CLOCK STATUS & 打开VFP时间状态栏5. 联机帮助系统的使用（1）使用“帮助”菜单单击“帮助”菜单中的“Microsoft Visual FoxPro 帮助主题”菜单项，打开“帮助主题
7、”窗口。其中有“索引” 、 “搜索”和“书签”3 个选项卡（图 1.3） 。Microsoft Visual FoxPro 6.0 的帮助系统已一起合并到 MSDN Library Visual Studio 中，只 有 在 安 装 了 MSDN， 系 统 才 有 帮 助 系 统 。 MSDN 可 单 独 安 装 ， 也 可 脱 离 FoxPro 单 独 运行。Visual FoxPro 实训4图 1.3 MSDN Library Visual Studio 帮助系统找到帮助主题时，应在“活动子集”列表框中选“ Visual FoxPro 文档” 。如果已知所需的帮助主题名或主题的前几个字符，
8、可在“索引”选项卡的“键入要查找的关键字”文本框中，输入要查找的关键字，例如输入“SET DATE”，然后单击“显示” 。在“搜索”选项卡中可在键入需要帮助的内容（主题）后进行搜索。 “索引”和“搜索”的结果可在“书签”选项卡中选择“添加”功能后加入书签中，下次需要同样帮助时，可直接在“书签”中选择。（2）使用“HELP”命令在命令窗口中输入并执行如下 HELP 命令，也可直接得到帮助信息。例如，HELP DATE（3）在代码窗口得到帮助选择帮助内容例如“DATE” ，按 F1 键。6. 计算三角形面积实例（1）设计界面单击“文件”“新建”“表单”“新建文件” ，系统生成空白表单。同时，系统打
9、开“表单控件”工具栏。按如图 1.4 所示界面设计表单。图 1.4 计算三角形面积设计界面实验 1 Visual FoxPro 6.0 集成开发环境 5（2）设置对象属性按表 1.1 所示设置表单上控件对象属性。表 1.1 对象属性控 件 类 型 对 象 名 属 性 名 属 性 值Label1 Caption a=Label2 Caption b=Label3 Caption c=LabelLabel4 Caption 三角形面积Text1 Value 0Text2 Value 0Text3 Value 0TextBoxText4 ValueCommandBox Command1 Captio
10、n 计算（3）编写“计算”命令按钮 Command1 的 Click 事件代码a=Thisform.Text1.Valueb=Thisform.Text2.Valuec=Thisform.Text3.ValueIF a+bc .AND. a+cb .AND. b+cas=(a+b+c)/2Thisform.Text4.Value=SQRT(s(sa)(sb)(sc)ELSEMESSAGEBOX(“不是三角形!“)ENDIF（4）运行表单在表单上单击鼠标右键，选择“运行表单” 。如图 1.5 所示。图 1.5 计算三角形面积运行界面输入以下数据，观察显示信息。 三角形三条边分别输入 1、2 和
11、3，单击“计算”命令按钮。 三角形三条边分别输入 2、3 和 4，单击“计算”命令按钮。（5）自己练习Visual FoxPro 实训6自己设计表单，计算直角三角形面积，编写“计算”命令按钮的 Click 事件代码。如图 1.6 所示。图 1.6 计算直角三角形面积界面7. Visual FoxPro 6.0 的退出退出 VFP 系统有 3 种方式。 单击主窗口右上角的“关闭”按钮。 使用“文件”菜单中的“退出（X ） ”菜单项。 在命令窗口中执行“QUIT”命令。思考与练习 在实验中哪些是动态的菜单？为什么要有动态的菜单？ 创建文件有几种方法？ 如何获得“CLEAR”命令的帮助？实验 2 程
12、序设计 7实验 2 程序设计实验 2.1 内存变量和常用函数实验目的掌握内存变量和常用函数的使用。实验准备复习内存变量和常用函数的内容。实验内容1. 内存变量的使用在命令窗口中输入下列命令，观察主窗口显示信息是否与命令后的注释内容一致。r=10s=3.14159rrSTORE “面积“ TO s1,s2? r, s, s1, s2NDate=2004.08.19+1姓名_1=“金中华“姓名_2=“赵 红“姓名_3=“鞠春松“DISPLAY MEMORY & 显示所有内存变量SAVE TO Mymem? FILE(“MYMEM.MEM“) & 显示.T.RELEASE ALL EXCEPT 姓名
13、 & 清除除以“姓名”打头的其他内存变量DISPLAY MEMORY & 仅显示以“姓名”打头的内存变量姓名_3=“林 时“Visual FoxPro 实训8RESTORE FROM MymemDISPLAY MEMORY & 姓名_3内存变量值又变为鞠春松CLEAR MEMORY2. 数组的使用在命令窗口中输入下列命令，观察主窗口显示信息是否与命令后的注释内容一致。DIMENSION A5A1=2A2=4A3=1A4=3A5=5? A1,A2,A3,A4,A5 & 显示 2 4 1 3 5? ASCAN(A,1) & 显示 3=ASORT(A)? ASCAN(A,1) & 显示 1? A1,
14、A2,A3,A4,A5 & 显示 1 2 3 4 5=ADEL(A,1)? ALEN(A) & 显示 5? A1,A2,A3,A4,A5 & 显示 2 3 4 5 .F.ADIR(AFILE,“E:.“,“AD“)? AFILE1,1, AFILE2,1, AFILE3,1, AFILE4,1, AFILE5,1CLEAR MEMORY3. 常用函数的使用在命令窗口中输入下列命令，观察主窗口显示信息是否与命令后的注释内容一致。xh=“01040102“xm=“赵 红“? LEN(xh), LEN(xm) & 显示8 6? LEFT(xm,2) & 显示赵? RIGHT(xm,2) & 显示红?
15、 SUBSTR(“01040102“,3,2) & 显示04专业=“ 计算机 “ & 汉字作变量名zxf=40? xm+LEFT(xh,2)+“院“+STR(zxf)+“分“ & 赵 红01院 40分? “红 “ $ xm & 显示.F.? EMPTY(“) & 显示.T.temp=xh+xmTRIM(专业)? AT(“计算机 “, temp, 1) & 显示16? INT(680.34) & 显示680? SQRT(9) & 显示3.00? MAX(2, 4.5, 100) & 显示4.5? MOD(26,10), MOD(23,5) & 显示6 2SET DECIMALS TO 4 & 设
16、置小数位数为4位实验 2 程序设计 9? ROUND(1536.2854, 2) & 显示1536.29n=INT(VAL(xh)/100)? n & 显示10401? CHR(65)+STR(n) & 显示字符串 “A 10401”? ASC(“12345“) & 显示数值49? DATE(), TIME() & 08/16/04 14:34:58? DATETIME() & 08/16/04 02:34:58 PMSET DATE TO YMDSET MARK TO “.“SET CENT ON? DATE(), TIME() & 2004.08.16 14:34:58? DATETIME
17、() & 2004.08.16 02:34:58 PMd=DATE()t= DATETIME()? d+1, t+1 & 2004.08.17 2004.08.16 02:34:59 PM? YEAR(d), MONTH(d), DAY(d), DOW(d) & 2004 8 16 2t=2004-08-19 8:30 a? DTOC(t), TTOC(t) & 显示2004.08.19 2004.08.19 08:30:00 AM出生时间=1956.8.6? DATE()出生时间+1 & 显示17543 (用户显示的值可能不同)? DATETIME()2000.10.1 12:00 p &
18、显示122266227( 用户显示的值可能不同)? LEFT(xh,2)!= “02“ & 显示.T.? zxf=36 & 显示.T.?(DATE()出生时间 +1)40).OR.(DATE()出生时间+1)30 .AND. .NOT.婚否& 显示.F.实验 2.2 流 程 控 制实验目的掌握基本程序设计方法和表单控件对象的事件代码编程。实验准备复习流程控制的有关内容。实验内容1. 一个简单的求 ax2+bx+c=0 方程的解程序求一元二次方程的解公式如下：Visual FoxPro 实训10 21,24bacx1）跟着学习 在命令窗口输入下列命令，建立程序文件 li_equation.PRG
19、。SET DEFAULT TO E:CJGLMODI COMM li_equation 在文本编辑窗口输入下列程序：a=2b=1c= 1temp=bb4acx1=(b+SQRT(temp)/(2a)x2=(bSQRT(temp)/(2a)? x1, x2 & 显示0.5000 1.0000 关闭文本编辑窗口，保存文件。2）自己练习 执行程序文件 li_equation.PRG。 运行程序DO li_equation主窗口显示：0.5000 1.0000 修改程序 li_equation.PRG 中的 a、b 和 c 的值分别为 1、2 和 3，运行程序。观察系统出错信息。 修改程序 li_equation.PRG，判断方程根的以下几种可能： a=0，不是一元二次方程； b24ac = 0，有两个相等的实根； b24ac 0，有两个不等的实根； b24ac 0，没有实数根。2. 设计表单，求 ax2+bx+c=0 的方程的解1）跟着学习（1）设计表单表单包含下列对象：标签 Label1（Name 属性）Label5 作信息提示；文本框txtA、txtB 和 txtC 分别用于输入 a、b、c 系数，文本框 txtX1、txtX2 放入方程根 x1 和x2；一个命令按钮 cmdOK 用于执行计算。界面安排如图 2.1 所示。
