河北省对口升学计算机专业试题

1、装 订 线 内 不 要 答 题2014年河北省普通高等学校对口招生考试计算机专业理论试题（A）注意事项：1本试卷共八道大题。总分240分。2第I卷“一、选择题”、第II卷“二、判断题”的答案填涂在机读卡上，其余各题答案写在答题纸上，答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。3答题前将密封线内项目填写清楚。第卷（选择题 共100分）一、选择题（本大题共50小题，每小题2分，共100分。在每小题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上 1下列设备中，全部属于输出设备的一组是.（ ） A扫描仪、键盘、显示器 B激光打印机、键盘、鼠标 C麦克风、绘图仪、显示器 D喷墨

2、打印机、绘图仪、音箱2计算机软件一般分为系统软件和应用软件两大类，下列选项中不属于系统软件的是.（ ） A操作系统 B数据库管理系统 C用汇编语言编写的程序 D语言处理程序3与十六进制数37.A等值的二进制数是.（ ）A.110101.011 B.110100.111 C4下列关于病毒的叙述中哪一条是正确的.（ ） A杀毒软件通常是滞后于计算机新病毒的出现 B杀毒软件可以查、杀所有种类的病毒 C计算机病毒只感染可执行文件 D将防火墙打开，再定期用杀毒软件杀毒，就不会感染病毒了5用计算机进行图书馆的资料检索工作，这主要涉及计算机应用中的（ ） A科学计算B数据处理 C过程控制 D辅助设计62.4

3、MB的磁盘空间大约可以存放的汉字数目是.（ ） A240万 B30万 C60万 D120万7某微机主要技术参数为“P4/1.7G/128M/60G/”，其中1.7G的含义为（ ） ACPU 的运算速度为1.7GMIPS BCPU 的时钟主频为1.7GHz CCPU 的内存为1.7GDCPU 与内存间的数据交换速率是1.7GB/S8在Windows XP中，按住Ctrl键的同时，用鼠标左键将选定的文件拖放到另一个文件夹，系统进行的操作是.（ ）A无论源文件夹和目的文件夹是否在同一磁盘内，均实现复制B无论源文件夹和目的文件夹是否在同一磁盘内，均实现移动C若源文件夹和目的文件夹在同一磁盘内，将实现移

4、动D若源文件夹和目的文件夹不在同一磁盘内，将实现移动9在Windows XP中，同一磁盘上.（ ）A允许同一文件夹中的文件同名，也允许不同文件夹中的文件同名B不允许同一文件夹中的文件同名，也不允许不同文件夹中的文件同名C允许同一文件夹中的文件同名，不允许不同文件夹中的文件同名D不允许同一文件夹中的文件同名，允许不同文件夹中的文件同名10在 Windows XP 中，卸载应用程序的正确方法是进入.（ ）A我的电脑 B资源管理器 C控制面板 D注册表11对于Windows XP的回收站，下列叙述正确的是.（ ）A“回收站”中可以存放所有外存储器中被删除的文件或文件夹 B“回收站”是硬盘中的一块区域

5、C“回收站”的大小是固定的，不能调整D在“回收站”图标上点右键可以还原所有文件12在Word2003的编辑状态，有关查找操作的叙述中，正确的是. （ ）A查找时，可以无格式进行、也可以带格式进行、还可以查找一些特殊的非打印字符 B查找时，只能带格式进行 C查找时，只能在整个文档范围内进行 D查找时，可以无格式进行、也可以带格式进行，但不能查找一些特殊的非打印字符13在Word2003中，若插入的表格中，内外框线都是实的，想要将其改变为虚线，应选择的命令是.（ ）A“表格”菜单中的“显示虚框” B“表格”菜单中的“绘制表格” C“表格”菜单中的“表格自动套用格式” D“表格”菜单中的“表格属性”

6、 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分类汇总可以被删除，删除汇总后排

7、序操作可以撤消 C分类汇总前必须按关键字段排序 D汇总方式只能是求和17在Excel2003中，要查看“某商场4月份销售的创维或康佳彩电、价格在4000至6000（含边界），且销量在50台以上的记录”，若使用高级筛选，其条件区域表示正确的是（ ）A 品牌品牌价格价格销量创维康佳>=4000<=6000>50B品牌价格价格销量创维>=4000<=6000>50康佳>=4000<=6000>50C 品牌价格价格销量创维>=4000>50创维<=6000>50康佳>=4000<=6000>50 D品牌价格

8、数量创维>=4000>50创维<=6000>50康佳>=4000>50康佳<=6000>5018在Visual Basic中，Print Int(Rnd)+Int(3+Rnd)的结果是.（ ）A无法确定 B. 2 C. 3 D. 419在Visual Basic中，当窗体启动时能够被触发的事件是.（ ） AUnLoad B.Click C.DblClick D.Load 20Visual Basic中，窗体的标题用以下哪个属性表示.（ ）AValue BCaption C. Text D. Topic21Visual Basic中,表达式 3 M

9、od 2 * 4的值是（ ）A. 1 B. 2 C. 3 D422关于Visual Basic中列表框属性的说法不正确的选项是.（ ）A列表框既有添加列表项的方法，也有删除列表项的方法B列表框中列表项个数无法统计C向列表框中添加项目时可以插入在列表项之间D列表框中的每个列表项都有一个索引位置23执行下面Visual Basic程序，数组a中元素值是w的数据经过一系列位置变化后，其最终位置的下标是哪个选项.（ ）Option Base 0Private Sub Command1_Click()Dim w As Integerw = 20a = Array(10, 15, 6, 8, 93, 84

10、, w)Dim i As IntegerDim j As IntegerDim t As IntegerFor i = 0 To 5For j = i + 1 To 6 If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next jNext iEnd SubA. 2 B. 4 C. 6 D. 824在Visual Basic中，语句Print InStr(2, "abcdeabfg", "ab")的输出结果是( ) A. 0 B. 1 C5 D. 625下面关于Visual Bas

11、ic中工程的说法正确的是.（ ）A. 每个工程中只能包含一类文件B. 工程中的启动窗体是不能改的C. 工程中的窗体当创建以后是不能被删除掉的D. 工程也是有属性的26Visual Basic中，关于属性、事件、方法、对象说法正确的是.（ ）A. 可以通过改变对象的属性值来改变对象的特性B. 事件必须在鼠标单击或双击对象后触发C. Visual Basic中，所有对象都设置了相同的方法D. 窗体不是对象，按钮是对象27执行下面Visual Basic程序，最后输出s的值是.（ ）Dim a As IntegerDim s As Integera = 1s = 0For i = 1 To 3 a

12、= i For j = 1 To a s = s + a Next j i = jNext iPrint sA. 6 B. 8 C. 10 D. 1228在Visual FoxPro中，创建报表的命令是.（ ）A. MODIFY REPORTB. CREATE REPORTC. SET REPORT D. PREVIEW REPORT29在Visual FoxPro中，菜单文件的扩展名为.（ ）A. .mnx B. .mpr C. .pqr D. .scr30在Visual FoxPro中,假设表单上有一个命令按钮，如果单击命令按钮可以实现关闭表单的功能，则应在该按钮的Click事件过程中写入

13、语句（ ）A. ThisForm.Close                  B. ThisForm.Erase C. ThisForm.Release                DThisForm.Return31在Visual FoxPro中，如果表中的某个字段存放的是图片，需要将该字段设置为下面哪种类型.（ ）A. 备注型 B. 通用型 C. 字符型 D. 双精度型32. 在Visual FoxPro中，

14、执行以下命令后显示的结果是.（ ）N='210.28'?90+&N A90+&N B90210.28 C300.28 D出错信息33. 在Visual FoxPro中，? TYPE("10/01/88")的输出结果为.（ ）A. N B. C C. D D. U34在Visual FoxPro中，下列关于视图的叙述中错误的是.（ ）A. 通过视图可以对表进行查询 B. 通过视图可以对表进行更新C. 视图是一个独立的数据文件，不属于任何的数据库D视图分为本地视图和远程视图两种类型35在Visual FoxPro中，要为两个数据表建立一

15、对多的永久关系，要求主表的索引类型必须为.（ ）A主索引 B. 主索引或候选索引C. 主索引、候选索引或唯一索引 D. 可以不建立索引36在物理拓朴结构为总线结构的局域网中，联网的主机间进行通信通常采用的机制是 （ ）AATM BCDMA CFTTB+LAN DCSMA/CD37在下列关于网络数据交换的叙述中不正确的是（ ）A线路数据交换面向连接B分组交换比报文交换具有更好的网络响应速度C分组交换有存储转发过程D报文交换无存储转发过程38计算机网络的拓扑结构主要取决于它的.（ ）A通信子网 B资源子网 C通信介质 D路由器连接方式39在使用TCP/IP协议的网络中，属于同一个子网络的主机的网络

16、地址. （ ）A不相同 B可以相同也可以不相同C一定相同 D相同与否视其它情况而定40在使用CSMA/CD协议的以太网络中，其通信工作方式为. （ ）A半双工 B单工 C全双工 D都可以41在OSI/RM网络参考模型中，数据链路层最主要的功能是. （ ）A进行报文传递的路由选择B按协议规则提供报文分组C可靠的在任意节点间传送报文D进行可靠的两相邻节点间的数据传输42在网络层传输的TCP数据包的段结构中，端口地址的长度为.（ ）A4个字节 B3个字节 C2个字节 D1个字节43在Internet网络中，用于服务器与客户机间进行网页信息传输控制的协议是.（ ） AHTTP BURL CSMTP D

17、HTML44有一种互连设备工作于网络层，它既可以用于相同（或相似）网络间的互连，也可以用于异构网络间的互连，这种设备是.（ ）A集线器 B路由器 C交换机 D网关45一个局域网中某台主机的IP地址为，使用22位作为网络地址，那么该局域网的子网掩码为.（ ）A BC D46在Internet域名体系中，域的下面可以划分子域，各级域名间用圆点分开，按照（ ）A从左到右越来越小的方式分4层排列B从右到左越来越小的方式分多层排列C从左到右越来越小的方式分多层排列D从右到左越来越小的方式分4层排列47线路交换是实现数据交换的一种技术，其特点是.（ ）A信息延时短，且延时固定不变

18、B不同速率的用户之间可以直接进行数据交换C数据信号在线路上进行传输时无衰损D可以把一个报文同时发送到多个目标节点中48在OSI/RM网络参考模型中，网络接口卡（NIC）所属的层次为.（ ）A物理层 B数据链路层 C网络层 D运输层49在数字通信中广泛采用CRC循环冗余码进行差错校验，这是因为CRC可以（ ）A检测出一位差错B检测出多位突发性差错C检测并纠正一位差错D检测并纠正多位突发性差错50. 网络中的计算机可以分为服务器和客户机，其中的网络服务器是指.（ ）A具有通信功能的高档计算机B64位总线结构的高档计算机C带有容量大、传输速度快的硬盘的计算机D为网络提供共享资源，并对这些资源进行管理

19、的计算机第卷（非选择题 共140分）二、判断题（本大题14小题，每小题1分，共14分。将答案填涂在机读卡上，正确的填涂“”格，错误的填涂“×”格）1世界上第一台电子计算机采用的电子器件是电子管。 （ ） 2在计算机系统中，不能直接和CPU交换数据的存储器是ROM。 （ ） 3在Windows XP中，删除某个应用程序的桌面快捷图标意味着，该应用程序连同快捷图标一起被删除。 （ ） 4在Windows XP中，剪贴板是程序和文件间用来传递信息的临时存储区，此存储区是内存的一部分。 （ ）5在Word 2003中，为了突出显示文档的某些内容，可以为该部分内容加底纹，也可以为图形加底纹。

20、（ ）6在Word2003中，文本可以转换成表格，但表格不可以转换成文本。 （ ）7在Excel2003中，执行“格式”菜单中的“排序”命令，可以实现对工作表数据的排序功能。 （ ）8在 Excel2003 中，当数据源发生变化时，相应的图表将自动跟随变化。（ ） 9在Visual Basic中，控件的属性在任何状态下都可以修改。 （ ）10在Visual FoxPro中，选择当前未使用的最小编号工作区的命令是SELECT 0。 （ ）11在TCP/IP协议组中，DNS（域名服务系统）的组织结构是层次模型。（ ）12只有服务器上的软件系统和软件应用可以作为共享资源，由服务器向网络中其他计算机提

21、供。 （ ）13目前在Internet上的主机已经普遍使用了IPv6格式的IP地址。 （ ）14计算机网络的拓朴结构包括网络的物理拓朴结构和逻辑拓朴结构。 （ ）三、填空题（本大题共13小题，每小题2分，共26分。请将答案填写在答题纸上）1微型计算机能识别并能直接执行的语言是 语言。2微型计算机硬件系统中最核心的部件是 。3在微机中，信息的最小单位是 。4在Windows XP中，若要将一个文件设置为“只读”，则可以选中该文件，单击鼠标右键，然后在弹出菜单中选 菜单项。5在Word2003中，若要设定打印纸张大小，应使用 菜单中的“页面设置”命令。6在Excel2003中，单元格D2：D31存

22、放的内容为全班30名同学的数学成绩，若要在单元格D32中统计不及格同学的人数，则在D32中输入= 。7在Visual Basic中，对于数组 A(2 To 3, 4 To 6)，它的第二维的下界为_。8. Visual Basic的表达式(10 > 8) And (-3 < 3) And (10 < 8) Or (5 > 14)的结果是_。9在Visual FoxPro中，运行表单“login”的命令为 。10在Visual FoxPro中，用命令DIMENSION X(2,5)定义了一个数组X，则该数组中数组元素个数是 。11计算机接入Internet时，可以通过公共

23、电话网进行连接。以这种方式连接并在连接时分配到一个临时的IP地址，此时通常使用的连接协议是 。12一个家庭有三台计算机，连接到一个微型路由器上共用一条线路连入Internet。已知路由器的内网IP地址为，子网掩码为55.0，则三台计算机的网络地址应设置为 。13在OSI/RM模型的不同层次使用不同格式的地址，这些分层存在的地址按一定的协议建立起对应关系。在网络层使用的地址称为 地址。四、根据已知的环境与题意，写出相应的Visual FoxPro操作命令或SQL语句，要求每小题用一条命令或语句完成（本大题共5小题，每小题4分，共20分，请填写在答题纸上）。现有数据库“GZGL.DBC”，其中包含

24、表“gzb.dbf”，该表有以下字段：职工号(C,6)、姓名(C,20)、性别(C,2)、年龄(N,3)、基本工资(N,7,2)、奖金(N,7,2)，在相应数据库和表已打开的前提下，写出完成下述功能的命令(注意：只能写一条语句，多于一条不得分)。1将所有年龄大于50的职工基本工资增加200。（用Visual FoxPro命令） 2. 以“职工号”为关键字建立降序的唯一索引，索引名为ZHG，索引文件名ZHGGL.CDX。（用Visual FoxPro命令） 3将“gzb.dbf”表中“基本工资”字段的宽度改为8。（用SQL语句） 4删除“gzb.dbf”表中年龄大于60、性别为“男”的记录。（用

25、SQL语句） 5查询统计“gzb.dbf”表中每个部门（职工号的前3位）职工基本工资的平均值。（用SQL语句） 五、程序分析（本大题共2小题，每小题5分，共10分，读程序并分析结果，请填写在答题纸上）1阅读下面的Visual Basic程序，程序运行后sum的值是 Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerDim j As IntegerDim num As IntegerDim sum As Integersum = 0: a(0) = 1For i = 0 To 10 For j = 1 To 9 num

26、 = 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 ForNext iPrint sumEnd Sub2有Visual ForPro程序chengxu.prg如下CLEARS=0N=0INPUT "请输入X=" TO XINPUT "请输入Y=" TO YFOR I=3 TO 30 STEP 2 IF PANDUAN(I)=1 FOR J=2 TO I-1 IF I%J=0 EXIT E

27、NDIF ENDFOR IF J<I N=N+1 IF N%2=0 S=S+I*X ELSE S=S-I*Y ENDIF ENDIF ENDIFENDFOR ?SPROCEDURE PANDUANPARAMETERS XIF (X%3=0 OR X%5=0) AND (NOT (X%3=0 AND X%5=0) FH=1ELSE FH=0ENDIFRETURN FHENDPROC该程序的功能是计算S=（写出包含X和Y的表达式）六、写出下列程序的运行结果（本大题共5小题，每小题5分，共25分，请填写在答题纸上）1分析下面Visual Basic程序段。窗体中有一命令按钮（名称为C6_1）。

28、Private Sub C6_1_Click()Dim i As IntegerDim w As Integerw = 1a = Array(1, 2, 3)b = Array(0, w, 4)For i = 0 To 2w = w + wz(a(i), w, b(i)Next iPrint wEnd SubPrivate Function wz(ByVal x As Integer, y As Integer, ByVal z As Integer)Dim t As Integert = x: x = y: y = tz = z + 1wz = zEnd Function窗体启动后单击命令按

29、钮，输出w的值为_。2分析下面Visual Basic程序段。Open "c6_2.txt" For Output As #1Print #1, "k01234"Print #1, "t12345"Print #1, "p23456"Print #1, "m34567"Close #1Open "c6_2.txt" For Input As #1Line Input #1, stSeek #1, 2Line Input #1, stPrint stClose #1程序执行后，

30、输出语句Print st执行结果是_。3有Visual ForPro程序如下:CLEARINPUT "请输入数据SHU=" TO SHUFOR I=3 TO SHU/2 IF CHULI(I)=1 J=SHU-I IF CHULI(J)=1 ?TRIM(STR(I)+"和"+TRIM(STR(J) ENDIF ENDIFENDFORPROCEDURE CHULI PARAMETERS X M=1 IF X>3 FOR IX=2 TO SQRT(X) IF X%IX=0 M=0 EXIT ENDIF ENDFOR ENDIF RETURN MENDP

31、ROC 运行上面的程序，输入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记录号 课程编号课程名称 学时 学分1 0001 数据结构 64 3.52 0002 操作系统 54 3.03 00

32、03 软件工程 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.02 100101 0002 89.03 100101 0003 80.04 100102 0001 45.05 100102 0002 98.06 200101 0001 9

33、9.07 200102 0002 65.08 200102 0003 88.04. 有如下Visual FoxPro程序：（代码中行末的分号为逻辑行连接符）CLEAROPEN DATABASE 学生管理SELECT * FROM 学生成绩 WHERE 学号 IN(SELECT 学号 FROM;学生档案) INTO DBF KECHENGUSEADD TABLE KECHENGSELECT 学号,课程,MAX(成绩) AS CHENGJI FROM KECHENG GROUP BY;课程 ORDER BY CHENGJI ASC INTO DBF HZSELECT HZ.学号,HZ.课程,HZ.

34、CHENGJI,学生档案.姓名 AS XINGMING;FROM 学生档案,HZ WHERE 学生档案.学号=HZ.学号 ORDER BY;HZ.CHENGJI INTO DBF JGUSE JGGO TOPKECHH=课程XMING=XINGMINGCLOSE DATABASEUSE课程设置GO TOPDO WHILE NOT EOF() IF TRIM(课程编号)=TRIM(KECHH) ?XMING,课程名称,学分 EXIT ENDIF SKIPENDDO运行上面的程序，显示的结果是： 5. 有如下Visual FoxPro程序：（代码中行末的分号为逻辑行连接符）CLEAROPEN DA

35、TABASE 学生管理CREATE TABLE TJS(X1 C(20),X2 N(5,1)SELECT DISTINCT 院系 AS Y1,SUBSTR(学号,1,2) AS Y2 FROM;学生档案 ORDER BY Y2 INTO DBF JTSUSESELECT 1USE JTSGO TOPSELECT 2USE学生成绩GO TOPSELECT 1DO 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 SKI

36、P ENDDO IF SHU!=0 INSERT INTO TJS VALUES(JTS.Y1,ZHI/SHU) ENDIF SELECT 1 SKIPENDDOCLOSE DATABASEUSE TJSDO WHILE NOT EOF() ?X1,X2 SKIPENDDO 运行上面的程序，显示的结果是： 七、Visual Basic程序改错(本大题共有两个小题，每题5分，共10分，每个程序有两个错误行，请在答题纸上写出错误行代码和对应的正确代码，改对一处得一处分，改错不减分。注：要把整行写完整) 1有两个数组a = Array("zhao", "qian&quo

37、t;, "sun", "li", "zhou", "wu")b = Array(20, 31, 82, 73, 44, 25)数组a表示的是六个人的姓名，数组b表示的是与数组a中对应位置人的年龄，而且年龄中的个位数与他们在数组中的位置一致，年龄段在10到99之间。下面程序的功能是输入一个年龄，首先查找输入的年龄在数组b中是否存在；如果存在，则显示其姓名，如果不存在，则程序直接结束。程序如下：a = Array("zhao", "qian", "sun",

38、"li", "zhou", "wu")b = Array(20, 31, 82, 73, 44, 25)Dim i As IntegerDim pos As IntegerDim flag As IntegerDim j As Integerflag = 0pos = InputBox("请输入查询人的年龄")j = pos - Int(pos / 10) * 10For i = 0 To 5 Step 1If pos = a(j) Then flag = 1Next iIf flag = 0 Then EndPr

39、int a(pos) 2窗体中（运行状态如图所示）有一定时器控件（名称Timer1，初始状态Enabled为False），有三个标签用于显示控件名称，一滚动条（名称HS1,最大值10，最小值0），一列表框（名称List1，初始状态为空），一文本框（名称为Text1，初值为9876543210，）,一命令按钮（名称Command1，Caption属性值为启动）。启动按钮完成操作是：（1）计时器开始工作；（2）设置滚动条的value、max和min属性值。定时器工作时每隔一定时间触发一次事件，Timer事件中完成4项工作：（1）从文本框值右边位置取若干个字符放文本框中；（2）把文本框中的内容添加到

40、列表框中；（3)滚动条的值减1；（4）当滚动条的值为0时计时器停止工作。程序中的两处错误分布在每个事件中。（请结合程序认真看窗体运行界面，不能改变程序行数，不能增加函数）Private Sub Command1_Click()HS1.Min = 0HS1.Max = 10HS1.Value = 1Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Text1.Text = Right(Text1.Text, 9)List1.AddItem Text1.TextHS1.Value = HS1.Value - 1If HS1.Value =0

41、 Then Timer1.Enabled = FalseEnd Sub八、程序填空（本大题共7个空，每空5分，共35分，按程序要求在答题卡上填入相应的内容，使程序完整正确）1(Visual Basic试题)下面程序的功能是从键盘输入长度小于20个字符的字符串，以“#”结束，然后对字符串从左端进行处理。处理方法：把字符串中数字内容放入数组a的元素中，存放时要求每个元素放一个两位数字，最后如果剩一个一位数字则单独存放。如输入的字符串为“12abc3d456e7f#”,则12、34、56、7分别存放到数组a的前四个元素中。请填空。Private Sub Command1_Click()Dim a(1

42、0) As IntegerDim c As StringDim w1 As String 从字符串中取的一个字符Dim w2 As String 用来存放存入数组中的数据Dim flag As Integer 表示每次已经获取了几位数字Dim i As Integeri = 0: w2 = 0c = InputBox("请输入字符串，以#结束：")w1 = Left(c, 1)Do While w1 <> "#" If w1 >= "0" And w1 <= "9" Then flag =

43、flag + 1 w2 = (1) + 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 = 0LoopIf flag > 0 Then (2) :i=i+1For flag = 0 To i-1Print a(flag);Next flagEnd Sub2(Visual Basic试题)窗体中有一列表框(名称List1)，一文本框(名称Text1)，一命令按钮(名称Command1)。窗体启动时的Load事件代码已给出。当每次单击开始命令按钮时

44、将把列表框中选择的条目内容添加到数组，并把列表框中选择的条目删除，然后把数组中的元素值添加到文本框中（如图,图中上方控件为列表框，下方控件为文本框）。请在空白位置写出正确的内容。Private Sub Form_Load()List1.AddItem "10"List1.AddItem "20"List1.AddItem "15"List1.AddItem "20"List1.AddItem "89"List1.AddItem "93"End SubPrivate Sub C

45、ommand1_Click()Static a(6) As IntegerDim i As IntegerStatic j As IntegerFor i =(3) To 0 Step -1If List1.Selected(i) Thena(j) = Val(List1.List(i)j = j + 1List1.RemoveItem iExit ForEnd IfNext iText1.Text = ""For i = 0 To (4) Text1.Text = Text1.Text & a(i) & " "Next iEnd Sub3(Visual FoxPro试题)已知有“XXGL.DBC”数据库