Question

有关VFP程序设计题目

1.自由表XS.DBF 有三个字段，分别是学号，姓名何成绩，统计90分以上学生人数。
M=0
USE XS
ENDIF
ENDDO
USE
RETURN
2.计算 M! / N!
CLEAR
INPUT "M=" TO M
INPUT "N=" TO N
? [ 5 ]
FUNCTION FACT
PARAMETERAS N
FACT=1
FOR [ 6 ]
[ 7 ]
ENDFOR
[ 8 ]
3.输入一个字符窜，要求分别统计出其中英文字母K1,空格K2,数字K3何其他字符K4的个数
CLEAR
ACCEPT TO CHAR1 &&输入CHAR1的值
STORE O TO K1,K2,K3,K4
N=[ 9 ]
FOR 1=1 TO N
C1=[ 10 ]
DO CASE
CASE [ 11 ]
K1=K1+1
CASE C1=SPACE(1)
K2=K2+2
CASE C1<="9" AND C1>="0"
K3=K3+1
[ 12 ]
K4=K4+1
ENDCASE
NEXT
?K1,K2,K3,K4

1.设BOOK表汇总共有150条记录，执行下列命令：
USE BOOK
DEELE
COUNT TO X
PACK
COUNT TO Y
ZAP
COUNT TO Z
? X , Y , Z
USE
RETURN
运行结果是（ ）
2.学生表如下：
Record# 学号 姓名 数学
1 001 陈天 82
2 002 李蒙 93
3 003 江小名 71
CLEAR
DIMENSION M (1), N (1)
USE xuesheng
GO TOP
SCATTER TO N
GATHER FROM M
SKIP -2
GATHER FROM N
LIST
USE
RETURN
运行结果是（ ）
3.主程序MAIN.PRG（假设数据库 sb.dbf 已存在）
SET TALK OFF
T=10
USE SB
DO SUB WITH RECNO() , 2 , T
? T
RETURN
子程序 SUB.PRG
PARAMETERS A , B , C
A=A+1
B=B+1
C=C+1
? A , B , C
RETURN
运行结果是（ ）
4.C={ / / }
DO zc WITH DATE ()
? " 当前系统日期为：” +c
DO zc WITH {12/27/99}
? " 制表日期为：” +c
PROCEDURE zc
PARAMETERS z
Y=YEAR(z)
M=MONTH(z)
D=DAY(z)
C=STR(y，4)+”年”+STR(m，2)+”月”+STR(d，2)+”日”
RETURN
运行结果（ ）

1.使用 visual foxpro 创建应用程序时，最常用的方法时首先创建一个( )
文件，其扩展名为（ ），利用（ ）可以更方便地处理数据和对象。
2.在表中移动记录指针，最常用的定位命令为（ ）和（ ）
4.VFP类可以分为（ ）类和（ ）类
5.视图设计器中，选定（ ）复选框，表示要将视图纪录修改传送原表。
6.vfp提供三种创建报表的方法，分别时（ ） （ ） （ ）
7.显示LS表中职称是讲师，基本工资在150元一下的记录命令是（ ）
9．在成绩。DBF中，有字段姓名，数学，语文，英语和总成绩，除姓名为字符型，
其他均为数值型，根据三门课的成绩求总成绩的命令是（ ）
10．RY．DBF 是数据库表，其中有"出生日期"字段，要求职工的年龄必须大于18岁，
字段验证规则中的表达式是( )

Answer 1

2.
CLEAR
INPUT "M=" TO M
INPUT "N=" TO N
? fact(m)/fact(n)
FUNCTION FACT
PARAMETERS N
FACT=1
FOR i=1 to n
fact=fact*i
ENDFOR
RETURN fact

3.
CLEAR
ACCEPT TO CHAR1 &&输入CHAR1的值
STORE 0 TO K1,K2,K3,K4
N=LEN(char1)
FOR i=1 TO N
C1=SUBSTR(char1,i,1)
DO CASE
CASE (ASC(C1)>=65 AND ASC(C1)<=90) OR (ASC(C1)>=97 AND ASC(C1)<=122)
K1=K1+1
CASE C1=SPACE(1)
K2=K2+1
CASE C1<="9" AND C1>="0"
K3=K3+1
CASE (ASC(C1)>=123 AND ASC(C1)<=255) OR (ASC(C1)>=91 AND ASC(C1)<=96) OR (ASC(C1)>=58 AND ASC(C1)<=64)
K4=K4+1
ENDCASE
NEXT
?"字母数：",K1
?"空格数：",K2
?"数字数：",K3
?"其他字符数：",K4

1.数据库，dbc，？
2.locate for,go,goto,seek
4.
5.
6.create report,菜单新建，项目新建
7.list for 职称="讲师" and 基本工资<150
9.replace 总成绩 with 数学+语文+英语 for .t.
10. year(出生日期)-year(date())>18
尊重劳动成果最好的办法就是加分

Answer 2

p=1
n=0
for
i=1
to
100
p=p*i
do
while
mod(p,10)=0
p=p/10
n=n+1
enddo
endfor
?n