2014年河北省普通高等学校对口招生考试

2014年河北省普通高等学校对口招生考试计算机专业理论试题（A）注意事项：1．本试卷共八道大题。总分240分。2．第I卷“一、选择题”、第II卷“二、判断题”的答案填涂在机读卡上，其余各题答案写在答题纸上，答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。3．答题前将密封线内项目填写清楚。第Ⅰ卷（选择题共100分）一、选择题（本大题共50小题，每小题2分，共100分。在每小题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上1．下列设备中，全部属于输出设备的一组是.........................（）A．扫描仪、键盘、显示器B．激光打印机、键盘、鼠标C．麦克风、绘图仪、显示器D．喷墨打印机、绘图仪、音箱2．计算机软件一般分为系统软件和应用软件两大类，下列选项中不属于系统软件的是...........................................................（）A．操作系统B．数据库管理系统C．用汇编语言编写的程序D．语言处理程序3．与十六进制数37.A等值的二进制数是............................（）A.110101.011B.110100.111C.110111.101D.110101.1014．下列关于病毒的叙述中哪一条是正确的..............．．．．．．．．．．．．．（）A．杀毒软件通常是滞后于计算机新病毒的出现B．杀毒软件可以查、杀所有种类的病毒C．计算机病毒只感染可执行文件D．将防火墙打开，再定期用杀毒软件杀毒，就不会感染病毒了5．用计算机进行图书馆的资料检索工作，这主要涉及计算机应用中的．．．（）A．科学计算B．数据处理C．过程控制D．辅助设计6．2.4MB的磁盘空间大约可以存放的汉字数目是......................（）A．240万B．30万C．60万D．120万7．某微机主要技术参数为“P4/1.7G/128M/60G/”，其中1.7G的含义为．．（）A．CPU的运算速度为1.7GMIPSB．CPU的时钟主频为1.7GHzC．CPU的内存为1.7GD．CPU与内存间的数据交换速率是1.7GB/S8．在WindowsXP中，按住Ctrl键的同时，用鼠标左键将选定的文件拖放到另一个文件夹，系统进行的操作是..........................................（）A．无论源文件夹和目的文件夹是否在同一磁盘内，均实现复制B．无论源文件夹和目的文件夹是否在同一磁盘内，均实现移动C．若源文件夹和目的文件夹在同一磁盘内，将实现移动D．若源文件夹和目的文件夹不在同一磁盘内，将实现移动9．在WindowsXP中，同一磁盘上.....................................（）A．允许同一文件夹中的文件同名，也允许不同文件夹中的文件同名B．不允许同一文件夹中的文件同名，也不允许不同文件夹中的文件同名C．允许同一文件夹中的文件同名，不允许不同文件夹中的文件同名D．不允许同一文件夹中的文件同名，允许不同文件夹中的文件同名10．在WindowsXP中，卸载应用程序的正确方法是进入.................（）A．我的电脑B．资源管理器C．控制面板D．注册表11．对于WindowsXP的回收站，下列叙述正确的是......................（）A．“回收站”中可以存放所有外存储器中被删除的文件或文件夹B．“回收站”是硬盘中的一块区域C．“回收站”的大小是固定的，不能调整D．在“回收站”图标上点右键可以还原所有文件12．在Word2003的编辑状态，有关查找操作的叙述中，正确的是..........（）A．查找时，可以无格式进行、也可以带格式进行、还可以查找一些特殊的非打印字符B．查找时，只能带格式进行C．查找时，只能在整个文档范围内进行D．查找时，可以无格式进行、也可以带格式进行，但不能查找一些特殊的非打印字符13．在Word2003中，若插入的表格中，内外框线都是实的，想要将其改变为虚线，应选择的命令是...............................．．．．．．．．．．．．．．．．．．．．．．．．．（）A．“表格”菜单中的“显示虚框”B．“表格”菜单中的“绘制表格”C．“表格”菜单中的“表格自动套用格式”D．“表格”菜单中的“表格属性”14．在Word2003文档编辑过程中，欲把整个文档中的“计算机”一词都删除，最简单的方法是使用“编辑”菜单中的．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（）A．清除B．撤消C．剪切D．替换15．打开Excel2003工作簿，将单元格C2设置为文本类型，输入时间“10:20:17”，选中C2单元格，按住Alt键，然后拖动向下填充句柄进行填充,则完成的操作是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（）A．下面单元格内连续出现“时”的递增B．下面单元格内连续出现“分”的递增C．下面单元格内连续出现“秒”的递增D．下面单元格内全部都是“10:20:17”16．在Excel2003中，下面关于分类汇总的叙述正确的是..................（）A．分类汇总的关键字段可以是多个字段B．分类汇总可以被删除，删除汇总后排序操作可以撤消C．分类汇总前必须按关键字段排序D．汇总方式只能是求和17．在Excel2003中，要查看“某商场4月份销售的创维或康佳彩电、价格在4000至6000（含边界），且销量在50台以上的记录”，若使用高级筛选，其条件区域表示正确的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（）A．品牌品牌价格价格销量创维康佳>=4000<=6000>50B．品牌价格价格销量创维>=4000<=6000>50康佳>=4000<=6000>50C．品牌价格价格销量创维>=4000>50创维<=6000>50康佳>=4000<=6000>50D．品牌价格数量创维>=4000>50创维<=6000>50康佳>=4000>50康佳<=6000>5018．在VisualBasic中，PrintInt(Rnd)+Int(3+Rnd)的结果是.............（）A．无法确定B.2C.3D.419．在VisualBasic中，当窗体启动时能够被触发的事件是................（）A．UnLoadB.ClickC.DblClickD.Load20．VisualBasic中，窗体的标题用以下哪个属性表示....................（）A．ValueB．CaptionC.TextD.Topic21．VisualBasic中,表达式3Mod2*4的值是．．．．．．．．．．．．．．．．．．．．．．．．．．（）A.1B.2C.3D．422．关于VisualBasic中列表框属性的说法不正确的选项是...............（）A．列表框既有添加列表项的方法，也有删除列表项的方法B．列表框中列表项个数无法统计C．向列表框中添加项目时可以插入在列表项之间D．列表框中的每个列表项都有一个索引位置23．执行下面VisualBasic程序，数组a中元素值是w的数据经过一系列位置变化后，其最终位置的下标是哪个选项......................................（）OptionBase0PrivateSubCommand1_Click()DimwAsIntegerw=20a=Array(10,15,6,8,93,84,w)DimiAsIntegerDimjAsIntegerDimtAsIntegerFori=0To5Forj=i+1To6Ifa(i)>a(j)Thent=a(i):a(i)=a(j):a(j)=tEndIfNextjNextiEndSubA.2B.4C.6D.824．在VisualBasic中，语句PrintInStr(2,"abcdeabfg","ab")的输出结果是()A.0B.1C．5D.625．下面关于VisualBasic中工程的说法正确的是..................．．．．（）A.每个工程中只能包含一类文件B.工程中的启动窗体是不能改的C.工程中的窗体当创建以后是不能被删除掉的D.工程也是有属性的26．VisualBasic中，关于属性、事件、方法、对象说法正确的是.........（）A.可以通过改变对象的属性值来改变对象的特性B.事件必须在鼠标单击或双击对象后触发C.VisualBasic中，所有对象都设置了相同的方法D.窗体不是对象，按钮是对象27．执行下面VisualBasic程序，最后输出s的值是....................（）DimaAsIntegerDimsAsIntegera=1s=0Fori=1To3a=iForj=1Toas=s+aNextji=jNextiPrintsA.6B.8C.10D.1228．在VisualFoxPro中，创建报表的命令是...........................（）A.MODIFYREPORTB.CREATEREPORTC.SETREPORTD.PREVIEWREPORT29．在VisualFoxPro中，菜单文件的扩展名为.........................（）A..mnxB..mprC..pqrD..scr30．在VisualFoxPro中,假设表单上有一个命令按钮，如果单击命令按钮可以实现关闭表单的功能，则应在该按钮的Click事件过程中写入语句．．．．．．．．．．．．（）A.ThisForm.CloseB.ThisForm.EraseC.ThisForm.ReleaseD．ThisForm.Return31．在VisualFoxPro中，如果表中的某个字段存放的是图片，需要将该字段设置为下面哪种类型..................................................（）A.备注型B.通用型C.字符型D.双精度型32.在VisualFoxPro中，执行以下命令后显示的结果是................（）N='210.28'?90+&NA．90+&NB．90210.28C．300.28D．出错信息33.在VisualFoxPro中，?TYPE("10/01/88")的输出结果为...............（）A.NB.CC.DD.U34．在VisualFoxPro中，下列关于视图的叙述中错误的是...............（）A.通过视图可以对表进行查询B.通过视图可以对表进行更新C.视图是一个独立的数据文件，不属于任何的数据库D．视图分为本地视图和远程视图两种类型35．在VisualFoxPro中，要为两个数据表建立一对多的永久关系，要求主表的索引类型必须为......................................................．（）A．主索引B.主索引或候选索引C.主索引、候选索引或唯一索引D.可以不建立索引36．在物理拓朴结构为总线结构的局域网中，联网的主机间进行通信通常采用的机制是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（）A．ATMB．CDMAC．FTTB+LAND．CSMA/CD37．在下列关于网络数据交换的叙述中不正确的是．．．．．．．．．．．．．．．．．．．．．．．（）A．线路数据交换面向连接B．分组交换比报文交换具有更好的网络响应速度C．分组交换有存储转发过程D．报文交换无存储转发过程38．计算机网络的拓扑结构主要取决于它的............................（）A．通信子网B．资源子网C．通信介质D．路由器连接方式39．在使用TCP/IP协议的网络中，属于同一个子网络的主机的网络地址..（）A．不相同B．可以相同也可以不相同C．一定相同D．相同与否视其它情况而定40．在使用CSMA/CD协议的以太网络中，其通信工作方式为..............（）A．半双工B．单工C．全双工D．都可以41．在OSI/RM网络参考模型中，数据链路层最主要的功能是.............（）A．进行报文传递的路由选择B．按协议规则提供报文分组C．可靠的在任意节点间传送报文D．进行可靠的两相邻节点间的数据传输42．在网络层传输的TCP数据包的段结构中，端口地址的长度为...........（）A．4个字节B．3个字节C．2个字节D．1个字节43．在Internet网络中，用于服务器与客户机间进行网页信息传输控制的协议是.....．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（）A．HTTPB．URLC．SMTPD．HTML44．有一种互连设备工作于网络层，它既可以用于相同（或相似）网络间的互连，也可以用于异构网络间的互连，这种设备是...........................（）A．集线器B．路由器C．交换机D．网关45．一个局域网中某台主机的IP地址为2，使用22位作为网络地址，那么该局域网的子网掩码为.........................................（）A．B．C．D．46．在Internet域名体系中，域的下面可以划分子域，各级域名间用圆点分开，按照．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（）A．从左到右越来越小的方式分4层排列B．从右到左越来越小的方式分多层排列C．从左到右越来越小的方式分多层排列D．从右到左越来越小的方式分4层排列47．线路交换是实现数据交换的一种技术，其特点是....................（）A．信息延时短，且延时固定不变B．不同速率的用户之间可以直接进行数据交换C．数据信号在线路上进行传输时无衰损D．可以把一个报文同时发送到多个目标节点中48．在OSI/RM网络参考模型中，网络接口卡（NIC）所属的层次为.........（）A．物理层B．数据链路层C．网络层D．运输层49．在数字通信中广泛采用CRC循环冗余码进行差错校验，这是因为CRC可以（）A．检测出一位差错B．检测出多位突发性差错C．检测并纠正一位差错D．检测并纠正多位突发性差错50.网络中的计算机可以分为服务器和客户机，其中的网络服务器是指......（）A．具有通信功能的高档计算机B．64位总线结构的高档计算机C．带有容量大、传输速度快的硬盘的计算机D．为网络提供共享资源，并对这些资源进行管理的计算机二、判断题（本大题14小题，每小题1分，共14分。将答案填涂在机读卡上，正确的填涂“√”格，错误的填涂“×”格）1．世界上第一台电子计算机采用的电子器件是电子管。（）2．在计算机系统中，不能直接和CPU交换数据的存储器是ROM。（）3．在WindowsXP中，删除某个应用程序的桌面快捷图标意味着，该应用程序连同快捷图标一起被删除。（）4．在WindowsXP中，剪贴板是程序和文件间用来传递信息的临时存储区，此存储区是内存的一部分。（）5．在Word2003中，为了突出显示文档的某些内容，可以为该部分内容加底纹，也可以为图形加底纹。（）6．在Word2003中，文本可以转换成表格，但表格不可以转换成文本。（）7．在Excel2003中，执行“格式”菜单中的“排序”命令，可以实现对工作表数据的排序功能。（）8．在Excel2003中，当数据源发生变化时，相应的图表将自动跟随变化。（）9．在VisualBasic中，控件的属性在任何状态下都可以修改。（）10．在VisualFoxPro中，选择当前未使用的最小编号工作区的命令是SELECT0。（）11．在TCP/IP协议组中，DNS（域名服务系统）的组织结构是层次模型。（）12．只有服务器上的软件系统和软件应用可以作为共享资源，由服务器向网络中其他计算机提供。（）13．目前在Internet上的主机已经普遍使用了IPv6格式的IP地址。（）14．计算机网络的拓朴结构包括网络的物理拓朴结构和逻辑拓朴结构。（）三、填空题（本大题共13小题，每小题2分，共26分。请将答案填写在答题纸上）1．微型计算机能识别并能直接执行的语言是语言。2．微型计算机硬件系统中最核心的部件是。3．在微机中，信息的最小单位是。4．在WindowsXP中，若要将一个文件设置为“只读”，则可以选中该文件，单击鼠标右键，然后在弹出菜单中选菜单项。5．在Word2003中，若要设定打印纸张大小，应使用菜单中的“页面设置”命令。6．在Excel2003中，单元格D2：D31存放的内容为全班30名同学的数学成绩，若要在单元格D32中统计不及格同学的人数，则在D32中输入=。7．在VisualBasic中，对于数组A(2To3,4To6)，它的第二维的下界为___________。8.VisualBasic的表达式(10>8)And(-3<3)And(10<8)Or(5>14)的结果是_________________。9．在VisualFoxPro中，运行表单“login”的命令为。10．在VisualFoxPro中，用命令DIMENSIONX(2,5)定义了一个数组X，则该数组中数组元素个数是。11．计算机接入Internet时，可以通过公共电话网进行连接。以这种方式连接并在连接时分配到一个临时的IP地址，此时通常使用的连接协议是。12．一个家庭有三台计算机，连接到一个微型路由器上共用一条线路连入Internet。已知路由器的内网IP地址为，子网掩码为，则三台计算机的网络地址应设置为。13．在OSI/RM模型的不同层次使用不同格式的地址，这些分层存在的地址按一定的协议建立起对应关系。在网络层使用的地址称为地址。四、根据已知的环境与题意，写出相应的VisualFoxPro操作命令或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。（用VisualFoxPro命令）2.以“职工号”为关键字建立降序的唯一索引，索引名为ZHG，索引文件名ZHGGL.CDX。（用VisualFoxPro命令）3．将“gzb.dbf”表中“基本工资”字段的宽度改为8。（用SQL语句）4．删除“gzb.dbf”表中年龄大于60、性别为“男”的记录。（用SQL语句）5．查询统计“gzb.dbf”表中每个部门（职工号的前3位）职工基本工资的平均值。（用SQL语句）五、程序分析（本大题共2小题，每小题5分，共10分，读程序并分析结果，请填写在答题纸上）1．阅读下面的VisualBasic程序，程序运行后sum的值是PrivateSubCommand1_Click()Dima(10)AsIntegerDimiAsIntegerDimjAsIntegerDimnumAsIntegerDimsumAsIntegersum=0:a(0)=1Fori=0To10Forj=1To9num=1+Int(91*Rnd)Ifnum=a(i)Thena(j)=num:sum=sum+a(j)Elsej=j-1NextjIfj=10ThenExitForNextiPrintsumEndSub2．有VisualForPro程序chengxu.prg如下CLEARS=0N=0INPUT"请输入X="TOXINPUT"请输入Y="TOYFORI=3TO30STEP2IFPANDUAN(I)=1FORJ=2TOI-1IFI%J=0EXITENDIFENDFORIFJ<IN=N+1IFN%2=0S=S+I*XELSES=S-I*YENDIFENDIFENDIFENDFOR?SPROCEDUREPANDUANPARAMETERSXIF(X%3=0ORX%5=0)AND(NOT(X%3=0ANDX%5=0))FH=1ELSEFH=0ENDIFRETURNFHENDPROC该程序的功能是计算S=（写出包含X和Y的表达式）六、写出下列程序的运行结果（本大题共5小题，每小题5分，共25分，请填写在答题纸上）1．分析下面VisualBasic程序段。窗体中有一命令按钮（名称为C6_1）。PrivateSubC6_1_Click()DimiAsIntegerDimwAsIntegerw=1a=Array(1,2,3)b=Array(0,w,4)Fori=0To2w=w+wz(a(i),w,b(i))NextiPrintwEndSubPrivateFunctionwz(ByValxAsInteger,yAsInteger,ByValzAsInteger)DimtAsIntegert=x:x=y:y=tz=z+1wz=zEndFunction窗体启动后单击命令按钮，输出w的值为________。2．分析下面VisualBasic程序段。Open"c6_2.txt"ForOutputAs#1Print#1,"k01234"Print#1,"t12345"Print#1,"p23456"Print#1,"m34567"Close#1Open"c6_2.txt"ForInputAs#1LineInput#1,stSeek#1,2LineInput#1,stPrintstClose#1程序执行后，输出语句Printst执行结果是__________________。3．有VisualForPro程序如下:CLEARINPUT"请输入数据SHU="TOSHUFORI=3TOSHU/2IFCHULI(I)=1J=SHU-IIFCHULI(J)=1?TRIM(STR(I))+"和"+TRIM(STR(J))ENDIFENDIFENDFORPROCEDURECHULIPARAMETERSXM=1IFX>3FORIX=2TOSQRT(X)IFX%IX=0M=0EXITENDIFENDFORENDIFRETURNMENDPROC运行上面的程序，输入16，显示的结果为第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记录号课程编号课程名称学时学分10001数据结构643.520002操作系统543.030003软件工程462.5学生档案.DBF记录号学号姓名班级院系1100101龙继坤机电1班机电系2100102王玉玉机电1班机电系3100204李玉红机电2班机电系4200101杨彬彬工商管理1班工商管理系5200102梁洪波工商管理1班工商管理系6200301李继华工商管理3班工商管理系学生成绩.DBF记录号学号课程成绩1100101000179.02100101000289.03100101000380.04100102000145.05100102000298.06200101000199.07200102000265.08200102000388.04.有如下VisualFoxPro程序：（代码中行末的分号为逻辑行连接符）CLEAROPENDATABASE学生管理SELECT*FROM学生成绩WHERE学号IN(SELECT学号FROM;学生档案)INTODBFKECHENGUSEADDTABLEKECHENGSELECT学号,课程,MAX(成绩)ASCHENGJIFROMKECHENGGROUPBY;课程ORDERBYCHENGJIASCINTODBFHZSELECTHZ.学号,HZ.课程,HZ.CHENGJI,学生档案.姓名ASXINGMING;FROM学生档案,HZWHERE学生档案.学号=HZ.学号ORDERBY;HZ.CHENGJIINTODBFJGUSEJGGOTOPKECHH=课程XMING=XINGMINGCLOSEDATABASEUSE课程设置GOTOPDOWHILENOTEOF()IFTRIM(课程编号)==TRIM(KECHH)?XMING,课程名称,学分EXITENDIFSKIPENDDO运行上面的程序，显示的结果是：5.有如下VisualFoxPro程序：（代码中行末的分号为逻辑行连接符）CLEAROPENDATABASE学生管理CREATETABLETJS(X1C(20),X2N(5,1))SELECTDISTINCT院系ASY1,SUBSTR(学号,1,2)ASY2FROM;学生档案ORDERBYY2INTODBFJTSUSESELECT1USEJTSGOTOPSELECT2USE学生成绩GOTOPSELECT1DOWHILENOTEOF()ZHI=0SHU=0SELECT2GOTOPDOWHILENOTEOF()IFSUBSTR(学号,1,2)==JTS.Y2ZHI=ZHI+成绩SHU=SHU+1ENDIFSKIPENDDOIFSHU!=0INSERTINTOTJSVALUES(JTS.Y1,ZHI/SHU)ENDIFSELECT1SKIPENDDOCLOSEDATABASEUSETJSDOWHILENOTEOF()?X1,X2SKIPENDDO运行上面的程序，显示的结果是：七、VisualBasic程序改错(本大题共有两个小题，每题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)DimiAsIntegerDimposAsIntegerDimflagAsIntegerDimjAsIntegerflag=0pos=InputBox("请输入查询人的年龄")j=pos-Int(pos/10)*10Fori=0To5Step1Ifpos=a(j)Thenflag=1NextiIfflag=0ThenEndPrinta(pos)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时计时器停止工作。程序中的两处错误分布在每个事件中。（请结合程序认真看窗体运行界面，不能改变程序行数，不能增加函数）PrivateSubCommand1_Click()HS1.Min=0HS1.Max=10HS1.Value=1Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()Text1.Text=Right(Text1.Text,9)List1.AddItemText1.TextHS1.Value=HS1.Value-1IfHS1.Value=0ThenTimer1.Enabled=FalseEndSub八、程序填空（本大题共7个空，每空5分，共35分，按程序要求在答题卡上填入相应的内容，使程序完整正确）1．(VisualBasic试题)下面程序的功能是从键盘输入长度小于20个字符的字符串，以“#”结束，然后对字符串从左端进行处理。处理方法：把字符串中数字内容放入数组a的元素中，存放时要求每个元素放一个两位数字，最后如果剩一个一位数字则单独存放。如输入的字符串为“12abc3d456e7f#”,则12、34、56、7分别存放到数组a的前四个元素中。请填空。PrivateSubCommand1_Click()Dima(10)AsIntegerDimcAsStringDimw1AsString‘从字符串中取的一个字符Dimw2AsString‘用来存放存入数组中的数据DimflagAsInteger‘表示每次已经获取了几位数字DimiAsIntegeri=0:w2=0c=InputBox("请输入字符串，以#结束：")w1=Left(c,1)DoWhilew1<>"#"Ifw1>="0"Andw1<="9"Thenflag=flag+1w2=(1)+Val(w1)EndIfc=Mid(c,2)w1=Left(c,1)Ifflag=2Thena(i)=w2:flag=0:i=i+1:w2=0LoopIfflag>0Then(2):i=i+1Forflag=0Toi-1Printa(flag);NextflagEndSub2．(VisualBasic试题)窗体中有一列表框(名称List1)，一文本框(名称Text1)，一命令按钮(名称Command1)。窗体启动时的Load事件代码已给出。当每次单击开始命令按钮时将把列表框中选择的条目内容添加到数组，并把列表框中选择的条目删除，然后把数组中的元素值添加到文本框中（如图,图中上方控件为列表框，下方控件为文本框）。请在空白位置写出正确的内容。PrivateSubForm_Load()List1.AddItem"10"List1.AddItem"20"List1.AddItem"15"List1.AddItem"20"List1.AddItem"89"List1.AddItem"93"EndSubPrivateSubCommand1_Click()Statica(6)AsIntegerDimiAsIntegerStaticjAsIntegerFori=(3)To0Step-1IfList1.Selected(i)Thena(j)=Val(List1.List(i))j=j+1List1.RemoveItemiExitForEndIfNextiText1.Text=""Fori=0To(4)