数据库真题与其答案.docVIP

综合测试（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 if found () 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 X26 EXIT ENDIF ENDDO RETURN 运行结果为： 10,15,20,25,30 2． Clear 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 I5 I T=T*I I=I+1 ENDDO set talk on ？“T=”，T 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．设计表单如下，请说明其中使用了哪些种类的控件,并说明各控件的主要属性设置，及相应的控件代码。 对象 属性 属性值 Label1 caption 输入第一数 Label2 caption 输入第一数 Label3 caption 输入第一数 Label4 caption 中间数为 Text1—text4 value 0 Command1 caption 计算 Command2 caption 退出 计算按钮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．表单如下，输入一长方体的长、宽、高，计算其体积和表面积。请说明其中使用了哪些种类的控件