2014河北对口高考计算机理论试题

2014河北对口高考计算机理论试题

装 订 线 内 不 要 答 题 ‎2014年河北省普通高等学校对口招生考试 计算机专业理论试题（A）‎ 注意事项：‎ ‎1．本试卷共八道大题。总分240分。‎ ‎2．第I卷“一、选择题”、第II卷“二、判断题”的答案填涂在机读卡上，其余各题答案写在答题纸上，答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。‎ ‎3．答题前将密封线内项目填写清楚。‎ ‎ 第Ⅰ卷（选择题 共100分）‎ 一、选择题（本大题共50小题，每小题2分，共100分。在每小题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上 ‎ ‎-16‎ ‎1．下列设备中，全部属于输出设备的一组是.........................（D）‎ ‎ A．扫描仪、键盘、显示器 B．激光打印机、键盘、鼠标 ‎ C．麦克风、绘图仪、显示器 D．喷墨打印机、绘图仪、音箱 ‎2．计算机软件一般分为系统软件和应用软件两大类，下列选项中不属于系统软件的 是...........................................................（C） ‎ A．操作系统 　 B．数据库管理系统　　　 ‎ C．用汇编语言编写的程序　　　 D．语言处理程序 ‎3．与十六进制数37.A等值的二进制数是............................（C）‎ A.110101.011 B.‎110100.111 C.110111.101 D.110101.101‎ ‎4．下列关于病毒的叙述中哪一条是正确的..............．．．．．．．．．．．．．（A）‎ ‎ A．杀毒软件通常是滞后于计算机新病毒的出现 ‎ B．杀毒软件可以查、杀所有种类的病毒 ‎ ‎ C．计算机病毒只感染可执行文件 ‎ ‎ D．将防火墙打开，再定期用杀毒软件杀毒，就不会感染病毒了 ‎5．用计算机进行图书馆的资料检索工作，这主要涉及计算机应用中的．．．（B）‎ ‎ A．科学计算　　　B．数据处理 C．过程控制 　 D．辅助设计　‎ ‎6．2.4MB的磁盘空间大约可以存放的汉字数目是......................（D）‎ ‎ A．240万 B．30万 C．60万　 D．120万 ‎7．某微机主要技术参数为“P4/‎1.7G/‎128M/‎60G/”，其中‎1.7G的含义为．．（B）‎ A．CPU 的运算速度为1.7GMIPS B．CPU 的时钟主频为1.7GHz 　　‎ C．CPU 的内存为‎1.7G D．CPU 与内存间的数据交换速率是1.7GB/S ‎8．在Windows XP中，按住Ctrl键的同时，用鼠标左键将选定的文件拖放到另一个文 件夹，系统进行的操作是..........................................（A）‎ A．无论源文件夹和目的文件夹是否在同一磁盘内，均实现复制 B．无论源文件夹和目的文件夹是否在同一磁盘内，均实现移动 C．若源文件夹和目的文件夹在同一磁盘内，将实现移动 D．若源文件夹和目的文件夹不在同一磁盘内，将实现移动 ‎9．在Windows XP中，同一磁盘上.....................................（D）‎ A．允许同一文件夹中的文件同名，也允许不同文件夹中的文件同名 B．不允许同一文件夹中的文件同名，也不允许不同文件夹中的文件同名 C．允许同一文件夹中的文件同名，不允许不同文件夹中的文件同名 D．不允许同一文件夹中的文件同名，允许不同文件夹中的文件同名 ‎10．在 Windows XP 中，卸载应用程序的正确方法是进入.................（C）‎ A．我的电脑 B．资源管理器 ‎ C．控制面板 D．注册表 ‎11．对于Windows XP的回收站，下列叙述正确的是......................（B）‎ A．“回收站”中可以存放所有外存储器中被删除的文件或文件夹 ‎ B．“回收站”是硬盘中的一块区域 C．“回收站”的大小是固定的，不能调整 D．在“回收站”图标上点右键可以还原所有文件 ‎12．在Word2003的编辑状态，有关查找操作的叙述中，正确的是.......... （A）‎ A．查找时，可以无格式进行、也可以带格式进行、还可以查找一些特殊的非打印字符 B．查找时，只能带格式进行 ‎ C．查找时，只能在整个文档范围内进行 ‎ D．查找时，可以无格式进行、也可以带格式进行，但不能查找一些特殊的非打印字符 ‎13．在Word2003中，若插入的表格中，内外框线都是实的，想要将其改变为虚线，应选择 的命令是...............................．．．．．．．．．．．．．．．．．．．．．．．．．（D）‎ A．“表格”菜单中的“显示虚框” B．“表格”菜单中的“绘制表格” ‎ C．“表格”菜单中的“表格自动套用格式” D．“表格”菜单中的“表格属性” ‎ ‎14．在Word2003文档编辑过程中，欲把整个文档中的“计算机”一词都删除，最简单的方 法是使用“编辑”菜单中的．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（D）‎ A．清除 B．撤消 C．剪切 D．替换 ‎15．打开Excel2003工作簿，将单元格C2设置为文本类型，输入时间“10:20:‎17”‎，选中C2单元格，按住Alt键，然后拖动向下填充句柄进行填充,则完成的操作是．．．．．．．．．‎ ‎．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（C）‎ A．下面单元格内连续出现“时”的递增 B．下面单元格内连续出现“分”的递增　‎ C．下面单元格内连续出现“秒”的递增 D．下面单元格内全部都是“10:20:‎‎17”‎ ‎16．在Excel2003中，下面关于分类汇总的叙述正确的是..................（C）‎ A．分类汇总的关键字段可以是多个字段 ‎ B．分类汇总可以被删除，删除汇总后排序操作可以撤消 ‎ C．分类汇总前必须按关键字段排序 ‎ D．汇总方式只能是求和 ‎17．在Excel2003中，要查看“某商场4月份销售的创维或康佳彩电、价格在4000至6000‎ ‎（含边界），且销量在50台以上的记录”，若使用高级筛选，其条件区域表示正确的是．．‎ ‎．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（B）‎ A． ‎ 品牌 品牌 价格 价格 销量 创维 康佳 ‎>=4000‎ ‎<=6000‎ ‎>50‎ B．‎ 品牌 价格 价格 销量 创维 ‎>=4000‎ ‎<=6000‎ ‎>50‎ 康佳 ‎>=4000‎ ‎<=6000‎ ‎>50‎ C．　 ‎ ‎ 　 ‎ 品牌 价格 价格 销量 创维 ‎>=4000‎ ‎>50‎ 创维 ‎<=6000‎ ‎>50‎ 康佳 ‎>=4000‎ ‎<=6000‎ ‎>50‎ D．‎ 品牌 价格 数量 创维 ‎>=4000‎ ‎>50‎ 创维 ‎<=6000‎ ‎>50‎ 康佳 ‎>=4000‎ ‎>50‎ 康佳 ‎<=6000‎ ‎>50‎ ‎18．在Visual Basic中，Print Int(Rnd)+Int(3+Rnd)的结果是.............（C）‎ A．无法确定　 B. ‎2 C. 3 D. 4‎ ‎19．在Visual Basic中，当窗体启动时能够被触发的事件是................（D）‎ ‎ A．UnLoad B.Click C.DblClick D.Load ‎ ‎20．Visual Basic中，窗体的标题用以下哪个属性表示....................（B）‎ A．Value B．Caption C. Text D. Topic ‎21．Visual Basic中,表达式 3 Mod 2 * 4的值是．．．．．．．．．．．．．．．．．．．．．．．．．．（C）‎ A. 1 　　B. ‎2 C. 3 D．4‎ ‎22．关于Visual Basic中列表框属性的说法不正确的选项是...............（B）‎ A．列表框既有添加列表项的方法，也有删除列表项的方法 B．列表框中列表项个数无法统计 C．向列表框中添加项目时可以插入在列表项之间 D．列表框中的每个列表项都有一个索引位置 ‎23．执行下面Visual Basic程序，数组a中元素值是w的数据经过一系列位置变化后，其最终位置的下标是哪个选项......................................（B）‎ ‎ Option Base 0‎ Private Sub Command1_Click()‎ Dim w As Integer w = 20‎ a = Array(10, 15, 6, 8, 93, 84, w)‎ Dim i As Integer Dim j As Integer Dim t As Integer For i = 0 To 5‎ For j = i + 1 To 6‎ ‎ If a(i) > a(j) Then ‎ t = a(i): a(i) = a(j): a(j) = t ‎ End If ‎ Next j Next i End Sub A. 2 B. ‎4 C. 6 D. 8‎ ‎24．在Visual Basic中，语句Print InStr(2, "abcdeabfg", "ab")的输出结果是(D)‎ ‎ A. 0 B. ‎1 C．5 D. 6‎ ‎25．下面关于Visual Basic中工程的说法正确的是..................．．．．（D）‎ A. 每个工程中只能包含一类文件 B. 工程中的启动窗体是不能改的 C. 工程中的窗体当创建以后是不能被删除掉的 D. 工程也是有属性的 ‎26．Visual Basic中，关于属性、事件、方法、对象说法正确的是.........（A）‎ A. 可以通过改变对象的属性值来改变对象的特性 B. 事件必须在鼠标单击或双击对象后触发 C. Visual Basic中，所有对象都设置了相同的方法 D. 窗体不是对象，按钮是对象 ‎27．执行下面Visual Basic程序，最后输出s的值是....................（C）‎ Dim a As Integer Dim s As Integer a = 1‎ s = 0‎ For i = 1 To 3‎ ‎ a = i ‎ For j = 1 To a ‎ s = s + a ‎ ‎ Next j ‎ i = j Next i Print s A. 6 B. ‎8 C. 10 D. 12‎ ‎28．在Visual FoxPro中，创建报表的命令是...........................（B）‎ A. MODIFY REPORT 　　　B. CREATE REPORT ‎ C. SET REPORT 　　　　D. PREVIEW REPORT ‎29．在Visual FoxPro中，菜单文件的扩展名为.........................（A ）‎ A. .mnx B. .mpr C. .pqr D. .scr ‎30．在Visual FoxPro中,假设表单上有一个命令按钮，如果单击命令按钮可以实现关闭表单的功能，则应在该按钮的Click事件过程中写入语句．．．．．．．．．．．．（ C）‎ A. ThisForm.Close                  B. ThisForm.Erase ‎ C. ThisForm.Release                D．ThisForm.Return ‎31．在Visual FoxPro中，如果表中的某个字段存放的是图片，需要将该字段设置为 下面哪种类型..................................................（ B　）‎ A. 备注型 　 B. 通用型 C. 字符型 D. 双精度型 ‎32. 在Visual FoxPro中，执行以下命令后显示的结果是................（C）‎ N='210.28'‎ ‎?90+&N ‎ A．90+&N B．‎90210.28 ‎‎ C．300.28 D．出错信息 ‎33. 在Visual FoxPro中，? TYPE("‎10/01/88‎")的输出结果为...............（B）‎ A. N B. C C. D D. U ‎34．在Visual FoxPro中，下列关于视图的叙述中错误的是...............（C）‎ A. 通过视图可以对表进行查询 ‎ B. 通过视图可以对表进行更新 C. 视图是一个独立的数据文件，不属于任何的数据库 D．视图分为本地视图和远程视图两种类型 ‎35．在Visual FoxPro中，要为两个数据表建立一对多的永久关系，要求主表的索引类型必须为......................................................．（A）‎ A．主索引 B. 主索引或候选索引 C. 主索引、候选索引或唯一索引 D. 可以不建立索引 ‎36．在物理拓朴结构为总线结构的局域网中，联网的主机间进行通信通常采用的机制是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．． （D）‎ A．ATM 　 B．CDMA C．FTTB+LAN D．CSMA/CD ‎37．在下列关于网络数据交换的叙述中不正确的是．．．．．．．．．．．．．．．．．．．．．．．（D）‎ A．线路数据交换面向连接 B．分组交换比报文交换具有更好的网络响应速度 C．分组交换有存储转发过程 D．报文交换无存储转发过程 ‎38．计算机网络的拓扑结构主要取决于它的............................（D）‎ A．通信子网 B．资源子网 C．通信介质 D．路由器连接方式 ‎39．在使用TCP/IP协议的网络中，属于同一个子网络的主机的网络地址.. （C）‎ A．不相同 B．可以相同也可以不相同 C．一定相同 D．相同与否视其它情况而定 ‎40．在使用CSMA/CD协议的以太网络中，其通信工作方式为.............. （B　）‎ A．半双工 B．单工 C．全双工 D．都可以 ‎41．在OSI/RM网络参考模型中，数据链路层最主要的功能是............. （D）‎ A．进行报文传递的路由选择 B．按协议规则提供报文分组 C．可靠的在任意节点间传送报文 D．进行可靠的两相邻节点间的数据传输 ‎42．在网络层传输的TCP数据包的段结构中，端口地址的长度为...........（A）‎ A．4个字节 B．3个字节 C．2个字节 D．1个字节 ‎43．在Internet网络中，用于服务器与客户机间进行网页信息传输控制的协议是.....‎ ‎．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（A）‎ ‎ A．HTTP B．URL C．SMTP D．HTML ‎44．有一种互连设备工作于网络层，它既可以用于相同（或相似）网络间的互连，也 可以用于异构网络间的互连，这种设备是...........................（B）‎ A．集线器 B．路由器 C．交换机 D．网关 ‎45．一个局域网中某台主机的IP地址为176.68.160.12，使用22位作为网络地址，那么该局域网的子网掩码为.........................................（D）‎ A．255.255.255.0 B．255.255.248.0‎ C．255.255.253.0 D．255.255.252.0‎ ‎46．在Internet域名体系中，域的下面可以划分子域，各级域名间用圆点分开，按照．‎ ‎．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（B）‎ A．从左到右越来越小的方式分4层排列 B．从右到左越来越小的方式分多层排列 C．从左到右越来越小的方式分多层排列 D．从右到左越来越小的方式分4层排列 ‎47．线路交换是实现数据交换的一种技术，其特点是....................（A）‎ A．信息延时短，且延时固定不变 B．不同速率的用户之间可以直接进行数据交换 C．数据信号在线路上进行传输时无衰损 D．可以把一个报文同时发送到多个目标节点中 ‎48．在OSI/RM网络参考模型中，网络接口卡（NIC）所属的层次为.........（　B）A．物理层 B．数据链路层 C．网络层 D．运输层 ‎49．在数字通信中广泛采用CRC循环冗余码进行差错校验，这是因为CRC可以（　B　）‎ A．检测出一位差错 B．检测出多位突发性差错 C．检测并纠正一位差错 D．检测并纠正多位突发性差错 ‎50. 网络中的计算机可以分为服务器和客户机，其中的网络服务器是指......（D）A．具有通信功能的高档计算机 B．64位总线结构的高档计算机 C．带有容量大、传输速度快的硬盘的计算机 D．为网络提供共享资源，并对这些资源进行管理的计算机 第Ⅱ卷（非选择题 共140分）‎ ‎-1‎ 二、判断题（本大题14小题，每小题1分，共14分。将答案填涂在机读卡上，正确的填涂“√”格，错误的填涂“×”格）‎ ‎1．世界上第一台电子计算机采用的电子器件是电子管。 （ ） ‎ ‎2．在计算机系统中，不能直接和CPU交换数据的存储器是ROM。 （ ） ‎ ‎3．在Windows XP中，删除某个应用程序的桌面快捷图标意味着，该应用程序连同快捷图标一起被删除。 （ ） ‎ ‎4．在Windows XP中，剪贴板是程序和文件间用来传递信息的临时存储区，此存储区是内存的一部分。 （ ）‎ ‎5．在Word 2003中，为了突出显示文档的某些内容，可以为该部分内容加底纹，也可以为图形加底纹。 （ ）‎ ‎6．在Word2003中，文本可以转换成表格，但表格不可以转换成文本。 （ ）‎ ‎7．在Excel2003中，执行“格式”菜单中的“排序”命令，可以实现对工作表数 据的排序功能。 （ ）‎ ‎8．在 Excel2003 中，当数据源发生变化时，相应的图表将自动跟随变化。‎ ‎ （ ）‎ ‎ 9．在Visual Basic中，控件的属性在任何状态下都可以修改。 （ ）‎ ‎10．在Visual FoxPro中，选择当前未使用的最小编号工作区的命令是SELECT 0。‎ ‎ （ ）‎ ‎11．在TCP/IP协议组中，DNS（域名服务系统）的组织结构是层次模型。（ ）‎ ‎12．只有服务器上的软件系统和软件应用可以作为共享资源，由服务器向网络中其他计算机提供。 （ ）‎ ‎13．目前在Internet上的主机已经普遍使用了IPv6格式的IP地址。 （ ）‎ ‎14．计算机网络的拓朴结构包括网络的物理拓朴结构和逻辑拓朴结构。 （ ）‎ 三、填空题（本大题共13小题，每小题2分，共26分。请将答案填写在 答题纸上）-2‎ ‎1．微型计算机能识别并能直接执行的语言是 机器 语言。‎ ‎2．微型计算机硬件系统中最核心的部件是 CPU 。‎ ‎3．在微机中，信息的最小单位是 bit 。‎ ‎4．在Windows XP中，若要将一个文件设置为“只读”，则可以选中该文件，单击鼠标右键，然后在弹出菜单中选 属性 菜单项。‎ ‎5．在Word2003中，若要设定打印纸张大小，应使用 文件 菜单中的 ‎“页面设置”命令。‎ ‎6．在Excel2003中，单元格D2：D31存放的内容为全班30名同学的数学成绩，若要在单元格D32中统计不及格同学的人数，则在D32中输入= COUNTIF(D2：D31,”<‎60”‎) 。‎ ‎7．在Visual Basic中，对于数组 A(2 To 3, 4 To 6)，它的第二维的下界为4。‎ ‎8. Visual Basic的表达式(10 > 8) And (-3 < 3) And (10 < 8) Or (5 > 14)的结果是False_。‎ ‎9．在Visual FoxPro中，运行表单“login”的命令为 do form login。‎ ‎10．在Visual FoxPro中，用命令DIMENSION X(2,5)定义了一个数组X，则该数组中数组元素个数是10。‎ ‎11．计算机接入Internet时，可以通过公共电话网进行连接。以这种方式连接并在连接时分配到一个临时的IP地址，此时通常使用的连接协议是 。‎ ‎12．一个家庭有三台计算机，连接到一个微型路由器上共用一条线路连入Internet。已知路由器的内网IP地址为192.168.1.1，子网掩码为255.255.255.0，则三台计算机的网络地址应设置为 192.168.1.0 。‎ ‎13．在OSI/RM模型的不同层次使用不同格式的地址，这些分层存在的地址按一定 的协议建立起对应关系。在网络层使用的地址称为 IP　地址。‎ 四、根据已知的环境与题意，写出相应的Visual FoxPro操作命令或SQL语句，要 求每小题用一条命令或语句完成（本大题共5小题，每小题4分，共20分，请填 写在答题纸上）。‎ 现有数据库“GZGL.DBC”，其中包含表“gzb.dbf”，该表有以下字段：职工号(C,6)、姓名(C,20)、性别(C,2)、年龄(N,3)、基本工资(N,7,2)、奖金(N,7,2)，在相应数据库和表已打开的前提下，写出完成下述功能的命令(注意：只能写一条语句，多于一条不得分)。‎ ‎1．将所有年龄大于50的职工基本工资增加200。（用Visual FoxPro命令）‎ ‎ REPLACE ALL 基本工资 WITH 基本工资+200 FOR 年龄>50‎ ‎2. 以“职工号”为关键字建立降序的唯一索引，索引名为ZHG，索引文件名ZHGGL.CDX。（用Visual FoxPro命令）‎ INDEX ON 职工号 TAG ZHG OF ZHGGL.CDX UNIQUE ‎3．将“gzb.dbf”表中“基本工资”字段的宽度改为8。（用SQL语句）‎ ALTER TABLE gzb.dbf ALTER 基本工资 N(8，2)‎ ‎4．删除“gzb.dbf”表中年龄大于60、性别为“男”的记录。（用SQL语句）‎ ‎ DELETE FROM gzb.DBF WHERE 年龄>60 and 性别="男"‎ ‎5．查询统计“gzb.dbf”表中每个部门（职工号的前3位）职工基本工资的平均值。（用SQL语句）‎ SELECT LEFT(职工号，3) AS 部门，AVG(基本工资) FROM gzb.DBF GROUP BY 部门 五、程序分析（本大题共2小题，每小题5分，共10分，读程序并分析结果，请填写在答题纸上）‎ ‎1．阅读下面的Visual Basic程序，程序运行后sum的值是9‎ Private Sub Command1_Click()‎ Dim a(10) As Integer Dim i As Integer Dim j As Integer Dim num As Integer Dim sum As Integer sum = 0: a(0) = 1‎ For i = 0 To 10‎ ‎ For j = 1 To 9‎ ‎ num = 1 + Int(91 * Rnd)‎ ‎ If num = a(i) Then a(j) = num: sum = sum + a(j) Else j = j - 1‎ ‎ Next j ‎ If j = 10 Then Exit For Next i Print sum End Sub ‎2．有Visual ForPro程序chengxu.prg如下 CLEAR S=0‎ N=0‎ INPUT "请输入X=" TO X INPUT "请输入Y=" TO Y FOR I=3 TO 30 STEP 2‎ ‎ IF PANDUAN(I)=1‎ ‎ FOR J=2 TO I-1‎ ‎ IF I%J=0‎ ‎ EXIT ‎ ENDIF ‎ ENDFOR ‎ IF J3‎ ‎ FOR IX=2 TO SQRT(X)‎ ‎ IF X%IX=0‎ ‎ M=0‎ ‎ EXIT ‎ ENDIF ‎ ENDFOR ‎ ENDIF ‎ RETURN M ENDPROC ‎ 运行上面的程序，输入16，显示的结果为 7和3 ‎ 第4、5题使用下面的数据库 设有数据库文件“学生管理.DBC”，包含3个表，分别是“课程设置”、“学生档案”、“学生成绩”。其中“课程设置”表的结构为：课程编号(C，4)、课程名称(C，20)、学时(N，3，0)，学分(N，3,1)；“学生档案”表的结构为：学号(C，6)、姓名(C，10)、班级(C，20)，院系(C，20),“学生成绩”表的结构为：学号(C，6)、课程(C，20)、成绩(N，5，1)。各表中数据如下：‎ 课程设置.DBF 记录号　 课程编号　　课程名称　　 学时 学分 ‎1 0001 数据结构 64 3.5‎ ‎2 0002 操作系统 54 3.0‎ ‎3 0003 软件工程 46 2.5‎ 学生档案.DBF 记录号　学号 姓名 班级 院系 ‎1 100101 龙继坤 机电1班 机电系 ‎2 100102 王玉玉 机电1班 机电系 ‎3 100204 李玉红 机电2班 机电系 ‎4 200101 杨彬彬 工商管理1班 工商管理系 ‎5 200102 梁洪波 工商管理1班 工商管理系 ‎6 200301 李继华 工商管理3班 工商管理系 学生成绩.DBF 记录号 　学号 课程 成绩 ‎ ‎1 100101 0001 79.0‎ ‎2 100101 0002 89.0‎ ‎3 100101 0003 80.0‎ ‎4 100102 0001 45.0‎ ‎5 100102 0002 98.0‎ ‎6 200101 0001 99.0‎ ‎7 200102 0002 65.0‎ ‎8 200102 0003 88.0‎ ‎4. 有如下Visual FoxPro程序：（代码中行末的分号为逻辑行连接符）‎ CLEAR OPEN DATABASE 学生管理 SELECT * FROM 学生成绩 WHERE 学号 IN(SELECT 学号 FROM;‎ 学生档案) INTO DBF KECHENG USE ADD TABLE KECHENG SELECT 学号,课程,MAX(成绩) AS CHENGJI FROM KECHENG GROUP BY;‎ 课程 ORDER BY CHENGJI ASC INTO DBF HZ SELECT HZ.学号,HZ.课程,HZ.CHENGJI,学生档案.姓名 AS XINGMING;‎ FROM 学生档案,HZ WHERE 学生档案.学号=HZ.学号 ORDER BY;‎ HZ.CHENGJI INTO DBF JG USE JG GO TOP KECHH=课程 XMING=XINGMING CLOSE DATABASE USE　课程设置 GO TOP DO WHILE NOT EOF()‎ ‎ IF TRIM(课程编号)==TRIM(KECHH)‎ ‎ ?XMING,课程名称,学分 ‎ EXIT ‎ ENDIF ‎ SKIP ENDDO 运行上面的程序，显示的结果是： ‎ ‎5. 有如下Visual FoxPro程序：（代码中行末的分号为逻辑行连接符）‎ CLEAR OPEN DATABASE 学生管理 CREATE TABLE TJS(X‎1 C(20),X2 N(5,1))‎ SELECT DISTINCT 院系 AS Y1,SUBSTR(学号,1,2) AS Y2 FROM;‎ 学生档案 ORDER BY Y2 INTO DBF JTS USE SELECT 1‎ USE JTS GO TOP SELECT 2‎ USE　学生成绩 GO TOP SELECT 1‎ DO WHILE NOT EOF()‎ ‎ ZHI=0‎ ‎ SHU=0‎ ‎ SELECT 2‎ ‎ GO TOP ‎ DO WHILE NOT EOF()‎ ‎ IF SUBSTR(学号,1,2)==JTS.Y2‎ ‎ ZHI=ZHI+成绩 ‎ SHU=SHU+1‎ ‎ ENDIF ‎ SKIP ‎ ENDDO ‎ IF SHU!=0‎ ‎ INSERT INTO TJS VALUES(JTS.Y1,ZHI/SHU)‎ ‎ ENDIF ‎ SELECT 1‎ ‎ SKIP ENDDO CLOSE DATABASE USE TJS DO WHILE NOT EOF()‎ ‎ ?X1,X2‎ ‎ SKIP ENDDO ‎ 运行上面的程序，显示的结果是： ‎ 七、Visual Basic程序改错(本大题共有两个小题，每题5分，共10分，每个程序有两个错误行，请在答题纸上写出错误行代码和对应的正确代码，改对一处得一处分，改错不减分。注：要把整行写完整) ‎ ‎1．有两个数组 a = Array("zhao", "qian", "sun", "li", "zhou", "wu")‎ b = Array(20, 31, 82, 73, 44, 25)‎ 数组a表示的是六个人的姓名，数组b表示的是与数组a中对应位置人的年龄，而且年龄中的个位数与他们在数组中的位置一致，年龄段在10到99之间。下面程序的功能是输入一个年龄，首先查找输入的年龄在数组b中是否存在；如果存在，则显示其姓名，如果不存在，则程序直接结束。程序如下：‎ a = Array("zhao", "qian", "sun", "li", "zhou", "wu")‎ b = Array(20, 31, 82, 73, 44, 25)‎ Dim i As Integer Dim pos As Integer Dim flag As Integer Dim j As Integer flag = 0‎ pos = InputBox("请输入查询人的年龄")‎ j = pos - Int(pos / 10) * 10‎ For i = 0 To 5 Step 1‎ If pos = a(j) Then flag = 1 if pos=b（j） then flag=1‎ Next i If flag = 0 Then End Print a(pos) a（j）‎ ‎2．窗体中（运行状态如图所示）有一定时器控件（名称Timer1，初始状态Enabled为False），有三个标签用于显示控件名称，一滚动条（名称HS1,最大值10，最小值0），一列表框（名称List1，初始状态为空），一文本框（名称为Text1，初值为9876543210，）,一命令按钮（名称Command1，Caption属性值为启动）。‎ 启动按钮完成操作是：（1）计时器开始工作；（2）设置滚动条的value、max和min属性值。‎ 定时器工作时每隔一定时间触发一次事件，Timer事件中完成4项工作：（1）从文本框值右边位置取若干个字符放文本框中；（2）把文本框中的内容添加到列表框中；（3)滚动条的值减1；（4）当滚动条的值为0时计时器停止工作。‎ 程序中的两处错误分布在每个事件中。（请结合程序认真看窗体运行界面，不能改变程序行数，不能增加函数）‎ Private Sub Command1_Click()‎ HS1.Min = 0‎ HS1.Max = 10‎ HS1.Value = 1 10‎ Timer1.Enabled = True End Sub Private Sub Timer1_Timer()‎ Text1.Text = Right(Text1.Text, 9) HS1.value List1.AddItem Text1.Text HS1.Value = HS1.Value - 1‎ If HS1.Value =0 Then Timer1.Enabled = False End Sub 八、程序填空（本大题共7个空，每空5分，共35分，按程序要求在答题卡上填入相应的内容，使程序完整正确）‎ ‎1．(Visual Basic试题)下面程序的功能是从键盘输入长度小于20个字符的字符串，以“#”结束，然后对字符串从左端进行处理。处理方法：把字符串中数字内容放入数组a的元素中，存放时要求每个元素放一个两位数字，最后如果剩一个一位数字则单独存放。如输入的字符串为“12abc3d456e‎7f#”,则12、34、56、7分别存放到数组a的前四个元素中。请填空。‎ Private Sub Command1_Click()‎ Dim a(10) As Integer Dim c As String Dim w1 As String ‘从字符串中取的一个字符 Dim w2 As String ‘用来存放存入数组中的数据 Dim flag As Integer ‘表示每次已经获取了几位数字 Dim i As Integer i = 0: w2 = 0‎ c = InputBox("请输入字符串，以#结束：")‎ w1 = Left(c, 1)‎ Do While w1 <> "#"‎ ‎ If w1 >= "0" And w1 <= "9" Then ‎ flag = flag + 1‎ ‎ w2 = w2 * 10+ Val(w1)‎ ‎ End If ‎ c = Mid(c, 2)‎ ‎ w1 = Left(c, 1)‎ ‎ If flag = 2 Then a(i) = w2: flag = 0: i = i + 1: w2 = 0‎ Loop If flag > 0 Then a(i) = w2:i=i+1‎ For flag = 0 To i-1‎ Print a(flag);‎ Next flag End Sub ‎2．(Visual Basic试题)窗体中有一列表框(名称List1)，一文本框(名称Text1)，一命令按钮(名称Command1)。窗体启动时的Load事件代码已给出。当每次单击开始命令按钮时将把列表框中选择的条目内容添加到数组，并把列表框中选择的条目删除，然后把数组中的元素值添加到文本框中（如图,图中上方控件为列表框，下方控件为文本框）。请在空白位置写出正确的内容。‎ Private Sub Form_Load()‎ List1.AddItem "10"‎ List1.AddItem "20"‎ List1.AddItem "15"‎ List1.AddItem "20"‎ List1.AddItem "89"‎ List1.AddItem "93"‎ End Sub Private Sub Command1_Click()‎ Static a(6) As Integer Dim i As Integer Static j As Integer For i = List1.ListCount - 1 To 0 Step -1‎ If List1.Selected(i) Then a(j) = Val(List1.List(i))‎ j = j + 1‎ List1.RemoveItem i Exit For End If Next i Text1.Text = ""‎ For i = 0 To j - 1‎ Text1.Text = Text1.Text & a(i) & " "‎ Next i End Sub ‎3．(Visual FoxPro试题)已知有“XXGL.DBC”数据库，其中包含“用户”表，“用户”表的结构为：用户名(C，10)、密码(C，10),应用程序运行时界面如下图所示： ‎ 设置控件属性如下：‎ 有四个标签，其Name属性分别为Label1、Label2、Label3和Label4，Caption属性分别为“用户名”、“密码”、“确认密码”、(空)。有三个文本框，其Name属性分别为Text1、Text2、Text3；两个命令按钮，其Name属性分别为Command1和Command2，Caption属性分别为“确定”和“取消”。‎ 编写Visual FoxPro程序实现“添加用户”的功能，具体功能如下：‎ 在Text1文本框中输入用户名、在Text2文本框中输入密码、在Text3文本框中输入确认密码，然后单击“确定”按钮；如果“用户名”为空，则在Label4上显示“用户名不能为空！”；如果输入的用户名在“用户”表中存在，则在Label4上显示“用户已存在！”；如果用户名不为空、也不在“用户”表中存在，则判断Text2和Text3中输入的密码和确认密码（要求密码只能是数字或字母，不能是其他字符，如果输入了其它字符，则在Label4中显示“密码使用了不合法的字符！”）是否相同，如果不相同，则在Label4中显示“请输入相同密码！”；如果不发生以上情况，则将用户信息添加到“用户”表中（密码进行简单的加密处理，将密码串中的每个字符按ASCII码变为其后的第二个字符，如0变成2,1变成3，a变成c），并在Label4中显示“成功添加新用户！”。‎ Command1（“确定”按钮）的Click事件如下，请在空白位置填写正确的命令。（代码中行末的分号为逻辑行连接符）‎ U1=THISFORM.TEXT1.VALUE PW1=THISFORM.TEXT2.VALUE OPEN DATABASE XXGL ‎ TEMPCHR=""‎ IF TRIM(U1)==""‎ ‎ THISFORM.LABEL4.CAPTION="用户名不能为空！"‎ ELSE ‎ SELECT COUNT(用户名) AS GESHU FROM 用户 WHERE;‎ ‎ UPPER(用户名)=UPPER(TRIM(THISFORM.TEXT1.VALUE)) INTO DBF BIAO ‎ USE BIAO ‎ IF GESHU>0‎ ‎ THISFORM.LABEL4.CAPTION="用户已存在！"‎ ‎ ELSE ‎ IF TRIM(THISFORM.TEXT2.VALUE)==TRIM(THISFORM.TEXT3.VALUE)‎ ‎ TEMPSTR=""‎ ‎ FOR I=1 TO LEN(TRIM(PW1))‎ ‎ (5) ‎ ‎ IF MIMA>='0' AND MIMA<='9' OR MIMA>='a' AND MIMA<='z' OR; MIMA>='A' AND MIMA<='Z'‎ ‎ TEMPCHR=ASC(SUBSTR(PW1,I,1))+2‎ ‎ (6) ‎ ‎ ELSE ‎ THISFORM.LABEL4.CAPTION="密码使用了不合法的字符！" ‎ ‎ EXIT FOR ‎ ENDIF ‎ ENDFOR ‎ IF I>LEN(TRIM(PW1))‎ ‎ DIMENSION B(1,2)‎ ‎ B(1,1)=U1‎ ‎ B(1,2)=TEMPSTR ‎ INSERT INTO 用户 VALUES(b(1,1),b(1,2))‎ ‎ THISFORM.LABEL4.CAPTION="成功添加新用户！"‎ ‎ ENDIF ‎ ELSE ‎ (7) ‎ ‎ ENDIF ‎ ENDIF ENDIF