vfp程序题及答案

程序改错和填空题选

程 序 设 计 题 选

1、求100以内最大的自然数N，使得从1开始的连续N个自然数的倒数之和小于3.5。 SET TALK OFF CLEAR S=0

FOR N=1 TO 100

S=(S+1)/N 改正：S=S+1/N IF S>=3.5

LOOP 改正：EXIT ENDIF ENDFOR ? N-1

SET TALK ON RETURN

\运行结果：18\

2、 求100以内最小的自然数N，使得从1开始的连续N个自然数的倒数之和大于3.6。 SET TALK OFF CLEAR S=0

FOR N=1 TO 100 S=S+1/N

IF S<=3.6 改正：IF S>3.6 LOOP 改正：EXIT ENDIF ENDFOR ? N

SET TALK ON RETURN

\运行结果：21\

3、求50以内最大的自然数N，使得从102开始的连续N个偶数之和小于3000。 SET TALK OFF CLEAR S=0

FOR N=1 TO 50 A=100+2*N

S=S*A 改正：S=S+A IF S>=3000

典型程序设计题（附参考答案）

1．求1到2000之间，能被3或7整除，并且含有数字5的整数的个数、它们的和、它们的平方根的和（保留2位小数）、以及它们的平方和。

2．求能被3整除且至少有一位数字为5的三位数的个数。 3．求出只要能被2，7，9之一整除的800以内的正整数的个数。

4．求[105，625]间能同时被7和11整除的自然数之和。求[200，600]间奇数之和。 5．编程序求出1000到2000之间同时满足除3余2和除5余3条件的数的个数。 6．输出[10,100]中除以17的余数和除以5的商相等的整数的个数。

7．统计区间[1000，9999]内所有能被3整除，且千位数字与个位数字之和为8的整数的个数。 8．求在四位数的奇数中，所有各位数字之和是25的倍数的数的和。 9．求出所有能被17整除且不含重复数字的三位数的和。 10．求1到500的偶数立方和与奇数立方和之差。

11．求3+9+27+81+243+...这样的数之和. 若累加数大于500时,则结束累加. 12．求1+3+5+7+9+11+...这样的奇数之和.若累加数大于500时, 则结束累加。 13．计算S=1*5*9*13*...*k，直到累乘数k>=25中止。

14．求

典型程序设计题（附参考答案）

1．求1到2000之间，能被3或7整除，并且含有数字5的整数的个数、它们的和、它们的平方根的和（保留2位小数）、以及它们的平方和。

2．求能被3整除且至少有一位数字为5的三位数的个数。 3．求出只要能被2，7，9之一整除的800以内的正整数的个数。

4．求[105，625]间能同时被7和11整除的自然数之和。求[200，600]间奇数之和。 5．编程序求出1000到2000之间同时满足除3余2和除5余3条件的数的个数。 6．输出[10,100]中除以17的余数和除以5的商相等的整数的个数。

7．统计区间[1000，9999]内所有能被3整除，且千位数字与个位数字之和为8的整数的个数。 8．求在四位数的奇数中，所有各位数字之和是25的倍数的数的和。 9．求出所有能被17整除且不含重复数字的三位数的和。 10．求1到500的偶数立方和与奇数立方和之差。

11．求3+9+27+81+243+...这样的数之和. 若累加数大于500时,则结束累加. 12．求1+3+5+7+9+11+...这样的奇数之和.若累加数大于500时, 则结束累加。 13．计算S=1*5*9*13*...*k，直到累乘数k>=25中止。

14．求

本试卷可以作为计算机等级考试二级Visual Foxpro 6.0的复习使用,也可以作为职业学校对口升学VFP6.0部分的复习、练习所用。

铜陵职业技术学院《VFP程序设计》模拟试卷一

一 、选择题（1～25题每题2分，共50分）

下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的,请将正确选项写在答题纸相应位置上。

1． Visual FoxPro是一种关系数据库管理系统，它所管理的关系是（ ）。

A）一个DBF文件 B）若干个DBF文件

C）一个DBC文件 D）若干个DBC文件

2．Visual FoxPro关系数据库管理系统能够实现的三种基本关系运算是（ ） 。

A) 索引、排序、查找 B) 建库、录入、排序

C) 选择、投影、联接 D) 显示、统计、复制

3． 在一个二维表中有这样一个字段存在，它的值能惟一地标识关系中的每一个记录，称这个字段为（）。

A) 关键字 B) 数据项 C) 主属性 D) 主属性值

4．显示与隐藏命令窗口的操作是（ ）。

A） 通过“显示”菜单下的“显示命令”选项来切换

B） 直接

Visual Foxpro程序改错

〖第1题〗(练习题所在文件夹:163)

*题目：该程序完成口令检验功能。输入三次不正确退出。 *注意：不可以增加或删除程序行，也不可以更改程序的结构。 SET TALK OFF CLEAR

ass1=\TT=1

DO WHILE TT<4

@10,20 SAY \请输入口令:\SET CONSOLE OFF ACCEPT TO ass SET CONSOLE ON

**********FOUND********** IF ass1=ass CLEAR

?\欢迎使用本系统!\

**********FOUND********** LOOP ELSE

**********FOUND********** TT=TT-1 CLEAR

?\口令错，按任意键再输入一次！\ WAIT\ENDIF ENDDO RETURN 答案：

1). IF UPPER(ass1)==UPPER(ass) 或 IF UPPER(ass1)==UPPER(ass) 2). EXIT

3). TT=TT+1 或 TT=1+TT

〖第4题〗(练习题所在文件夹:500)

*题目：ZHG.

顺序结构程序设计

1.从键盘输入长方体的长、宽、高，求长方体的表面积。

input “输入长方体的长：” to x input “输入长方体的宽：” to y input “输入长方体的高：” to z s=2*x*y+2*x*z+2*y*z ?”长方体的表面积为：”,s

2.从键盘输入圆的半径，计算圆的面积。

input “输入圆的半径：” to r s=3.14*r^2

?”圆的面积为：”,s

3.建立数据库XS，将表XSQK.DBF添加到该数据库，并浏览该表所有数据，最后关闭数据库。

Create database xs Add xsqk Browse Close all

4.在表XSQK.DBF中，查找出生日期为1983年10月8日的记录，并显示该记录；继续查找下一个满足上述条件的记录，并显示该记录。 Use xsqk

Locate for 出生日期 ={^1983-10-8} Display Continue Display Use

分支结构程序设计 1. 从键盘输入一个数，若为正数则输出，非正数则结束。 input “输入一个数：” to x if x>0 ?x endif return

2. 求一

ProProblem ProAnswer ProType disp

求[10,1000]内所有能被被7和9中至少一个数整除的整数之个数。 236 2 \

求[10,1000]内所有能同时被7和9整除的整数之和。 \1 \

\求[10,1000]内所有能被6整除但不能被9整除的整数之和。 \2 \

\求[10,1000]内所有能被6和9中的一个且只有一个数整除的整数的个数。 \

2 \

\求[10

VFP命令是一种实现对数据库系统进行操作的动词或短语。VFP命令可在VFP命令窗口中单独运行，也可编制成程序成批运行，由命令和函数编制的程序可对数据库系统进行自动、复杂的操作，使数据库系统应用起来更加友好、方便。

¨ VFP

常用命令分类表

类别 建立文件类 数据库操作类 数据编辑类 记录指针操作类 记录操作类 数据显示类 数据统计类 存变量操作类 程序控制类 系统设置类 ¨ 命令格式

命令 CREATE，MODIFY，COPY，SAVE等 USE,CLOSE,COPY,MODIFY STRUCTURE等 BROWSE,EDIT,CHANG,REPLACE,UPDATE等 GOTO,LOCATE,SEEK,FIND,SKIP等 APPEND,DELETE,INSERT等 BROWSE,LIST,DISPLAY等 SUM,COUNT,AVERAGE,TOTAL等 ACCEPT,INPUT,READ,SAVE等 DO，DO WHILE?ENDDO，IF?ENDIF等 SET TALK，SET DEFAULT TO等 VFP命令一般由命令动词和控制短语构成。

一般格式：

命令动词[FROM<源文件>][TO<目标文

ProProblem ProAnswer ProType disp

求[10,1000]内所有能被被7和9中至少一个数整除的整数之个数。 236 2 \

求[10,1000]内所有能同时被7和9整除的整数之和。 \1 \

\求[10,1000]内所有能被6整除但不能被9整除的整数之和。 \2 \

\求[10,1000]内所有能被6和9中的一个且只有一个数整除的整数的个数。 \

2 \

\求[10

ProProblem ProAnswer ProType disp

求[10,1000]内所有能被被7和9中至少一个数整除的整数之个数。 236 2 \

求[10,1000]内所有能同时被7和9整除的整数之和。 \1 \

\求[10,1000]内所有能被6整除但不能被9整除的整数之和。 \2 \

\求[10,1000]内所有能被6和9中的一个且只有一个数整除的整数的个数。 \

2 \

\求[10