VFP二级强化培训-PPT课件.ppt

四川四川Visual FoxPro二级强化培训二级强化培训主讲：钟福金主讲：钟福金1目目 录录outlinen软件技术基础（15分）n数据库基础知识（1-2分）nVisual FoxPro系统初步（?分）n数据库的基本操作（?分）n结构化程序设计（?分）n结构化查询语言SQL（17-19分）nVisual FoxPro的可视化程序设计(12分左右)2目目 录录结构化程序设计1程序文件的建立与执行。2程序文件中常用的命令：输入类命令；输出类命令；注释命令；中止程序执行命令等。3程序的三种基本结构 (1)顺序结构。(2)选择结构：(3)循环结构：条件循环语句DO WHILE-ENDDO、计数循环语句FOR-ENDFOR、表循环语句SCAN-ENDSCAN及其嵌套形式的使用。3目目 录录结构化程序设计4.子程序与过程 (1)子程序的设计与调用。(2)过程文件的结构与使用。(3)自定义函数的定义与调用。(4)局部变量、全局变量与变量的作用域；过程调用中的参数传递。4目目 录录常用命令n输入命令:n字符串输入命令：ACCEPT TO n单字符输入命令:WAIT TO n表达式输入命令：INPUT TO n定位输入命令：n SAY GET READACCEPT命令只能接受字符型数据，不需定界符，输入完毕按回车键结束；WAIT命令只能输入单个字符，且不需定界符，输入完毕不需按回车键；INPUT命令可接受数值型、字符型、逻辑型、日期型和日期时间型数据，数据形式可以是常量、变量、函数和表达式，如果是非数值，需用定界符，输入完毕按回车键结束。5目目 录录常用命令n输出命令n非格式输出命令：?或?n格式输出命令：SAY n文本输出命令：TEXT ENDTEXT其他程序运行命令CLEAR、RETURN、CANCEL、QUIT注释：NOTE 或*（其他命令）&6目目 录录程序的基本结构7目目 录录过程（子程序）n无参过程子程序P14_1.prg：T=1FOR I=1 TO NT=T*IENDFORRETURN T主程序：SET TALK OFFCLEAR T=0INPUT“X=”TO XN=XDO P14_1?“T=”+STR(T,5)SET TALK ON8目目 录录过程（子程序）n带参过程主程序：F=0DO JCH WITH 5,F?”F=”,F过程PROC JCHPARAMETERS N,FACM=1FAC=1DO WHILE MNFAC=FAC*MM=M+1ENDDORETURN9目目 录录变量的作用域n全局变量：指在程序的任何嵌套中及在程序执行期间始终有效的变量。程序执行完毕，全局变量不会自动释放（clear memo或release）n定义：PUBLIC n说明：中的变量可以是简单变量，也可以是下标变量。10目目 录录变量的作用域n局部变量：只在建立它的过程及下级过程中有效的内存变量。在定义它的过程运行结束时自动清除。n隐含定义：凡是过程中未经特殊说明的内存变量，系统一律认为是局部变量。n显式定义，命令：PRIVATE n说明：在主程序或上级过程中隐含定义的局部变量，如在下级过程中未经显式定义，那么它的新值可以带回主程序或上级过程；若在下级过程中进行了显式定义，其新值不能带回主程序或上级过程中使用。n例1:执行下面程序后,M和N的值是多少?A1.PRG M=1 N=2 DO B1?“M=”,M,“N=”,N RETURNB1.PRG PRIVATE M M=3 N=4 RETURN11目目 录录二级样题系列（五）n读程序题（单选，每小题3分）1、T=5DO WHILE T=10 EXIT ENDIF T=T+2ENDDORETURN（1）程序共循环了（B）次（A）3 （B）4（C）5 （D）6（2）程序运行结果是（B）（A）6 8 10 （B）6 8 10 12（C）5 7 9 11 （D）5 7 9 11 13 12目目 录录二级样题系列（五）2、表文件“学生.DBF”中有10条记录，阅读下面程序：USE 学生COPY TO XSUSE XS COUNT TO A GO TOPDELET NEXT 5COUNT TO BSET DELETED ONCOUNT TO CPACKCOUNT TO DSET DELETED OFFCOUNT TO ECOPY TO XS-1USE XS-1ZAPCOUNT TO F?A,B,C,D,E,F（1）程序运行结果是（D）（A）10 10 5 5 5 5 （B）10 5 0 0 0 0（C）10 10 10 10 10 10 （D）10 10 5 5 5 0（2）命令 SET DELETED OFF 的功能是（C）（A）关闭逻辑删除功能 （B）不允许逻辑删除（C）逻辑删除无效 （D）逻辑删除有效13目目 录录二级样题系列（五）3、设表文件XS.DBF有10条，阅读下面程序了：USE XSGO BOTTOMN=2DO WHILE N=1DISPLAYSKIP 1WAITN=N-1ENDDOUSERETURN（1）程序的功能是（D）（A）显示所有记录 （B）分别显示前2条记录（C）显示第2条记录 （D）分别显示后2条记录（2）退出循环后，N的值是(A)（A）0 （B）1（C）3 （D）4 14目目 录录二级样题系列（五）4、阅读下面程序：F=0DO JCH WITH 5,F?”F=”,FPROC JCHPARAMETERS N,FACM=1FAC=1DO WHILE MNFAC=FAC*MM=M+1ENDDORETURN（1）程序运行结果是（D）（A）150 （B）90（C）60 （D）24（2）程序中JCH是（C）（A）变量名（B）参数名（C）过程名（D）数组名（3）程序中FAC是（B）（A）变量名 （B）参数名（C）过程名 （D）数组名 15目目 录录5、阅读下面程序：DIMENSION K(2,3)I=1DO WHILE I=2J=1DO WHILE JTP=P+KK=K-1ENDDO?P&(3)（1）程序运行到（1）处时，打开的表文件是（C）（A）W&A.S (B)WAS (C)WATERS (D)WATER（2）程序运行到（2）处时，显示的结果（A）（A）0 5 (B)1 4 (C)0 4 (D)1 5（3）程序运行到（3）处时，显示的结果（B）（A）10 (B)15 (C)18 (D)21 18目目 录录8、有表文件DJKS.DBF如下：学号姓名 笔试 机试 是否通过S1张山 84 77 S2李洋 56 83S3王红 62 77S4 刘立涛63 51S5 赵晓静45 56S6雍军 93 91S7赵菲 73 78阅读下面程序：(1)程序运行后RS的值是(C)。(A)7 (B)5 (C)4 (D)3(2)DJKS表中是否通过字段的类型是(D)(A)数值型(B)字符型(C)备注型(D)逻辑型 clearUSEDJKSRS0DOWHILE.NOT.EOF()IF笔试60.AND.；机试=60 REPLACE 是否通过；WITH .T.RS=RS+1 ELSE REPLACE 是否通过；WITH .F.ENDIF SKIPENDDO？RS CLOSE ALL（3）对于程序中的的SKIP语句，则（D）。（A）可以替换成CONTINUE，不影响程序的执行（B）可以去掉，不影响程序的执行（C）可以移到循环体外部，不影响程序的执行（D）如果去掉，程序将进入死循环 19目目 录录二级样题系列（五）9、阅读下面程序CLEARFORM1TO4A“”FORN1TOMAASTR（M，1）ENDFORM，5SAYAENDFORRETURN（1）屏幕显示的起始坐标为（C）。（A）1，1（B）4，4（C）1，5（D）5，1（2）程序运行完毕后M，N的值为（A）。（A）5，5（B）4，4（C）1，1（D）4，1(3)程序运行完毕后屏幕显示的结果为(B)。(A)1 22 333 4444(B)1 22 333 4444 20目目 录录二级样题系列（五）10、阅读下面程序：CLEAROPEN DATABASE EMPLORERUSE COMPENSCAN FOR RECNO()=80S=0DO WHILE NOT EOF()?姓名IF SUBS(学号,2,1)=”1”S=S+外语ENDIFCONTENDDO?S,RECNO()(2)程序结束时S的值为（B）（A）396 （B）185 （C）241 （D）211(3)程序结束时RECNO()的值为（D）（A）.T.（B）.F.（C）5 （D）6 24目目 录录13、阅读下面程序X=1DO WHILE X7Y=1C=”*”DO WHILE YXC=C+STR(Y,1)Y=Y+1ENDDOIF X=6?CENDIFX=X+1ENDDO?XRETURN(1)执行以上程序后，“？X”命令显示变量X的结果为（B）（A）$6 （B）7 （C）6 （D）$7(2)执行以上程序后，“？C”命令显示变量C的结果为（C）（A）*54321 （B）54321（C）*12345 （D）12345(3)在上面的程序中，控制内循环和外循环的变量分别为（B）（A）X,Y （B）Y,X（C）X,C （D）Y,C 25目目 录录13、阅读下面程序X=1DO WHILE X7Y=1C=”*”DO WHILE YXC=C+STR(Y,1)Y=Y+1ENDDOIF X=6?CENDIFX=X+1ENDDO?XRETURN(1)执行以上程序后，“？X”命令显示变量X的结果为（B）（A）$6 （B）7 （C）6 （D）$7(2)执行以上程序后，“？C”命令显示变量C的结果为（C）（A）*54321 （B）54321（C）*12345 （D）12345(3)在上面的程序中，控制内循环和外循环的变量分别为（B）（A）X,Y （B）Y,X（C）X,C （D）Y,C 26目目 录录14、阅读下面程序阅读下列程序CLEARACCEPT”请输入字符串”TO ZFI=0DO WHILE I70Disp 姓名,成绩Sum 成绩 to SH1Set filter toSet delete onDelete for 性别=”女”；and 成绩70Count to SH2?SH1,SH2Use 33目目 录录二级样题系列（五）n程序填空题（每空2分）1、下面程序功能是任意输入20个数，找出其中最大数和最小数，请将程序补充完整。INPUT TO XMA=XMI=XN=1DO WHILE _ _TO X IF MAXMI=XENDIFENDIF_ENDDO?MA,MIRETURN N=20INPUTN=N+134目目 录录2、下列程序的功能是根据输入的学生姓名，查找并显示学生各门课程的成绩。SELECT 1USE 学生登记表SELECT 2USE 学生成绩表ANS=”Y”DO WHILE.T ACCEPT “学生姓名：”TONA SELECT1 LOCATE ALL FOR 姓名=NA IF FOUND()?”姓名：”+姓名 XH=学号 SELECT 2 LOCATE ALL FOR 学号=_ DO WHILE 学号=XH?“课程编号：”课程编号，“成绩：”格STR（成绩）_ ENDDOELSE?“没有”NA“这个学生”ENDIFWAIT“继续查找（Y/N）?”TO ANS IF _(ANS)=”Y”_ ELSE EXIT ENDIFENDDOUSERETURN XHCONTINUEUPPERLOOP35目目 录录目目 录录3、从键盘上输入10个字符串，统计其含有字母“M”的字符串个数，请完成该程序的设计。CLETRSI1DOWHILEI11ACCEPT“输入一个字符串”TOXIF“M”$XSENDIFIENDDO？“含有字母M的字符串共有：”STR（S）RETURN 0S+1I+137目目 录录4、以下程序在父表“zgjk”表与子表“gz”表间按职工号建立关联，按输入的职工号查询gz.dbf表中该职工号对应的“基本工资”与“实发工资”字段值，如果没有找到该职工号，则显示“没有该职工号！”。Clea allSele 2Use gzInde on _ tag hhh Sele 1Use zgjkSet rela to 职工号 gzAcce“请输入职工号：”to gh _for 职工号=allt(gh)If found()？“职工号姓名基本工资实发工资”？职工号，姓名，b.基本工资，b.实发工资？没有该职工号！EndifClea all 职工号INTOLOCATEELSE38目目 录录二级样题系列（五）5、下面程序是对“职工”表中的重复职工号进行物理删除，请补充程序 USE 职工INDEX ON 职工号 TO ZGHDO WHILE _ZGH=职工号SKIPIF _DELETEENDIF_CLOSE ALL.NOT.EOF()ZGH=职工号ENDDOPACK39目目 录录6、有图书表TS.DBF和订单表DD.DBF，要求计算订单表金额 书书号号书书名名作者作者出版社出版社单单价价Y001Y001C C语语言言王王晓晓大众出版社大众出版社21.5021.50J002J002计计算机基算机基础础程力程力科技出版社科技出版社26.0026.00J003J003计计算机算机导论导论舒彦舒彦电电子出版社子出版社30.5030.50W004W004网网页页制作制作严谨严谨科技出版社科技出版社28.3028.30订单订单号号书书号号数量数量金金额额001001Y001Y001150150002002J001J001200200003003J003J0035050004004W004W004100100CLEAR ALLSELECT AUSE TS INDEX_ TO TSSSELECT BUSE DDSET RELATION TO；书号_REPLACE ALL 金额;WITH _LIST 定单号,书号,TS书名,;单价,数量,金额RETURN ON 书号INTO A数量*A.单价40目目 录录二级样题系列（五）7、有计算机等级考试的查分程序，请填空。(本题用数据表：KS.DBF(学号(C),笔试(N),上机(N)USE KS ACCEPT 请输入考号：_ _考号=KH IF _ WAIT查无此人 ELSE DISPLAY ENDIFDISPLAY USE TO KHLOCATE FOR.NOT.FOUND()41目目 录录二级样题系列（五）8、下面程序功能是输出1到5的阶乘之和 CLEARS=0 _X=1DO WHILE X=5 T=T*X _ X=X+1ENDDO?”S=”+STR(S)RETURN T=1S=S+T42目目 录录9、下面是根据输入的记录号在数据表“学生”中修改记录的程序：Use 学生 Do while.t.Input”请输入要修改的记录号”to h _ 6,20 say”学号：”get 学号 6,50 say”姓名：”get 姓名 7,20 say”性别：”get 性别 7,50 say”出生年月：”get 出生年月 8,20 say”入校成绩：”get入校成绩 8,50 say”电话：”get 电话 9,20 say”家庭地址：”get 电话 家庭地址 Read Wait “继续输入吗？y/n”to an If lower(an)=”n”_ Endif _ Return go hexitenddo43目目 录录二级样题系列（五）10、下面是求S=10！的程序，在空格处填入恰当的语句：主程序：子程序：sbu1.prgClear PARA _Store 0 to s,sm t=1A=10 For I=1 to pDo sub1 with a,sm t=t*I?10!=,_ ENDFORRETURN RETURNsmp,t44目目 录录结构化查询语言SQL45目目 录录Visual FoxPro的可视化程序设计1面向对象的程序设计方法：基本概念、对象和类、对象的属性、事件和方法。2表单设计 (1)表单向导与表单设计器。(2)表单控件设计：标签、图象、线条、形状；文本框、编辑框、列表框、组合框、微调控件；命令按钮与命令按钮组、复选框、选项按钮组、计时器；表格、页框、容器等。(3)表单的建立、运行及事件驱动编程。3使用菜单设计器设计菜单：下拉式菜单与弹出式菜单。（做样题即可）4使用报表设计器设计报表。（做样题即可）46目目 录录对象、属性、事件、方法的引用nthisform 当前表单nthis 当前对象 引用格式：nthisform.对象名.属性名|事件名|方法名nthisform.对象名.下级对象名.nthisform.label2.caption=”你好”mand1.enabled=.f.nthisform.release nthisform.refresh 47目目 录录常考事件与方法事件nClicknRIGHTCLICKnDbliclicknInit 方法nSetFocus 48目目 录录常用控件及其属性 n表单form：captionn标签label：caption,name,autosize(自动调整大小),fontname,fontsize,fontboldn文本框text：name(名称)、value(显示的值)、readonly(只读)、controlsource(备注和通用型不可以)n命令按钮command：caption,Enabled，visablen计时器timer：Interval、Enabled 49目目 录录常用控件及其属性n编辑框edit：readonlyn列表框list：value、RowScourceType(列表框数据源类型 6-字段3-SQL)、RowScource(列表框数据来源,如学生.姓名)、ListCount(列数)n组合框combo：style(0-下拉组合框 2-下拉列表框)n微调控件spinner：Value、KeyBoardHighValue、KeyBoardLowValue、Increment(按一次箭头的增减数)50目目 录录常用控件及其属性n复选框check：Caption、Value(复选框的状态1-选定,0-清除 2-灰色)n选项按钮组optiongroup：caption,buttoncount,Value(值为n时表时第n个选项按钮被选中)n 表格 grid：ColumnCount、RecordSource(数据源)、RecordSourceType（数据源类型）n页框pageframe：PageCount、Caption 51目目 录录二级样题系列（七）、单项选择题1、下列（B）不是表单创建中的步骤（A）添加控件 （B）创建数据表（C）设置属性 （D）配制方法程序2、在“报表设计器”中，可以使用的控件为（A）(A)标签、域控件和线条 （B）标签、域控件和列表框(C)标签、文本框和组合框（D）文本框、布局和数据源3、要使得命令按钮有效，应设置该命令按钮的（C）（A）Visible属性值为.T.（B）Visible属性值为.F.（C）Enabled属性值为.T.（D）Enabled属性值为.F.52目目 录录二级样题系列（七）4、不可以作为文本框数据源的是（D）。（A）数值型字段（B）逻辑型字段（C）字符型字段（D）备注型字段5、代码thisform.textl.setfocus表示该表单上的（B）。（A）标签textl 获得焦点（B）文本框textl 获得焦点（C）标签textl 失去焦点（D）文本框textl 失去焦点 53目目 录录二级样题系列（七）6、将一个预览成功的菜单存盘，然后运行该菜单，不能执行，原因是（B）（A）没有添加到项目中 （B）没有生成（C）要用命令方式 （D）要编入程序7、要在文本框中办理入密码，应设置文本框的（D）属性（A）Password （B）Name （C）Value （D）PasswordChar8、有关控件对象的Dbliclick事件正确叙述是（A）（A）用鼠标双击对象时引发 （B）用鼠标单击对象时引发（C）用鼠标右击对象时引发 （D）用鼠标三击对象时引发 54目目 录录二级样题系列（七）9、确定列表框内的当前状态的属性是（A）（A）Value （B）Columncount （C）Listcount （D）Seleted 10、在面向对象程序设计中，对象的特征通过（C）来表现（A）方法 （B）事件 （C）属性 （D）代码 11、在使用菜单设计器时，输入建立的菜单名后，若要使其执行一段程序，应在结果（result）中选择（D）（A）子菜单（submenu）（B）填充名称（pad name）（C）命令（command）（D）过程（procedure）55目目 录录二级样题系列（七）12、以下（B）是报表文件的扩展名。（A）fpt （B）frx （C）frt （D）fxp13、设计表单中添加控件，可以利用（D）。（A）表中设计工具栏 （B）布局工具栏 （C）调色板工具栏 （D）表单控件工具栏14、设有表单文件frm2.scx，内部有如下的事件代码，允许后frm2.Name的值是（B）frm2.Name=不是我的表单 ThisForm.Name=是我的表单（A）frm2 （B）是我的表单 （C）不是我的表单 （D）form 56目目 录录二级样题系列（七）15、在forml.scx设计中，当前选中表单forml的控件labell，要改变labell的caption属性，错误的是（C）。（A）forml.labell.caption=确定 （B）this.caption=确定（C）thisform.caption=确定 （D）thisform.labell.caption=确定 16、下列（A）属性是每个控件都具有。（A）name （B）contorlsoure （C）caption （D）picture 57目目 录录二级样题系列（七）17、如图所示，复选框被按中，其值为（D）。（A）党员 （B）非党员 （C）0 （D）1 18、启动表单后，使文本框TEXT1的数据能显示但不能被用户修改，应设计表单的INIT事件代码为（A）。（A）THISFORM.TRXT1.READONLY=.T.（B）THISFORM.TRXT1.READONLY=.F.（C）THISFORM.TRXT1.VISIBLE=.T.（D）THISFORM.TRXT1.VISIBLE=.F.19、Visual FoxPro 的报表文件.FRX中保存的是（D）。（A）打印的报表的预览格式（B）打印的报表本身（C）报表的格式和数据 （D）报表设计格式的定义 58目目 录录二级样题系列（七）20、要使得命令按钮有效，应设置该命令按钮的(C)(A)Visible属性值为T (B)Visible属性值为，F(C)Enabled属性值为，T (D)Enabled属性值为F21、如图所示，选项按钮组的值为(A)。(A)2 (B)0 (C)1 (D)非团员59目目 录录二、程序填空题1、设计一个如图如示的系统登录表单。基中操作员及中令来自于数据表：操作员.DBF。表中有两个字段：操作员、口令。(1)表单上组合框的 属性应设置为6-字段；组合框的RowSource属性应设置为(2)在文本框Text1中输入口令时，会有占位符“*”出现是因为设置了文本框的 属性。(3)在“确定”命令按钮事件代码中，进行如下编程：If trim(thisform.text1.value)操作员.口令 If messagebox(“请重新输入口令”,0+16,“提示”)=1 Thisform.text1._ EndifElse Do form 系统功能.scx Thisform.refreshEndif rowsourcetype操作员.操作员passwordcharsetfocus60目目 录录2、如图所示表单：(1)表单上文本框Text2（图中显示“星期六”的部分）只能显示，不能修改，则该文本框的属性应该设置为.T.；(2)在文本框Text1中输入值，当单击命令按钮Command1(“转换”)时，文本框Text2中自动出现对应的星期数，则在Command1的事件代码中，应进行如下编程：q=一二三四五六日 n=val(Thisform.text1.value)Thisform.text2.value=;“星期”subs(q,_,2)(3)命令按钮command2的标题为“下一个”，如果在Init事件代码中进行设置，应使用如下命令：Tmand2._ “下一个”READONLYCLICK2*n-1CAPTION61目目 录录3、有如下表单，要求左键单文本框显示时间，右击文本框显示日期，清除按钮清除文本框的数据，退出按钮退出表单，请填空(1)文本框TEXT1的CLICK事件代码为：THIS.VALU=_(2)文本框TEXT1的_事件代码为：THISFORM.TEXT1._=DATE()(3)清除命令按钮的代码为：_(4)退出的代码为：_ TIME()RIGHTCLICKVALUETHIS.VALUE=REALSE THISFORM62目目 录录4、创建一个如图所示”查询成绩”表单,当选择列表框中的课程名时,表格控件中的数据随之变化.列表框中显示的是课程表中的课程名,表格中显示的是学生表中的学号、姓名、成绩等3个字段。63目目 录录(1)表单FROM1的 _ 属性为:查询成绩(2)“列表框”LIST1的CLICK事件代码:SET FILTER TO THISFORM.LIST1.VALUE _=THISFORM.LIST1.VALUE(3)”表格”GRID1的显示栏目数属性COLUMNCOUNT=_(4)”表格”GRID1中学号的数据源为:_=学生.学号(5)命令按钮COMMAND1(“退出”按钮)的CLICK事件代码:_ CAPTION课程名3ControlSourceREALSE THISFORM64目目 录录5、如图所示表单：（1）运行时表单自动居中，应设置表单的 AutoCenter属性为：_ （2）命令按钮Command1的标题为“绝对值”，可在表单Init事件过程中设置：_=”绝对值”（3）文本框Text2运行时不可修改，可在表单Init事件过程中设置如下代码：ThisForm.Text2._=.T.（4）单击Command1（绝对值）按钮，显示绝对值，则：应设置Command1的_事件代码为：X=VAL(THISFORM.TEXT1.VALUE)THISFORM.TEXT2.Value=_mand1.captionreadonlyclickabs(x)65目目 录录6、用文本框Text1输入正方体的边长，利用选项按钮，选择计算表面积，计算体积等。表单样式如下。要求：（1）初始时，选项组一个也不选，则：Thisform.OptionGroupl.value=（2）文本框TEXT2和Text3用于显示表面积和体积的值，不可修改，初始时不可见：Text2和Text3的Readonly属性为.T.、Text2和Text3的visible属性为.F.066目目 录录（3）当选项中第一项（计算表面积）时：只显示表面积的值（Text2），体积值（Text3）不可见；当选项中第二项（计算体积）时：只显示体积的值（Text3），表面积的值（Text2）不可见；（4）当选项中第三项（计算表面积和体积）时：显示表面积的值（Text2）和体积的值（Text3）；为此，选项组OptionGroup1的 事件代码为：n=thisform.text2.visble=.T.thisform.text3.visble=.T.y=6*n*n z=n*n*n x=do case case x=1 =.F.thisform.text2.value=str(y,10,2)case x=2 =.F.thisform.text3.value=str(z,10,2)case x=3 thisform.text2.value=str(y,10,2)thisform.text3.value=str(z,10,2)endcaseclickthisform.text1.valuethis.valuethisform.text2.visblethisform.text3.visble67目目 录录7、设计一个四则运算的表单如下图所示：(1)由以上图可知本表单的_属性应设置成“四则运算”CAPTION68目目 录录(2)“确定”按钮的ClICK代码如下 Xl=VAL(THISFORM.TEXT1.VALUE)X2=VAL(THISFORM.TEXT2.VALUE)XX=_ DO CASE CASE XX=1 THISFORM.TEXT3.VALUE=X1+X2 CASE XX=2 THISFORM.TEXT3.VALUE=X1-X2 CASE XX=3 THISFORM.TEXT3.VALUE=X1*X2 CASE XX=4THISFORM.TEXT3.VALUE=X1/x2_(3)“清除”按钮的CliCK代码如下THISFORM.TEXTl.VAlUE=THlSFORM.TEXT2.VALUE=THISFORM.TEXT3.VALUE=THISFORM.TEXTl.SETFOCUS (4)“退出”按钮的CLICK代码_(2)THISFORM.OPTIONGROUP1.VALUE (3)ENDCASE (4)THISFORM.OPTIONGROUP1.VALUE=1 (5)thisform.release69目目 录录8、设计如下表单，运行表单时显示标签文字的颜色为红色，点击相应的命令按钮时，标签文字按指定的颜色改变。假设：相关属性都设置完成。form 的 事件代码设置如下：thisform.labell.forecolor=rgb(255.00.00)“蓝色”按钮的Click事件代码设置如下：thisform.labell.visible=.t.“隐藏”按钮的Click事件代码设置如下：在“结束”按钮的Click事件代码设置如下：INIT thisform.label1.forecolor=rgb(0,0,255)thisform.label1.visible=.f.thisform.release70目目 录录9、如图所示的菜单，菜单栏有三个菜单，其中“新建”菜单下有子菜单，单击退出菜单时退出用户菜单返回系统菜单。（1）设计好菜单的内容后将菜单以文件名MENU1保存，此时文件扩展名为 。（2）完成菜单的全部设计后，运行菜单可以用命令DO 。（3）单击“退出”菜单，可以恢复系统菜单。则退出菜单的命令是 。mnxmenu1.mprset sysmenu to default71