第一套
1.按要求完成以下程序：输入长方形的长L和宽W的值，计算长方形的面积S并输出。
program1.prg
2.编一个计费程序，按托运规定，行李不超过50千克时，运费为每千克0.15元，如超过50千克，其中50千克，运费按每千克0.15元，超过50千克部分的运费为每千克0.22元，输入行李重量，显示托运费。
3.编写循环程序实现：在 rcda.dbf表中，统计姓“刘”的人数并输出。
4. 表单文件Program5.scx，要求在文本框Text1中输入某一年份，单击“计算”命令按钮则判断该年是否闰年，如果是闰年，则在文本框Text2中显示“是闰年！”，如果不是闰年，则在文本框Text2中显示“不是闰年！”；单击“退出”命令按钮，则关闭表单。请编写“计算”和“退出”命令按钮的代码，判断某一年份是否闰年的方法如下：(1)年份能被4整除，但不能被100整除；(2)年份能被400整除；符合上述二个条件之一者即为闰年，如1996年是闰年。
第二套
??? 1.按要求完成以下程序：输入梯形的上底A、下底B和高H的值，计算梯形的面积S并输出。
2.按下列要求完成以下程序，要求根据某人的收入计算他应交的个人所得税，方法如下：如果收入在1600元以内，则不用计税，显示“未达到交税标准”；如果收入超过1600元，则超过部分应交纳5%的个人所得税，计算并显示应交税额。
3.编写循环程序实现：在 rcda.dbf表中，统计“出生日期”在1980年以前出生的人数
并输出。
4.表单文件Program5.scx，要求在文本框Text1中输入一正整数N，单击“计算”命令按钮则计算N以内的所有奇数的乘积，并将结果显示在文本框Text2中，单击“退出”命令按钮，则关闭表单。请编写“计算”和“退出”命令按钮的代码。
第三套
??? 1.按要求完成以下程序：输入长方体长L、宽W、高H，求长方体的表面积S并输出计算结果。
2.按要求完成以下程序：某航空公司规定，如果订票数大于或等于20张，则票价优惠15%；如果订票数大于或等于10张，则票价优惠10%，不足10张没有优惠。编写程序，输入票价及订票数后，计算并显示出所需金额。
3.编写循环程序实现：在 rcda.dbf表中，统计性别为“女”且工资现状在2000元以上
的人数并输出。
4.表单文件Program5.scx，要求在文本框Text1中输入一正整数N，单击“计算”命令按钮则计算N以内的所有6的倍数和，并将结果显示在文本框Text2中，单击“退出”命令按钮，则关闭表单。请编写“计算”和“退出”命令按钮的代码。
第四套
??? 1.按要求完成以下程序：输入圆柱体的半径R和高H，求圆柱体的体积V并输出计算结果。
1
2.按要求编写程序：输入考试成绩x，输出对应的评价等级，等级标准如下： 合格： 60≤x≤100 不合格： 0≤x<60
输入有误： 其他字符。
3.编写循环程序实现：在 xs.dbf表中，统计专业为“计算机”且性别为“男”的人数
并输出。
4. 表单文件Program5.scx，要求在文本框Text1中输入某一职工的工资，单击“计算”命令按钮则计算该职工的实际收入，并将收入显示在文本框Text2中，单击“退出”命令按钮，则关闭表单。请编写“计算”和“退出”命令按钮的代码，（职工实际收入的方法如下：职工收入=职工工资-个人所得税。当职工收入在1500元或以下时，不用交个人所得税；超过1500元的，按工资总额的3%的比例交纳个人所得交税）。
第五套
??? 1.按以下要求完成程序：从键盘输入任意一个字符串，求出它的长度并输出。(提示：计算字符长度的函数名为len)
2. program2.prg文件，按要求编写程序：求分段函数的值。 10 x<1 y= x2+1 1≤x≤10
2x+5 x>10
3.编写循环程序实现：计算N以内所有偶数平方的和(S=22+42+62?)并输出，其中N为任
一正整数。
4.表单文件program5.scx，按要求完成以下题目：当在Text1文本框中输入编号时，如果该记录存在，单击查询按钮时，表单显示的记录信息会相应的更新，如果该记录不存在，单击查询按钮时，用Messsagebox函数提示“查无此人”；单击退出按钮时，退出表单。请给查询按钮和退出按钮添加相应的命令代码。
第六套
??? 1.按要求完成以下程序：要求提示输入变量X的值，然后计算函数Y=5X+4X+2X-10的值并输出。
2.编写一个程序，要求：从键盘输入任意三个数，让它们代表三条线段的长度，如果任意二条线段之和大于第三线段则显示“可以构成一个三角形”；否则显示“不能构成一个三角形”。
4
3
3.编写循环程序实现：计算N以内所有奇数平方的和(S=12+32+52?)并输出，其中N为任
一正整数。
2
4.表单文件program5.scx，要求在文本框Text1中输入邮件重量，单击“计算”命令按钮则计算邮件的邮资费，并将邮件的邮资费显示在文本框Text2中，单击“退出”命令按钮，则关闭表单。请编写“计算”和“退出”命令按钮的代码，（“A类邮件”计费规定：当邮件重量小于等于100克时，邮资费为每克1元；当邮件重量超过100克时，其中100克，按每克1元计费，超过100克的重量，按每克2元计费）。
第七套
1、输入三角形的三边，求三角形的面积
2、 查找准考证号为30130101的记录，如果找到，把记录的“数学”字段减5分，否则用messagebox函数输出“查无此人”的信息。
3、（此题没题目，只有答案，大家看答案猜题目）
添加6个控件对象并分别设置属性
“开始计算”按钮click事件：
N=thisform.text1.value S=0 For I=1 to N S=S+1/(i*i) Endfor
Thisform.text2.value=S
“退出”按钮click事件：
thisform.release
第八套
1、输入字符串，求字符串长度。
2、 （此题是用多向分支解决数学问题。此题没题目，只有答案，大家看答案猜题目） clear
input \ do case
case x>=100 y=-4*x^2+3 case x>0 y=-123 case x=0 y=0 case x>-100 y=123 case x<=-100 y=9*x^3+7*x-9 endcase ? \
3
3、 要求会：
1）建数据库并添加表到数据库 2）修改数据表的结构 3）输入数据表的数据
4）设置表中某个字段的有效性规则 设置字段的有效性信息
此题是相关实验做过的，请注意。
4、（此题没题目，只有答案，大家看答案猜题目） 添加5个控件对象并分别设置属性
“浏览工资表”按钮click事件： use 工资.dbf excl browse
use
“浏览雇员表”按钮click事件： use 雇员.dbf excl browse
use
“求出生日期为六十年代的人数”按钮click事件： use 人才档案.dbf excl S=0 scan
if 出生日期<{^1969-12-31} .and. 出生日期>{^1960-01-01} s=s+1 endif endscan Thisform.text1.value=S Use
“退出”按钮click事件：
thisform.release
4
