[农学]表单程序设计

1、表操作练习表文件操作练习题 在D:盘建立文件夹MYVFP，用SET DEFA TO D:MYVFP命令将其设置为当前工作目录，先将XS复制到当前目录中，再打开表文件XS，完成以下操作：1、列表显示英语和计算机大于等于80分的记录，并将XS复制到当前文件夹中，取名为XS01；2、打开表文件XS01，在第6条记录之前插入一条空记录；3、逻辑删除第48条记录；4、增加一个总分（N，4）、平均分（N，5，1）和奖学金（N，4）字段。5、分别计算每个记录的总分和平均分；6、将总分大于等于310分的记录的奖学金评定为500元；7、显示总分大于等于320分的记录，要求只显示姓名、总分和奖学金字段；

2、8、将计算机成绩大于等于80分的女同学的总分提高10%；9、去掉第3题所做的删除标记，并彻底删除表文件中的所有空记录；10、增加一个“出生年月”字段（D，8），输入每个记录的出生日期。11、增加一个“年龄”字段（N，3），根据字段“出生年月”计算每个学生的年龄（系统日期由函数DATE()产生）；12、按“总分”和“英语”字段的递减方式排顺序到XS03中；13、按“总分”及“出生年月”建立索引文件DF；14、将当前打开的表结构复制到XS04中，并将XS01中平均分小于65分的记录追加到XS04中。15、打开表文件XS04，顺序查找并显示1988年12月31以前出生的女同学。16、打开表文件XS0

3、1，按平均分降序索引，生成索引文件XS05，索引查找并显示平均分为73.5分的记录。17、对表文件XS01的记录，按性别分类，并对男同学和女同学的总分汇总，生成汇总文件XSHZ.DBF.18、分别在第1和第2工作区中打开表文件学生表和成绩表，并显示每个记录的姓名、年龄和成绩。 学生表文件：xs.rar参考答案：表操作练习答案.doc 结构化程序设计练习练习题一 1、从键盘上输入一个自然数，判断其奇偶性。 2、从键盘上输入一个数，求该数的算术平方根。3、从键盘上输入一个成绩，并根据下列要求评定成绩档次：>=90     

4、         优秀>=80 且 <90       良好 >=70 且 <80       中等 >=60 且 <70      及格<60             

5、; 不及格4、从键盘上输入一个数X，计算下列Y的值：5、统计1500之间能被2和3整除的数的个数值。6、从键盘上输入两个数M、N，若M比N大，则输出 ，反之，则输出M*N。练习题二 1、计算：     S=2+5+8+3*N-1（N=100，从键盘输入）。2、计算：    （n=10,从键盘输入）3、从1开始求奇数的累加和，若其和大于5000，则输出累加结果及累加的奇数个数。4、打开表文件学生表.dbf，查找从键盘上输入的姓名胡丽萍，若找到，先显示该记录，再将其作逻辑删除；若找不到，则显示“要删除的姓名不存在！”。编程实现以

6、上功能。5、求 （n=100，从键盘输入）。(S=1.6350)6、编程求一元二次方程 的解（a、b、c从键盘输入）。7、从键盘上任意输入n个数，找出其中的最大数。8、编程实现从1到500之间抽取1、9、17、25、这一系列数据（至少用2种方法）。9、求S=1！+3！+5！+11！。(S=40284847)10、编程构造一个6 6方阵，使主对角元素为1，其他元素为0。11、打印输出以下图形：（1）                

7、0;                                    （2）               

8、;                                          12、某城市电话号码由7位升为8位，升位规则为：当电话号码的第一位为2、3、4、5的在号码前加2，其余在

9、号码前加3。编程实现以上升级。 13、从键盘上输入一个数N，以该数为起始数，求出20个能被6整除，并且末位数是8的数。14、从键盘上输入任一小数，将其化成整数后输出。15、从键盘上输入任一数，判断这个数有几位小数(末位为0不计)。16、计算S=1*2+2*3+3*4+n*(n+1)  (n=100,从键盘输入)。17、计算（n=500,从键盘输入）。 (S=1.3863) 18、将26个大写英文字母按A、B、C、的顺序分二行输出。19、将125平均分5行输出，结果如下图。        

10、60;                       第18题                           

11、60;               第19题程序设计上机练习题（3）1、  计算      (S=1.7183)2、  求11000以内的所有素数。3、  从键盘上输入一汉字字符串（如“数据库系统程序设计”），将其反向输出。4、  打印输出如下形式的乘法九九表。 1        

12、;  12          2   43          3   6    94          4   8    12   165   

13、60;      5   10   15   20  256          6   12   18   24  30  367          7   14   21

14、0;  28  35  42  498          8   16   24   32  40  48  56  649          9   18   27   36  45  54

15、0; 63  72  81 5、  从键盘上输入一正整数数据串（如：4532670985623），将其反向输出。6、  从键盘上输入一正整数数据串（如：4532670985623），求：（1）所输入的数是个几位数。（2）求其中所包含的偶数的个数。（3）分别求其中的偶数和奇数之和。7、  从键盘上输入10个数（1，-2，7，0.2，3，-6.9，0.8，-9，12，6.1），去掉最大最小求平均。8、  利用公式 求的近似值，直到某一项的绝对值小于 10(-8)为止。(3.1416)9、  有一分数序列

16、60; 求出这个数列的前50项之和。(81.2013)10、猴子吃桃问题。第一天摘下若干个桃子，当即吃了一半，还不过瘾，又多吃了一个，第二天早上又将剩下的桃子吃掉一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半另一个。到第10天早上再想吃时，就只剩一个桃子了。求第一天共摘了多少桃子。(1534)11、求一个两位数各个数位之和等于这个数的算术平方根。(81)12、求水仙花数。即一个三位数各个数位的立方的和等于这个数。(153,370,371,407)程序设计上机练习(4) 1、求2-100之间的所有素数及素数之和。 2、编写一密码验证程序，当密码输入正确则显示“欢迎使用

17、本系统！”，若密码不正确，可以显示“密码不正确，请重新输入！”，允许输入3次，若3次输入都不正确，则显示“你无权使用本系统！”，并结束程序。 3、打开表文件学生表，用SCAN-ENDSCAN语句分别统计男同学和女同学的人数。 4、用二重循环语句构造一6*6阶方阵，如下图所示：A  0  0  0  0  00  B  0  0  0  00  0  C  0  0  00  0  0  D

18、0; 0  00  0  0  0  E  00  0  0  0  0   F  5、打开表文件成绩表，计算每个学生的总分，并用DO-ENDDO循环语句依次统计总分在270分及以上的人数，并输出统计结果。 6、任意输入2个正整数数，编程求这两个数的最大公约数和最小公倍数。 7、打印输出以下图形：          8、将一个正偶数分解成两个素数之和。程序设

19、计上机练习（5）一、程序填空： 1、求1-100之间能被2和3整除的数之和。   CLEAR_FOR  I=1 TO 100         IF  MOD(I,6)=_           S=S+I        ENDIF_?"S=",S  2、将输入的字符串倒置

20、输出。 CLEARACCEPT “请输入字符串：”  TO  CL=LEN（C）P=SPACE（0）DO   WHILE  _  CC=_  P=P+CC  _ENDDO?C+”->”+P  3、输出图形          AAAAABBBBCCCDDE  CLEAR   FOR  I=1  TO  _ 

21、0;      ?SPACE（20）        FOR  J=1  TO  _                    ?_           ENDFOR ENDFOR

22、60; 4、计算：S=1！+3！+5！+15！    CLEAR   _   FOR  I=1  TO   15  _FOR  J=1   TO  _  P=P*JENDFOR  S=_ ENDFOR ?"S=",S  5、打开当前文件夹中的表文件学生成绩统计表，依次统计平均分大于等于90分和平均分不及格的人数，结果分别存放在变量N1和N2中。&#

23、160;CLEARUSE  STUDENTN1=0N2=0DO  WHILE  _   IF  平均分_      N1=N1+1   ENDIF   IF  平均分<60      N2=N2+1   ENDIF   _ENDDO?"N1=",N1?"N2=",N2 二、编程  1

24、、打开当前文件夹中的表文件学生成绩表，依次查找平均分最高和最低的记录，找到后显示该记录的姓名、性别、总分和平均分。  2、编写一删除表文件的程序。要求：表文件由键盘输入，若该文件存在，则将其删除；若不存在，则显示“输入的表文件不存在！”。  3、从键盘上输入两个数M和N，将M*N-1的值反向输出。  4、从键盘上输入一个数N，求N！中末尾所包含的“0”的个数。  5、从键盘上输入一个数值型数据（可以有小数点），找出该数据中数码最大的数和数码最小的数（如：2963.7154中，数码最大的数是9，数码最小的数是1）。程序设计上机操作练习题（6）1、求3*3矩

25、阵的最大值并输出。    例如，当矩阵为：                   1  2  3                   4  9  5  

26、                 7  8  6则最大值为：9 2、从键盘上输入一正整数N（位数不限），计算N的各位上的数字之积。例如，若输入：252，则输出应该是：20。若输入：202，则输出应该是：0。（当N=5814时，结果为160）。 3、在第一个循环中给a数组的前10个数组元素依次赋1、2、3、4、5、6、7、8、9、10；在第二个循环中使a数组前10个元素中的值对称折叠，变成1、2、3

27、、4、5、5、4、3、2、1；在最后一个循环中输出对称折叠以后的a数组的前10个元素。 4、输出200300之间的所有素数，要求每行输出8个素数。 5、女儿今年12岁，父亲比女儿大30岁，计算出父亲在多少年后比女儿年龄大一倍，那时他们的年龄各是多少？ 6、找出1100之间的全部同构数。所谓同构数是指这样一个数，它出现在它的平方数的右端。例如，5的平方是25，5出现在25的右端，5是一个同构数。25的平方是625，25出现在625的右端，25也是同构数。 7、输出11000之间的所有完数，并输出每个完数的所有因子。所谓完数，就是指一个正整数，它的各因数之和

28、等于其自身。例如，28=1+2+4+7+14，28是一个完数。 8、计算（M+N）！/（M！+N！）子程序名为:P-1。(当输入M=8，N=6时,结果为：2124227.3684) 9、设计一个计算器程序。实现对输入的两个数作加、减、乘、除运算。即输入两个操作数和运算符根据运算符完成相应的运算。 10、中国古代数学史上著名的“百鸡问题”：鸡翁一，值钱五；鸡母一，值钱三，鸡雏三，值钱一。百钱买百鸡，问翁、母、雏各几何？ 11、输入一个整数，求它的各位数字之和及位数。例如，347的各位数字之和是14，位数是3。 12、验证哥德巴赫猜想：任何一个大于

29、6的偶数都可以表示为两个素数之和。例如6=3+3，8=3+5，100=3+97。要求将6100之间的偶数都表示成两个素数之和，每行输出5组。13、编程构造一个6 6方阵，使主对角元素为1，其他元素为0。 14、从键盘上输入正整数N，在N以上的正整数序列中，找出50个满足其各个数位数字之和等于5的整数。要求每行输出10个数。 15、将一个正数分解质因数。例如，输入90，输出90=2*3*3*5。 16、（中国古典算术问题）某工地需要搬运砖块，已知男人一人搬3块，女人一人搬2块，小孩两人搬1块。用45人正好搬45块，问有多少种搬法？ 17、破译密码：若输入的

30、明码字符串中出现英文字母，均转换成顺序排列在该字母后的第5个字母（26个英文字母首尾相接顺序转换），非英文字母不转换。  （例如，当输入的明码为：A8-Y#W2X，则输出的密码为：F8-D#B2C 18、从键盘上输入一正整数M，从这个数开始，求20个末位是3的素数，并分2行输出。程序设计上机练习题(7)1、编写一计算阶乘的过程，过程名为JC，主程序通过调用该过程，计算：  （M、N分别为12和8，由键盘输入）（495）2、编写一个将给定正整数N分解质因数的函数，函数名为FJ。主程序通过调用该函数，将输入的数N分解质因数（例如：12=2*2*3）。3、利用算式编写一

31、个求正弦函数sin(x)值的自定义函数，函数名为sn。计算到    为止。主程序通过调用该函数计算：的值。（1.71183）  表单程序设计练习表单程序设计练习题（1）1、设计一求输入数的算术平方根和它的倒数的表单（结果要求保留4位小数），如下图（1）运行表单时的初始状态：  （2）输入数据并单击“平方根”按钮后： （3）当输入负数时的运行界面： （4）再输入一个正数时的运行界面： （5）输入数据并单击“倒数”按钮后：     （6）输入0并计算倒数时的界

32、面：     （7）再输入不等于0的数并计算倒数时的界面：   2、设计一判断输入的任一自然数是否为素数的表单，如下图 （1）运行表单时的初始状态： （2）输入数字并单击“确定”按钮后：     当输入一个素数时：   当输入的数不是素数时： 3、设计一将输入的汉字倒置输出的表单，如下图所示：   （1）运行表单时的初始状态： （2）输入汉字并单击“汉字倒置”按钮后： 4任意输入一英文字符串，将其

33、中的小写字母转换成大写。（1）运行表单时的初始状态：（2）输入汉字并单击“汉字倒置”按钮后：   表单操作题二1、设计一求输入数的算术平方根的表单（结果要求保留4位小数），如下图（1）输入数据100并单击“平方根”按钮后： （2）当输入负数-100时的运行界面： 2、设计一判断输入的任一自然数是否为素数的表单，如下图 （1）运行表单当输入89并单击“判断素数”按钮的界面： （2）当输入99并单击“判断素数”按钮的界面：      3、输入三角形三边的长，先判断是否构成一个三角形，若能构

34、成，则计算三角形的面积；不能构成则显示“不能构成三角形！”。判断是否是三角形，可利用：A+B>CA+C>BB+C>A  4、编制一个信息显示（时钟）界面，显示当前时间（每秒动态跳动一次）；并将时间分别以红、蓝两种颜色自动变换（与时间同步切换，如下图所示）。  5、在文本框中输入任一自然数，单击“统计”按钮，统计从这个数开始的20个能被3整除且末位为3的数，将统计结果在编辑框中显示，并利用标签输出这20个数的和，如下图所示。 6、编制一个表单，实现以下功能：（1）将小写字母转化为大写，界面如下图所示；（2）利用文本框输入字母，利

35、用标签显示转化成大写后的内容。7、1）.编制一个表单完成计时器计数显示功能； 2）表单初始显示状态为全零“00：00：00”；3）按“计数”按钮，将自动以秒为单位从零开始计数（设：时的计数属性名为S，分的计数属性名为F，秒的计数属性名为M）并在表单上动态显示，按“停止”按钮将显示最后一刻的计数时间。       表单程序设计（3）1、编制如下界面的表单，当用微调调调整日期时，对应的中文和英文能随着变化。 2、在标签中输入文字，运行表单时，标签中的文字能放大和缩小，界面如下图所示。 3、在文本框中输入一个正

36、整数，单击“显示”按钮，能在编辑框中显示以输入数字为行数的如下图所示的正三角形。4、编制一个能设置文本框中的汉字的字体、字型、字号和颜色的表单，界面如下所示。        （1）表单设计界面         （2）单击微调增大字号同时单击隶书和红色的效果         （3）单击斜体和蓝色后的效果5、编制一学生查询表单，表文件名为学生表，表单设

37、计时，需要将学生表添加到数据环境中，运行表单时，能实现如下效果。 (1) 首记录 (2) 前翻或后翻 (3) 末记录6、编制一个个验证登录密码的表单。当输入密码正确，则“欢迎使用本系统！”。若密码不正确，则显示“输入的密码不正确，请重新输入！”，若三次输入的密码都不正确，则显示“你无权使用本系统！”。（1）表单设计界面（2）输入密码正确 （3）输入密码不正确 （4）三次输入密码都不正确 表单练习题四1、编制一个用列表框进行学生信息查询的表单，取名为myform1.scx，界面如下图所示。（表文件名为C1.DBF） （1）表单设计界面（2）表单运行时的界面（3）在列表框中单击一个姓名后的界面 2、编制一个用组合框进行学生信息查询的表单，取名为myform2.scx，界面如下图所示。（表文件名为C1.DBF） （1）表单设计界面（2）表单运行时的界面（3）在组合框中单击一个学号后的界面 &#