2015河北省对口高考计算机理论考试试题及答案

2015河北省对口高考计算机理论考试试题及答案

‎2015年河北省普通高等学校对口招生考试 计算机专业理论试题（A）‎ 注意事项：‎ ‎1．本试卷共八道大题。总分240分。‎ ‎2．第I卷“一、选择题”、第II卷“二、判断题”的答案填涂在机读卡上，其余各题答案写在答题纸上，答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。‎ ‎3．答题前将密封线内项目填写清楚。‎ 第Ⅰ卷（选择题 共100分）‎ 一、选择题（本大题共50小题，每小题2分，共100分。在每小题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上） ‎ ‎1．下列关于计算机的描述中，正确的是.............................（　 　）‎ ‎ A．计算机能够进行自动处理的基础是能进行逻辑判断 ‎ B．计算机具有高效的运算能力的基础是高效的编程语言 ‎ C．计算机具有很高的计算精度的根本原因是采用位数较多的字长 ‎ D．计算机的逻辑判断能力取决于操作系统 ‎2. 可以将图片、照片以及文稿资料等书面材料输入到计算机中，并形成文件保存起来 ‎ 的输入设备是.................................................（　 　） ‎ A．扫描仪 　 B．打印机　　　 ‎ C．绘图仪　　　 D．光盘、U盘 ‎3．计算机系统分为硬件系统和软件系统，下列叙述不正确的是.........（　 　） ‎ A．硬件系统主要是接受计算机程序，并在程序控制下完成数据输入和数据输出任务 　 ‎ B．软件系统建立在硬件系统的基础上，它使硬件功能得以充分发挥 ‎ C．没有安装软件系统的计算机不能做任何工作，没有实际的使用价值　　　 ‎ D．计算机只需安装系统软件，即可进行所有类型的文字处理或数据处理工作 ‎4. 算式37+6=45正确，则该算式采用的进制是....................... (　 　）‎ ‎ A．十进制 　 B．八进制　 ‎ C．二进制　　 D．十六进制 ‎5．下列关于预防计算机病毒的选项中，错误的是....．．．．．．．．．．．．．．．．．（　 　）‎ A．经常更新病毒库 B．经常备份重要资料 ‎ C．在“我的电脑”中使用鼠标右键打开U盘，以避免使用自启动功能 ‎ D．在收到的邮件中，只要附件不是可执行文件就可放心打开 ‎6. 存储器中存放的内容可以是数据也可以是指令，这主要是根据...........（　 　）‎ A．最高位是0还是1来判别　　 　 B．存储单元的地址来判别 ‎ C．CPU 执行程序的过程来判别 　 D．ASCII 码表来判别　‎ ‎7. 内存空间按字节编址，则地址区间从5001H至6000H可以存放的字节数为 （　 　）‎ A. 1KB B. 4KB C. 1MB D. 4MB ‎8. 一台计算机的字长是8个字节，这表示...............................（　 　）‎ A．能处理的最大数据为8位十进制数 　　　　‎ B．在CPU中运算的结果最大为2的64次方 　　‎ C．在CPU中能同时处理64位二进制数 D．能处理最多由8个英文字母组成的字符串 ‎9．在Windows XP中，同一磁盘下关于文件的操作，以下说法正确的是......（　 　）‎ A．按住Ctrl键的同时，用鼠标左键拖动文件实现的是创建快捷方式 B．按住Alt键的同时，用鼠标左键拖动文件实现的是复制文件 C．按住Shift键的同时，用鼠标左键拖动文件实现的是复制文件 D．将文件放到回收站中，该文件的快捷方式不可使用 ‎10．在 Windows XP 中，默认情况下不能找到“控制面板”的是............（　 　）‎ A．“我的电脑”窗口 ‎ B．在桌面空白区域，点击鼠标右键，打开“属性”选项 ‎ C．“开始”菜单中的“设置” ‎ D．“资源管理器”窗口 ‎11. 在Windows XP中，下列关于快捷方式的说法中正确的是 ..............（　 　）‎ A. 快捷方式是指向一个程序或文档的指针    ‎ B．单击快捷方式，可运行指向的对象 C．快捷方式只是“开始”菜单中的选项    ‎ D．应用程序的内容被完全包含在其快捷方式中 ‎ ‎12．在Word2003中，将重复多次的“对口升学”一词快速的变成红色，以下叙述中正确的是............................................................. （　 　）‎ A．按住Ctrl键，将所有的“对口升学”选定，然后更改字体为红色 B．先选定突出显示的颜色为红色，然后通过查找与替换进行 ‎ C．先选定字体颜色为红色，然后通过查找与替换进行 ‎ D．先打开查找与替换，然后设置格式中的突出显示为红色 ‎13．在Word2003中，建立50行20列的规范表格最好采用的方式为........ （　 　）  ‎ A. 用“表格”菜单中的“绘制表格”      B. 用“表格”菜单中的“插入表格”‎ C. 用“表格”菜单中的“表格自动套用格式” D. 用“格式”菜单中的“制表位” ‎ ‎14．在Word2003中，关于插入到Word文档中的图形文件，以下描述正确的是（　 　）‎ A. 只能是在“照片编辑器”中形成的        B．只能是在“Word”中形成的     ‎ C. 只能是在“画图”中形成的     D．可以是Windows支持的多种格式 ‎ ‎15．在Excel2003中，在单元格A1内输入“第一季”，要想实现A2、A3、A4单元格依次为“第二季”、“第三季”、“第四季”，以下操作正确的是．．．．．．．．．．．．．．．．．（　 　）‎ A．选中A1、A2、A3、A4单元格，点击编辑菜单，点击填充，选中序列的自动填充 B．选中A1、A2、A3、A4单元格，点击编辑菜单，点击填充，选中序列的日期填充 C．选中A1、A2、A3、A4单元格，点击编辑菜单，点击填充，选中序列的等差序列 ‎ D. 选中A1、A2、A3、A4单元格，点击编辑菜单，点击填充，选中向下填充 ‎16. 在Excel2003中，在进行分类汇总之前,必须进行的操作是．．．．．．．．．．．．．.（　 　）‎ A．按分类列对数据清单进行排序,并且数据清单的第一行里必须有列标题 ‎ B．按分类列对数据清单进行排序,并且数据清单的第一行里不能有列标题 ‎ C．对数据清单进行筛选,并且数据清单的第一行里必须有列标题 ‎ D．对数据清单进行筛选,并且数据清单的第一行里不能有列标题 ‎17．在Excel2003中，要查看“某公司的研发部门中，年龄在30-35岁之间（含边界），工 资在8000元以上（不含边界）的人员情况”，若使用高级筛选，其条件区域表示正确 的是 ．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（　 　）‎ A．　 ‎ 部门 年龄 年龄 工资 研发部 ‎>=30‎ ‎>8000‎ 研发部 ‎<=35‎ ‎>8000‎ ‎ 　 ‎ B．‎ 部门 年龄 工资 研发部 ‎>=30‎ ‎>8000‎ 研发部 ‎<=35‎ ‎>8000‎ C． ‎ 部门 年龄 年龄 工资 研发部 ‎>=30‎ ‎<=35‎ ‎>8000‎ D．‎ 部门 年龄 工资 研发部 ‎>=30‎ ‎>8000‎ ‎<=35‎ ‎18．在Visual Basic中，Print Int(35*Rnd)+n产生的随机数的范围是10至44（含10及44），则n是...............................................（　 　）‎ A．10　 B. 20 C. 30 D. 35‎ ‎19. 在Visual Basic中，下列可作为Visual Basic变量名的是............（　 　）‎ A. Filename 　 B. Val　　 C. X%D 　　 D. Print ‎20. 在Visual Basic中，下列语句用来设置窗体中文本框（名称Text1）的属性，其中在运行时不能正确操作的语句是..................................（　 　）‎ A. Text1.Text="Text Test"‎ B. Text1.Name="Text Test"‎ C. Text1.Enabled = False D. Text1.Visible = False ‎21. 在Visual Basic中,下列运算符优先级最高的是......................（　 　）‎ A. + B. * C. > D．And ‎22. 执行下面Visual Basic程序后，结果是哪个选项......................（　 　）‎ For i = 1 To 6‎ ‎ If i Mod 2 = 0 Then ‎ Print "#";‎ ‎ Else ‎ Print "*";‎ ‎ End If Next i A．###### B．****** ‎ C．*#*#*# D．#*#*#*‎ ‎23. 下面的Visual Basic程序是对数组a中的元素按升序排列，程序中空白位置应该填下列选项中的哪一个............................................（　 　）‎ Option Base 1‎ Dim i As Integer Dim j As Integer a = Array(2, 4, 7, 9, 3, 6, 20, 11)‎ For i = 1 To 7‎ ‎ For j = i + 1 To 8‎ ‎ If a(i) > a(j) Then ‎ a(i) = a(i) + a(j)‎ ‎ a(j) = a(i) - a(j)‎ ‎ _____________‎ ‎ End If ‎ Next j Next i For i = 1 To 8‎ Print a(i);‎ Next i A. a(i)=a(j) B. a(i) = a(i) - a(j) ‎ C. a(j)=a(i)-a(j) D. Exit For ‎24. 执行下面Visual Basic程序后，s=s+1语句被执行了多少次...........（　 　）‎ Dim s As Integer s = 0‎ For i = 1 To 10‎ ‎ For j = 0 To i - 1‎ ‎ s = s + 1‎ ‎ Next j Next i A. 0 B. 10 C．55 D. 66‎ ‎25. 执行下面Visual Basic程序，数组a中的数字50所在位置的下标是....（　 　）‎ Option Base 1‎ Private Sub Command1_Click()‎ Dim i As Integer Dim k As Integer Dim t As Integer Dim w As Integer Dim m As Integer a = Array(3, 56, 8, 10, 89, 94, 78, 82, 20, 50, 100)‎ m = UBound(a)‎ k = m / 2‎ For i = 1 To k w = a(i): a(i) = a(m - i + 1): a(m - i + 1) = w Next i End Sub A. 1 B. 2 C. 3 D. 5‎ ‎26. 在Visual Basic中，关于控件及窗体说法不正确的是................（　 　）‎ A. 任何一个控件都有名称 B. 任何一个控件都有属性 C. 任何一个控件都有单击事件 D. 控件是对象，窗体也是对象 ‎27. 执行下面Visual Basic程序，输入a的值为10，最后输出s的值是....（ ）‎ Dim a As Integer Dim s As Integer a = InputBox("a=")‎ Select Case a Mod 2‎ ‎ Case 1: s = 1‎ ‎ Case 2: s = 10‎ ‎ Case 3: s = 11‎ Case Else: s = 100‎ End Select Print s A. 1 B. 2 C. 3 D. 100‎ ‎28. 在Visual FoxPro中，查询结果保存到文本文件中，如果文件已经存在，则将结果追加到该文件的末尾的选项是.. ..................................（　 ）‎ A. ADD 　 　 　B. ADDITIVE C. APPEND 　　　 　D. INSERT ‎29. 在Visual FoxPro中，报表的数据源不包括.........................（　 ）‎ A. 数据库表 B. 自由表 ‎ C. 视图 D. 表单 ‎30. 在Visual FoxPro中，使用SQL中的SELECT命令进行条件查询时，WHERE条件中可以使用LIKE进行格式匹配，LIKE格式中的字符串可以使用通配符，下面的字符中用来代表多个字符的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（　 　）‎ A. & B. % C. _ D. + ‎ ‎31. 在Visual FoxPro中，将两个数据库文件按某个条件筛选部分（或全部）记录及部分（或全部）字段，‎ 组合成一个新的数据库文件的关系操作为...........（　 　）‎ A. 投影 　 B. 连接 C. 筛选 D. 更新 ‎32. 在Visual FoxPro中，执行以下命令后显示的结果是................（　 　）‎ ‎? "TE"$"TEST" AND INT(3.6)=3 AND "TEST"=="TEST"‎ A．.T. B．.F. C．0 D．1‎ ‎33. 在Visual FoxPro中，不允许出现重复字段值的索引是..............（ 　）‎ A. 侯选索引和主索引 B. 普通索引和主索引 C. 侯选索引和唯一索引 D. 普通索引和侯选索引 ‎34. 在Visual FoxPro中，下面关于类、对象、属性和方法的叙述中，错误的是...‎ ‎..............................................................（ 　）‎ A. 类是具有相同特征的对象的集合，这些对象具有相同的属性和方法 B. 属性用于描述对象的特征，方法用于表示对象的行为 C. 基于同一个类产生的两个对象可以分别设置自己的属性值 D. 通过执行不同对象的同名方法，其结果必然是相同的 ‎35．在Visual FoxPro中，以下表达式正确的是........................（ 　　）‎ ‎ A. {^2008-05-01 10:10:10 AM}-10 ‎ B. {^‎2008-05-01‎}+DATE()‎ C. AT("ABC","智能ABC") $ "微软拼音" ‎ D. "123"+SPACE(3)+VAL("456")‎ ‎36．设置局域网中计算机的网络属性时，“默认网关”应该设置为以下哪个选项的内网地址．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（　 　）‎ A．DNS服务器 B．Web服务器 C. 路由器 D．交换机 ‎37. 如果交换机在工作过程中，发现从某端口收到的数据帧中所包含的目标MAC地址不在其MAC地址列表中，则．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（　 　）‎ A．丢弃该数据包 B．经原端口退回该数据包 C．向所有端口转发该数据包 D．暂时中止该端口工作，3秒钟后该端口重新启用 ‎38. 在下列关于OSI网络参考模型和TCP/IP网络模型的说法中正确的是．．．．（　 　）‎ A．这是两个完全独立的网络模型，彼此没有联系 B．这两个模型有一定的层次对应关系 C．TCP/IP模型完全包含了OSI模型 D．目前各种网络硬件主要使用的是OSI参考模型，而TCP/IP只是一种理论模型，并没有实际应用。‎ ‎39．某单位的三个部门在同一建筑物内，并且已经使用TCP/IP协议组建了各自的局域网，现在要将这三个部门网络通过主干网互连起来，则下列哪种网络技术是优先考虑使用的．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（　 　）‎ A．帧中继 B．数字专线 C．FDDI D．千兆以太网 ‎40． 当前计算机上提供的网络接口普遍为．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（　 　）‎ A．BNC B．DIX C．RJ45 D．ST ‎41. 影响局域网络特性的主要技术要素有三点，下列哪一项不属于局域网特性的主要技术要素．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（　 　）‎ A. 网络拓扑结构 B. 网络的介质访问控制方法 C. 网络的传输介质 D. 网络的布线方法 ‎42. 网络提供的所有服务几乎都具有透明性。所谓“透明性”是指．．．．．．．．．．．（　 　）‎ A．用户不能察觉到“透明”网络服务的存在 B．用户无法访问服务器上的“透明”服务 C．用户必须在掌握“透明”服务如何实现的技术细节后，才能使用该项服务 D．用户可以直接使用某项“透明”的网络服务，而不必知道该服务实现的技术细节 ‎43. 计算机的IP地址由网络地址和网络内主机地址两部分组成。在同一个局域网内，不同的计算机．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（　 　）‎ A．具有相同的网络地址和不同的网络内主机地址 B．具有不同的网络地址和相同的网络内主机地址 C．具有相同的网络地址和相同的网络内主机地址 D．具有不同的网络地址和不同的网络内主机地址 ‎44. 在OSI网络参考模型的传输层，最重要的协议是．．．．．．．．．．．．．．．．．．．．（　 　）‎ A．TCP和UDP B．TCP和IP C．HTTP和FTP D．TELNET和DNS ‎45. 国内一所高校要在CERNET中建立WWW 网站，其域名的后缀应该是．．．．．（　 　）‎ A. .net.cn B. .edu.cn C. .com.cn D. .gov.cn ‎46. 按物理拓扑结构对计算机网络进行分类，下列哪项是错的．．．．．．．．．．．．．．（　 　）‎ A．环型网 B．总线网 ‎ C．星型网 D．广播网 ‎47. 在介质访问控制方法中，CSMA/CD的特点主要有．．．．．．．．．．．．．．．．．．．．．（　 　）‎ A．监听总线和碰撞检测 B．标志帧传递和数据发送 C．令牌传送和空闲使用 D．监听总线状态和随机发送 ‎48. 在下列关于网络知识的叙述中正确的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（　 　）‎ A．121.260.23.233是一个合法、有效的IP地址 B．Outlook Express是一个电子邮件收发软件 C．显示网页中的图片、动画等多媒体信息，不会影响网页的浏览速度 D．在Internet上专门供用户进行数据存储的网站，被称为搜索引擎 ‎49. 在计算机网络通信系统中，为了改善线路使用效率、提高传输带宽而广泛使用了多路复用技术。下列不属于多路复用技术的是．．．．．．．．．．．．．．．．．．．．．．．．．．（　 　）‎ A．FDM B．TDM C．CRC D．STDM ‎50. 某网络用户使用Outlook管理自己的电子邮件，则在其发送电子邮件时使用的协议为．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（　 　）‎ A．POP3 B．FTP C．DHCP D．SMTP 第Ⅱ卷（非选择题 共140分）‎ 二、判断题（本大题14小题，每小题1分，共14分。将答案填涂在机读卡上，正确的填涂“√”格，错误的填涂“×”格）‎ ‎1．计算机的指令系统与硬件系统无关。 （ ） ‎ ‎2．在计算机系统中，任何外部设备都必须通过CPU才能和主机相连。 （ ） ‎ ‎3. 在Windows XP中，利用搜索框可以搜索文件夹。 （ ） ‎ ‎4．在Windows XP中，桌面可分为 “开始”菜单按钮、快速启动工具栏、窗口按钮栏和通知区域等几部分。 （ ）‎ ‎5．在Word2003中，插入图片后，若希望其成为水印，则应将该图片置于文字下层。 （ ）‎ ‎6. 在Word2003中，使用“分栏”按钮只能将文档分为两栏。若分多栏，需要使用“分栏”对话框进行设置。 （ ）‎ ‎7．在Excel2003中，数据清单的排序可以按笔画进行排序。 （ ）‎ ‎8. 在 Excel2003 中，删除图表中的某个数据系列时，需要双击图表中该数据系列，之后按Delete键。 （ ）‎ ‎ 9．在Visual Basic中，对顺序文件既有读的操作语句，也有写的操作语句。 ‎ ‎（ ）‎ ‎10．在Visual FoxPro中，设置菜单项访问键的方法是在指定菜单标题时在访问键 前加“<”字符。 （ ）‎ ‎11．在组建局域网时，中心设备使用集线器或交换机，对网络性能没有影响。‎ ‎（ ）‎ ‎12. URL由传输协议、域名、文件路径和文件名四部分组成。 （ ）‎ ‎13．在网关位置安装网络防火墙并进行合理设置后，可以杜绝网络病毒的传播和网络攻击行为的发生。 （ ）‎ ‎14. 一台计算机只安装了一块网卡，在安装TCP/IP协议并正确连接网线后，可以为该计算机设置多于一个的IP地址。 （ ）‎ 三、填空题（本大题共13小题，每小题2分，共26分。请将答案填写在 答题纸上）‎ ‎1．能把汇编语言源程序翻译成目标程序的程序是 程序。‎ ‎2．微型计算机的内存容量主要是指 的容量。‎ ‎3．1000个32*32点阵的汉字字模，需要占用的存储空间为 （KB）。‎ ‎4．在Windows XP中，桌面上的 图标不能删除。‎ ‎5. 在Word2003中，一部分字符格式设置好后，如果其他字符也需要使用相同的字符格式，则可以使用 将字符格式应用到其他字符上。‎ ‎6. 在Excel2003中，在单元格B2中输入数据“80”，在C2中输入字符“good”（均不含引号），在单元格D2中输入=IF(AND(B2>80，C2="good"),B2+10，B2-10),则D2单元格中的结果为 。‎ ‎7. 在Visual Basic中，使用Dim A(2 To 5, 2 To 4)语句定义数组后，数组A所包含的元素个数为 。‎ ‎8. Visual Basic的算术表达式4 / 3 Mod 3 * 2 + 2的结果是 。‎ ‎9．在Visual FoxPro中，在当前记录之前插入一条空白记录的命令是 ‎ ‎ 。‎ ‎10. 在Visual FoxPro中，?IIF(VAL("COM123")>0,AT("COMPUTER","PUT"),‎ REPLICATE ("COM",2))的输出结果为： 。‎ ‎11. 网络互连可以在不同的网络层次上实现；如果互连设备为集线器，则参与互连的网络是在 层上实现了互连。‎ ‎12. 在OSI网络参考模型中，下层向上层提供的服务类型主要有两种，即 ‎ ‎ 和 。‎ ‎13. 在同一局域网络中，为了保证网络连通性，不同计算机的相同层次必须使用相 同的 。‎ 四、根据已知的环境与题意，写出相应的Visual FoxPro操作命令或SQL语句，要 求每小题用一条命令或语句完成（本大题共5小题，每小题4分，共20分，请填 写在答题纸上）。‎ 现有数据库“customer.DBC”，其中包含表“order_list.dbf”，该表有以下字段：客户号(C,6)、订单号(C,6)、订购日期(D)、数量(I)、单价(N,10,2)，总金额(N,15,2)。在相应数据库和表已打开的前提下，写出完成下述功能的命令(注意：只能写一条语句，多于一条不得分)。‎ ‎1．恢复“order_list”表中被逻辑删除的记录中“数量”大于等于1000的记录。（用Visual FoxPro命令）‎ ‎2. 使用“order_list”表，建立以“订单号”为关键字，名称为“订单”的降序的唯一索引，复合索引文件名为DD.CDX。（用Visual FoxPro命令）‎ ‎3. 建立“zgxxb”表，字段为：职工号(C,6)，姓名(C,8)，性别(C,2)，设置“职工号”字段为主索引，并对“性别”字段建立有效性规则为：“性别”字段只能填“男”或“女”，如果填入其他数据则提示信息“性别输入错误”。（用SQL语句）‎ ‎4．计算“order_list”表中“总金额”字段的值，总金额=数量*单价。（用SQL语句）‎ ‎5. 查询“order_list”表中“客户号”为100001、“总金额”小于等于10000的记录，按“总金额”降序输出，结果保存到“JG.dbf”表中。（用SQL语句）‎ 五、程序分析（本大题共2小题，每小题5分，共10分，读程序并分析结果，请填写在答题纸上）‎ ‎1．阅读下面的Visual Basic程序，程序运行后s的值是 ‎ Option Base 0‎ Private Sub Command1_Click()‎ Dim a(4) As Integer Dim i As Integer Dim j As Integer Dim w As Integer Dim s As Integer j = 0: s = 0‎ For i = 1 To 100‎ ‎ w = Int(6 * Rnd)‎ ‎ If w = 2 Then ‎ a(j) = w ‎ s = s + a(j)‎ ‎ j = j + 1‎ ‎ Else ‎ i = i - 1‎ ‎ End If ‎ If j = 5 Then Exit For Next i Print s End Sub ‎2．有Visual ForPro程序chengxu.prg如下 CLEAR INPUT "请输入X=" TO X INPUT "请输入Y=" TO Y DIMENSION KK(2,2)‎ I=1‎ DO WHILE I<=2‎ ‎ J=1‎ ‎ DO WHILE J<=2‎ ‎ IF I%2=0‎ ‎ KK(I,J)=I*J*7‎ ‎ ELSE ‎ KK(I,J)=I*J*3‎ ‎ ENDIF ‎ J=J+1‎ ‎ ENDDO ‎ I=I+1‎ ENDDO S=0‎ FOR M=1 TO 2‎ ‎ FOR N=1 TO 2‎ ‎ IF ZHI(KK(M,N))=1‎ ‎ IF KK(M,N)%4=0‎ ‎ S=S+KK(M,N)*X ‎ ELSE ‎ S=S+KK(M,N)*Y ‎ ENDIF ‎ ENDIF ‎ ENDFOR ENDFOR ‎?S ‎ ‎ FUNCTION ZHI PARAMETERS TT SUM1=0‎ FOR I=1 TO TT-1‎ ‎ IF TT%I=0‎ ‎ SUM1=SUM1+I ‎ ENDIF ENDFOR IF SUM1=TT ‎ RETURN 1‎ ELSE ‎ RETURN 0‎ ENDIF 该程序的功能是计算S=　 　　 　　　的值（写出包含X和Y的表达式）‎ 六、写出下列程序的运行结果（本大题共5小题，每小题5分，共25分，请填写在答题纸上）‎ ‎1．分析下面Visual Basic程序段。窗体中有一命令按钮（名称为Command1）。‎ Private Sub Command1_Click()‎ Dim a(3) As Integer Dim i As Integer, w As Integer w = 0‎ For i = 0 To 3‎ a(i) = i Next i For i = 0 To 3‎ w = w + fu(a(i))‎ Next i Print w End Sub Private Function fu(k As Integer)‎ k = k + 1‎ fu=k End Function 窗体启动后单击命令按钮，输出w的值为 。‎ ‎2．分析下面Visual Basic程序段。窗体中有一命令按钮（名称为Command1）‎ Option Base 1‎ Private Sub Command1_Click()‎ a = Array(23, 24, 17, 8, 11, 15, 16, 13)‎ Dim i As Integer Dim num As Integer Dim k As Integer Dim j As Integer Dim flag As Integer num = 0‎ For i = 1 To 8‎ ‎ flag = 0‎ ‎ k = Int(Sqr(a(i)))‎ ‎ For j = 2 To k ‎ If a(i) Mod j = 0 Then flag = 1‎ ‎ Next j ‎ If flag = 0 Then num = num + a(i)‎ Next i Print num End Sub 窗体启动后单击命令按钮，输出语句Print num执行结果是__________________。‎ ‎3．有Visual ForPro程序如下:‎ CLEAR I=2‎ DO WHILE .T.‎ ‎ COUNT=0‎ ‎ M=I ‎ FOR K=0 TO 2‎ ‎ J=M/2*3+1‎ ‎ M=J ‎ IF J % 2=0‎ ‎ COUNT=COUNT+1‎ ‎ ELSE ‎ EXIT ‎ ENDIF ‎ ENDFOR ‎ IF COUNT=2‎ ‎ ?J ‎ EXIT ‎ ‎ ENDIF ‎ ‎ I=I+2‎ ENDDO ‎ 运行上面的程序，显示的结果为 。‎ 第4、5题使用下面的数据库 设有数据库文件“XK.DBC”，包含2个表，分别是“T_XX.dbf”、“X_XX.dbf”。其中“T_XX”‎ 表的结构为：编号(C，8)、系号(C，2)、姓名(C，8)，主讲课程(C，20)，排名(I)；“X_XX”表的结构为：系号(C，2)、系名(C，20),各表中数据如下：‎ T_XX.DBF 记录号 编号   系号  姓名  主讲课程 排名 ‎1 11020001  01 肖海  数据结构 3‎ ‎2 11020002  02  王岩盐   数据结构 1‎ ‎3 11020003  01  肖海  C 语言 3‎ ‎4 11020004  03  张月新   操作系统 2‎ ‎5 11020005  01  李明玉   数据结构 7‎ ‎6 11020006  02  孙民山   操作系统 11‎ ‎7 11020007  03  钱无名   数据库 5‎ ‎8 11020008  02  呼延军   编译原理 6‎ ‎9 11020009  03  钱无名   操作系统 5‎ ‎10 11020010  01  张国梁  C 语言 4‎ ‎11 11020011  03  林新月   操作系统 8‎ ‎12 11020012  01  乔小廷   C 语言 9‎ ‎13 11020013  02  孙民山   数据库 11‎ ‎14 11020014   01  欧阳秀   编译原理 10‎ X_XX.DBF 记录号 系号  系名 ‎1 01  计算机 ‎2 02  信息管理 ‎3 03  中文 ‎4. 有如下Visual FoxPro程序：（代码中行末的分号为逻辑行连接符）‎ CLEAR DIME GA(1,4)‎ SELECT 系号,姓名 FROM T_XX WHERE 排名 IN (SELECT MAX(排名) FROM T_XX);‎ INTO DBF PT_1‎ USE PT_1‎ SELECT COUNT(DISTINCT 姓名) AS PXM,姓名 FROM PT_1 INTO DBF PT_2‎ USE PT_2‎ MGS=PT_2.PXM MXM=PT_2.姓名 IF MGS=1‎ ‎ SELECT T_XX.系号,T_XX.姓名,X_XX.系名,COUNT(DISTINCT T_XX.主讲课程);‎ ‎ AS JGS FROM T_XX,X_XX WHERE T_XX.系号=X_XX.系号 AND T_XX.姓名=MXM;‎ INTO ARRAY GA ‎ ?GA(1,3),GA(1,2),GA(1,4)‎ ELSE ‎ IF MGS=0‎ ‎ ? "无记录"‎ ‎ ELSE ‎ ? "数据错误"‎ ‎ ENDIF ENDIF 运行上面的程序，显示的结果是： 。‎ ‎5. 新建一个表单，表单的Name属性为Form1，程序运行时的界面如下图所示：‎ 设置控件属性如下：‎ 有三个标签，其Name属性分别为Label1、Label2和Label3，Caption属性分别为“系名：”、“结果：”、(空)；有一个文本框，其Name属性为Text1；一个命令按钮，其Name属性为Command1，Caption属性为“查询”。‎ 有如下的事件代码：‎ Form1的Activate事件：‎ THISFORM.TEXT1.VALUE="计算机"‎ Command1的Click事件：（代码中行末的分号为逻辑行连接符）‎ STR=TRIM(THISFORM.TEXT1.VALUE)‎ OPEN DATABASE XK SELECT 系号 AS XH, COUNT(DISTINCT 姓名) AS G_XM FROM T_XX GROUP BY;‎ 系号 INTO DBF TS_1‎ SELECT COUNT(DISTINCT 姓名) AS S_XM FROM T_XX INTO DBF TS_2‎ USE TS_2‎ GO TOP S_XM=TS_2.S_XM SELECT XH,G_XM FROM TS_1 WHERE XH=(SELECT 系号 FROM X_XX WHERE;‎ 系名=STR) INTO DBF TS_3‎ USE TS_3‎ GO TOP DO WHILE NOT EOF()‎ ‎ THISFORM.LABEL3.CAPTION=STR(TS_3.G_XM,3)+"/"+STR(S_XM,3)‎ ‎ SKIP ENDDO 计算机 CLOSE ALL 运行上面的表单，在Label3中显示的是： 。‎ 七、Visual Basic程序改错(本大题共2小题，每题5分，共10分，每个程序有两个错误行，请在答题纸上写出错误行代码和对应的正确代码，改对一处得一处分，改错不减分。注：要把整行写完整) ‎ ‎1．有数组:‎ s = Array("a42", "b‎3c56", "de7fg", "hi", "jk35kmn")‎ 统计数组s的各个元素中含有数字字符个数，把结果放到数组b相应元素中，如上述数组s，当程序运行后b中各元素的值分别为：2,3,1,0,2。程序中有两处错误，请按要求改正。程序如下：（两个数组的下标都是从1开始，程序中定义的每个变量都用到,程序中只能用变量total统计数组中每个元素含数字字符个数）‎ s = Array("a42", "b‎3c56", "de7fg", "hi", "jk35kmn")‎ Dim b(5) As Integer Dim total As Integer Dim i As Integer Dim j As Integer For i = 1 To 5‎ ‎ b(i) = 0‎ ‎ For j = 1 To Len(s(i))‎ ‎ If Mid(s(i), j, 1) >= "0" And Mid(s(i), j, 1) <= "9" Then total = total + b(i) ‎ Next j b(i) = total Next i For i = 1 To 5‎ Print b(i);‎ Next i ‎2． 如图所示，窗体有两个框架，左边框架中有三个单选按钮（名称分别为Option1，Option2和Option3），单选按钮分别设置了标题为小学、初中、高中；右边的框架中是一个列表框（名称为List1）；两个框架中间是命令按钮（标题为存放结果，名称为Command1），命令按钮功能：单击命令按钮，清除列表框中的内容，然后将选中单选按钮的标题放入列表框中。‎ 程序中有两处错误，分布在两行，请将完整的错误行和相应的正确行写在答题纸横线上。（不能改变程序行数，不能增加函数）‎ Private Sub Command1_Click()‎ Dim s As String List1.Clear s = ""‎ Select Case 1‎ ‎ Case Option1.Value ‎ s = s + Option1.Caption ‎ Case Option2.Value ‎ s = s + Option2.Caption ‎ Case Option3.Value ‎ s = s + Option3.Caption End Select List1.Text = s End Sub 八、程序填空（本大题共7个空，每空5分，共35分，按程序要求在答题纸上填入相应的内容，使程序完整正确）‎ ‎1．(Visual Basic试题)下面程序是从键盘输入少于20个字符的字符串，然后对字符串从左端进行处理。处理方法：把字符串中后跟“#”的数字放入数组a中，如果是数字但后面没有“#”则不存放。如输入的字符串为“12#a2bc3#d45#6e‎7”‎,则12、3、45分别存放到数组a的前三个元素中。请填空。‎ Option Base 0‎ Private Sub Command1_Click()‎ Dim s As String Dim c As String Dim i As Integer Dim j As Integer Dim a(10) As Integer Dim num As Integer Dim w As Integer Dim flag As Integer '标志：为0表示前一个字符非数字，为1表示前一 字符为数字 num = 0: i = 1: flag = 0: j = 0‎ s = InputBox("s=")‎ w = Len(s)‎ Do While i <= w ‎ c = Mid(s, i, 1)‎ ‎ If c >= "0" And c <= "9" Then ‎ num = num * 10 + Val(c): (1) ‎ ‎ End If ‎ If flag = 1 And c = "#" Then ‎ (2) : j = j + 1: flag = 0: num = 0‎ ‎ End If ‎ If (c < "0" Or c > "9") And flag = 1 Then ‎ flag = 0: num = 0‎ ‎ End If ‎ i = i + 1‎ Loop For i = 0 To j - 1‎ ‎ Print a(i);‎ Next i End Sub ‎2、(Visual Basic试题)‎ 窗体中有一文本框(名称Text1)，一组合框(名称Combo1，已添加5个条目)，一滚动条（名称Hs1，min和max分别为1和5），一定时器控件（名称Timer1），定时器的Enabled属性初始为False，Interval 属性值1000（1秒），一命令按钮(标题为开始，名称Command1)。程序功能：（1）开始命令按钮功能：启动定时器工作；（2）定时器Timer1事件功能：一是清空文本框，二是在文本框中显示组合框中选中的数字，选中数字几，就在文本框中显示几个该数字，如选中3，则在文本框中显示3个3，三是把滚动条的Value值改为组合框中选定的值，四是把定时器的Timer1事件触发时间改为与所选中的组合框的值一致的秒数。不完整的空白位置请写出正确的内容。‎ Private Sub Command1_Click()‎ Timer1.Enabled = True End Sub Private Sub Timer1_Timer()‎ Dim i As Integer Dim k As Integer Text1.Text = ""‎ k = Val( (3) )‎ For i = 1 To k Text1.Text = Text1.Text + Combo1.Text Next i Hs1.Value = Combo1.Text ‎ (4) = Combo1.Text * 1000‎ End Sub ‎3．(Visual FoxPro试题)程序的功能是：输入字符串，将字符串中的所有不是数字、字母的字符删除；将字母字符移到数字字符尾部，各自保持原来的先后顺序，形成新的字符串输出。如输入的字符串为“1Wq+2_3A”，则输出“123WqA”。程序如下，请在空白位置填写正确的代码。‎ CLEAR ACCEPT "请输入字符串：" TO TT ‎ （5） ‎ ‎?XX ‎ ‎ FUNCTION SHUCHU ‎ PARAMETERS SS ‎ N=LEN(SS)‎ ‎ DIME A(N)‎ ‎ FOR I=1 TO N ‎ A(I)=SUBSTR(SS,I,1)‎ ‎ ENDFOR ‎ B=""‎ ‎ C=""‎ ‎ FOR I=1 TO N ‎ IF (A(I)>="0" AND A(I)<="9")‎ ‎ （6） ‎ ‎ ELSE ‎ IF (A(I)>="a" AND A(I)<="z" OR A(I)>="A" AND A(I)<="Z")‎ ‎ （7） ‎ ‎ ENDIF ‎ ENDIF ‎ ENDFOR ‎ SS=B+C ‎ RETURN SS ‎2015年河北省普通高等学校对口招生考试 计算机专业理论试题（A）卷答案 选择题 ‎1．C ‎2．A ‎3．D ‎4．B ‎5．D ‎6．C ‎7．B ‎8．C ‎9．D ‎10．B ‎11．A ‎12．C ‎13．B ‎14．D ‎15．A ‎16．A ‎17．C ‎18．A ‎19．A ‎20．B ‎21. B ‎22.C ‎23. B ‎24. C ‎25. B ‎26.C ‎27. D ‎28．B ‎29．D ‎30．B ‎31．B ‎32．A ‎33．A ‎34．D ‎35．A ‎36．C ‎37．C ‎38．B ‎39．D ‎40．C ‎41．D ‎42．D ‎43．A ‎44．A ‎45．B ‎46．D ‎47．A ‎48．B ‎49．C ‎50．D 二、判断题 ‎1．×‎ ‎2．×‎ ‎3．√‎ ‎4．×‎ ‎5．√‎ ‎6．×‎ ‎7．√‎ ‎8．×‎ ‎9．√‎ ‎10．×‎ ‎11．×‎ ‎12．√‎ ‎13．×‎ ‎14．√‎ 三、填空题 ‎1.汇编 2．RAM （或随机存储器） 3．125 4．回收站 ‎ ‎5．页眉页脚 6．70 7．12 8. 3‎ ‎9. INSERT BEFORE BLANK (或INSERT BLANK BEFORE) ‎ ‎10．COMCOM(小写不得分) 11．物理 12．面向连接的、无连接的 ‎ ‎13．网络协议 四、命令或语句 ‎1．RECALL ALL FOR 数量>=1000‎ ‎2. INDEX ON 订单号 TAG 订单 OF DD.CDX DESCENDING UNIQUE ‎3．CREATE TABLE zgxxb.dbf (职工号 C(6) PRIMARY KEY,姓名 C(8),性别 C(2) CHECK 性别="男" OR 性别="女" ERROR "性别输入错误")‎ ‎4．UPDATE order_list.dbf SET 总金额=数量*单价 ‎5．SELECT * FROM order_list.dbf WHERE 客户号=" 100001" AND 总金额<=10000 ORDER BY 总金额 DESC TO JG.DBF 五、程序分析（每题5分）‎ ‎1. 10‎ ‎2. 6y+28x 六、写出程序执行结果（每题5分）‎ ‎1．10 2．64 ‎ ‎3． 25 （25可以带小数0，几位都可以）‎ ‎4. 信息管理 孙民山 2 ‎ ‎5. 5/11 ‎ 七、程序改错 ‎1、(共2处错，每处改对得2.5分，改错不扣分)‎ 错误行: b(i) = 0 ‎ 正确行: total = 0‎ 错误行：‎ If Mid(s(i), j, 1) >= "0" And Mid(s(i), j, 1) <= "9" Then total = total + a(i) ‎ 正确行: ‎ If Mid(s(i), j, 1) >= "0" And Mid(s(i), j, 1) <= "9" Then total = total + 1‎ ‎2、(共2处错，每处改对得2.5分，改错不扣分)‎ 错误行：Select Case 1 正确行:：Select Case True 错误行：List1.Text = s 正确行：List1.AddItem s 八、程序填空 ‎1、每空5分 ‎（1）flag = 1‎ ‎（2）a(j) = num ‎2、每空5分 ‎（3）Combo1.Text ‎（4）Timer1.Interval ‎3.每空5分 ‎（5）XX=SHUCHU(TT)‎ ‎（6）B=B+A(I)或B=B+SUBSTR(SS,I,1)或B=B-A(I)或B=B-SUBSTR(SS,I,1)‎ ‎（7）C=C+A(I)或C=C+SUBSTR(SS,I,1)或C=C-A(I)或C=C-SUBSTR(SS,I,1)‎