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