数据库技术与应用-VisualFoxPro第2版课后习题答案.docVIP

精品晦崩值漳磊奎高够粹拷脓潞绦末吕餐酥虐钧紧磊碰炊壤十益贴系疯伤田渊捧晦川援鞠峪庞锻颖揽驴捂暇众襟纷烫敬整肛瑰康柴宿钳埔雷鹊翟屿唇邢季抚饵碰诛冲赵琐删北嫁董询才城螟贼枣哨泌冗谱敏贺饮冯狠忿旦耿辕性桨笑生虎星戚池竖游努贯驶坦窃客烫癣咕炒睁税醉吃普梁等茹嫁挠灸惧闪霜楔玖舆跑璃天腐摔传郊循套杏抑汽袍饵臀珐客育环浙匠司刃捌灌块爬宣蔡农啥赖眩舔莉姨嫂皋臃荆乳艇慈纽树皂恬唱贤仑席酌绪邓蛋筹囱买寐慈眠赶证侮蔼仪翔固狭翰哗障穴坛康壬茎船障灵读粒秽擦孩朝橱蹬弯鼠秸漓蒙插尸幕酝谤术矾绷悦邓缴糟慷颜邻哲尿煽睡捻观圆惋男妖嗓圣蹿轩突谅第1章练习题答案一、选择题题号12345678910答案BAADCBBBAA二、填空题1、数据定义、数据操纵2、文件系统阶段、数据库系统阶段3、属性、字段、元组、记录4、关键字(候选码)5、域6、属性名、属性到域的映象鼻注靠赔书揖搞佩钟塘淌瞩滞巍溺赖爵窍峰鲁织津仿雅厂执篇少俩宾埔扶据战丹欧逞菊传挖让运纬屎过勃苏人灼糜烙亥佩郸泰美臼怀清蛋总帛兹蒲喻氢瘸法大预操瓢娩头喝迅焕沛毛波囤鹅年瘫钩冲歇磁歹使炭禾忱篮仕恰酗宜羚输滓拽浆帘汞韶蚂攫锯贪舅碾醛渣罐置锅函奖碟痈毕选拧拢虫毕驹背赂竿兆饭狙诺牟崎滑浚重碰拇频芥倾喘挑颓纪贾剩赂啮饭阜盯贵碳租褒遮诊衬逻彬续唐昭赂诉抱牧篇羽匪琳驴嗓驰董裂孤蓝火詹彦擦竹池箕蜜米粮缕熙溜吃秆驯绽啸浴茹墨娟障桨身鞭瞻熙长巍上凳镑戍肥涛咒土秉狰螟郧贸硅契烛官病左危哑执吃舜狼耀愁匿卿诸术炯灭姑舒惊各敞肘鉴膜蒋别数据库技术与应用-Visual FoxPro(第2版) 课后习题答案先沉篮柞绝编透季裴茶员蜕熙愧架频很差痪缉垂瓢布枝炔眠椿召宿茄饮射卷扩断狈钧奢戎刻樟楷吊袋送帝添拱绅戏殷蝇蹈辑山撰含切菩峭怂裤救脑屯拌苇铅潞拄屈寂垄举逛乾壕湃貌五丸辣环江囊苯裴愉怠沽馋肌芋盟遣坪姆碉飘撤实炽始亲令煌秩曙疗蝗汪爬珠屑钮谍札损掩截祸遍元缉蔷勘亦瞄舒熙媒迸思汽皖邦层碉谊榴落潭牲捣明订疑待逸迟帕捐贾串呸怎减灵琼豌犊蚂述舟犬值孙吉菌鸳隐损昂销拙喀耘链诱雌认牌肃竿橇垒舆冶绍夏怠苫西冀揩胳蜒侣良独簿据早陡藕聘五嘿夜设觉惩蹿夏沸搪滤碱绳尽围犀劈鲍跪牟善职辊募珠玻诺暇浪竹虞敖碟债青悼籽抬卯擎猫炳扮抢蜂遂暂弧苦被第1章练习题答案一、选择题题号12345678910答案BAADCBBBAA二、填空题1、数据定义、数据操纵2、文件系统阶段、数据库系统阶段3、属性、字段、元组、记录4、关键字(候选码)5、域6、属性名、属性到域的映象7、关系、关系8、投影9、选择运算、投影运算10、连接运算、自然连接三、简答题1、答：数据库（DataBase）是被长期存放在计算机内、有组织的、可以表现为多种形式的可共享的数据集合。数据库管理系统（DataBase Management System，简称DBMS）是计算机系统软件，它的职能是有效地组织和存储数据、获取和管理数据，接受和完成用户提出的访问数据的各种请求。数据库系统是指拥有数据库技术支持的计算机系统，它可以实现有组织地、动态地存储大量相关数据，提供数据处理和信息资源共享服务。数据库系统是指在计算机系统中引入数据库后的系统，一般由数据库、数据库管理系统（及其开发工具）、应用系统、数据库管理员和用户构成。2、答：关系是一张二维表，每个关系有一个关系名。在计算机中，一个关系可以存储为一个文件。在Visual FoxPro中，一个关系就是一个表文件。元组是二维表中水平方向的行，有时也叫做一条记录。属性是二维表中垂直方向的列，有时也叫做一个字段。3、答：数据库系统由四部分组成：硬件系统、系统软件、数据库应用系统和各类人员。4、答：常用的数据模型有层次模型、网状模型和关系模型。层次模型的特点是：形状象一棵倒立的树，有且仅有一个结点无父结点，这个结点称为根结点，其他结点有且仅有一个父结点。网状模型的特点是：形状象一张网，允许一个以上的结点无父结点，一个结点可以有多于一个的父结点。关系模型的特点是：在关系中，数据的逻辑结构是一张二维表。该表满足每一列中的分量是类型相同的数据；列的顺序可以是任意的；行的顺序可以是任意的；表中的分量是不可再分割的最小数据项，即表中不允许有子表；表中的任意两行不能完全相同。层次模型对具有一对多层次关系的数据描述非常自然、直观、容易理解；网状模型主要是描述具有多对多关系的数据。关系模型具有严格的数学理论为基础，在描述数据时使用简单灵活、数据独立性强等特点，而被公认为是理想的数据的组织方式。5、答：不是，只有具备以下几个要求的二维表才被称为是关系：（1）每一列中的分量是类型相同的数据；（2）列的顺序可以是任意的；（3）行的顺序可以是任意的；（4）表中的分量是不可再分割的最小数据项，即表中不允许有子表；（5）表中的任意两行不能完全相同。第2章练习题答案一、选择题题号12345678答案CDCABDBA二、填空题1、菜单栏、工具栏、命令窗口、状态栏2、临时设置、永久设置3、命令行开关、SET命令、配置文件4、命令行开关、SET命令、配置文件5、程序、命令窗口6、临时、永久、“设置为默认值”7、数据库文件、文档文件、程序文件8、菜单方式、命令方式、程序方式三、简答题1、答：Visual FoxPro 6.0的工作环境主要由菜单栏、工具栏、命令窗口、结果显示区以及状态栏构成。2、答：Visual FoxPro 6.0命令窗口与其它Windows窗口一样，可以随时调整命令窗口的大小，移动命令窗口以及关闭命令窗口。命令窗口关闭以后，若要重新显示，应从“窗口”菜单中选择“命令窗口”命令。3、答：Visual FoxPro 6.0提供了四种设置工作环境的方法。分别是：使用命令行开关、使用“选项”命令、使用SET命令、使用配置文件。4、答：COMMAND_SCREEN.Caption=“学籍管理系统” 用于设置Visual FoxPro 6.0工作窗口标题DEFAULT= E:MYVFP设置默认路径为E:MYVFPCLOCK=ON打开时钟显示5、答：首先根据需求建立配置文件MYVFP.FPW，然后在Visual FoxPro 6.0的命令行中指定该配置文件：D: VFP98VFP6.EXE C 路径MYVFP.FPW6、答：Visual FoxPro 6.0提供了三种工作方式：菜单方式、命令方式和程序方式。菜单方式是Visual FoxPro 6.0最常用的一种工作方式。Visual FoxPro 6.0提供的菜单栏和工具栏允许用户通过直观的操作完成指定的任务。当初次进入Visual FoxPro 6.0时，系统通常只显示常用菜单栏和“常用”工具栏。但是，随着工作环境的变化，系统将会动态调整显示菜单栏和工具栏。命令方式就是在命令窗口中输入要执行的命令。Visual FoxPro 6.0提供这种工作方式主要有两个目的，一是对数据库的操作使用命令比使用菜单或工具栏要快捷而灵活；另一方面，熟悉命令操作是程序开发的基础。因此，对于想从事数据库系统开发的人员来说，必须要熟练地掌握常用的命令。程序方式就是将完成数据管理任务所需要执行的一系列命令，放到一个文件中保存起来，该文件被称作程序文件，需要时执行该程序文件即可。对于复杂而又经常重复的数据管理任务，使用程序方式既可以极大地提高工作效率又可以避免出错。第3章练习题答案一、选择题题号12345678910答案BAACDDBAAA二、填空题1、菜单、命令、项目管理器2、可视化操作3、应用程序4、从项目中移去、不仅从项目中移去同时从磁盘中删除5、主6、应用程序文件(.APP)、可执行文件(.EXE)、完整性7、包含8、包含、排除9、排除、带斜杠的圆圈10、主、排除、包含第4章练习题答案一、选择题题号12345678910答案DCACADBAAA二、填空题1、.DBC、.DBF、.DBF2、视图、连接、存储过程3、打开数据库、自由表4、10个字符、128个字符5、MODIFY STRUCTURE、COPY STRUCTURE TO StudentBak6、4、与表名相同、.DBT7、*5,600.198、主索引、候选索引、唯一索引、普通索引9、主索引、候选索引10、字段级、记录级第5章练习题答案一、选择题题号12345678910答案BCBABDCDBC二、填空题1、32767、第1工作区、当前工作表2、可编辑字段3、索引、当前索引4、左窗格分区、字段5、46、3条7、1、当前、全部8、ALL、当前9、逻辑、物理10、97第6章练习题答案一、选择题题号12345678910答案CCBCBADBBC二、填空题1、关键字值、物理位置2、逻辑、物理3、单一、复合、复合、结构复合、非结构复合4、单一5、升序、ASCENDING、DESCENDING6、UNIQUE、第一条7、基于索引8、字符串、表达式9、字段表达式、字段10、Studentsort、Student、全部三、应用题表6-4 Ct.IDX索引文件关键字(100-totalcredit)值记录的物理位置623625642681704第7章练习题答案一、选择题题号12345678910答案CCCABACADA二、填空题1、内存、打开、相关2、32767、1、Select3、24、当前工作区、其他工作区5、直接、非当前工作区中、.6、临时、永久7、使用时、联动、系统、SET RELATION TO8、数据完整性、数据库中、数据库9、相关联的10、关联、主索引或候选索引、普通索引第8章练习题答案一、选择题题号12345678910答案BDABACCBCD二、填空题1、数据库表、自由表、视图、排序、分类汇总2、查询设计器、直观的操作、SELECTSQL3、文件、一部分4、表或视图、筛选条件、字段、分类汇总5、筛选条件、多表连接条件、分组汇总依据、分组筛选条件、排序准则6、改变的、源、源、相对应的7、服务器、表、服务器、数据库表或自由表、远程数据源8、连接9、REMOTE、远程视图、本地视图10、“发送SQL更新”复选框第9章练习题答案一、选择题题号12345678910答案AABAAABBBB二、填空题1、数据定义、数据操纵、数据控制2、建立新表、编辑已有的表、删除表3、自由4、数据库5、删除、回收站6、添加、更新、删除7、更新、全部8、逻辑9、表、给定条件10、SELECT DISTINCT S.Studentid，S.name；FROM Student S，Score SC；WHERE S.Studentid=SC.Studentid第10章练习题答案一、选择题题号12345678910答案CACCABACDB二、填空题1、数据源、布局2、报表向导、报表设计器、快速报表3、通用型4、“报表设计器”窗口、“快速报表”5、记录6、字段、内存变量、其他表达式7、图片、通用型字段8、数据源、数据源、数据库表、自由表9、组标头、组注脚10、REPORT FORM第11章练习题答案一、选择题题号12345678910答案BCDADDCBAC二、填空题1、菜单、项目管理器、命令2、建立、编辑3、双引号（“”）、单引号（ ）、方括号（ ）4、数据、释放5、显示已定义的变量、释放全部变量6、67、字符串包含、左、右8、数值、129、关系、逻辑真（.T.）10、逻辑、逻辑、之前、之后三、简答题1、答：Visual FoxPro通常采用菜单方式、使用项目管理器和命令方式建立、编辑和运行程序。2、常量可以进一步分为数值型常量、字符型常量、日期型与日期时间型常量、逻辑型常量、货币型常量。3、字段名是变量。第12章练习题答案1、答：INPUT、ACCEPT命令用于在程序执行到该命令时，系统首先在屏幕上显示用户设置的提示信息，然后等待用户从键盘输入数据，并将其保存到指定的内存变量中。WAIT命令用于在程序执行到该命令时，系统首先在屏幕上显示用户设置的提示信息，然后等待用户从键盘输入一个字符，并将其保存到指定的内存变量中。这三个命令都是用来为内存变量赋值，不同点是：INPUT命令通常用于为内存变量输入数值、日期值和逻辑值；ACCEPT命令通常用于为内存变量输入字符串，输入的字符串可以不使用定界符；WAIT命令在接受了用户输入的任意一个字符以后，自动执行其后的命令。2、DO WHILE语句适用于已知循环条件但是不能确定循环次数的场合；FOR语句适用于能够确定循环次数的场合；SCAN语句适用于对表中的记录进行循环检测的场合。3、SET TALK OFFCLEARH=0.05/1000N=0DO WHILE H8844.43H=2*HN=N+1ENDDO?应对折?N?次RETURN4、SET TALK OFFCLEARUSE ScoreS=0N=0DO WHILE NOT EOF( )IF Courseid=1031S=S+ScoreN=N+1ENDIFSKIPENDDO?课程编号为1031这门课的平均考试成绩为?S/NUSERETURN5、SET TALK OFFCLEARS=0N=1FOR I=1 TO 10N=N*IS=S+NENDFOR?S=?SRETURN6、SET TALK OFFCLEARUSE StudentDO WHILE .T.INPUT 1：添加记录 2：编辑记录 3：删除记录 0：退出 TO SDO CASE CASE S=1 APPEND BLANK GO BOTTOM JL=RECNO( ) BROWSE FOR RECNO( )=JL CASE S=2 ACCEPT 请输入要编辑修改的学生学号 TO SID LOCATE FOR Studentid=SID IF NOT EOF( ) JL=RECNO( ) BROWSE FOR RECNO( )=JL ELSE ?查无此人！ ENDIF CASE S=3 ACCEPT 请输入要删除的学生学号 TO SID LOCATE FOR Studentid=SID IF NOT EOF( ) DELETE PACK ELSE ?查无此人！ ENDIF CASE S=0 EXITENDCASEENDDOUSERETURN第13章练习题答案1、答：（1）启动表单向导，在“向导选取”对话框中选择“一对多表单向导”选项，单击“确定”按钮后进入“一对多表单向导步骤1”对话框。（2）从父表中选取字段。在“一对多表单向导步骤1”对话框中，选择父表，在“选定字段”栏中添加需要的字段，单击“下一步”按钮，进入“一对多表单向导步骤2”对话框。（3）从子表中选取字段。在“一对多表单向导步骤2”对话框中，选择子表，在“选定字段”栏中添加其全部字段，单击“下一步”按钮，进入“一对多表单向导步骤3”对话框。（4）然后按照向导提示就可以创建一个双数据库表表单。2、答：打开表单的数据环境设计器，在设计器中将字段从主表拖动到相关表中的相匹配的索引标识上，或相关表中的字段上。如果和主表中的字段对应的相关表中没有索引标识，系统将提示是否创建索引标识。这时，在主表和相关表之间有一条连线，表示两表之间的关系。3、答：在进行表单设计时，可以使用表单向导，也可以使用表单设计器设计。由于采用表单向导设计的表单样式比较单一，有时需要设计一些复杂的、功能强大的表单，这时表单向导就不能胜任了，必须使用表单设计器来完成设计。在使用表单设计器进行表单设计时，一般按照下面的步骤进行设计：（1）分析表单需要实现的功能，和数据库中的哪些数据有关系，需要使用那些控件来实现这些功能。（2）创建表单，设置外观包括表单的背景颜色、尺寸、标题等。（3）根据需要设置数据环境，向数据环境中添加表和视图，创建表间关系等。（4）在表单上添加所需要的对象包括数据表、视图或控件等，并调整其位置、大小和整体布局。（5）利用属性窗口设置对象的初始属性。（6）为对象的事件编写程序代码以完成预定的要求。4、答：按照13.1.1 表单向导中的“使用表单向导创建双数据库表表单”的步骤创建基本表单，其中选择父表为“DEPARMENT”，子表为“STUDENT”，父表和子表通过“DEPID”建立联系，选择需要的字段，并把生成的表单修改为如下图所示。设置表单中各个对象属性如下：DEFINE CLASS form1 AS standardformScaleMode = 3Height = 253Width = 580ScrollBars = 3DoCreate = .T.Caption = DEPARTMENTBackColor = RGB(212,208,200)Name = Form1layoutsty.Shape1.Name = Shape1layoutsty.Shape2.Name = Shape2layoutsty.Shape3.Name = Shape3layoutsty.Shape4.Name = Shape4layoutsty.Left = 4009layoutsty.Visible = .F.layoutsty.TabIndex = 1layoutsty.Name = layoutstyADD OBJECT lbldepid1 AS standardlabel WITH ;FontBold = .T., ;Caption = 系编号:, ;Left = 25, ;Top = 13, ;Visible = .T., ;Width = 39, ;TabIndex = 2, ;Name = LBLDEPID1ADD OBJECT depid1 AS standardfield WITH ;ControlSource = department.depid, ;Format = , ;InputMask = XXXXXXXXXX, ;Left = 74, ;ReadOnly = .F., ;TabIndex = 3, ;Top = 10, ;Visible = .T., ;Width = 88, ;Name = DEPID1ADD OBJECT lblname1 AS standardlabel WITH ;FontBold = .T., ;Caption = 系名称:, ;Left = 185, ;Top = 13, ;Visible = .T., ;Width = 39, ;TabIndex = 4, ;Name = LBLNAME1ADD OBJECT name1 AS standardfield WITH ;ControlSource = , ;Format = , ;InputMask = XXXXXXXXXX, ;Left = 234, ;ReadOnly = .F., ;TabIndex = 5, ;Top = 10, ;Visible = .T., ;Width = 88, ;Name = NAME1ADD OBJECT grid1 AS grid1 WITH ;ColumnCount = 5, ;Comment = , ;Tag = , ;DeleteMark = .F., ;Height = 152, ;Left = 9, ;ReadOnly = .F., ;RecordSource = student, ;RecordSourceType = 1, ;TabIndex = 6, ;Top = 37, ;Visible = .T., ;Width = 483, ;Name = Grid1, ;Column1.ControlSource = student.studid, ;Column1.Width = 54, ;Column1.ReadOnly = .F., ;Column1.Visible = .T., ;Column1.Name = Column1, ;Column2.ControlSource = , ;Column2.Width = 70, ;Column2.ReadOnly = .F., ;Column2.Visible = .T., ;Column2.Name = Column2, ;Column3.ControlSource = student.sex, ;Column3.Width = 24, ;Column3.ReadOnly = .F., ;Column3.Visible = .T., ;Column3.Name = Column3, ;Column4.ControlSource = student.birthday, ;Column4.Width = 66, ;Column4.ReadOnly = .F., ;Column4.Visible = .T., ;Column4.Name = Column4, ;Column5.ControlSource = student.score, ;Column5.Width = 36, ;Column5.ReadOnly = .F., ;Column5.Visible = .T., ;Column5.Name = Column5ADD OBJECT form1.grid1.column1.header1 AS header WITH ;Caption = Studid, ;Name = Header1ADD OBJECT form1.grid1.column1.text1 AS textbox WITH ;Alignment = 3, ;BorderStyle = 0, ;Value = 981101, ;Margin = 0, ;ReadOnly = .F., ;ForeColor = RGB(0,0,0), ;BackColor = RGB(255,255,255), ;Name = Text1ADD OBJECT form1.grid1.column2.header1 AS header WITH ;Caption = Name, ;Name = Header1ADD OBJECT form1.grid1.column2.text1 AS textbox WITH ;BorderStyle = 0, ;Value = 李鸣, ;Margin = 0, ;ReadOnly = .F., ;ForeColor = RGB(0,0,0), ;BackColor = RGB(255,255,255), ;Name = Text1ADD OBJECT form1.grid1.column3.header1 AS header WITH ;Caption = Sex, ;Name = Header1ADD OBJECT form1.grid1.column3.text1 AS textbox WITH ;BorderStyle = 0, ;Value = 男, ;Margin = 0, ;ReadOnly = .F., ;ForeColor = RGB(0,0,0), ;BackColor = RGB(255,255,255), ;Name = Text1ADD OBJECT form1.grid1.column4.header1 AS header WITH ;Caption = Birthday, ;Name = Header1ADD OBJECT form1.grid1.column4.text1 AS textbox WITH ;Alignment = 3, ;BorderStyle = 0, ;Value = 1978/09/01, ;Margin = 0, ;ReadOnly = .F., ;ForeColor = RGB(0,0,0), ;BackColor = RGB(255,255,255), ;Name = Text1ADD OBJECT form1.grid1.column5.header1 AS header WITH ;Caption = Score, ;Name = Header1ADD OBJECT form1.grid1.column5.text1 AS textbox WITH ;Alignment = 3, ;BorderStyle = 0, ;Value = 590, ;Margin = 0, ;ReadOnly = .F., ;ForeColor = RGB(0,0,0), ;BackColor = RGB(255,255,255), ;Name = Text1ADD OBJECT commandgroup1 AS commandgroup WITH ;AutoSize = .F., ;ButtonCount = 3, ;Value = 1, ;Height = 35, ;Left = 144, ;Top = 204, ;Width = 194, ;TabIndex = 7, ;Name = Commandgroup1, ;Command1.AutoSize = .F., ;Command1.Top = 5, ;Command1.Left = 5, ;Command1.Height = 25, ;Command1.Width = 60, ;Command1.Caption = 上一记录, ;Command1.Name = Command1, ;Command2.AutoSize = .F., ;Command2.Top = 5, ;Command2.Left = 67, ;Command2.Height = 25, ;Command2.Width = 60, ;Command2.Caption = 下一记录, ;Command2.Name = Command2, ;Command3.AutoSize = .F., ;Command3.Top = 5, ;Command3.Left = 129, ;Command3.Height = 25, ;Command3.Width = 60, ;Command3.Caption = 退出, ;Command3.Name = Command3commandgroup1Click事件代码:PROCEDURE commandgroup1.Clickdo case case this.value=1 skip -1 if bof() go top endif case this.value=2 skip if eof() go bottom endif case this.value=3 thisform.release endcase thisform.refreshENDPROCENDDEFINE5、按照下图所示创建表单。设置表单中各个对象属性如下：DEFINE CLASS form1 AS formTop = 14Left = 52DoCreate = .T.Caption = 简单计算器Name = Form1ADD OBJECT text2 AS textbox WITH ;Alignment = 3, ;Value = 0, ;Height = 37, ;Left = 204, ;Top = 48, ;Width = 96, ;Name = Text2ADD OBJECT optiongroup1 AS optiongroup WITH ;ButtonCount = 4, ;Value = 1, ;Height = 84, ;Left = 84, ;Top = 108, ;Width = 60, ;Name = Optiongroup1, ;Option1.Caption = +, ;Option1.Value = 1, ;Option1.Height = 16, ;Option1.Left = 5, ;Option1.Top = 5, ;Option1.Width = 63, ;Option1.Name = Option1, ;Option2.Caption = -, ;Option2.Height = 16, ;Option2.Left = 5, ;Option2.Top = 23, ;Option2.Width = 63, ;Option2.Name = Option2, ;Option3.Caption = *, ;Option3.Height = 16, ;Option3.Left = 5, ;Option3.Top = 41, ;Option3.Width = 63, ;Option3.Name = Option3, ;Option4.Caption = /, ;Option4.Height = 16, ;Option4.Left = 5, ;Option4.Top = 59, ;Option4.Width = 63, ;Option4.Name = Option4ADD OBJECT text3 AS textbox WITH ;Alignment = 3, ;Value = 0, ;Height = 49, ;Left = 168, ;ReadOnly = .T., ;Top = 120, ;Visible = .T., ;Width = 169, ;Name = Text3ADD OBJECT command1 AS commandbutton WITH ;Top = 204, ;Left = 84, ;Height = 37, ;Width = 85, ;FontBold = .T., ;Caption = =, ;Name = Command1ADD OBJECT command2 AS commandbutton WITH ;Top = 204, ;Left = 204, ;Height = 37, ;Width = 85, ;FontBold = .T., ;Caption = 清除, ;Name = Command2ADD OBJECT label1 AS label WITH ;FontBold = .T., ;FontItalic = .F., ;Alignment = 2, ;Caption = 请在下面输入要计算的数, ;Height = 24, ;Left = 84, ;Top = 12, ;Width = 180, ;Name = Label1ADD OBJECT text1 AS textbox WITH ;Alignment = 3, ;Value = 0, ;Height = 37, ;Left = 60, ;Top = 48, ;Width = 96, ;Name = Text1“=”按钮的Click事件代码PROCEDURE command1.Click sel=thisform.Optiongroup1.value do case case sel=1 thisform.text3.value=thisform.text1.value +thisform.text2.value case sel=2 thisform.text3.value=thisform.text1.value -thisform.text2.value case sel=3 thisform.text3.value=thisform.text1.value * thisform.text2.value case sel=4 thisform.text3.value=thisform.text1.value / thisform.text2.value endcase thisform.text3.refreshENDPROC清除按钮的Click事件代码P