VFP程序设计2

Visual FxoPro 程序设计题程序设计题 1 编写程序 从键盘输入一个日期 查询 编写程序 从键盘输入一个日期 查询 STUDENT 表中该日期以后出生的学生信息表中该日期以后出生的学生信息并显并显 示在浏览窗口中示在浏览窗口中 use student 运行前单击教学管理数据库 input 请输入某日期 to rq 输入时有提示 或 input to rq 输入时无提示 输入 1987 01 01 browse for 出生日期 rq 2 有一函数 有一函数 x x 1 y 2x 1 1 x 10 3x 11 x 10 编写程序 输入编写程序 输入 x 输出 输出 y 的值 的值 clear input Enter x please to x if x 1 y x else if x 10 y 2 x 1 else y 3 x 11 endif endif x x y y 3 编写程序 从键盘输入一个年份 判断它是否闰年 编写程序 从键盘输入一个年份 判断它是否闰年 clear input Enter year number please to y if y 4 0 and y 1000 or y 400 0 y is a leap year else y is not leap year endif 4 编写程序 输入一个百分制成绩 要求输出成绩等级编写程序 输入一个百分制成绩 要求输出成绩等级 A B C D E 90 分以上为分以上为 A 80 89 分为分为 B 70 79 分为分为 C 60 69 分为分为 D 60 分以下为分以下为 E clear input 请输入一百分制成绩 to cj do case case cj 90 A case cj 80 B case cj 70 C case cj 60 D otherwise E endcase 5 编写程序 从键盘输入一个正整数编写程序 从键盘输入一个正整数 M 输出 输出 M 内 包括内 包括 M 所有偶数 所有偶数 clear input to m for i 0 to m step 2 str i 5 next 6 编写程序 从键盘输入一个正整数编写程序 从键盘输入一个正整数 M 计算 计算 M 内 包括内 包括 M 所有偶数之和 所有偶数之和 clear input to m s 0 for i 2 to m step 2 s s i next s 7 编写程序 从键盘输入 编写程序 从键盘输入 5 个数 找出其中的最大数和最小数 个数 找出其中的最大数和最小数 INPUT 请输入第 1 个数 TO MAX MIN MAX FOR I 2 TO 5 INPUT 请输入第 STR I 2 个数 TO X IF X MAX MAX X ELSE MIN X ENDIF ENDFOR MAX MAX MIN MIN 8 利用数组编写程序 从键盘输入利用数组编写程序 从键盘输入 10 个数 再按逆序输出 个数 再按逆序输出 dime a 10 for i 1 to 10 input to a i endfor for i 10 to 1 step 1 a i endfor 9 编写程序 编写程序 逐条显示逐条显示 STUDENT 表中的男生记录 显示一个记录后 由用户按任意键来表中的男生记录 显示一个记录后 由用户按任意键来 显示下一个记录 显示下一个记录 use student scan for 性别 男 disp wait endscan use 10 编写程序 自编写程序 自 STUDENT 表的最后一个记录开始向前逐个显示 显示一个记录后 由表的最后一个记录开始向前逐个显示 显示一个记录后 由 用户按任意键来显示上一个记录 用户按任意键来显示上一个记录 use student go bott do while not bof disp wait skip 1 enddo use 11 先在 先在 STUDENT 表中插入一个新字段 平均成绩 数值型表中插入一个新字段 平均成绩 数值型 6 2 然后编写程序 根 然后编写程序 根 据据 GRADE 表统计每个学生的平均成绩 并填入新插入的字段中 表统计每个学生的平均成绩 并填入新插入的字段中 select 学号 avg 成绩 as 平均成绩 from grade group by 学号 into table t use t index on 学号 to txh sele 2 use student index on 学号 to sxh set rela to 学号 into t repl all 平均成绩 with t 平均成绩 1212 写写程序 输入程序 输入一个三位自然数 判断该数是否为水仙花数 所谓水仙花数是指一个三一个三位自然数 判断该数是否为水仙花数 所谓水仙花数是指一个三 位自然数 其各位数字立方和等于该数本身 例如 位自然数 其各位数字立方和等于该数本身 例如 153 是水仙花数 因为是水仙花数 因为 153 13 53 33 input to zrs gw zrs 10 sw int zrs 10 10 bw int zrs 100 if bw 3 sw 3 gw 3 zrs yes else no endif 13 编写一个自定义函数 判断一个三位自然数是否为水仙花数 若是 返回逻辑真 否 编写一个自定义函数 判断一个三位自然数是否为水仙花数 若是 返回逻辑真 否 则 返回逻辑假 编写主程序 输入一个三位自然数 调用自定义函数判断该数是否为水则 返回逻辑假 编写主程序 输入一个三位自然数 调用自定义函数判断该数是否为水 仙花数 仙花数 clear input to n if sxh n yes else no endif function sxh para zrs gw zrs 10 sw int zrs 10 10 bw int zrs 100 if bw 3 sw 3 gw 3 zrs return t else return f endif endfu 14 编写 编写程序 输入程序 输入一个自然数 判断该数是否为素数 一个自然数 判断该数是否为素数 clear input to zrs sf t for i 2 to sqrt zrs if zrs i 0 sf f exit endif endfor if sf t yes else no endif 15 编写一个自定义函数 编写一个自定义函数 判断判断一个自然数一个自然数是否为素数 返回一个逻辑值 编写主程序 是否为素数 返回一个逻辑值 编写主程序 调用自定义函数求调用自定义函数求 100 200 间的所有素数 间的所有素数 for i 100 to 200 if prime i i endif endfor function prime para zrs sf t for j 2 to sqrt zrs if zrs j 0 sf f exit endif endfor return sf endfunc 16 编写程序 输出如图编写程序 输出如图 5 12 所示的图形 所示的图形 clear for i 1 to 5 space 6 i repl 2 i 1 endf for i 1 to 4 space i 1 repl 9 2 i endf 17 九九乘法表九九乘法表 1 矩形样式 矩形样式 Clear For I 1 to 10 外循环 I 控制输出 9 行 For J 1 to 9 内循环 J 控制第 I 行输出 9 项 str I 1 str J 1 str I J 2 输出 I J 项 Endfor Endfor Return 2 斜向下样式 斜向下样式 FOR n 1 TO 9 s ALLT STR n 1 i ALLT STR n THISFORM LIST1 ADDLISTITEM 1 1 THISFORM LIST1 ADDLISTITEM i n 1 1 FOR t n TO 9 图图 5 12 实验题实验题 16 的输出图形的输出图形 i ALLT STR n THISFORM LIST1 ADDLISTITEM i 1 n 1 s ALLT STR t n THISFORM LIST1 ADDLISTITEM ALLT STR t ALLT STR n s t 1 n 1 ENDFOR ENDFOR 18 阶乘阶乘 1 求单个数阶乘 以 求单个数阶乘 以 5 为例 为例 Clear J 1 I 1 Do while i 5 J j i I i 1 Enddo