VFP程序填空例题
一、
1.建立查询query1.qpr,显示女教授的zgbh,xm,zc,xb,jcgz，将查询结果按zgbh升序显示。
2.利用视图设计器查询zgqk表中人数大于等于3的部门编号和人数。
二、
update on 关键字段from 数据源表replace 被更新字段with 表达式
说明：（1）.更新命令是用数据源表去更新当前工作表，即用表达式的值去更新被更新字段的值。
（2）.关键字段必须是两个表的公共字段，且两个表都按此关键字进行了排序或索引，且索引随表打开。
（3）.引用数据源表的字段时须用别名指定。
（4）.该命令执行过程：对当前表（被更新表）的各条记录依其关键字值找到数据源表中相应记录，然后用表达式的值去更新相应字段内容。若在数据源表中没有与此记录相应的记录，则当前表的这条记录就不做更新操作。若当前表的全部记录都进行了上述更新操作，则此命令的更新操作也就完成了。
*-------------------------------------------------------
*【程序填空1】
*-------------------------------------------------------
*功能:求1到50的累加和（S=1+2+3+...+50）并显示。请在【】处添上
* 适当的内容，使程序完整。
*-------------------------------------------------------
SET TALK OFF
***********SPACE**********
【?】
I=1
***********SPACE**********
DO WHILE 【?】
H=H+I
***********SPACE**********
【?】
ENDDO
? H
SET TALK ON
RETURN
*-------------------------------------------------------------------------------
*【程序填空2】
*-------------------------------------------------------------------------------
*功能: 给定程序功能是：先将在字符串s中的字符按正序存放到t串后，然后把s中的字符按逆序连接到t串的后面。
* 请在【】处添上适当的内容，使程序完整。
*-------------------------------------------------------------------------------
SET TALK OFF
CLEAR
***********SPACE**********
【?】"请输入一个串：" TO SS
T=""
FOR I=1 TO LEN(SS)
T=T+SUBS(SS,I,1)
ENDF
***********SPACE**********
FOR J= 【?】TO 1 STEP -1
***********SPACE**********
T=T+【?】
ENDF
? "生成的新串为：",T
SET TALK ON
CANC
*-------------------------------------------------------
*【程序填空3】
*-------------------------------------------------------
*功能: 输入某年某月某日，判断这一天是这一年的第几天？
* 请在【】处添上适当的内容，使程序完整。
*-------------------------------------------------------
SET TALK OFF
clear
input "请输入年份：" to year
input "请输入月份：" to month
input "请输入日：" to day
do case
case month=1
***********SPACE**********
sum=【?】sum=0
case month=2
sum=31
case month=3
sum=59
case month=4
sum=90
case month=5
sum=120
case month=6
sum=151
case month=7
sum=181
case month=8
sum=212
case month=9
sum=243
case month=10
sum=273
case month=11
sum=304
case month=12
sum=334
otherwise
? "数据输入错误"
endcase
***********SPACE**********
sum=sum+【?】day
if year%400=0 .or. year%4=0 .and.year%100!=0
n=1
else
n=0
endif
if n=1 .and. month>2
***********SPACE**********
sum= 【?】sum+1 * *如果是闰年且月份大于2,总天数应该加一天*/ endif
? "这是这一年的第"+str(sum,4)+"天。"
set talk on
RETURN
*-------------------------------------------------------
*【程序填空4】
*-------------------------------------------------------
*功能:统计300到600之间（包括300和600）能被3整除的数的个数。
* 请在【】处添上适当的内容，使程序完整。
*-------------------------------------------------------
SET TALK OFF
GS=0
N=300
***********SPACE**********
DO WHILE 【?】N<=600
IF MOD(N,3)=0
***********SPACE**********
【?】GS=GS+1
ENDIF
***********SPACE**********
【?】N=N+1
ENDDO
? "300到600之间（包括300和600）能被3整除的数的个数为",GS
SET TALK ON
RETURN
*-------------------------------------------------------
*【程序填空5】
*-------------------------------------------------------
*功能: 将字母转换成密码，转换规则是将当前字母变成其后
* 的第四个字母，但W变成A、X变成B、Y变成C、Z变成D。
* 小写字母的转换规则同样。
* 请在【】处添上适当的内容，使程序完整。
*-------------------------------------------------------
SET TALK OFF
clear
accept "请输入一个字符串："to pp
? pp
p=""
***********SPACE**********
for i=1 to 【?】len(pp)
m=asc(subs(pp,i,1))
***********SPACE**********
if m<=ASC("z").and.m>=asc("a")【?】m>=asc("A") and m<=asc("Z") or do case
case m=asc("w")
m=asc("a")
case m=asc("W")
m=asc("A")
case m=asc("x")
m=asc("b")
case m=asc("X")
m=asc("B")
case m=asc("y")
m=asc("c")
case m=asc("Y")
m=asc("C")
case m=asc("z")
m=asc("d")
case m=asc("Z")
m=asc("D")
otherwise
***********SPACE**********
【?】m=asc(m)+4
endcase
p=p+chr(m)
endif
endfor
? p
set talk on
RETURN
*-------------------------------------------------------
*【程序填空6】
*-------------------------------------------------------
*功能: 共有两个表CJ.DBF,ZF.DBF。按照成绩表的成绩修改
CJ :学号，语文数学；ZF:学号，语文，数学总分
* 总分表的成绩，并计算出总分表的总分字段
* 请在【】处添上适当的内容，使程序完整。
*-------------------------------------------------------
SET TALK OFF
CLOSE ALL
SELE 2
USE CJ
INDEX ON 学号TO XHCJ
SELE 1
USE ZF
***********SPACE**********
INDEX ON 【?】TO XHZF 学号
***********SPACE**********
【?】ON 学号FROM B REPL 语文WITH B.语文,数学WITH B.数学UPDATE ***********SPACE**********
REPL ALL 总分WITH 【?】语文+数学
LIST
CLOSE DATABASE
SET TALK ON
RETURN
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能：对表xscj.dbf,如下程序可以完全成：1.显示全体同学的
* 记录，2.显示全体男同学的记录，3. 显示全体女同学的
* 记录，0.退出。
* 请在【】处添上适当的内容，使程序完整。
*-------------------------------------------------------
SET TALK OFF
CLEAR
***********SPACE**********
【?】 USE XSCJ
DO WHILE .T.
@10,10 SAY "1. 显示全体同学的记录，2.显示全体男同学的记录" @14,10 SAY "3. 显示全体女同学的记录，0.退出"
@ 16,16 SAY " "
WAIT "请输入选择（0-3）：" TO x
DO CASE
CASE X="1"
LIST
CASE X="2"
LIST ALL FOR 性别="男"
CASE X="3"
LIST ALL FOR 性别="女"
CASE X="0"
***********SPACE**********
【?】EXIT
ENDCASE
***********SPACE**********
【?】ENDDO
USE
SET TALK ON
RETURN
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能:在XSDB.DBF数据表中查找学生王迪，如果找到，则显示：
* 学号、姓名、英语，生年月日，否则提示"查无此人！"。
* 请在【】处添上适当的内容，使程序完整。
*-------------------------------------------------------
SET TALK OFF
***********SPACE**********
【?】USE XSDA
XM="王迪"
***********SPACE**********
【?】姓名=XM LOCATE FOR
IF FOUN()
***********SPACE**********
【?】学号, 姓名, 英语, 生年月日 DISP
ELSE
? "查无此人！"
ENDIF
USE
SET TALK ON
RETURN
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能：表RSDA.DBF结构为：姓名（C，6）；性别（C，2），年* 龄（N，2），出生日期（D，8）。判断表中是否有"李明"，* 查询此人的性别及年龄，确定参加运动会的项目。
* 请在【】处添上适当的内容，使程序完整。
*-------------------------------------------------------
SET TALK OFF
USE RSDA
***********SPACE**********
【?】FOR 姓名= "李明" locate
***********SPACE**********
IF .NOT. 【?】 eof()
DO CASE
CASE 性别= "男"
?"请参加爬山比赛"
CASE 年龄<=50
? "请参加投篮比赛"
CASE 年龄<=60
? "请参加老年迪斯科比赛"
***********SPACE**********
【?】endcase ELSE
? "查无此人"
BROWSE
ENDIF
USE
SET TALK ON
RETURN
*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------
*题目:首先把b所指字符串中的字符按逆序存放，然后将a所指字符* 串中的字符和b所指字符串中的字符，按排列的顺序交叉合
* 并到c所指字符串中，过长的剩余字符接在c所指字符串的尾* 部。
* 例如，当a所指字符串中的内容为"abcdefg"，b所指字符串
* 中的内容为"1234"时，c所指字符串中的内容为"a4b3c2d1efg" * ；而当a所指字符串中的内容为"1234"，b所指字符串
* 中的内容为"abcdefg"时，c所指字符串中的内容该为
* "1g2f3e4dcbf"。
*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。
*-------------------------------------------------------
set talk off
clear
a="abcdefg"
b="1234"
c=""
if len(a)>len(b)
m=len(a)
n=len(b)
for i=1 to m
***********FOUND**********
c=c+subs(a,i,1)+subs(b,n+i+1,1) n-i
endfor
else
***********FOUND**********
for i=1 to m i=1 to n c=c+subs(a,i,1)+subs(b,n-i+1,1)
endfor
***********FOUND**********
endf endif
? c
SET TALK ON
RETU
*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------
*题目:猴子吃桃问题：猴子第一天摘下若干个桃子，当即吃了一半，* 还不过瘾，又多吃了一个，第二天早上又将剩下的桃子吃掉* 一半，又多吃了一个。以后每天早上都吃了前一天剩下的一* 半零一个。到第10天早上想再吃时，见只剩下一个桃子了。* 求第一天共摘了多少。X2=x1/2-1
*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-------------------------------------------------------
set talk off
clear
DAY=9
***********FOUND**********
X2=0 x2=1
DO WHILE DAY>0
***********FOUND**********
X1=(X2+1)/2 x1=（x2+1）*2
X2=X1
***********FOUND**********
DAY=DAY+1 day=day-1 ENDDO
? "第一天摘下",X1,"个桃子"
SET TALK ON
RETU
*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------
*题目：以下程序输出如下图所示的图形。
* !$!
* !$!$!$
* !$!$!
* !$!$!$!$!$
*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-------------------------------------------------------
SET TALK OFF
I=4
DO WHILE I<10
**********FOUND**********
IF INT(I/2)=I/2 INT(I/2)<>I/2
I=I*2
ELSE
I=I-1
ENDIF
FOR J=1 TO I
**********FOUND**********
IF J/2=0
?? "!"
ELSE
?? "$"
**********FOUND**********
ENDDO
ENDFOR
?
ENDDO
SET TALK ON
RETURN
*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------
*题目:输入10，计算s=1+1+2+1+2+3+...+1+2+3+4+...+10
* 请在屏幕上输出结果。
*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-------------------------------------------------------
set talk off
clear
***********FOUND**********
s=p=0 STORE 0 TO S,P
for i=1 to 10
***********FOUND**********
p=p-i P=P+I
s=s+p
endf
***********FOUND**********
? "p=",p"s=",s
SET TALK ON
RETU
*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------
*题目：输入两个任意整数，求最大公约数，并显示输出最大公* 约数。
*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。
*-------------------------------------------------------
SET TALK OFF
INPUT "X=" TO X
**********FOUND**********
ACCEPT "Y=" TO Y INPUT "Y=" TO Y IF X>Y
M=X
N=Y
ELSE
M=Y
N=X
**********FOUND**********
ENDFOR ENDIF
A=MOD(M,N)
**********FOUND**********
DO WHILE A>=0 A>0
M=N
N=A
A=M%N
ENDDO
?N
SET TALK ON
CANCEL
*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------
*题目:已有数据表djks.dbf。包括：考号、姓名、笔试成绩、上机
* 成绩和平均成绩等字段，但各成绩字段为空；另有成绩数据* 表cj.dbf，包括：考号、考场编号、笔试成绩和上机成绩等
* 字段，考生的考试成绩已录入其中。
* 程序功能把考生的考试成绩填写到数据表djks.dbf中，然后
* 再计算笔试和上机成绩的平均成绩，填入各记录的平均成绩* 字段中。最后生成一个与djks.dbf结构完全相同的不及格数
* 据表bjg.dbf，把平均成绩不及格的考生记录移入不及格表。
*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。
*-------------------------------------------------------
SET TALK OFF
SET DELETED OFF
CLEAR
USE CJ
SELE A
USE DJKS
***********FOUND**********
INDEX TO 考号ON DJKS INDEX on 考号tag DJKS
UPDATE ON 考号FROM B REPLACE 笔试成绩WITH B->笔试成绩,上机成绩WITH B->上机成绩RANDOM
GO TOP
***********FOUND**********
REPLACE 平均成绩WITH (笔试成绩+上机成绩)/2 REPLACE all
***********FOUND**********
COPY TO BJG FOR 平均成绩=60
LIST
USE BJG
LIST
CLOSE DATABASE
SET TALK ON
RETU
*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------
*题目：查找RSH.dbf 中女职工的最高工资，并显示其姓名和工资。
*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。
*-------------------------------------------------------
SET TALK OFF
USE RSH
MGZ = 0
DO WHILE .NOT.EOF()
***********FOUND**********
IF 性别="女",MGZ<"工资" 性别="女" and MGZ<工资
MGZ=工资
MXM=姓名
ENDIF
***********FOUND**********
CONT skip
ENDDO
? MXM,MGZ
USE
SET TALK ON
*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------
*题目：分别统计化学系的男、女生总人数并显示出来。
*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。
*-------------------------------------------------------
SET TALK OFF
USE XSDB
STOR 0 TO RS1,RS2
***********FOUND**********
FIND FOR 系别="化学" locate
DO WHILE .NOT.EOF()
***********FOUND**********
IF 性别<>"男" 性别="男"
RS1=RS1+1
ELSE
RS2=RS2+1
ENDIF
CONT
ENDDO
? "男生人数=",RS1
? "女生人数=",RS2
USE
SET TALK OFF
RETU
*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------
*题目:有计算机等级考试成绩数据表cj.dbf，包括考号、笔试成绩
* 和上机成绩等字段，其中考号的前两位是单位编码；还有统
* 计数据表tj.dbf，包括单位编码、笔试平均分、上机平均分
* 、笔试最高分、上机最高分等字段。
* 程序功能是：按单位进行各项统计，结果存于统计数据表tj.dbf * 的相应字段中。
*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。
*-------------------------------------------------------
SET TALK OFF
SET SAFETY OFF
CLOSE DATABASE
CLEAR
SELE 2
USE TJ
ZAP
SELE 1
USE CJ
SORT ON 考号TO CJ1
USE CJ1
DO WHILE .NOT. EOF()
STORE 0 TO BS1,SJ1,BSMAX,SJMAX
DWCODE=SUBSTR(考号,1,2)
N1=0
BSMAX=笔试成绩
SJMAX=上机成绩
DO WHILE 考号=DWCODE
***********FOUND**********
IF 上机成绩
SJMAX=上机成绩
ENDIF
IF 笔试成绩>BSMAX
BSMAX=笔试成绩
ENDIF
BS1=BS1+笔试成绩
SJ1=SJ1+上机成绩
N1=N1+1
***********FOUND**********
go 1 skip
ENDDO
SELE 2
***********FOUND**********
APPEND append blank
REPLACE 单位编码WITH DWCODE,笔试平均分WITH BS1/N1,上机平均分WITH SJ1/N1,笔试最高分WITH BSMAX, 上机最高分WITH SJMAX
SELE 1
ENDDO
SELE 2
LIST
CLOSE DATABASE
SET TALK ON
SET SAFETY ON
RETU
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能：从键盘输入一个表的文件名，将该表的第一条记录和最
* 后一条记录的"姓名"字段内容互换。(设，表中有固定字
* 段"姓名")。
* 请在【】处添上适当的内容，使程序完整。
*-------------------------------------------------------
SET TALK OFF
ACCEPT TO A
USE &A
GO 1
XM1=姓名
GO BOTTOM
***********SPACE**********
【?】xm2=姓名
***********SPACE**********
REPL 姓名WITH 【?】xm1
***********SPACE**********
【?】go 1
REPL 姓名WITH XM2
USE
SET TALK ON
RETURN
*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------
*题目：打开表XSDB.DBF，统计姓张、姓王、姓李这三个姓的学生
* 人数并显示。
*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。
*-------------------------------------------------------
SET TALK OFF
USE XSDB
C=0
***********FOUND**********
LOCA 姓名="张".AND."王".AND."李" 姓名="张" or 姓名="王" or 姓名="李" DO WHILE FOUN()
C=C+1
***********FOUND**********
COUN continue ENDDO
?C
USE
SET TALK ON
RETU
vfp填空题
填空题 1、表单控件工具栏中的"标签"按钮代表的是标签_________。答题提示：类/对象 2、表打开后，记录指针指向的记录称为__________记录。 3、表单form1上有一个命令按钮组控件CG（容器控件），命令按钮组控件CG中包括两个命 令按钮Cmd1和Cmd2，若当前对象为Cmd1，则this.parent所指的控件是__________。答题 提示：表单/ 命令按钮组 4、常量$90比常量$100________。答题提示：大/小 5、用当前表单中的LABEL1控件来显示系统时间的语句是：https://www.wendangku.net/doc/418178595.html,BEL1. =TIME() 6、VFP支持两种类型的菜单：条形菜单和式菜单。 7、颜色函数RGB(0,0,0)返回的颜色是色。 8、一个关系对应一张表，表中的一列称为一个字段，表中的一行称为一个。 9、VFP的三种程序结构是结构、选择结构、循环结构。 10、数据完整性包括域完整性、完整性和实体完整性。 11、在面向对象的程序设计中，类的实例又称为。 12、打开数据库表的同时，自动打开该表的索引。 13、执行命令A=$9000之后，内存变量A的数据类型是型。 14、 FONTBOLD属性，用来设置文字是否以体显示。 15、控件的属性，可用来设置文字的字号大小。 16、表达式"Visual FoxPro" $ "Fox"的结果是。 17、在Visual FoxPro中，最多允许同时打开个数据库表或自由表。 18、在Visual FoxPro中，打开表设计器来修改表结构的命令是（每个单词写四个 字母）。 19、在Visual FoxPro中，视图可以分为本地视图和视图。 20、用Ctrl+F2组合键,可以命令窗口。答题提示：打开/关闭 21、每一个数据表可以容纳的最大记录数是（用阿拉伯数字）亿个。 22、命令书写规则规定命令动词可以缩写为前（用阿拉伯数字）个字符。 23、表单文件的扩展名为。 24、数据表是由行和列组成的二维表格，每一列称为一个。 25、当删除父表中的记录时，若子表中的所有相关记录也能自动删除，则相应的参照完 整性的删除规则为。 26、在Visual FoxPro中运行表单时，表单的Activate事件发生在Init事件之。答 题提示：前/后 27、常量.n.表示的是型的数据。 28、菜单可以分组，插入分组线(分隔线)的方法是在"菜单名称"项中输入两个字符。 29、在Visual FoxPro中，参照完整性规则包括更新规则、删除规则和规则。 30、用二维表数据来表示实体及实体之间联系的数据模型称为模型。 31、在Visual FoxPro中说明数组后，数组的每个元素在未赋值之前的默认值是。 32、函数BETWEEN(40,34,50)的运算结果是。 33、 34、执行命令A=2005/4/2之后，内存变量A的数据类型是型。35、颜色函数RGB(255,0,0)返回的颜色是色。 36、颜色函数RGB(0,255,0)返回的颜色是色。 37、颜色函数RGB(0,0,255)返回的颜色是色。 38、VFP中，删除全部记录的命令是。 39、VFP中，物理删除所有带删除标记记录的命令是。 40、 41、自由表中允许字段名的最大长度为（用阿拉伯数字）个字符。 42、在记录浏览状态下，可用Ctrl+0组合键向某一字段输入（用汉字）值。 43、清除屏幕信息的语句命令是。 44、表单设计中，引用当前对象的关键字为。 45、子类可以自动继承父类的属性和方法，这种特性称为类的性。 46、MessageBox函数的返回值是一个型数据。 47、函数MessageBox的语法为：MESSAGEBOX(cMessageText [, nDialogBoxType [, cTitleBarText]])，则该函数的第二个参数省略。答题提示：可以/不可以 48、命令窗口中未加说明而直接定义的变量，是变量。提示：全局/私有/局部 49、程序中未加说明而直接定义的变量，是变量。提示：全局/私有/局部 50、作用范围最小的变量是变量。提示：全局/私有/局部 51、项目管理器的"移去"按钮有两个功能；一是把文件移去，二是______文件。 52、创建视图时，相应的数据库必须是______状态。（打开/关闭） 53、为图像控件指定图片(如.bmp文件)文件的属性是。 54、 55、在SQL查询语句中，显示部分结果的top短语必须要与短语一起来使用。(短语要写完全) 56、VFP中变量名的命名规则：只能使用汉字、字母、和数字。 57、time()函数的返回值的数据类型为型。 58、退出VFP的命令是。 59、定义全局变量的命令是。 60、定义局部变量的命令是。 61、定义私有变量的命令是。 62、wait 命令可以从键盘接收一个。(答题提示：字符/字符串) 63、Accept命令可以从键盘接收一个。(答题提示：字符/字符串) 64、VFP中支持的三种关系运算有选择、投影和。 65、数据表由表结构和两部分组成。 66、表分两种，表和数据库表。 67、报表的两个基本组成部分：数据源和。 68、当输入比较长的命令时，可加一个来续行，回车后继续在下一行输入。答题提示：逗号/分号/空格/括号 69、视图设计器比查询设计器多了一个选项卡。 70、过程文件中的每个子过程必须以（写前四个字母）开头。 71、对象的引用可分为相对引用和引用。 72、创建的菜单运行后，使用set sysmenu to 命令来退出用户菜单，并恢复系统原来的菜单。
VFP程序填空题的作业答案
程序填空题的应试技巧 程序填空题采用的是选择填空，在做题时可采用以下方法来寻找正确的答案。 1．找匹配语句。 （1）根据程序结构来填空。有DO WHILE，考虑有无ENDDO配对，有IF，有无ENDIF配对。 USE 学生……USE LOCATE FOR ……CONTINUE或FOUND（）或!EOF() INDEX ON ……SET INDEX TO SET PROC TO 过程名……SET PROC TO （2）如果程序中有变量的使用语句，如S=S+1，X=X+1，检查程序开头处有无变量赋初值的语句，是否需填STORE 0 TO S, X。 （3）使用TOTAL命令，检查是否存在建索引或排序的语句。 （4）DO AAA(过程名) WITH …，检查过程中有无PARA。 2．边读程序边做题 用实例代入读程序，并结合语句含义和函数来考虑。 3.与表文件有关的函数有： (1)函数：EOF() BOF() FCOUNT() FIELDS() FOUND() FILE() RECNO()RECCOUNT() (2)命令REPLACE ……WITH LOCATE ……FOR DELETE FILE DISP ALL FOR …… APPEND BLANK COUNT TO 新变量名FOR …… SUM 数值型字段TO 新变量名FOR …… AVERAGE数值型字段TO 新变量名FOR …… SKIP n DISP NEXT N 4．输入和输出语句: 程序填空题 1：[程序说明]求1！+3！+5！+······N！的值。N由键盘输入，且为奇数。[程序] SET TALK OFF CLEAR __(5)__ STORE 0 TO S，T FOR I=1 TO N STEP 2 DO SUB __(6)__ ENDFOR ?S SET TALK ON
VFP填空题+答案
1．在VFP的默认状态下，表以________方式打开。 答案：独占 2．如果USED("XS")返回为T，则说明________。 答案：文件已打开 3．要实现对JS表所有记录的工龄(GL)增加1，其UPDATE-SQL命令为________。 答案：UPDATE JS SET GL=GL+1 4．在REPLACE命令中，保留字________仅对备注型字段有效，使用时表示替换的内容追加到原备注中，否则替换原备注内容。 答案：ADDITIVE 5．请写出删除JS表中基本工资(GZ)在400元以下所有记录的DELETE-SQL命令________。 答案：DELETE FROM JS WHERE GZ<400 6．如果要彻底删除当前工作区中打开表的所有记录，可以使用________命令。 答案：ZAP 7．打开一个表时，________索引文件将自动打开，表关闭时它将自动关闭。 答案：结构复合索引 8．数据库中的每一个表能建立________个主索引。 答案：1 9．除了自由表的字段名、表的索引名至多只有_____个字符以外，其余名称的长度可以达到100多个字符。 答案：10 10．________是保存在数据库中的过程代码，由用户自定义的函数和在创建表之间的参照完整性规则时系统创建的函数组成。 答案：存储过程 11．参照完整性的插入规则只有两个,________ 答案：删除和忽略 12．学生表和成绩表已经建立了参照完整性，如果删除学生表中的记录，该学生的所有成绩记录也自动全部删除，则两表之间的参照完整性设置为___________。 答案：删除级联 13．要设置当前数据库中js 表的gh字段的标题属性，可以dbsetprop(”_______”,”field”,”caption”,”工号”) 答案：js.gh 14．要获取当前数据库中xs表的xb字段的默认值，可以dbgetprop(”xs.xb”,”field”,”__________”) 答案：defaultvalue 15．对于已打开的多个索引，每次只有一个索引对表起作用，这个索引称为________。 答案：主控索引 16．在关系模型中实体之间的联系有三种：一对一关系、一对多关系和多对多关系。在VFP 数据库中，数据库表之间不能建立的关系是________。 答案：多对多关系 17．________是保存在数据库中的过程代码，它由一系列用户自定义函数或在创建表与表之间参照完整性规则时系统创建的函数组成。 答案：存储过程 18．在移动表或数据库后更新链接，可以使用VALIDATE DATABASE命令检查数据库的有效性和更新链接.该命令要求以________方式打开当前数据库。
VFP练习题(精华哦!)
VFP程序设计练习题 一、选择题 1、 Visual FoxPro 是一个。 A. 数据库系统 B. 数据库管理系统 C. 数据库 D. 数据库管理员 2、实体是信息世界的术语，与之对应的数据库术语是。 A. 文件 B. 数据库 C. 记录 D. 字段 3、数据库系统与文件系统的最主要区别是。 A.数据库系统复杂，而文件系统简单 B.文件系统只能管理程序文件，而数据库系统能够管理各种类型的文件 C.文件系统管理的数据量较小，而数据库系统可以管理庞大的数据量 D.文件系统不能解决数据冗余和数据独立性问题，而数据库系统可以解决 4、目前三种基本的数据模型是 ________ 。 A. 层次模型、网络模型、关系模型 B. 对象模型、网络模型、关系模型 C. 网络模型、对象模型、层次模型 D. 层次模型、关系模型、对象模型 5、数据库管理系统是 ________ 。 A. 教学软件 B. 应用软件 C. 计算机辅助设计软件 D. 系统软件 6、关系型数据库采用 ________ 表示实体和实体间的联系。 A. 对象 B. 字段 C. 二维表 D. 表单 7、下列表达式中，合法的是。 A. Year(Date())-{2000/08/02} B. Date()-{2000/08/02} C. Date()+{2000/08/02} D. A、B、C 均对 8、表达式?round(123.456,0) VFP程序设计期末复习题（学生版） 一、基本知识点（含填空题、选择题、判断题） 1.在有关数据库的概念中，若干记录的集合称为表。 2.要计算职称为副教授或教授的工资总额,可用的命令有： （1）sum 工资 FOR 职称="副教授".OR.职称="教授" （2）SUM ALL 工资 FOR 职称="副教授".OR.职称="教授" （3）SUM 工资 FOR "教授"$职称 3.不允许记录中出现重复索引值的索引是主索引和候选索引。 4.在Visual FoxPro中，打开数据库的命令是OPEN DATABASE <数据库名>。 5.连续执行以下命令之后，最后一条命令的输出结果是A BCD。 SET EXACT OFF X="A " ?IIF("A"=X,X-"BCD",X+"BCD") 6. LEET("Visual FoxPro",6)与SUBSTR("Visual FoxPro",1,6)运算中，结果相同。 7.在Visual Foxpro中，用于建立或修改过程文件的命令是MODIFY COMMAND <文件名>或MODIFY PROCEDURE <文件名>。 8.使用命令DECLARE mm(2,3)定义的数组，包含的数组元素(下标变量)的个数为6。 9.APPEND命令的功能是在表的最后面插入一条记录。 10.打开学生数据库及(对成绩字段的)索引文件，假定当前记录号为200，欲使记录指针指向记录号为100的记录，应使用命令GOTO 100。 11.假定系统是期是2004年01月05日，有如下命令： NJ=YEAR(DATE()) 执行该命令后，NJ 的值是2004。 12.学生数据库文件中共10条记录，其姓名字段值均为学生全名，执行如下命令序列： USE STUDENT ?recno() 最后，recno()函数的显示值是1。 13.比较表达式的结果是逻辑型。 14.用COPY STRU TO <文件名> 形成的文件是表文件。 15. 数值型、日期型、字符型能作为索引关键字的数据类型而备注型则不能。 16.显示数据表当前记录内容的命令是LIST NEXT 1。 17.用命令DIMENSION A(4，5)定义后，A数组中共有20个数据元素。 2005届计算机专业《VFP》程序填空与阅读试卷汇编一 班级姓名 一、程序填空(每空3分，共27分) 1.有一商场的商品销售数据库XS.DBF,其记录如下: 记录号商品名单价数量总价 1 电冰箱2000 3 6000 2 彩电1800 5 9000 3 电冰箱2010 1 2010 4 空调机1600 2 3200 5 彩电1900 2 3800 …… 下面程序用于分类统计各种商品总的销售数量和总的销售额(总价),并计算出平均 销售单价。 SET TALK OFF USE XS INDE ON __________________ TO SY ____________________ TO TJK USE TJK REPL _____________________ LIST USE SET TALK ON 2.任意输入两个正整数X和Y,求X与Y的最小公倍数。 SET TALK OFF INPUT "X="TO X INPUT "Y="TO Y IF X>Y T=X X=Y Y=T ENDI N=Y DO WHILE N<=__________________ IF ________________ EXIT ENDI N=_______________________ ENDDO ?"最小公倍数是:"+STR(N) SET TALK ON 3.现有一数据库CJ.DBF,该数据库文件中仅有一个数值型字段"数据",且无记录。要求键盘输入十个数,将这些数保存到CJ.DBF的"数据"字段中,并由大到小显示出来。 SET TALK OFF USE CJ K=1 DO WHIL K＜＝10 _________________ ＠K+5,1 SAY "第"+STR(K,2)+"数是:" GET 数据 READ __________________ ENDD INDE ON _______________ TO TMP LIST USE SET TALK ON 二、程序填空(每空3分,共18分) 1.男子100米短跑成绩已录入数据库Male100.DBF,现要求将前3名运动员的成绩转入获奖数据库gainer.dbf和gainer.txt文件中。阅读下列程序, 填写空位处的代码,使程序能正确有效地实现上述要求。 set Talk off clear ＠14,20 say "请稍候…" use Male100 ___________ on 成绩／D To temp use Temp Copy _________________ To gainer.dbf use gainer copy to gainer.txt _________________ use ＠14,20 say "操作完毕!" Return 2.现有一户籍数据库People.DBF,存贮有该地区各位公民的档案资料,现要求按"出生日期"字段(日期型),以索引查询方式,快速查找并显示所有与指定出生日期相同的记录。 Set Talk off Set Safe off Clear use people Index On 出生日期To Ipeople Born=" / / " ＠14,20 Say "请输入查询的出生日期:" Get Bom picture _________ Read ________________________ Do while .NOT.EOF( ).AND. _________________ Display Skip Enddo 一、选择题： 1.目前数据库管理系统(DBMS)有许多不同的产品。在下列DBMS产品中，不属于微软 (Microsoft)公司开发的是： D 。 A．Visual FoxPro B．Access C．SQL Server D．Oracle 2.VFP中的项目文件、数据库文件、表文件、结构化复合索引文件的扩展名分别是： C A. DBC，PJX，DBF，CDX B. CDX，PJX，DBF，DBC C. PJX，DBC，DBF，CDX D. PJX，DBF，DBC，CDX 3.关于Visual FoxPro的变量，下面说法中正确的是 B A.使用一个简单变量之前要先声明或定义 B.数组中各数组元素的数据类型可以不同 C.定义数组以后，系统默认为数组的各元素赋以初始值0 D.数组元素的下标编号最小是0 4.VFP中变量的作用域有三种，即PUBLIC、PRIVATE和LOCAL。若在程序中定义某变量， 且未加声明，则默认该变量的作用域是 B 。 A.PUBLIC B.PRIVATE C.LOCAL D.不确定 5.在命令窗口中执行了命令X=5后，则默认该变量的作用域是____A_____。 A.全局 B.局部 C.私有 D.不定 6.在VFP的命令窗口输入命令：? LEFT(DTOC({^2010/05/01}),2) 并按回车键，VFP的 主窗口中的显示为： D 。 A. 01 B. 20 C. 10 D. 05 7.在VFP的命令窗口输入命令：? MOD(－13,8) VFP的主窗口中的显示为：A A. 3 B. 5 C. -3 D. -5 8.在Visual FoxPro系统中，下列返回值是字符型的函数是 B 。 A. V AL() B. TIME() C. DA TETIME() D. YEAR() 9.在Visual FoxPro系统中，以下函数返回值不是数值型的是 D 。 A.LEN("Visual FoxPro") B.A T("This"，"ThisForm") C.YEAR(DA TE()) D.LEFT("ThisForm",4) 10.以下的四组函数，哪一组返回值的数据类型是一致的A。 A. STR（3.14,3,1）, CHR(69), SUBSTR("ABCD",3,1) B. ALLTRIM(" VFP 6.0"), ASC("A"), SPACE(8) C. EOF( ) , RECC( ) , RECNO( ) D. DTOC(DA TE()), DA TE(), YEAR(DA TE()) 11.执行下列命令后，屏幕上显示的结果是A。 X=＂ARE YOU Ok?＂ Y=＂are＂ ?A T(Y,X) Ａ．0Ｂ．.F. Ｃ．.T. Ｄ． 1 12.表达式LEN(LTRIM(STR(3.141,6,2)))的返回值是： B 。 A. 6 B. 4 C. 5 D. 2 13.表达式CHR(ASC(“A”)+5)的返回值是： D A. 70 B. “A” C. 非法表达式 D. “F” 第四章程序填空 该章以操作题为主，一道题分值为5分。 程序填空1 *------------------------------------------ 题目：表RSDA.DBF结构为：姓名（C，6）；性别（C，2），年龄（N，2），出生日期（D，8）。 判断表中是否有"李明"，查询此人的性别及年龄，确定参加运动会的项目。 *------------------------------------------ SET TALK OFF USE RSDA ***********SPACE********** 【】 FOR 姓名= "李明" ***********SPACE********** IF .NOT. 【】 DO CASE CASE 性别= "男" ?"请参加爬山比赛" CASE 年龄<=50 ? "请参加投篮比赛" CASE 年龄<=60 ? "请参加老年迪斯科比赛" ***********SPACE********** 【】 ELSE ? "查无此人" BROWSE ENDIF USE SET TALK ON RETURN 程序填空2 *------------------------------------------ 题目:显示输出图形： ***** *** * 请在【】处添上适当的内容，使程序完整。 *------------------------------------------ CLEA I=1 ***********SPACE********** DO WHILE 【】 J=1 DO WHILE J<=7-2*I ***********SPACE********** 【】 j=j+1 ENDDO ***********SPACE********** 【】 ? ENDDO 程序填空3 *------------------------------------------ 题目: 1982年我国第三次人口普查，结果全国人口为10.3亿，假如人口增长率为5%。编写一个程序求在公元多少年总人口翻了一番。请在【】处添上适当的内容，使程序完整。 *------------------------------------------ SET TALK OFF CLEAR P1=10.3 N=1 R=0.05 P2=P1*(1+R) ***********SPACE********** DO WHILE P2<=【】 ***********SPACE********** N=【】 ***********SPACE********** P2=P2【】(1+R) ENDD N=1982+N ? N,"年人口总数翻了一番" SET TALK ON CANC 程序填空4 *------------------------------------------ 题目: 编写程序，实现矩阵（3行3列）的转置（即行列互换）。 * 例如,输入下面的矩阵： * 1 2 3 * 4 5 6 * 7 8 9 * 程序输出： * 1 4 7 * 2 5 8 * 3 6 9 *请在【】处添上适当的内容，使程序完整。 第五章 一、填空 1、以下程序的功能是将英文字母组成的字符串加密.加密的算法是: 如果是大写字母,用原字母后面的第4个字母代替原字母, 否则用原字母后的第2个字母代替原字母,如原文"China",加密后的密文是"Gjkpc", 完善下列程序: m=space(0) c="China" for i=1 to 【 len(c)】 nc=asc(substr(c,I,1)) if nc>64 【 and】 nc<91 &&该字母的ASC值在64之91之间,表明该字母是大写 m=m+【chr(nc+4)/ chr(4+nc)】 else m=m+chr(nc+2) endif endf 2、完善下列程序,其功能是显示如下所示的文字图形. 金 字字 大大大 宝宝宝宝 塔塔塔塔塔 【程序清单】 CLEAR c="金字大宝塔" n=LEN(c)/2 FOR i=1 TO n ?SPACE(70-i) FOR j=1 【TO i】 ?? SUBS(C,2*i-1,2) =INKEY(0.5) ENDFOR ENDFOR 3、请写出x的值【 30】,y值是【 -2】 X=26 y=0 if int(x/2)=x/2 y=mod(x,3) x=x+4 endif if int(x/3)=x/3 y=Mod(x,-4) endif ? x,y 4、如果当前日期是2000年4月1日,并且命令 ?date()在屏幕上返回 04/01/00, 则命令行 ?date()+10在屏幕上返回的值为【 04/11/00】 5、已知N="1",M="2",X12="GOOD",则表达式X&N&M的值为【 GOOD】 6、已知有三个文件分别程序文件、查询文件、表单文件,文件名都是a, 请问运行程序文件的命令是【 do a】、 运行查询文件的命令是【do a.qpr】、 运行表单文件的命令是【 do form a】 7、执行下列程序后，输出到屏幕的结果为【 3】。 【程序清单】 CLEAR cstring="VisualFoxPro" nresult=0 m=LEN(cstring) FOR n=1 to m c=SUBSTR(cstring,n,1) IF !BETWEEN(ASC(c)，ASC("A"),ASC("Z")) LOOP ENDIF nresult=nresult+l ENDFOR ?nresult 8、完善下列自定义函数STR_RV(),其功能是将一个字符串(假设所有字符均为ASCII和 GB2312字符集中的字符)进行"反序".例如,STR_RV("ABCD")的返回值为"DCBA". 【程序清单】 FUNCTION str_rv() PARAMETERS c P=SPACE(O) DO WHILE LEN(C)>0 x=ASC(【LEFT(c,1)/SUBSTR(c,1,1)/ SUBS(c,1,1)】) IF x>127 &&ASCII码值大于127的字符为汉字(x为半个汉字的机内码) i=2 ELSE i=1 ENDIF P=LEFT(C,i)+P C=SUBSTR(c,i+1) ENDDO 【 RETURN P/ RETU P】 ENDFUNC 9、在Visual FoxPro中,基类的事件集合是固定的,不能进行扩充.基类的最小事件集包括 Init 事件、Destroy 事件和【error 】事件 10、如果2002年3月18号是星期一,则以下命令在屏幕上显示【 2】 x={^2002/03/18} ?dow(x) 程序填空补充练习题 1．完善下列程序，以显示7~1000以内能被7整除且含有数字5的所有整数(如35、56、105等)。 FOR n=7 TO 1000 step 7 ch=ALLT(STR(n)) IF ”5”$ ch ? n ENDIF ENDFOR 2．运行下列程序后，显示的运行结果的第二行为11*11=121。 CLEAR y=”11111111” FOR i=1 TO LEN(y) x=LEFT(y,i) ? SPACE(20-I*2)+x+”*”+x+”=”+ALLT(STR(VAL(x)*VAL(x),20)) ENDFOR 3. 完善下列程序，其功能是计算数列1!,2!,3!,…,n!的前10项之和： nResult=0 nMult= 1 for n=1 to 10 nMult=nMult*n nResult=nResult+nMult endfor ? nResult 4. 完善下列程序，使其能在屏幕上输出一个如下所示的图形。 CLEAR FOR I=1 TO 5 ?? SPACE(I-1) FOR J= 1 TO 11-2*I ?? “*” ENDFOR ? ENDFOR 5．完善下列程序，其功能是将由中英文字符组成的字符串，以竖列的形式(即每行一个字符)输出。 Clear P=”新编VisualFoxPro教程” DO WHILE !EMPTY(p) i=IIF(ASC(LEFT(p,1))>127,2,1) ? LEFT(p,i) p=SUBS(p,___3____) enddo 6.完善下列程序，计算3+33+333+3333+33333+……前10项之和。 CLEAR m=3 n=0 s=0 FOR i=10 to 1 step -1 n=n+m*10**(10-I) s=s+n ENDFOR 7．完善下列程序，其功能是统计一个仅由数字组成的字符串中各种数字字符的个数：CLEAR cStr="110102342245676893319" &&字符串初值 STORE 0 TO n0,n1,n2,n3,n4,n5,n6,n7,n8,n9 &&计数变量 DO WHILE LEN(cStr)>0 c=LEFT(cStr,1) n&c=n&c+1 cStr=subs(cStr,2) ENDDO ? n0,n1,n2,n3,n4,n5,n6,n7,n8,n9 8．完善下列自定义函数NoSpace()，其功能是将字符串中的所有空格删除。 FUNCTION NoSpace PARAMETERS cStr cResult=SPACE(0) FOR n=1 to len(cStr) IF SUBSTR(cStr,n,1)=SPACE(1) CStr=cResult+subs(cStr,n+1) ENDIF cResult=cResult+SUBSTR(cStr,n,1) ENDFOR 理论模拟题（二） 一、单项选择题（每题1分，共40分） 1. 计算机能够自动工作，主要是因为采用了。 A) 二进制数制 B) 大规模集成电路 C) 程序设计语言 D) 存储程序控制原理 2. 下列数值中最大的是。 A) (10110) 2 B) (120) 8 C) (70) 10 D) (3A) 16 3. 在计算机指令系统中，一条指令通常由组成。 A) 数据和字符 B) 操作码和操作数 C) 运算符和数据 D) 被运算数和结果 4. 运算器主要由组成。 A) 算术逻辑单元 B) 微处理器 C) 控制器 D) 存储器 5.下列关于Windows“回收站”的叙述中，不正确的是。 A)“回收站”中的信息可以清除 B) “回收站”中的信息可以还原 C) “回收站”的大小可以设置 D) “回收站”不占用硬盘空间 6. 多媒体信息不包括。 A) 文字、图形 B) 音频、视频 C) 光驱、声卡 D) 影像、动画 7. 学校机房的若干台计算机连接而成的网络通常属于。 A) WAN B) LAN C) MAN D) GPS 8. FTP是。 A) 发送电子邮件的软件 B) 浏览网页的工具 C) 文件传输协议 D) 聊天工具 9. 下列关于计算机病毒的叙述中，不正确的是。 A) 计算机病毒只破坏硬件，不破坏软件 B) 计算机病毒是人为编写的一种程序 C) 计算机病毒能通过磁盘、网络等媒介传播、扩散 D) 计算机病毒具有潜伏性、传染性和破坏性 10. 下列关于算法的叙述中，正确的是。 A) 算法就是对特定问题求解步骤的描述 B) 算法就是程序 C) 算法就是软件 D) 算法没有优劣之分 11．下列选项中，___________不属于数据管理发展的阶段。 A）人工管理阶段B）文件系统阶段 C）操作系统阶段D）数据库系统阶段 12．用二维表格形式来表示实体集及其之间关系的数据模型是___________。 A）层次模型B）网状模型 C）关系模型D）二维模型 13．在Visual FoxPro中，项目文件和数据库文件的扩展名分别为___________。A）PRG和DBC B）PJX和DBC C）PRG和DBF D）PJX和DBF 1、数据库管理系统支持的数据模型主要有三种，分别是层次模型、网状模型、______模型。 答案： 1：Non 评析： 数据库管理系统数据模型：层次模型、网状模型和关系模型。 层次数据模型：用树形结构表示实体及其之间联系的模型称为层次模型； 网状数据模型：用网状结构表示实体及其之间联系的模型称为网状模型； 关系数据模型：用二维表结构来表示实体之间联系的模型称为关系模型。 知识点：VFP部分/项目和应用程序/编译和优化应用程序/引用可修改的文件 2、用二维表的形式来表示实体之间联系的数据模型叫做______。 答案： 1：Non 评析： 以二维表的形式来表示实体之间联系的数据模型是关系模型；另外还有层次模型、网状模型 关系数据模型是以关系数学理论为基础的，在关系模型中，操作的对象和结果都是二维表，这种二维表就是关系，每一个关系都是一个二维表，无论实体本身还是实体之间的联系均用称为"关系"的二维表来表示。 知识点：VFP部分/项目和应用程序/编译和优化应用程序/引用可修改的文件 3、在关系数据库的基本操作中，从表中取出满足条件元组的操作称为______。 答案： 1：Non 评析： 在关系数据库的基本操作中，从表中取出满足条件元组的操作称为选择；在关系数据库的基本操作中，把两个关系中相同属性值的元组联接到一起形成新的二维表的操作称为联接；从关系模式中指定若干个属性组成新的关系称为投影。 知识点：VFP部分/项目和应用程序/编译和优化应用程序/引用可修改的文件 4、在关系数据库的基本操作中，把两个关系中相同属性值的元组联接到一起形成新的二维表的操作称为 ______。 答案： 1：Non 评析： 在关系数据库的基本操作中，从表中取出满足条件元组的操作称为选择；在关系数据库的基本操作中，把两个关系中相同属性值的元组联接到一起形成新的二维表的操作称为联接；从关系模式中指定若干个属性组成新的关系称为投影。 知识点：VFP部分/项目和应用程序/编译和优化应用程序/引用可修改的文件 5、自然联接是去掉重复属性的_______联接。 答案： 1：Non 练习题一Visual FoxPro基础 一、选择题 1.关系数据库管理系统应能实现的专门关系运算包括___c_______。 A）显示、打印、制表 B）关联、更新、排序 C）选择、投影、连接 D）排序、索引、统计 2.关系是指__b________。 A）属性的集合 B）元组的集合 C）实例的集合 D）字段的集合 3.如果把学生看成实体，某个学生的姓名叫“杨波”，则“杨波”应看成是___b_______。 A）属性型 B）属性值 C）记录型 D）记录值 4.关系数据库系统中所使用的数据结构是______d____。 A）图 B）树 C）表格 D）二维表 5.对表进行水平方向的分割用的运算是______b____。 A）交 B）选择 C）投影 D）连接 6.下列数据库技术的术语与关系模型的术语的对应关系中____d______是正确的。 A）实例与关系 B）字段与元组 C）记录与属性 D）记录类型与关系模式 7.下列关于数据库系统的叙述中，正确的是____c______。 A）数据库系统中数据的一致性是指数据类型一致 B）数据库系统只是比文件系统管理的数据更多 C）数据库系统减少了数据冗余 D）数据库系统避免了数据冗余 8.关系数据模型______d____。 A）只能表示实体间的1:1联系 B）只能表示实体间的1:n C）只能表示实体间的m:n D）可以表示实体间的上述三种联系 9.在一个关系中如果有这样一个属性存在，它的值能惟一地标识关系中的每一个元组，称 这个属性为_____a_____。 A）关键字 B）主属性 C）数据项 D）主属性值 10.关系数据库管理系统中的元组是_____b_____。 A）关系中的垂直方向的列 B）关系中的水平方向的行 C）属性或属性的组合 D）以上的答案均不正确 11.从数据库的整体结构看，数据库系统采用的数据模型有______a____。 A）层次模型、网状模型和关系模型 B）层次模型、网状模型和环状模型 C）网状模型、链状模型和层次模型 D）链状模型、关系模型和层次模型 12.设有属性A、B、C、D以下表示中不是关系的是_______d___。 A）R（A） B）R（A，B） C）R（A，B，C，D） D）R（A×B×C×D） 13.若实体间联系是M：N的，则将联系类型______a____。 A）也转换为关系模型 B）属性加入任一个关系模式中 C）属性加入N端实体类型相应的关系模式中 D）属性加入M端实体类型相应的关系模式中 14.数据库系统的构成为数据库、计算机硬件系统、用户和_____a_____。 A）数据库管理系统 B）操作系统 C）数据集合 D）文件系统 15.层次型、网状型和关系型数据库划分原则是______c____。 A）文件大小 B）记录长度 C）数据之间的联系 D）联系的复杂程度 16.在数据库设计中用关系模型来表示实体和实体之间的联系，关系模型的结构是 ______d____。 A）封装结构 B）层次结构 C）网状结构 D）二维表结构 17.在关系模型中，实现“关系中不允许出现相同的元组”的约束是通过__a________。 A）主键 B）超键 C）外键 D）候选键 18.层次模型不能直接表示______b____关系。 A）1:1 B）m:n C）1:m D）1:1和1:m 19.DBAS指的是______d____。 V F P程序填空阅读试题https://www.wendangku.net/doc/418178595.html,work Information Technology Company.2020YEAR 计算机专业《VFP》程序填空与阅读试卷汇编一 一、程序填空(每空3分，共27分) 1.有一商场的商品销售数据库XS.DBF,其记录如下: 记录号商品名单价数量总价 1 电冰箱 2000 3 6000 2 彩电 1800 5 9000 3 电冰箱 2010 1 2010 4 空调机 1600 2 3200 5 彩电 1900 2 3800 …… 下面程序用于分类统计各种商品总的销售数量和总的销售额(总价),并计算出平均 销售单价。 SET TALK OFF USE XS INDE ON __________________ TO SY ______________ ______ TO TJK USE TJK REPL _____________________ LIST USE SET TALK ON 2.任意输入两个正整数X和Y,求X与Y的最小公倍数。 SET TALK OFF INPUT "X="TO X INPUT "Y="TO Y IF X>Y T=X X=Y Y=T ENDI N=Y DO WHILE N<=__________________ IF ________________ EXIT ENDI N=_______________________ ENDDO "最小公倍数是:"+STR(N) SET TALK ON 3.现有一数据库CJ.DBF,该数据库文件中仅有一个数值型字段"数据",且无记录。要求键盘输入十个数,将这些数保存到CJ.DBF的"数据"字段中,并由大到小显示出来。 SET TALK OFF CLEA USE CJ K=1 DO WHIL K＜＝10 _________________ ＠K+5,1 SAY "第"+STR(K,2)+"数是:" GET 数据 READ __________________ ENDD INDE ON _______________ TO TMP LIST USE SET TALK ON 二、程序填空(每空3分,共18分) 1.男子100米短跑成绩已录入数据库Male100.DBF,现要求将前3名运动员的成绩转入获奖数据库gainer.dbf和gainer.txt文件中。阅读下列程序, 填写空位处的代码,使程序能正确有效地实现上述要求。 set Talk off clear ＠14,20 say "请稍候…" use Male100 ___________ on 成绩／D To temp use Temp Copy _________________ To gainer.dbf use gainer copy to gainer.txt _________________ use ＠14,20 say "操作完毕!" Return 2.现有一户籍数据库People.DBF,存贮有该地区各位公民的档案资料,现要求按"出生日期"字段(日期型),以索引查询方式,快速查找并显示所有与指定出生日期相同的记录。 Set Talk off Set Safe off Clear use people Index On 出生日期 To Ipeople Born=" / / " ＠14,20 Say "请输入查询的出生日期:" Get Bom picture _________ Read 《VFP 语言程序设计》考试试卷 年级 专业 姓名 学号 座位号 一、单项选择（在备选答案中选出一个正确答案，将答题卡上对应的选项涂黑。每题2分，共50分） 01．按照数据库管理系统采用的数据模型Visual FoxPro 是_____DBMS 。 A ）层次型 B ）混合型 C ）关系型 D ）网状型 02．数据库(DB)、数据库系统(DBS)、数据库管理系统(DBMS)三者之间的关系是_____。 A ）DBS 包括DB 和DBMS B ）DBMS 包括DB 和DBS C ）DB 包括DBS 和DBMS D ）DBS 就是DB ，也就是DBMS 03．关系数据库管理系统存储与管理数据的基本形式是_____。 A ）关系树 B ）二维表 C ）结点路径 D ）文本文件 04．用户启动Visual FoxPro 后，若要退出Visual FoxPro 回到Windows 环境，可在命令窗口中输入_____命令。 A ）EXIT B ）CLOSE C ）SYSTEM D ）QUIT 05．Visual FoxPro 的最大特点是______。 A) 面向过程编程技术 B) 面向对象编程技术 C) 结构化编程技术 D) 界面友好 06．在Visual FoxPro 数据库管理系统中，下列数据是常量的是_____。 A ）T B ）.T. C ）TOP D ）02/10/99 07．在Visual FoxPro 中，下列定义的变量名中，错误的是_____。 A ）ABC B ）3A C ）A_3 D ）A3 08．下列四个选项中，结果相同的是 。 A ）LEET(″Visual FoxPro″,6)与SUBSTR(″Visual FoxPro″,1,6) B ）YEAR(DA TE())与SUBSTR(DTOC(DATE()),7,2) C ）AT(″5″,″36-5*4″)与LEN(″36-5*4″) D ）假定A=″this ″，B=″is a string″，A-B 与A+B 09．在Visual FoxPro 中说明数组的命令是_____。 A ）DIMENSION 和ARRAY B ）DECLARE 和ARRAY C ）DIMENSION 和DECLARE D ）只有DIMENSION 10．Visual FoxPro 项目文件的扩展名是_____。 A ）DBF B ）FPT C ）PJX D ）QPR 11．在Visual FoxPro 的项目管理器选项卡中不包括的选项卡是_____。 A ）数据 B ）文档 C ）类 D ）表单 12．若所建立索引的字段值不允许重复，并且一个表中只能创建一个，它应该是 。(完整版)VFP程序设计期末复习题(学生版)
VFP程序填空与阅读试题
VFP练习题
VFP程序填空习题
《VFP》第五章习题全解
VFP程序填空补充练习题
VFP试题及答案
vfp填空题
VFP程序设计基础试题库
VFP程序填空阅读试题
《VFP语言程序设计》考试试题及参考答案