浙江财经学院VFP期末填空题题目.docx
- 文档编号:4238816
- 上传时间:2023-05-06
- 格式:DOCX
- 页数:23
- 大小:32.54KB
浙江财经学院VFP期末填空题题目.docx
《浙江财经学院VFP期末填空题题目.docx》由会员分享,可在线阅读,更多相关《浙江财经学院VFP期末填空题题目.docx(23页珍藏版)》请在冰点文库上搜索。
浙江财经学院VFP期末填空题题目
1、在学生表中查找并输出指定学生的所有信息。
填空要求:
程序中共有三个填空,请在“---n---”处填空(注意:
不能删除“&&此处填空”,以便于检查),并调试运行。
不得增加或删减程序行。
SETTALKOFF
CLEAR
USE学生
---1----&&此处填空
ACCEPT"请输入指定的学生学号:
"TOXH&&此处填空
SEEKXH
IF---2----&&此处填空
?
"查无此人!
"
ELSE
----3----&&此处填空
ENDIF
USE
SETTALKON
2、判断给定的正整数值表达式的值是否为素数。
填空要求:
程序中共有三个填空,请在“---n---”处填空(注意:
不能删除“&&此处填空”,以便于检查),并调试运行。
不得增加或删减程序行。
SETTALKOFF
CLEAR
DOWHILE.T.
INPUT"请输入一个正整数:
"TOX
----1----&&此处填空
IFINT(X/I)=X/I
EXIT
ENDIF
ENDFOR
IF----2----&&此处填空
?
X,"是素数!
"
ELSE
?
X,"不是素数!
"
ENDIF
WAIT"是否继续输入(Y/N)"TOYN
----3-----&&此处填空
LOOP
ELSE
EXIT
ENDIF
ENDDO
SETTALKON
3、输入边长,如果能构成三角形,则计算三角形面积。
填空要求:
程序中共有三个填空,请在“---n---”处填空(注意:
不能删除“&&此处填空”,以便于检查),并调试运行。
不得增加或删减程序行。
SETTALKOFF
---1----&&此处填空
CLEAR
INPUT"输入第一边长:
"TOX
INPUT"输入第二边长:
"TOY
INPUT"输入第三边长:
"TOZ
IFX=0.OR.Y=0.OR.Z=0.OR.X+Y<=Z.OR.Y+Z<=X.OR.X+Z<=Y
?
"尺寸有误,重新输入!
"
---2----&&此处填空
ENDIF
EXIT
ENDDO
U=(X+Y+Z)/2
---3-----&&此处填空
?
"AREA="+ALLTRIM(STR(M,19,2))
SETTALKOFF
4、在屏幕上显示输出一个乘法九九表。
显示格式如下:
填空要求:
程序中共有三个填空,请在“---n---”处填空(注意:
不能删除“&&此处填空”,以便于检查),并调试运行。
不得增加或删减程序行。
SETTALKOFF
CLEAR
----1---&&此处填空
DOWHILEX<=9
Y=1
DOWHILEY<=X
----2------&&此处填空
Y=Y+1
ENDDO
----3----&&此处填空
X=X+1
ENDDO
SETTALKON
5、根据输入的数据,计算不大于该数的所有奇数累加和。
SETTALKOFF
CLEAR
YN="Y"
DOWHILE---1----&&此处填空
INPUT"请输入两位以内的正整数:
"TON
STORE0TOX,Y
DOWHILEX X=X+1 IF---2-----&&此处填空 Y=Y+X ENDIF ENDDO ? "不大于该数的奇数累加和="+STR(Y,4) ---3---"继续计算否? (Y/N)"TOYN&&此处填空 ENDDO ? "再见! " SETTALKON 6、根据输入的数据,判断该数是否为偶数,可以循环输入。 SETTALKOFF CLEAR YN="Y" ----1----&&此处填空 INPUT"请输入一个自然数: "TON IF---2-----&&此处填空 ? "不是偶数! " ELSE ? "是偶数! " ENDIF ----3----"继续否? (Y/N)"TOYN&&此处填空 ENDDO ? "再见! " SETTALKON 7、显示指定表中的全部字段名,并由用户输入显示表信息的条件,最后列表显示满足条件的记录。 SETTALKOFF DOWHILE.T. CLEAR ACCEPT"请输入表名(扩展名略): "TOTBN IFFILE("&TBN..DBF") ----1-----&&此处填空 ELSE WAIT"指定的表不存在! " LOOP ENDIF ? "表中的全部字段名列表: " FORN=1TO---2----&&此处填空 ? FIELD(N) ENDFOR ACCEPT"请输入显示表信息的条件: "TOEXPR LIST---3-----&&此处填空 WAIT"是否继续(Y/N)? : "TOYN IFUPPER(YN)! ="Y" EXIT ENDIF ENDDO USE SETTALKON 8、接收从键盘输入的任5个数,输入的数字可以是负数,但包括符号位最多三位。 程序的功能是,找出其中最大的数和最小的数字,最后显示出来。 SETTALKOFF CLEAR INPUT"请输入第一个数字: "TOX ZD=X ----1----&&此处填空 N=5 ----2----&&此处填空 INPUT"请输入下一个数字: "TOX IFZD ZD=X ENDIF IF----3----&&此处填空 ZX=X ENDIF N=N-1 ENDDO ? "最大数: "+STR(ZD,3,0),"最小数: "+STR(ZX,3,0) SETTALKON 9、显示输出学生表中每个班级的男女同学的奖学金总金额。 SETTALKOFF CLEAR USE学生 INDEXON学号TOINN0 ? "**********各班男女奖学金总额统计************" ? "班级男同学奖学金总额女同学奖学金总额" ----1----&&此处填空 CLASS=LEFT(学号,3) STORE0TOBOYS,GIRLS DOWHILE----2-----&&此处填空 IF性别 BOYS=BOYS+奖学金 ELSE GIRLS=GIRLS+奖学金 ENDIF ----3----&&此处填空 ENDDO ? CLASS+STR(BOYS,19,2)+STR(GIRLS,19,2) ENDDO USE SETTALKON 10、返回给定的字符串表达式的倒置字符串。 如: 输入字符串"ABCD",倒置后输出的字符串为"DCBA"。 SETTALKOFF CLEAR ACCEPT"请输入一个字符串: "TOX ---1----&&此处填空 L=LEN(X) ---2-----&&此处填空 Q=SUBSTR(X,L,1) C=----3----&&此处填空 L=L-1 ENDDO ? "倒置字符串是: "+C RETURN SETTALKON 11、利用公式ex=1+X+X2/2! +X3/3! +…+Xn/n! ,输入X和N,计算ex的近似值。 SETTALKOFF CLEAR INPUT'X='TOX INPUT'N='TON A=1 B=1 S=1&&此处填空 ---2---&&此处填空 A=A*X B=B*I ---3---&&此处填空 ENDFOR ? 'S=',S SETTALKON 12、输入一个正整数M,判断并显示1~M中有哪些数可以分为两个相等的素数。 (如M=10,有2个数符合,即3+3=6,和5+5=10) SETTALKOFF CLEAR INPUT'M='TOM IFINT(M)! =MORABS(M)! =M ? '输入数据不符合题目要求! ' ----1----&&此处填空 S=0 FORI=3TOM/2 FOR----2-----&&此处填空 IFI%J=0 EXIT ENDIF ENDFOR -----3----&&此处填空 S=S+1 ? ALLTRIM(STR(J*2,19))+"="+ALLTRIM(STR(J,19))+"+"+ALLTRIM(STR(J,19)) ENDIF ENDFOR ? ALLTRIM(STR(M,19))+"中共有: "+STR(S,3)+"个数满足条件" SETTALKON 13、本程序实现口令验证。 输入次数在3次以内,给予重输的提示,超过3次,则进入死循环。 SETTALKOFF CLEAR I=1 DOWHILE.T. ? "请输入口令=" SETCONSOLEOFF ACCEPTTOKL SETCONSOLEON IFKL=="ABC" ? "欢迎使用本系统! " ----1----&&此处填空 ENDIF ----2-----&&此处填空 ? "无权使用本系统! " DOWHILE.T. ENDDO ENDIF ? "口令第"+STR(I,1)+"次错,再试一次! " ----3----&&此处填空 ENDDO SETTALKON 14、本程序显示学生表中的获得奖学金的学生姓名和奖学金数额 SETTALKOFF CLEAR USE学生 ------1------&&此处填空 IF----2----&&此处填空 ? 姓名,奖学金 SKIP ELSE ----3----&&此处填空 ENDIF ENDDO USE SETTALKON 15、本程序显示学生表中1990年或以前出生的学生姓名和出生年月(日期型)。 SETTALKOFF CLEAR USE学生 LOCATE----1----&&此处填空 ----2----&&此处填空 ? 姓名,出生年月 ----3----&&此处填空 ENDIF ENDDO USE SETTALKON 16.本程序计算一个十进制正整数N的各位数字之和。 SETTALKOFF CLEAR INPUT"M="TOM IFINT(M)! =MORABS(M)! =M ? "输入的数据不符合题目要求! " ---1----&&此处填空 S=0 DO---2----&&此处填空 T=MOD(M,10) S=S+T M=---3----&&此处填空 ENDDO ? S ENDIF SETTALKON 17.本程序实现从键盘中输入5个数,去掉一个最大数和一个最小数,然后求平均值。 SETTALKOFF CLEAR INPUT'N='TON STORENTOA,B,N&&此处填空 FORI=1TO4 INPUT'N='TON IF---2----&&此处填空 A=N ENDIF IFB>N B=N ENDIF ---3----&&此处填空 ENDFOR ? '平均值=',(S-A-B)/3 SETTALKON 18.求1! +3! +5! +…+N! ,N由键盘输入。 SETTALKOFF CLEAR ---1----&&此处填空 STORE0TOS,T FORI=1TONSTEP2 DOSUB ---2----&&此处填空 ENDFOR ? S SETTALKON PROCSUB T=1 FORJ=1TOI ---3----&&此处填空 ENDFOR 19.设变量N的输入值为5,字符A的ASCII码为65。 程序的运行如下图所示: SETTALKOFF CLEAR INPUT"N="TON FORI=1TON ? ---1----&&此处填空 FORJ=1TO---2----&&此处填空 ? ? ---3----&&此处填空 ENDFOR ENDFOR SETTALKON 20.将表“学生.DBF”中指定学生(由键盘输入)的奖学金加60,并显示该学生的记录。 SETTALKOFF CLEAR USE学生 ACCEPT“输入学号=”TOM ---1----&&此处填空 IF! EOF() ---2----&&此处填空 DISP ELSE ? ”没有找到! ” ---3----&&此处填空 USE SETTALKON 21.下面程序统计指定学生的平均成绩及该成绩的档次。 SETTALKOFF CLEAR USE成绩 ACCEPT"请输入学生的学号: "TOXH ---1----&&此处填空 IF! FOUND() ? "查无此人! " ELSE ---2----&&此处填空 DOCASE CASEPJCJ>=90 DC="优" CASEPJCJ>=80 DC="良" CASEPJCJ>=70 DC="中" CASEPJCJ>=60 DC="及格" ---3----&&此处填空 DC="不及格" ENDCASE ? "学号","平均成绩","档次" ? XH,STR(PJCJ,8,2),DC ENDIF USE SETTALKON 22.程序输出的结果如下图所示: SETTALKOFF CLEA A="*" ---1----&&此处填空 FORK=1TOH ? ---2----&&此处填空 FORT=1TO---3----&&此处填空 ? ? A ENDFOR ENDFOR SETTALKON 23.编一将日期转换成中文星期的自定义函数。 ---1----&&此处填空 n=---2----&&此处填空 docase casen=1 c="星期日" casen=2 c="星期一" casen=3 c="星期二" casen=4 c="星期三" casen=5 c="星期四" casen=6 c="星期五" casen=7 c="星期六" other c="输入有错! " endcase ---3----&&此处填空 24.本程序实现“百钱买百鸡”的计算(取自《算经》: “鸡翁一,值钱五;鸡母一,值钱三;鸡雏三,值钱一。 百钱买百鸡,问鸡翁、母、雏各几何? ) SETTALKOFF CLEAR FORX=0TO20 FOR---1----&&此处填空 Z=100-X-Y IF---2----&&此处填空 ? "X="+STR(X,2),"Y="+STR(Y,2),"Z="+STR(Z,2) ENDIF ENDFOR ---3----&&此处填空 SETTALKON 25.输入一个自然数,判断该数是否为完数。 (完数的定义: 若该数除本身之外的所有因子之和等于该数,则为完数。 如: 1+2+3=6,6为完数;1+2+4#8,8不是完数。 ) SETTALKOFF CLEAR INPUT"M="TOM N=1 ---1----&&此处填空 FORN=1TOM-1 IF---2----&&此处填空 S=S+N ENDIF ENDFOR IF---3----&&此处填空 ? M,"是完数! " ELSE ? M,"不是完数! " ENDIF SETTALKON 程序填空题目+答案 1.在学生表中查找并输出指定学生的所有信息 INDEXON学号TOIXH ! FOUND() DISPLAY 2.判断给定的正整数表达式的值是否为素数,并能反复判断. FORI=2TOX-1 I>=X-1 IFUPPER(YN)=”Y”或者IFLOWER(YN)=”y” 3.输入边长,如果能构成三角形,则计算三角形面积. DOWHILE.T. LOOP M=SQRT(U*(U-X)*(U-Y)*(U-Z)) 4.在屏幕上显示输出一个九九乘法表. X=1 ? ? STR(X,1)+”*”+STR(Y,1)+”=”+STR(X*Y,2)+”” ? 5.根据输入的数据,计算不大于该数的所有奇数累加和. UPPER(YN)=”Y” INT(X/2)<>X/2 WAIT或者ACCEPT或者INPUT 6.根据输入的数据,判断该数是否为偶数,可以反复判断. DOWHILEUPPER(YN)=”Y” N%2! =0或者N/2! =INT(N/2)或者MOD(N,2)! =0 WAIT 7.显示指定表中的全部字段名,并由用户输入显示表信息的条件,最后列表显示满足条件的记录. USE(TBN)或者USE&TBN FCOUNT() For&EXPR 8.接收从键盘输入的任意5个数,输入的数字可以是负数,但最多包括3位符号位.程序的功能是,,找出其中最大的数和最小的数,最后显示出来. ZX=X DOWHILEN>1 ZX>X 9.显示输出学生表中每个班级男女生的奖学金总金额. DOSHILE! EOF() LEFT(学号,3)=CLASS或者SUBSTR(学号,1,3)=CLASS SKIP 10.返回给定字符串表达式的倒置字符串.例如,输入字符串”ABCD”,倒置后输出的字符串为”DCBA”. C=””或者C=SPACE(0) DoWhileL>0 C+Q 11.利用公式e的x次方=1+X+X2/2! +X3/3! +…+XN/N! 输入X和N,计算e的x次方的近似值. S=1 FORI=1TON S=S+A/B 12.输入一个正整数M,判断并显示1~M中有哪些数可以分为两个相等的素数.(例如,M=10,有2个数符合,即3+3=6和5+5=10。 ) ELSE J=2TOI-1 IFJ>I-1或者IFJ=I 13.本程序实现口令验证.输入次数在3次以内,给予重输的提示;超过3次,则进入死循环. EXIT IFI>=3或者IFI=3 I=I+1 14本程序显示学生表中获得奖学金的学生姓名和奖学金数额 DOWHILE! EOF()或DOWHILE.NOT.EOF() 奖学金>0 SKIP 15本程序显示学生表中1990年或以前出生的学生姓名和出生年月 FORYEAR(出生年月)<=1990或者FOR出生年月<={^1990-01-01} DOWHILE.NOT.EOF()或者DOWHILE! EOF()或者DOWHILEFOUND() CONTINUE 16本程序计算一个十进制正整数N的各位数字之和(如12378) ELSE WHILEM>0 M=INT(M/10) 17本程序实现从键盘输入五个数,去掉一最大的数和最小的数,然后求平均值。 StoreNtoA,B,S A S=S+N 18计算1! +3! +5! +....+N! ,N由键盘输入 INPUT“N=”TON S=S+T T=T*J 19设变量N的输入值为5,字符A的ASCII码为65。 SPACE(N-I) 2*I-1 CHR(65+I-1) 20将表“学生.bdf”指定学生(由键盘输入)的奖学金加60. LOCATEFOR学号=M REPLACE奖学金WITH奖学金+60 ENDIF 21统计制定学生的平均成绩及该成绩的的档次。 LOCATEFOR学号=XH AVERAGE成绩TOPJCJFOR学号=XH OTHERWISE 22程序输出的结果如图* *** ****** H=5 SPACE(H-K) 2*K-1 23变成时间将日期转换成中文星期的自定义函数。 DOW(D) OTHERWISE RETUREC 24本程序实现“百钱买百鸡”的计算 Y=0TO33 5*X+3*Y+Z/3=100 ENDFOR 25输入一饿自然数,判断该数是否为完数 S=0 M%N=0 S=M
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 浙江 财经学院 VFP 期末 填空 题目