《visualfoxpro6.0数据库与程序设计》试题(附答案)

20.当删除父表中的记录时，若子表中的所有相关记录也能自动删除，则相应的参照完整性的删除规则为 。

1.不允许记录中出现重复索引值的索引是（ ）。

A.主索引和普通索引
B.主索引，候选索引和普通索引
C.主索引和候选索引
D.普通索引，候选索引和唯一索引 2.结构化程序设计的三种基本逻辑结构是（ ）。

A.选择结构，循环结构和嵌套结构 B.顺序结构，选择结构和循环结构 C.选择结构，循环结构和模块结构 D.循环结构，递归结构和循环结构 FoxPro 参照完整性规则不包括（ ）。

A.更新规则
B.查询规则
C.删除规则
D.插入规则 4.测试数据库记录指针是否指向数据末尾所使用的函数是（ ）。

( ) （） （） （） 5.命令SELECT 0的功能是（ ）。

A.选择编号最小的未使用工作区
B.选择0号工作区
C.关闭当前工作区的表
D.选择当前工作区 6.以下函数结果为“共和国”的是（ ）。

（“中华人民共和国”，5，3） （“中华人民共和国”9，6） （“中华人民共和国”9，3） （“中华人民共和国”5，6） 7.字符型数据的最大长度是( )。

.254 C
8.如果内存变量和字段变量均有变量名"姓名"，那么引用内存的正确方法是（ ）。

.姓名 >姓名 C.姓名和B都可以
9.一间宿舍可住多个学生，则实体宿舍和学生之间的联系是（）。

A.一对一
B.多对多
C.多对一
D.一对多
10.当前数据库文件有10条记录，执行下列命令后的结果是（）。

GO 5
APPEND BLANK
RECNO（）
.6 C
Foxpro的ZAP命令可以删除当前数据库文件的（）。

A.满足条件的记录
B.有删除标记的记录
C.结构
D.全部记录
12.命令：CREATE DATABASE ABC是用来（）。

A.创建一个名为ABC的数据库
B.创建一个名为ABC的数据表
C.修改一个名为ABC的数据库
D.修改一个名为ABC的数据库
13.有以下程序段：
DO CASE
CASE 计算机〈60
”计算机成绩是：”+”不及格”
CASE 计算机〉=60
”计算机成绩是：”+”及格”
CASE 计算机〉=70
”计算机成绩是：”+”中”
CASE计算机〉=80
”计算机成绩是：”+”良”
CASE计算机〉=90
”计算机成绩是：”+”优”
ENDCASE
设学生数据库当前记录的“计算机”字段的值是79，屏幕输出为（）。

A.计算机成绩是：不及格
B.计算机成绩是：及格
C.计算机成绩是：中
D.计算机成绩是：优
14.设X=10,语句TYPE("X")的输出结果是（）。

15.在Visual FoxPro中，一次最多可同时使用（）个工作区。

.32768 C
主界面的菜单栏中不包括（）菜单项。

A.“编辑”
B.“工具”
C.“窗口”
D.“项目”
17.设有变量PI=，执行命令 ROUND（PI，3）后屏幕显示结果是（）。

A.3.14
B.3.142
C. 项目管理器不包含的选项卡是( )。

A.表单
B.全部
C.类
D.代码
19.下列运算符中优先级相同的是（）。

A.+和* 和/ C.**和* D.〈〉和==
20.命令：MODIFY STRUCTURE的作用是（）。

A.修改表结构
B.插入一个记录
C.删除一条记录
D.以上说法都不对
1.在下面的Visual FoxPro表达式中，正确的是（）。

A.{^2002-05-01}-10
B.{^2002-05-01}-DATE()
C.{^2002-05-01}+DATE()
D.{^2002-05-01}+1000
2.以下表达式中，合法的是（）。

=5
B.[8]+[3]>10
(“ad”,“xyadvanad”)-len(“adadad”)
D..not.(a=b).>
中的表达式有（）。

A.算术表达式
B.字符表达式
C.关系表达式
D.逻辑表达式
4.表的关联关系类型包括（）。

A.一对一关联关系
B.一对多关联关系
C.多对多关联关系
D.以上都正确
中使用了（）等几种变量形式。

A.字段名变量
B.数组变量
C.系统变量
D.内存变量 得分 阅卷人
四、判断题(每小题1分，共5分)
（ ）1.自由表不能设置主索引。

（ ）2.＃DEFINE PI ，其中PI 是一个变量。

（ ）（5，3）的值为3。

（ ）4.整型数据的缩写是I 。

（ ）5.工作区可用字母A~Z 表示。

得分 阅卷人
五、程序填空题。

补全以下程序代码(每空2分，共14分)
1.从键盘输入一个数,判断能否被2整除,然后给出提示信息。

在命令窗口中输入以下代码. Set talk off Clear
Input “从键盘输入一个整数:”to a
&&判断a 是否能被2整除 ”能被2整除”
Else &&否则,表示转折 ”不能被2整除”
Endif Return
2. 计算1-100之间的整数和。

Set talk off Clear S=0 I=1
Do while i<=100 Enddo
”s=”,s,”i=”,i Set talk on Return
3.用for 语句求1-100以内的奇数的和. 在命令窗口输入以下代码: Clear S=0
S=s+i Endfor ”s=”,s
Return 4. a=3+1 b=2+2
c=IF （a<b,今天星期一，今天星期二） c 结果为：
_ __ 5.写出该程序代码的返回值。

Clear S=0
FOR I=1 TO 10 S=s+i “s=”，s Return
S=1 I=1
Do While i<100 I=i+1 If int(i/2)=i/2
-------不-------------得--------------答
学号：
Endif S=s+i Enddo
”1-100间的奇数和：”，s Return
1.日期型数据加减有哪些规则（4分）
2.为项目创建数据库的方法有哪几种（3分）
3.简述结构化程序设计的思路。

（3分）
4.将数学表达式y=
ab
ac
b a 242
-+
-以计算机能够识别的形式表示出来。

（2分）
x 2
－7 (x<8)
1.编程计算分段函数y = 的函数值,X 由键盘输入。

（5分）
8x －3 (x ≥8)
2.编写程序打印九九乘法表。

（6分）
3.分别编写程序：从键盘上输入字符串“visualfoxpro ”将每个字符在一行内倒序输
六、简答题(共4小题，共12分)
七、编程题(共3小题，共19分)
出;将每个字符逐行顺序输出。

（8分）倒序输出程序代码：
顺序输出程序代码：
《Visual 数据库与程序设计》试卷答案
一、填空题(每小题1分，共20分)
1.关系型 (不区分大小写) 3.传地址方式 4.@
(不区分大小写) 7.结构化查询语言 8.逻辑删除
(不区分大小写) 10.数据库 11.内存变量 12.常量
13.字段 14. 15.数组
19.逻辑 20.级联
二、单项选择题(每小题1分，共20分)
三、多项选择题(每小题2分，共10分)(多选漏选均不得分)
四、判断题(每小题1分，共5分)
五、程序填空题（每空2分）（程序中字母不区分大小写）
a%2=0
=s+i
I=i+1
i=1 to 100 step 2
4.今天星期一
=55
6.Loop
六、简答题
1.一个日期型数值加上一个整数值得到一个比现在这个日期值更大的日期值，整数值与日期值的天数相加；（2分）一个日期型数值减去一个整数值得到一个比现在这个日期值更小的日期值，日期值的天数值与整数值相减；（1分）一个日期型值与一个日期型值相减得到一个整数值，表示两个日期相差的天数。

2.在项目管理器中创建数据库;(1分)利用命令创建数据库；（1分）为项目添加已经存在的数据库(1分）
3.结构化程序设计的过程要始终遵循自顶而下、逐步细化，即程序的设计按从头到尾的顺序设计（1分），对于功能较复杂的程序可将程序功能模块化（1分），将不同的功能放到不同的模块中，将问题细化、简单化，最后再将模块组合（1分）。

4.答案：y=(-a+sqrt(b**2-4*a*c))/(2*a*b)或 y=(-a+sqrt(b^2-4*a*c))/(2*a*b)
答以上任何一种写法均得分，但漏写括号，写错函数均不得分。

七、编程题
1. 参考程序：
Set talk off
Clear
Input”输入x值:” to x
If x<8
Y=x^2-7
Else
Y=8*x-3
Endif
”y=”,y
评分标准：程序书写正确能够执行得满分，其他情况酌情得分。

2. 参考程序：
Set talk off
Clear
”# # # 九九乘法表 # # #”
For i=1 to 9
For i=1 to i
K=i*j
””+str(j,1)+”*”+ str(i,1)+”=”+str(k,2)+””
Endfor
Endfor
Set talk on
Return
评分标准：程序书写正确能够执行得满分，其他情况酌情得分。

3.倒序输出参考代码：(4分)
Clear
Accept ”请输入字符串visualfox:” to st
N=len(st)
Do while n>=1
If substr(st,n,1)=space(1)
Exit
Else
substr(st,n,1)
N=n-1
Endif
Enddo
Return
顺序输出参考代码：（4分）
Clear
Accept ”请输入字符串visualfox:” to st N=1
Do while n<=12
If substr(st,n,1)=space(1)
Exit
Else
substr(st,n,1)
N=n+1
Endif
Enddo
Return。