数据库真题及其答案
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
综合测试（5—9章）
实验指导书（主教材各章节概要）
一、程序设计题
1、编写一密码校验程序（假设密码为ABC）,密码正确显示”欢迎使用本系统！密码不
正确显示“密码错误！注用信息框函数显示。程序文件名为A3..PRG
*A3.prg
CLEAR
set talk off
ACCEPT “请输入您的密码：” TO ma
IF ma=”ABC”
Messagebox( ”欢迎使用本系统！”)
ELSE
Messagebox(”密码错误！”)
ENDIF
set talk on
return
2．火车站托运行李收费规定如下：:每票每人行李15公斤以下（含15公斤）每公斤收费0.75元，超过部分一律按每公斤1.60元收费．计算收费金额的程序。程序文件名为。
* A2.PRG.
clear
set talk off
input "请输入行李重量"to w
if w <=15
t=w * 075
else
t=20*0.75+(w-20)*1.6
endif
? "t=",t
set talk on
return
3．在学生情况表.dbf中按学生姓名查找记录。如果找到了，显示该学生信息，否则显示“表中无此学生”。注：显示“表中无此学生”用信息框显示,程序文件名为A1..PRG
clear
set talk off
use. 学生情况表
accept "请输入查询学生姓名" to name
loca for 姓名=name
disp
else
messagebox("查无此人")
endif
use
set talk on
4编程显示sp.dbf表中单价大于等于1000元的所有商品记录，（用SCAN……
ENDSCAN指针型循环语句）
CLEAR
set talk off
USE sp
SCAN FOR 单价>=1000
DISPLAY
ENDSCAN
set talk on
USE
二、程序阅读及程序改错题
（一）阅读程序：请将运行结果写在答题卡相应位置的横线上。
1. SET TALK OFF
X=5
DO WHILE .T.
X=X+1
IF X=INT(X/5)*5
? X
ELSE
LOOP
ENDIF
I F X>26
EXIT
ENDIF
ENDDO
RETURN 运行结果为： 10,15,20,25,30
T=1
For i=1 to 6
T=T*i
Endfor
?”T=”,T
运行结果为： 720
3、set talk off
STORE 1 TO T,I
DO WHILE I<5 I
T=T*I
I=I+1
ENDDO
set talk on
？“T=”，T
运行结果为 24
（二）、程序改错题：
下面这段程序是求1+3+5+7··········101 的和，其中有两个地方有错误，请你改正，并将答案填写在答题卡指定的地方：
1、N=1
S=0
DO WHILE N=101 &&本行有错
S=S+N
N=N+1 &&本行有错
ENDDO
? “S=”,S
RETURN
下面这段程序是求2+4+6+8··········56 的和，其中有两个地方有错误，请你改正，并将答案填写在答题卡指定的地方：
2、N=0
S=0
DO WHILE N=56 &&本行有错
S=S+N
N=N+1 &&本行有错
ENDDO
? “S=”,S
RETURN
三、表单设计题
1．设计表单如下，请说明其中使用了哪些种类的控件,并说明各控件的主要属性设置，及相应的控件代码。
计算按钮CLICK的事件代码
a=thisform.text1.value
b=thisform.text2.value
c=thisform.text3.value
d=thisform.text4.value
m=max(a,b,c)
n=min(a,b,c)
d=a+b+c-m-n
thisform.text4.value=d
“退出”按钮的CLICK的事件代码为：
Release. thisform
2．表单如下，输入一长方体的长、宽、高，计算其体积和表面积。请说明其中使用了哪些种类的控件,并说明各控件的主要属性设置，及相应的控件代码。填写在答题卡上
计算按钮CLICK的事件代码:
a=thisform.text1.value
b=thisform.text2.value
c=thisform.text3.value
s=2*(a*b+a*c+b*c)
v=a*b*c
thisform.text4.value=s
thisform.text5.value=v
“退出”按钮的CLICK的事件代码为：
Release. thisform