一、 项目、库和表操作(12分)
打开t盘根目录中的项目文件jxgl,在该项目中已有一数据库jxsj。
1. 在jxsj数据库中按如下**所示的结构创建表,并按**中的要求设置相关属性。
1) 设置表的注释:世博会场馆简介一览表;
2) 设置cg字段的有效性规则:不能为空字符串;
3) 设置zdmj字段的输入掩码:整数部分从右至左每3位用“,”字符隔开;
4) 设置wz字段的有效性规则是:只能是“a,b,c,d,e”片区中的一个;
5) 创建索引名为abcd的普通索引,要求按位置排序,位置相同时按占地面积排序。
2. 在ab表中输入如下记录:
3. 为项目设置项目信息:项目的图标为文件。
4. kc表与cj表具有相同的字段kcdm,以kc表为主表,cj表为子表,根据kcdm建立永久关系,并设置两表之间的参照完整性:删除级联、插入限制。
二、 设计查询(8分)
已知课程表(存储了课程基本信息,其中含课程**(kcdm,c)、课程名称(kcmc,c)等字段;成绩表(存储了每个学生各门课程的成绩信息,其中含有课程**(kcdm,c)、成绩(cj,n)等字段。按如下要求修改jxgl项目中的查询chaxun:
基于kc表和cj表,查询每门课程参加考试的人数、平均成绩和不及格人数(成绩小于60者不及格)。要求:输出字段依次为kcdm、kcmc、人数、平均成绩、不及格人数,查询结果按平均成绩降序排序,查询去向为表(表的文件名为abc)。
三、 设计菜单(5分)
jxgl项目中已存在菜单menu,其中已定义了“文件”菜单栏及其中的“退出菜单”项。按如下要求设计菜单,菜单运行后的效果如图1所示。
1.创建“人员管理”菜单栏,并创建其子菜单“录入”,“修改”,“浏览”。
2.在菜单项“录入”与“修改”、“修改”与“浏览”之间插入分组线;
3.为“浏览”菜单项设置访问键“b”;
4.为“浏览”菜单项设置快捷键“ctrl+b”;
5.为“浏览”菜单项设置命令: select * from js
四、 设计表单(10分)
表单frm11a用于学生选课等操作。按下列要求修改表单,修改后表单运行时如图2所示。
1. 修改表单的有关属性,使表单的标题为“选课表单”;
2. 在表单右侧添加一个列表框(list2)用于显示学号和被选课程**;
3. 修改“确定”命令按钮的click事件**:在最后添加一条语句,其功能是将表达式mxh+的值添加到list2中;
4. 添加一个命令按钮,如图2所示,为命令按钮设置有关属性,并编写click事件**,功能是释放表单。
图2五、 程序改错(5分)
假定按如下规则定义一种32进制数:用“0,1,2,…,9,a,b,c,…,u,v”32个符号表示从0~31的32个十进制数。例如,32进制数“a8t”对应的十进制数的计算过程是:
a8t)32=a*322+8*321+t*320=10*1024+8*32+29*1=(1052510)10
下面程序的功能是将一个32进制数字字符串转换为十进制数形式。要求:1)项目中有一个程序文件pcode,将t盘中的中的程序**复制到其中并进行修改;2)在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目。
num32=’a8t’
num10=0
for i=len(num32)-1 to 0
c=substr(num32,len(num32)-i,1)
if isdigit(c)
d=val(c)
elseif between(upper(c),’a’,’v’)
d=asc(upper(c))-55
elsemessagebox(“非法的32进制数!”,16)
exitendif
endifnum10=num10+d*32^i
endfor
messagebox(‘32进制数:’+num32+’的十进制形式是:’+str(num10),64)
2019秋VB01上机
江苏省高等学校非计算机专业学生。计算机基础知识和应用能力等级考试上机试卷 2011秋 二级 visual basic语言 试卷代号vb01 本试卷完成时间 70分钟 考试须知 1 改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考 2 考试结束后,文件必须存放在指定位置,否则适当...
2019秋VB01上机答案
2010年 秋 上机 visual basic vb01 答案。一 改错。题目 本程序的功能是,找出10 100之间所有只有奇数真因子的整数。所谓数据n的真因子是指除过1和n之外的可以整除n的因子。option explicit option base 1 private sub cmd1 clic...
2019春vfp上机试卷
2011春二级visual foxpro上机试卷1 本试卷完成时间为70分钟 考试说明 1.首先登录考生信息,然后启动vfp并在命令窗口中执行下列命令,以设置默认的工作。目录 set defa to t 2.除非题目要求,否则不要对t盘上的文件进行重命名 复制和删除操作。一 项目 数据库和表操作 1...