2010年全国计算机等级考试二级VB模拟试题(19)

　　上机部分

　　1.基本操作题

　　(1)在考生文件夹中有数据表文件“密码表”，利用命令打开数据表设计环境，修改数据表结构。

　　(2)为密码表添加一个字段：用户等级C(8)。

　　(3)在表中插入一条新的记录：

　　用户名(张楚)，密码(123456)，用户等级(超级用户)

　　然后将其他用户等级设置为“普通用户”。

　　(4)利用命令为密码表建立一个候选索引，索引表达式为“用户名”，索引名为：cUser。

　　【参考答案】

　　(1)在“命令”窗口输入：

　　USE 密码表

　　MODIFY STRUCTURE

　　(2)弹出表设计器，在“密码”字段后面输入新添加的字段名“用户等级”，并设置好字段类型和宽度。

　　(3)关闭表设计器，在“命令”窗口输入：BROWS，进入表浏览窗口。

　　按照题意，先在表中所有记录的“用户等级”字段中输入“普通用户”，然后通过菜单命令“表”→“追加新记录”，将新记录追加到表末尾。

　　(4)在“命令”窗口输入：INDEX ON 用户名TAG cUser CANDIDATE，为表建立候选索引。

　　2.简单应用题

　　在考生文件夹下完成如下简单应用：

　　(1)将customer1表中的全部记录追加到customer表中，然后用SQL SELECT语句完成查询：列出目前有订购单的客户信息(即有对应的order_list记录的customer表中的记录)，同时要求按客户号升序排序，并将结果存储到results表中(表结构与customer表结构相同)。

　　(2)打开并按如下要求修改form1表单文件(最后保存所做的修改)：

　　① 在“确定”命令按钮的Click事件(过程)下的程序有两处错误，请改正之。

　　② 设置Text2控件的有关属性，使用户在输入口令时显示“*”(星号)。

　　【参考答案】

　　(1)具体步骤如下：

　　① 在“命令”窗口输入命令：MODIFY COMMAND query1。

　　② 弹出程序文件编辑器窗口，输入如下程序段：

　　*******query1.prg文件的程序段*******

　　SET TALK OFF

　　CLOSE ALL

　　USE customer

　　ZAP

　　USE customer1

　　DO WHILE!EOF()

　　SCATTER TO arr1

　　INSERT INTO customer FROM ARRAY arr1

　　SKIP

　　ENDDO

　　SELECT DISTINCT customer*;

　　FROM订货管理!customer INNER JOIN订货管理!order_list;

　　ON customer.客户号=order_list.客户号;

　　ORDER BY customer.客户号;

　　INTO TABLE results.dbf

　　*************************************

　　③ 在“命令”窗口输入命令：DO query1，查询结果将自动保存到新表results中。