辽宁专升本2009年计算机 VFP 试卷及答案.docx

辽宁专升本2009年计算机 vfp 试卷及答案第二部分：计算机高级语言部分说明：试卷中使用的“学生”表、“课程”表和“学生成绩”表结构和内容如下：（每道使用表的题目均使用原始数据，即不考虑各程序运行的影响。）学生.dbf学生(学号 (c,6),姓名 (c,2),性别 (c,2),出生日期 (d),系别 (c,6)记录号 学号 姓名 性别 出生日期 系别1 080001 王小丽 女 05/21/86 计算机2 080002 刘天海 男 03/05/87 计算机3 080003 程丽媛 女 09/01/85 管理课程.dbf课程(课程号 (c,3),课程名 (c,10),学时 (n,3,0),学分 (n,3,0)记录号 课程号 课程名 学时 学分1 101 英语 200 122 102 高等数学 120 83 103 大学语文 80 5学生成绩.dbf学生成绩(学号 (c,6),课程号 (c,3),成绩 (n,3,0)记录号 学号 课程号 成绩1 080001 101 932 080001 102 873 080001 103 784 080002 101 865 080002 102 826 080002 103 877 080003 101 958 080003 102 939 080003 103 88四、填空题（每小题2分，共10分）41.modify command 命令建立的文件的默认扩展名为_。42.项目管理器的“数据”选项卡中包括数据库、自由表和_三项内容。43.对于标签控件，可设置其_属性为.t.，使其能够自动调整大小容纳其内容。44.表达式val(123d456.789)+asc(a)的值是_。45.命令按钮控件的default属性值为.t.，表示该按钮在按下_键时得到相应。五、阅读程序题（每小题3分，共24分）46.以下程序的运行结果是_set talk offclearx=9do while x0if mod(x,3)=0? xendifx=x-1enddo47.以下程序的运行结果是_set talk offclearuse 学生成绩store 0 to n,cjscanif right(学号，2)=02cj=cj+成绩n=n+1endifendscanpj=cj/n? alltrim(str(pj,10)use48.以下程序的运行结果是_set talk offclearuse 课程sum 学分 to xf? str(xf)use49.以下程序的运行结果是_set talk offclearuse 学生成绩append blank? recno()use50.以下程序的运行结果是_set talk offclearuse 学生成绩index on 成绩 to cjgo bottom? 学号，课程号，成绩use51.以下程序的运行结果是_set talk offset heading offclearuse 学生index on 系别 to xbseek 计算机if found()display off 姓名，性别endifuse52.以下程序的运行结果是_set talk offset heading offclearselect buse 学生成绩index on 学号 to xh1select ause 学生set relation to 学号 into bgo 3disp off 姓名，性别close all53.以下程序的运行结果是_set talk offset heading offclearuse 学生locate for 丽$姓名if .not. eof()display off 姓名endifuse六、完善程序题（每小题3分，共24分）54.调整数据表“课程.dbf”中各学科的“学时”数，原小于100学时的增加5学时，原大于150学时的显示学时。set talk offclearusedo while .not. eof()do casecase 学时150? 学时endcaseskipenddolistuse55.根据所给数据表显示所有学生“学号”、“姓名”、“性别”、“系别”、“课程名”、“成绩”等信息。set talk offclearselect cuse 学生index on 学号 to xhselect buse 课程index on 课程号 to kchselect ause 学生成绩set relation to 学号 into cset relation to 课程号 into b _do while .not. eof()disp off 学号，c-姓名，c-性别，b-课程名，成绩skipenddoclose all56.根据所给数据表生成新表“总成绩.dbf”，此表中应包括学号、姓名、成绩三个字段。其中“成绩”字段的值为该学生各科的总成绩。set talk offclearselect buse 学生成绩index on 学号 to xh_ tempselect buse tempselect ause 学生join with b to 总成绩 for 学号=b-学号 fields 学号，姓名，b-成绩use 总成绩listclose57.计算由键盘输入小于10的自然数的阶乘。set talk offcleardo while .t.input 请输入小于10的自然数 to nif n=10 .or. int(n)!=n? 输入的数值不符合要求loopendifexitenddos=1for i=1 to n_endfor? s58.根据所给数据表查询英语成绩超过90分的学生的学号、姓名、课程名和成绩信息。set talk offclearselect 学生，学号，姓名，课程名，成绩 from 学生，课程，学生成绩；_.and. 学生成绩.课程号=课程.课程号 .and. 成绩90 .and. 课程名=英语close all59.求1到50之间的所有奇数的立方和。set talk offclears=0x=1do while x=50s=s+x*3_enddo? s60.设计显示学生各科成绩的表单cjb.scx，执行界面如图1所示。改表单的数据环境已正确设置。为了正确显示学生的各种信息，其中“姓名”文本框的_属性应正确设置为“学生.姓名”。61.上一题（60题）中表单中的按钮“下一条”的功能是在表单中显示下一条记录。其click事件代码如下：skipif eof()go bottomendif_七、程序改错题（每小题3分，共12分）62.由数据表“学生.dbf”按出生日期进行降序排列，生成新表“new.dbf”，新表中包括有学号、姓名、出生日期三个字段。(1) set talk off(2) clear(3) use 学生(4) sort to 出生日期/d on new;(5) fields 学号，姓名，出生日期(6) use new(7) list(8) close all错误的行是：_改为：_63.根据数据表“学生成绩.dbf”求出所有学生的英语（课程号为101）平均成绩。(1) set talk off(2) clear(3) use 学生成绩(4) a=0(5) n=0(6) locate for 课程号=101(7) do while .not. eof()(8) n=n+1(9) a=a+成绩(10) skip(11)enddo(12)? 平均英语成绩+str(a/m,5,1)(13)use错误的行是：_改为：_64.为数据表“学生.dbf”增加一个字段“籍贯 (c(16)”，并显示修改后的结构。(1) set talk off(2) clear(3) alter table 学生 add 籍贯 c(16)(4) use 学生(5) list(6) use错误的行是：_改为：_65.先从字符串s中找出某个指定字符（本例为空格），再以此字符为界拆分成两个字符串，并分成两行显示。(1) set talk off(2) clear(3) store visual foxpro to s(4) n=at(s, )(5) b=left(s,n-1)(6) c=pight(s,len(s)-n)(7) ? b(8) ? c错误的行是：_改为：_参考答案41.(.prg)42.(查询)43.(autosize)44.(188.00)45.(回车)46.9 6 347.8548.2549.1050.080003 101 9551.王小丽 女52.程丽媛 女53.王小丽54.replace 学时 with55.addit