【vfp精品源码栏目提醒】:网学会员为需要vfp精品源码的朋友们搜集整理了【精品】浙江财经学院VFP上机题答案 - 大学课件相关资料,希望对各位网友有所帮助!
1. 在学生表中查找并输出指定学生的所有信息 So order to 学号 EOF DISPLAY2. 判断给定的正整数表达式的值是否为素数并能反复判断. FOR I2 TO X-1 IX IF UPPERYN’Y’3. 输入边长如果能构成三角形则计算三角形面积. DO WHILE .T. LOOP MSQRTUU-XU-YU-Z4. 在屏幕上显示输出一个九九乘法表. X1 STRX1””STRY1””STRXY2” ” 5. 根据输入的数据计算不大于该数的所有奇数累加和. UPPERYN”Y” INTX/2ltgtX/2 WAIT 或者 ACCEPT 或者 INPUT6. 根据输入的数据判断该数是否为偶数可以反复判断. DO WHILE UPPERYN”Y” N20 或者 N/2INTN/2 或者 MODN20 WAIT7. 显示指定表中的全部字段名并由用户输入显示表信息的条件最后列表显示满足条件的 记录. USETBN 或者 USEampTBN FCOUNT For ampEXPR8. 接收从键盘输入的任意 5 个数输入的数字可以是负数但最多包括 3 位符号位.程序的功 能是找出其中最大的数和最小的数最后显示出来. ZXX DO WHILE Ngt1 ZXgtX9. 显示输出学生表中每个班级男女生的奖学金总金额. DO SHILE EOF LEFT学号3CLASS SKIP10. 返回给定字符串表达式的倒置字符串.例如输入字符串”ABCD”倒置后输出的字符串 为”DCBA”. C”” 或者 CSPACE0 Do While Lgt0 CQ11. 利用公式 e 的 x 次方1XX2/2X3/3…XN/N输入 X 和 N计算 e 的 x 次方的近似 值. S1 FOR I1 TO N SSA/B12. 输入一个正整数 M判断并显示 1M 中有哪些数可以分为两个相等的素数.例如M10, 有 2 个数符合即 336 和 5510。
ELSE J2 TO I-1 IF JgtI-1 或者 IF JI13. 本程序实现口令验证.输入次数在 3 次以内给予重输的提示超过 3 次则进入死循环. EXIT IF Igt3 或者 IF I3 II114 本程序显示学生表中的获奖学金的学生姓名和奖学金数额 DO WHILE EOF 或 DO WHILE .NOT.EOF 奖学金gt0 SKIP15 本程序显示学生表中 1990 年或以前出生的学生姓名和出生年月(日期型) FOR YEAR出生年月lt1990 DO WHILE EOF CONTINUE16 本程序计算一个十进制正整数 N 的各自位数之和 ELSE WHILE Mgt0 INTM/1017 本程序实现从键盘中输入 5 个数,去掉一个最大数和一个最小数,然后求平均值 Store N to ABS AltN SSN18 本程序求 1!3!5!……N INPUT “N” TO N SST TTJ19 输入 3 个正数,判定是否构成一个三角形,如果构成……. SPACEN-I 2I-1 CHR65I-120 学生表中指定学生的奖学金加 60,并显示记录 LOCATE FOR 学号M REPLACE 奖学金 WITH 奖学金60 ENDIF21 本程序用于统计指定学生的平均成绩及该成绩的档次 LOCATE FOR 学号XH AVERAGE 成绩 TO PJCJ FOR 学号XH OTHERWISE22 输出图形切成三角 H5 SPACEH-K 2K-123 编程实现将日期转换成中文星期的自定义函数 DOWD OTHERWISE RETURE C24 百钱买百鸡 Y0 TO 33 5X3YZ/3100 ENDFOR25 输入一自然数,判断是否为完数 S0 INTM/NM/N SM1.求当 1! 3! 5! N!的值不超过 1020 时的临界值及 N 的值。
DO WHILE Slt1E20 TTI NN22.求 X1 X2 X3 X4 XN 的值。
N,X 从键盘输入。
S0 TTX ENDDO3.用带参调用实现: M!/M-N!N! DO JC WITH MJ MNJM-N XT4.输出 3~M(M 为正整数,从键盘输入)之间的素数和素数的个数。
IF XN0 IF NX KK15.统计显示“课程”表中所有不同学期考试课和考查课的总学分数。
输出格式如下: DO WHILE XQ学期 KSKS学分 SKIP6.程序是显示输出给定行数的对称菱形图案,如下图所示。
SPACEN-1 FOR J1 TO 2I-1 FOR K1 TO 2P-17.本程序显示下列的九九乘法表 STRI4 FOR J1 TO I ENDDO8.求 3→200 之间的素数。
FOR N2 TO M-1 MODMN0 IF NgtM9.本程序用以判断输入的字符串是否是回文(回文是从左到右和从右到左读时都一样的一个字符串,不论大小写字母)。
ILENST CQC IF UPPERSTUPPERC10.本程序求 SK…MMK 由键盘输入,且 MgtK,请输入 S 的值 DO SUB WITH AI SSA DO WHILE LltN ,并把它转化为对应的中文大写数字(零玖)11.本程序输入一个一位数值(09) 。
DO WHILE .T. SSUBSTRX2N12 IF UPPERT”N”12.对成绩.dbf(其中包含“学号”字段,并且以“学号”为关键字建立了索引标识“学号”)中学号相同的重复记录进行逻辑删除。
USE 成绩 ORDER 学号 DO WHILE 学号XH SKIP13.本程序是在屏幕上打印输出如图 4-6 所示图形。
DO WHILE Clt9-2K1 ENDDO14.将给定正整数的值分解因子,并输出各个质数因子 ( 如 (如 24 的质数因子有 222 和 3)果一个质数是某个数的约数,那么这个质数是这个数的质数因子) 。
INPUT “M” TO M ELSE MINTM/I15.对任意一个正数值型数据该数可有小数若干位正数部分不超过 12 位自动进行小数部分四舍五入取 2 位并将其转换为中文大写金额. YROUNDY2 DSUBSTR312P12SUBSTRC22I-12D YINTY/1016.本程序输出一个对角线上元素为 0,其他元素为 1 的 66 阶方阵.输出时每个元素占 2 个字符如图. DIMENSION A66 或者 DECLARE A66 IF IJ OR IJ7 或者 IF IJ OR I7-J 或者 IF IJ OR J7-I STRAIJ217.本程序实现:对输入的正整数判别其中包含指定数码的个数如 2312132 中包含数码 1 的个数为 2. YM10 或者 YMODM10 MINTM/10 EXIT18.本程序比较从键盘输入的若干个数的大小并输出其中的最大数和最小数. STORE M TO DX DO WHILE UPPERYN’A’ AND UPPERYN’y’ IF UPPERYN’N’ 或者 IF LOWERYN’n’19.输入 3 个正数判定是否构成一个三角形如果构成一个三角形则返回.T.否则返回.F.另外通过参数的引用将三角形的面积传回. TARERX1X2X3 PARAMETERS ABC IF ABgtC AND ACgtB AND BCgtA20、成绩小于 60 的学号课程号成绩显示出来 GO TOP 学号SPACE5课程号SPACE5STR成绩6 ’当前日期’DTOCDATE21、计算 S123...N INPUT”N”TO N DO WHILE IltN ”123…N”S22、输入学号,计算平均成绩,说明成绩档次 INPUT”输入学号”TO XH AVERAGE 成绩 TO CJ FOR 学号XH DCSUBSTRC6R1623、指定表指定条件的任意查询功能 IF NOT FILEFNAME”.dbf” ENDFOR LIST FOR ampEXP24、输入表名,若存在则打开并显示各字段名 IF NOT FILEFNAME”.dbf” ”此表中的字段有:”ZDSM”个” FIELDSI25、屏幕上出现 1—5 的那个图形 DO WHILE CltK C KK11.设计标准化模拟考试表单。
(1)表单 Form1 的 Init 事件: Thisform.Optiongroup1.Value0(2)Optiongroup1 的 Click 事件 IF This.Value2 MessageBoxquot答对了真棒!quot048quot评判结果quot) Else MessageBoxquot答错了再试!quot032quot评判结果quot ENDIF2.编制一个表单完成表文件quot学生.dbfquot (1) 命令按钮 Command1 的 Click 事件 GO TOP Thisform.Command1.Enabled.F. Thisform.Command2.Enabled.F. Thisform.Command3.Enabled.T. Thisform.Command4.Enabled.T. Thisform.Refresh 2 Command2 的 Click 事件 SKIP -1 IF BOF Thisform.Command1.Enabled.F. Thisform.Command2.Enabled.F. ELSE Thisform.Command3.Enabled.T. Thisform.Command2.Enabled.T. ENDIF Thisform.Refresh 3)Command3 的 Click 事件 SKIP IF EOF) Thisform.Command3.Enabled.F. Thisform.Command4.Enabled.F. ELSE Thisform.Command1.Enabled.T. Thisform.Command2.Enabled.T. ENDIF Thisform.Refresh(3)Command4 的 Click 事件 GO BOTTOM Thisfor
上一篇:
【精品】
下一篇:
bc80e7a0-d1f2-4595-b21d-01a76798e87a