VFP上机练习题_结构化程序设计
- 格式:doc
- 大小:65.50 KB
- 文档页数:9
Visual Foxpro上机操作题(数据表建立与显示)说明:本答案只写操作命令,具体操作自己上机完成根据要求完成下列操作:1.建立一个名为ys.dbf的数据表,其结构如下:字段字段名类型宽度小数位1 姓名字符型 82 性别字符型 23 固定工资数值型 8 24 津贴数值型 6 25 扣杂费数值型6 26 实发金额数值型 8 27 领款日期日期型 88 退休逻辑型 19 签名字符型 610 备注备注型 10注意:结构输入完成后,按CTRl+W存盘。
2.录入如下内容:记录号姓名性别固定工资津贴扣杂费实发金额领款日期退休签名备注1 吴均荣女 527.00 120.00 10.50 01/01/89 .T. memo2 肖才坤男 527.00 120.00 10.50 05/05/99 .F. memo3 李思强男 527.00 120.00 10.50 05/05/95 .T. memo4 司马文华女 527.00 120.00 10.50 05/05/98 .T. memo5 钟小渠男 437.00 120.00 10.50 05/05/97 .F. memo6 赵明明女 422.00 120.00 10.50 05/05/96 .F. memo7 欧阳明月女 396.50 120.00 10.50 05/05/92 .F. memo 3.打开数据库ys.dbf4.显示数据库结构.5.修改数据库结构,将实发金额的宽度改为7,小数点后有2位.注意:修改结构时一般不能同时修改字段名和类型,也不能同时修改字段名和宽度,否则有可能造成数据丢失。
完成后按ctrl+W存盘。
6.显示所有记录.7.显示所有性别为”男”的记录.8.显示所有已退休的记录.说明:在条件语句中,若要返回逻辑字段真值,只需输入逻辑字段的字段名即可,若要返回逻辑字段假值,则在字段名前加上.not.例:显示出所有未退休的记录。
List all for .not.退休9.显示出所有领款日期在1993年以前的记录.10.显示出所有性别为”女”、固定工资为527.00的记录.11.在数据库末尾增加3条记录,内容随意.12.在第4条记录前面插入一条新记录,内容随意.13.在第5条记录后增加一条空白记录.14.显示数据库前3条记录.15.显示数据库最后2条记录.16.显示第2第到第5条记录.Visual Foxpro上机操作题(数据表建立与显示答案) 说明:本答案只写操作命令,具体操作自己上机完成根据要求完成下列操作:1.建立一个名为ys.dbf的数据表,其结构如下:字段字段名类型宽度小数位1 姓名字符型 82 性别字符型 23 固定工资数值型 8 24 津贴数值型 6 25 扣杂费数值型6 26 实发金额数值型 8 27 领款日期日期型 88 退休逻辑型 19 签名字符型 610 备注备注型 10Create ys注意:结构输入完成后,按CTRl+W存盘。
1、Visual FoxPro "文件"菜单中的"关闭"命令是用来关闭_当前活动窗口_。
2、有关命令窗口中字体的说法,不正确的是_命令窗口中的字体大小、行间距不能改变_。
3、有关项目管理器的说法,不正确的是_项目管理器折叠时不可使用_。
4、从数据库的整体结构看,数据库系统采用的数据模型有__层次模型、网状模型和关系模型__。
5、结构化程序设计的3种基本逻辑结构是__顺序结构、选择结构和循环结构__。
6、在Visual FoxPro中,容器的计数属性都可以改写的是__命令按钮组、选项按钮组、表格、页框__。
7、数据环境中包含的表、视图和关系,是定义表单或表单集时所使用的__数据源__。
8、不属于选项按钮组属性的是__caption___。
9、新创建的表单默认标题为Form1,为了修改表单的标题,应设置表单的_Caption_属性。
10、OptionGroup可能包含的对象是__Optionbutton__。
11、__label__控件是非绑定型控件。
12、__OptionButton__属于数据绑定型控件。
13、设计表单时,要指明表单窗口的颜色,可通过表单的_backColor_属性设置。
14、在Visual FoxPro中,容器的集合属性名称一致的是_命令按钮组、选项按钮组_。
15、Visual FoxPro的Zap命令可以删除当前表文件的__所有记录__。
16、如果一个班只能有一个班长,而且一个班长不能同时担任其他班的班长,班级和班长两个实体之间的关系属于__1:1__。
17、在关系模型中,二维表表头中的栏目称为__属性名__。
18、关系数据库管理系统管理的关系实际上是__若干个二维表__。
19、关于二维表性质的说法不正确的是__二维表中的记录数、字段数决定了二维表的结构__。
20、在表单中,若指定该表单为多文档界面,应将表单的__MDIForm__属性值设置为真(.T.)。
VFP 上机考试题目-1一、判断题(10题,每小题1分,共10分)1. 若要使用多个表,就要使用多个工作区。
2. 在应用程序中可以通过使用该工作区的表的别名来标识工作区。
3. 对象具有属性,而属性只能在设计阶段设置。
4. 引用对象的方法分绝对引用和相对引用。
5. 表单集是指两个以上的表单同时输出,并且可以通过程序或鼠标交换输出权。
6. 一条命令可分几行写,在行结束处用“:”表示一行未完,转入下一行。
7. VFP主要数据容器有:表记录、变量和数组。
8. 报表包括两个基本组成部分:数据源和布局。
9. 如果不想使用“报表向导”或“快速报表”设计报表,可以从空白报表布局开始,然后自己添加控件。
10. 表选择查询输出的去向可以是浏览、报表或表单。
二、单选题(10题,每小题2分,共20分)1. 下面选项中不属于面向对象程序设计特征的是A. 继承性B. 多态性C. 类比性D. 封闭性2. 下列对列的叙述正确的是A. 队列属于非线性表B. 队列按“先进后出”原则组织数据C. 队列在队尾删除数据D. 队列按“先进先出”原则组织数据3. Visual FoxPro是一种A. 数据库系统B. 数据库管理系统C. 数据库D. 数据库应用系统4. 在Visual FoxPro中调用表单mf1的正确命令是A. DO mf1B. DO FROM mf1C. DO FORM mf1D. RUN mf15. 要在浏览窗口中显示表js.dbf中职称(zc)为“教授”和“副教授”的纪录(该字段的内容无前导空格),下列命令中不能实现此功能的是。
A.SELECT * FROM js WHERE js.zc=“教授” OR js.zc=“副教授”B. SELECT * FROM js WHERE “教授” $ js.zcC. SELECT * FROM js WHERE js.zc IN(“教授” ,“副教授”)D. SELECT * FROM js WHERE WHERE RIGHT(js.zc,4)= “教授”6. 在Visual FoxPro系统中,表达式LEN(DTOC(DA TE(),1))的值为。
计算机vfp上机试题及答案一、选择题(每题2分,共20分)1. 在Visual FoxPro中,以下哪个命令用于打开一个表单?A. USEB. BROWSEC. FORMD. DISPLAY答案:C2. 以下哪个函数用于计算字符串的长度?A. LENB. TYPEC. UPPERD. LOWER答案:A3. 在Visual FoxPro中,以下哪个命令用于创建一个查询?A. SELECTB. QUERYC. REPORTD. INDEX答案:B4. 以下哪个选项不是Visual FoxPro中的表单控件?A. TEXTBOXB. COMMANDBUTTONC. LISTBOXD. DATAGRID答案:D5. 在Visual FoxPro中,以下哪个命令用于显示当前表的记录?A. LISTB. DISPLAYC. BROWSED. REPORT答案:C6. 以下哪个函数用于将字符串转换为大写?A. UPPERB. LOWERC. PROPERD. ALLTRIM答案:A7. 在Visual FoxPro中,以下哪个命令用于关闭一个表单?A. CLOSEB. RELEASEC. FORMD. CANCEL答案:B8. 以下哪个选项是Visual FoxPro中的表单事件?A. ON LOADB. ON CLICKC. ON OPEND. ON CLOSE答案:D9. 在Visual FoxPro中,以下哪个命令用于添加一个索引?A. INDEXB. SET INDEXC. CREATE INDEXD. ADD INDEX答案:A10. 以下哪个函数用于计算表中记录的数量?A. COUNTB. SUMC. AVGD. MAX答案:A二、填空题(每题2分,共20分)1. 在Visual FoxPro中,使用________命令可以创建一个新的表。
答案:CREATE TABLE2. 要将Visual FoxPro中的表结构导出为文本文件,可以使用________命令。
vfp上机练习题在学习编程的过程中,上机练习题是非常重要的一环。
特别是对于初学者来说,通过上机练习题,可以巩固所学知识,提高编程能力。
VFP(Visual FoxPro)作为一种强大的数据库编程语言,也有许多上机练习题可以供我们挑战。
在本文中,我将探讨VFP上机练习题的重要性,并分享一些解题的思路和技巧。
首先,上机练习题可以帮助我们熟悉VFP的语法和功能。
在编程学习的早期阶段,掌握语法是非常关键的。
通过完成一系列的上机练习题,我们可以加深对VFP语法的理解,熟悉各种命令和函数的使用方法。
这样,当我们面对实际的编程任务时,就能够更加熟练地运用VFP的语法,提高编程效率。
其次,上机练习题可以帮助我们培养解决问题的能力。
编程是一门解决问题的艺术。
通过上机练习题,我们可以锻炼自己的逻辑思维和问题分析能力。
每个练习题都是一个具体的问题,我们需要仔细分析问题的要求,找出解决问题的方法。
在解题的过程中,我们可能会遇到各种各样的困难和挑战,但正是这些挑战让我们成长。
通过不断地解决上机练习题,我们可以提高自己的问题解决能力,培养自信心。
另外,上机练习题也可以帮助我们扩展知识面。
VFP是一种功能强大的数据库编程语言,具有广泛的应用领域。
通过完成上机练习题,我们可以接触到各种各样的问题和应用场景,了解VFP在实际项目中的应用。
这样,我们可以不断学习新的知识,丰富自己的编程技能。
同时,通过解决实际问题,我们也可以学习到一些实用的编程技巧和经验,提高自己的编程水平。
那么,如何有效地解决VFP上机练习题呢?首先,我们需要仔细阅读题目要求,理清思路。
对于复杂的题目,可以先将问题分解为几个小问题,逐个解决。
其次,我们可以利用VFP的调试工具,逐步调试代码,查找错误。
调试工具可以帮助我们定位问题所在,快速找出错误,并进行修正。
此外,我们还可以利用VFP的帮助文档和互联网资源,查找相关的函数和命令的使用方法,获取更多的解题思路和技巧。
vfp上机练习题今天我们来进行一些VFP(Visual FoxPro)上机练习题,帮助大家更好地理解和掌握这个数据库管理系统。
下面是一些常见的练习题,希望对你的学习有所帮助。
一、VFP基础知识练习1. 创建一个新的数据库,命名为"VFP_Practice",并在该数据库中创建一个表格,名为"Student"。
表格中应包含以下字段:- 学号(ID):字符型,长度为10- 姓名(Name):字符型,长度为20- 年龄(Age):整型- 性别(Gender):字符型,长度为2- 成绩(Score):双精度型2. 在"Student"表格中插入5条学生记录,并确保每个字段都有合适的值。
3. 编写VFP代码,查询"Student"表格中所有女生的信息。
4. 编写VFP代码,查询"Student"表格中成绩在90分以上的学生信息。
二、VFP查询语句练习1. 编写VFP代码,查询"Student"表格中年龄最大的学生信息。
2. 编写VFP代码,查询"Student"表格中成绩最低的学生信息。
3. 编写VFP代码,查询"Student"表格中成绩在80分到90分之间的学生信息。
4. 编写VFP代码,查询"Student"表格中男生的平均年龄。
三、VFP表格操作练习1. 编写VFP代码,向"Student"表格中插入一条学生记录。
2. 编写VFP代码,修改"Student"表格中学号为"001"的学生的成绩为95分。
3. 编写VFP代码,删除"Student"表格中年龄大于等于20岁的学生记录。
4. 编写VFP代码,将"Student"表格中所有女生的成绩增加10分。
计算机二级VisualFoxPro上机考试题库及答案解析34一、根本操作在考生文件夹下完成如下操作:1.创立一个新的工程sdb_p,并在该工程中创立成数据库sdb.2.将考生文件夹下的自由表student和sc添加到sdb。
3.在sdb数据库中建立course, 表构造如下:字段名类型宽度课程名字符型 2课程名字符型 20学时辽符型 2随时向表输入6条记录,记录内容如下〔注意大小写〕:课程号课程名学时C1 C++ 60C2 Visual Foxpro 80C3 数据构造50C4 JAVA 40C5 Visual BASIC 40C6 OS 604.为course表创立一个主索引,索引名为cno、索引表达式为"课程号"。
二、简单应用在考生文件夹下完成如下简单应用;1.根据sdb数据库中的表用SQL SELECT命令查询学生的学号、姓名、课程名和成绩,结果按"课程名"升序排序,"课程号"一样时按"成绩"降序排序,并将查询结果存储到sclist表中。
2.使用表单向导选择student表生成一个名为form1的表单。
要求选择student表中所有字段,表单样式为"阴影式";按钮类型为'图片按钮';排序字段选择"学号"〔升序〕;表单标题为"学生根本数据输入维护"。
三、综合应用翻开根本操作中建立的数据库sdb,使用SQL的CREATE VIEW命令定义一个名称为SVIEW的视图,该视图的SELECT语句完成查询:选课门数是3门以上〔不包括3门〕的每个学生的学号、姓名、平均成绩、最低分和选课门数,并按"平均成绩"降序排序。
最后将定义视图的命令代码存放到命令文件T1。
PRG中并执行该文件。
接着利用报表向导制作一个报表。
要求选择SVIEW视图中所有字段;记录不分组;报表样式为"随意式";排序字段为"学号"〔升序〕;报表标题为"学生成绩统计一览表";报表文件名为p_student.2.设计一个名称为form2的表单,表单上有"浏览"〔名称为Command1〕和"打印"〔 Command2〕两个命令按钮。
《VFP 语言程序设计》考试试卷年级 专业 姓名 学号 座位号一、单项选择(在备选答案中选出一个正确答案,将答题卡上对应的选项涂黑。
每题2分,共50分)01.按照数据库管理系统采用的数据模型Visual FoxPro 是_____DBMS 。
A )层次型 B )混合型 C )关系型 D )网状型02.数据库(DB)、数据库系统(DBS)、数据库管理系统(DBMS)三者之间的关系是_____。
A )DBS 包括DB 和DBMS B )DBMS 包括DB 和DBSC )DB 包括DBS 和DBMSD )DBS 就是DB ,也就是DBMS 03.关系数据库管理系统存储与管理数据的基本形式是_____。
A )关系树B )二维表C )结点路径D )文本文件04.用户启动Visual FoxPro 后,若要退出Visual FoxPro 回到Windows 环境,可在命令窗口中输入_____命令。
A )EXITB )CLOSEC )SYSTEMD )QUIT 05.Visual FoxPro 的最大特点是______。
A) 面向过程编程技术 B) 面向对象编程技术 C) 结构化编程技术 D) 界面友好06.在Visual FoxPro 数据库管理系统中,下列数据是常量的是_____。
A )T B ).T. C )TOP D )02/10/9907.在Visual FoxPro 中,下列定义的变量名中,错误的是_____。
A )ABC B )3A C )A_3 D )A3 08.下列四个选项中,结果相同的是 。
A )LEET(″Visual FoxPro″,6)与SUBSTR(″Visual FoxPro″,1,6)B )YEAR(DA TE())与SUBSTR(DTOC(DATE()),7,2)C )AT(″5″,″36-5*4″)与LEN(″36-5*4″)D )假定A=″this ″,B=″is a string″,A-B 与A+B 09.在Visual FoxPro 中说明数组的命令是_____。
计算机二级《VFP》上机考试题库计算机二级《VFP》上机考试题库2016为了帮助考生们更好地备考2016年9月计算机二级VF考试,下面是店铺搜索整理的关于计算机二级《VFP》上机考试题库,欢迎参考练习,希望对大家有所帮助!想了解更多相关信息请持续关注我们店铺!一、基本操作题1.在考生文件夹下已有表单文件formone.scx,其中包含两个标签、一个组合框和一个文本框,如下图所示。
按要求完成相应的操作,使得当表单运行时,用户能够从组合框选择职员,并且该职员所签订单的平均金额能自动显示在文本框里。
(1)将orders表和employee表依次添加到该表单的数据环境中(不要修改两个表对应对象的各属性值)。
(2)将组合框设置成“下拉列表框”,将employee表中的“姓名”字段作为下拉列表框条目的数据源。
其中,组合框的RowSourceType属性值应设置为:6-字段。
(3)将Text1设置为只读文本框。
(4)修改组合框的InteractiveChange事件代码,当用户从组合框选择职员时,能够将该职员所签订单平均金额自动显示在文本框里。
2.利用查询设计器创建查询,从employee和orders表中查询“组别”为1的组各职员所签的所有订单信息。
查询结果依次包含“订单号”、“金额”和“签订者”3项内容,其中“签订者”为签订订单的职员姓名。
按“金额”降序排列各记录,查询去向为表tableone。
最后将查询保存在queryone.qpr文件中,并运行该查询。
二、简单应用题1.在考生文件夹下有一个名为formone.scx的表单文件,如下图所示,其中包含一个文本框、一个表格和两个命令按钮.请按下列要求完成相应的操作:(1)通过“属性”窗口将文本框Textl的Value属性值设置为当前系统日期(t3期型,不含时间)。
(2)通过“属性”窗口将表格Gridl的.RecordSoureeTyde属性值设置为“4-SQL说明”。
结构化程序设计将sb.dbf复制到D盘根目录下的xxx文件夹(xxx可用任意字母代替),执行命令:SET DEFAULT TO D:\XXX。
一、VFP程序设计中的输入、输出语句1.字符串输入语句命令格式:ACCEPT [提示信息] TO <内存变量>示例1:编写一个程序cx1.prg,该程序打开sb.dbf,按输入的编号查询信息。
* cx1.prgUSE sbACCEPT "请输入要查询的设备编号:" TO bhLOCATE FOR 编号=bhDISPLAYUSERETURN示例2:编写一个程序cx2.prg,该程序打开sb.dbf,按输入的价格查询信息。
* cx2.prgUSE sbACCEPT "请输入要查询的设备价格:" TO jgjg = VAL(jg) && 将变量jg转换为数值型LOCATE FOR 价格=jgDISPLAYUSERETURN2.表达式输入语句命令格式:INPUT [提示信息] TO <内存变量>示例3:编写一个程序circle1.prg,求解任意半径的圆的面积。
* circle1.prgCLEARINPUT "请输入圆的半径:" TO rs=PI()*r*r?"圆的面积=",s思考:将示例1和示例2中的ACCEPT换为INPUT,程序要如何修改?3.定位输入输出命令命令格式:@<行,列> [SAY <表达式1>] [GET <变量名>] [DEFAULT <表达式2>] 示例4:试编写一程序,能根据记录号来修改某个设备的价格和部门。
* e4.prgCLEARUSE sbjlh=1@2,10 SAY "请输入记录号: "GET jlhREADGO jlh@4,10 SAY "请修改第" +STR(jlh,1)+ "个设备的数据: "@5,10 SAY "价格" GET 价格@6,10 SAY "部门" GET 部门READUSE示例5:将示例3改用定位输入输出命令实现(程序略)4.WAIT命令命令格式:WAIT [<信息文本>] [TO <内存变量>][WINDOW [AT <行>,<列>]][NOWAIT][CLEAR | NOCLEAR][TIMEOUT <数值表达式>]示例6:试编写一个程序,按”Y”键后能退出系统。
* e6.prgWAIT "是否退出?(Y/N)" TO i WINDOW AT 10,10IF UPPER(i)="Y"QUITENDIF二、程序的控制结构1.顺序结构(示例略)2.分支结构⑴简单的条件语句示例7:将SB.DBF中第一个非主要设备的价格减少10%*e7.prgLOCATE FOR NOT 主要设备IF FOUND()DISPLAY 名称,价格REPLACE 价格 WITH 价格*(1-0.1)DISPLAY 名称,价格ENDIFUSERETURN⑵带ELSE的条件语句示例8:试编写一程序,能打开任意一个表来浏览。
* e8.prg@5,10 SAY "请输入表名:"GET bm DEFAULT SPACE(10)READbm=ALLTRIM(bm)IF FILE("&bm..dbf")USE &bmBROWSEELSEWAIT "该文件不存在!"WINDOWENDIF⑶多分支语句示例9:显示当前季节程序* e9.prgyue=MONTH(DATE())DO CASECASE INLIST(yue,3,4,5)jj="春"CASE INLIST(yue,6,7,8)jj="夏"CASE INLIST(yue,9,10,11)jj="秋"CASE INLIST(yue,12,1,2)jj="冬"WAIT jj WINDOW3.循环结构⑴条件循环(DO WHILE)示例10:试编写一程序,显示SB.DBF中所有单价超过10000元的设备名称。
* e10.prgUSE sbDO WHILE NOT EOF( )IF 价格>10000? 名称ENDIFSKIPENDDOUSE示例11:按9万元以上,1~9万元,1万元以下三级价格分档统计SB.DBF中设备的个数。
* e11.prgSTORE 0 TO K1,K2,K3USE sbDO WHILE NOT EOF( )DO CASECASE 价格>90000K1=K1+1CASE 价格<10000K1=K1+1OTHERWISEK2=K2+1ENDCASESKIPENDDO? "9万元以上设备个数:"+STR(K1)? "1~9万元设备个数:"+STR(K2)? "1万元以下设备个数:"+STR(K3)USE⑵步长循环(FOR)示例12:编写计算s=1+2+3+……+100的程序。
* e12.prgs=0FOR i=1 TO 100s=s+iNEXT?”s=",s思考:试将示例12用DO WHILE实现。
⑶扫描循环(SCAN)示例13:用SCAN扫描循环语句显示价格在10000元以上的设备的名称及价格。
* e13.prgUSE sbSCAN FOR 价格>10000?名称ENDSCANUSE⑷循环辅助语句(LOOP和EXIT)示例14:编程计算s=1+2+3+ … +100,并求1~100之间奇数之和。
* e14.prgSTORE 0 TO i,s,tDO WHILE i<100i=i+1s=s+iIF INT(i/2)=i/2LOOPENDIFt=t+iENDDO? "1+2+3+ … +100=",s? "1~100的奇数和:",t⑸多重循环示例15:在SB.DBF中找出所有价格超过P的设备编号、名称与价格,并要求在各输出行下显示一行虚线。
* e15.prgCLEARUSE sb@5,10 SAY "请输入价格: "GET jg DEFAULT 0READSCANIF 价格>jg? 编号+SPACE(3)+名称+SPACE(3)+STR(价格,9,2)?FOR i=1 TO 30?? "-"ENDFORENDIFENDSCANUSE三、模块化程序设计1.子程序示例16:编写3个子程序,用于计算圆的面积、周长及球的体积,在主程序中带参数调用。
主程序:yuan1.prgCLEARymj = 0zc = 0tj = 0@3,3 SAY "请输入半径:" GET bj DEFAULT 0READDO js1 WITH bj,ymjDO js2 WITH bj,zcDO js3 WITH bj,tj?"圆的面积=",ymj?"圆的周长=",zc?"球的体积=",tj子程序1:js1.prgPARAMETERS r,sRETURN子程序2:js2.prgPARAMETERS r,cc=2*PI()*rRETURN子程序3:js3.prgPARAMETERS r,vv=4/3*PI()*r*r*rRETURN2.过程示例17:将上例改为过程调用。
解1:过程作为独立的一个文件。
主程序:yuan2.prgCLEARymj = 0zc = 0tj = 0@3,3 SAY "请输入半径:" GET bj DEFAULT 0READDO js1 WITH bj,ymj in jsDO js2 WITH bj,zc in jsDO js3 WITH bj,tj in js?"圆的面积=",ymj?"圆的周长=",zc?"球的体积=",tj过程文件:js.prgPROCEDURE js1PARAMETERS r,ss=PI()*r*rRETURNPROCEDURE js2PARAMETERS r,cRETURNPROCEDURE js3PARAMETERS r,vv=4/3*PI()*r*r*rRETURN解法2:过程与调用程序包含在同一个文件中。
*yuan3.prgCLEARymj = 0zc = 0tj = 0@3,3 SAY "请输入半径:" GET bj DEFAULT 0READDO js1 WITH bj,ymjDO js2 WITH bj,zcDO js3 WITH bj,tj?"圆的面积=",ymj?"圆的周长=",zc?"球的体积=",tjPROCEDURE js1PARAMETERS r,ss=PI()*r*rRETURNPROCEDURE js2PARAMETERS r,cc=2*PI()*rRETURNPROCEDURE js3PARAMETERS r,vv=4/3*PI()*r*r*rRETURN3.函数示例18:设计一个自定义函数,用来求一元一次方程AX+B=0的根。
解法1:函数作为一个独立的文件* root.prgPARAMETERS a,bRETURN IIF(a=0,"无解",-b/a)解法2:函数与调用程序包含在同一个文件中。
* root1.prgCLEAR@5,10 SAY "一次项系数:"GET a DEFAULT 1@7,10 SAY "常数项:"GET b DEFAULT 0READ? "x: ",root1(a,b)FUNCTION root1PARAMETERS u,vRETURN IIF(u=0, "无解",-v/u)。