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

1、2015年河北省普通高等学校对口招生考试计算机专业理论试题（A）注意事项：1本试卷共八道大题。总分240分。2第I卷“一、选择题”、第II卷“二、判断题”的答案填涂在机读卡上，其余各题答案写在答题纸上，答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。3答题前将密封线内项目填写清楚。第卷（选择题共100分）一、选择题（本大题共50小题，每小题2分，共100分。在每小题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上）1下列关于计算机的描述中，正确的是.（ ）A计算机能够进行自动处理的基础是能进行逻辑判断B计算机具有高效的运算能力的基础是高效的编程语言C计算机具有很高的计算精度

2、的根本原因是采用位数较多的字长D计算机的逻辑判断能力取决于操作系统2. 可以将图片、照片以及文稿资料等书面材料输入到计算机中，并形成文件保存起来的输入设备是.（ ） A扫描仪 B打印机C绘图仪 D光盘、U盘3计算机系统分为硬件系统和软件系统，下列叙述不正确的是.（ ）A硬件系统主要是接受计算机程序，并在程序控制下完成数据输入和数据输出任务B软件系统建立在硬件系统的基础上，它使硬件功能得以充分发挥C没有安装软件系统的计算机不能做任何工作，没有实际的使用价值D计算机只需安装系统软件，即可进行所有类型的文字处理或数据处理工作4.算式37+6=45正确，则该算式采用的进制是.( ） A十进制B八进制C

3、二进制D十六进制5下列关于预防计算机病毒的选项中，错误的是.（ ）A经常更新病毒库B经常备份重要资料 C在“我的电脑”中使用鼠标右键打开U盘，以避免使用自启动功能 D在收到的邮件中，只要附件不是可执行文件就可放心打开6. 存储器中存放的内容可以是数据也可以是指令，这主要是根据.（ ）A最高位是0还是1来判别B存储单元的地址来判别CCPU 执行程序的过程来判别DASCII 码表来判别7. 内存空间按字节编址，则地址区间从5001H至6000H可以存放的字节数为 （ ）A.1KB B.4KB C.1MB D.4MB8. 一台计算机的字长是8个字节，这表示.（ ）A能处理的最大数据为8位十进制数B在

4、CPU中运算的结果最大为2的64次方C在CPU中能同时处理64位二进制数D能处理最多由8个英文字母组成的字符串9在WindowsXP中，同一磁盘下关于文件的操作，以下说法正确的是.（ ）A按住Ctrl键的同时，用鼠标左键拖动文件实现的是创建快捷方式B按住Alt键的同时，用鼠标左键拖动文件实现的是复制文件C按住Shift键的同时，用鼠标左键拖动文件实现的是复制文件D将文件放到回收站中，该文件的快捷方式不可使用10在WindowsXP中，默认情况下不能找到“控制面板”的是.（ ）A“我的电脑”窗口B在桌面空白区域，点击鼠标右键，打开“属性”选项C“开始”菜单中的“设置”D“资源管理器”窗口11.

5、在Windows XP中，下列关于快捷方式的说法中正确的是 .（ ）A. 快捷方式是指向一个程序或文档的指针    B单击快捷方式，可运行指向的对象C快捷方式只是“开始”菜单中的选项    D应用程序的内容被完全包含在其快捷方式中 12在Word2003中，将重复多次的“对口升学”一词快速的变成红色，以下叙述中正确的是. （ ）A按住Ctrl键，将所有的“对口升学”选定，然后更改字体为红色B先选定突出显示的颜色为红色，然后通过查找与替换进行C先选定字体颜色为红色，然后通过查找与替换进行D先打开查

6、找与替换，然后设置格式中的突出显示为红色13在Word2003中，建立50行20列的规范表格最好采用的方式为.（ ）  A. 用“表格”菜单中的“绘制表格”      B.用“表格”菜单中的“插入表格”C.用“表格”菜单中的“表格自动套用格式”D.用“格式”菜单中的“制表位”14在Word2003中，关于插入到Word文档中的图形文件，以下描述正确的是（ ）A.只能是在“照片编辑器”中形成的      B只能是在“Word”中形成的   

7、;  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单元格，点击编辑菜单，点击填充，

8、选中向下填充16. 在Excel2003中，在进行分类汇总之前,必须进行的操作是.（ ）A按分类列对数据清单进行排序,并且数据清单的第一行里必须有列标题B按分类列对数据清单进行排序,并且数据清单的第一行里不能有列标题C对数据清单进行筛选,并且数据清单的第一行里必须有列标题D对数据清单进行筛选,并且数据清单的第一行里不能有列标题17在Excel2003中，要查看“某公司的研发部门中，年龄在30-35岁之间（含边界），工资在8000元以上（不含边界）的人员情况”，若使用高级筛选，其条件区域表示正确的是 （ ）A 部门年龄年龄工资研发部>=30>8000研发部<=35>800

9、0B部门年龄工资研发部>=30>8000研发部<=35>8000C 部门年龄年龄工资研发部>=30<=35>8000D部门年龄工资研发部>=30>8000<=3518在Visual Basic中，Print Int(35*Rnd)+n产生的随机数的范围是10至44（含10及44），则n是.（ ）A10B. 20C. 30 D. 3519. 在Visual Basic中，下列可作为Visual Basic变量名的是.（ ）A.Filename B.ValC.X%D D.Print20. 在Visual Basic中，下列语句用来设置窗体

10、中文本框（名称Text1）的属性，其中在运行时不能正确操作的语句是.（ ）A.Text1.Text="Text Test"B.Text1.Name="Text Test"C.Text1.Enabled = FalseD.Text1.Visible = False21. 在Visual Basic中,下列运算符优先级最高的是.（ ）A. + B. * C. > DAnd22. 执行下面Visual Basic程序后，结果是哪个选项.（ ）For i = 1 To 6If i Mod 2 = 0 ThenPrint "#" Else

11、Print "*" End IfNext iA# B* C*#*#*# D#*#*#*23.下面的Visual Basic程序是对数组a中的元素按升序排列，程序中空白位置应该填下列选项中的哪一个.（ ）Option Base 1Dim i As IntegerDim j As Integera = 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

12、Next iFor i = 1 To 8Print a(i);Next iA. a(i)=a(j) B. a(i) = a(i) - a(j)C. a(j)=a(i)-a(j) D. Exit For24. 执行下面Visual Basic程序后，s=s+1语句被执行了多少次.（）Dim s As Integers = 0For i = 1 To 10 For j = 0 To i - 1s = s + 1 Next jNext iA. 0 B. 10 C55 D. 6625.执行下面Visual Basic程序，数组a中的数字50所在位置的下标是.（ ）Option Base 1Privat

13、e Sub Command1_Click()Dim i As IntegerDim k As IntegerDim t As IntegerDim w As IntegerDim m As Integera = Array(3, 56, 8, 10, 89, 94, 78, 82, 20, 50,100)m = UBound(a)k = m / 2For i = 1 To kw = a(i): a(i) = a(m - i + 1): a(m - i + 1) = wNext iEnd SubA. 1 B.2 C. 3 D. 526.在Visual Basic中，关于控件及窗体说法不正确的是.

14、（ ）A. 任何一个控件都有名称B. 任何一个控件都有属性C. 任何一个控件都有单击事件D. 控件是对象，窗体也是对象27. 执行下面Visual Basic程序，输入a的值为10，最后输出s的值是.（ ）Dim a As IntegerDim s As Integera = InputBox("a=")Select Case a Mod 2 Case 1: s = 1 Case 2: s = 10 Case 3: s = 11Case Else: s = 100End SelectPrint sA. 1 B. 2 C. 3 D. 10028. 在Visual FoxPro

15、中，查询结果保存到文本文件中，如果文件已经存在，则将结果追加到该文件的末尾的选项是. .（ ）A. ADD B. ADDITIVEC. APPEND D. INSERT29. 在Visual FoxPro中，报表的数据源不包括.（ ）A. 数据库表 B. 自由表 C.视图D. 表单30. 在Visual FoxPro中，使用SQL中的SELECT命令进行条件查询时，WHERE条件中可以使用LIKE进行格式匹配，LIKE格式中的字符串可以使用通配符，下面的字符中用来代表多个字符的是（ ）A.& B. % C._ D.+ 31.在Visual FoxPro中，将两个数据库文件按某个条件筛选

16、部分（或全部）记录及部分（或全部）字段，组合成一个新的数据库文件的关系操作为.（）A. 投影 B. 连接 C. 筛选 D. 更新32. 在Visual FoxPro中，执行以下命令后显示的结果是.（ ）?"TE"$"TEST" AND INT(3.6)=3 AND "TEST"="TEST"A.T. B.F. C0 D133. 在Visual FoxPro中，不允许出现重复字段值的索引是.（ ）A.侯选索引和主索引 B.普通索引和主索引C.侯选索引和唯一索引 D.普通索引和侯选索引34. 在Visual FoxPr

17、o中，下面关于类、对象、属性和方法的叙述中，错误的是.（ ）A.类是具有相同特征的对象的集合，这些对象具有相同的属性和方法B.属性用于描述对象的特征，方法用于表示对象的行为C.基于同一个类产生的两个对象可以分别设置自己的属性值D.通过执行不同对象的同名方法，其结果必然是相同的35在Visual FoxPro中，以下表达式正确的是.（ ） A.2008-05-01 10:10:10 AM-10B.2008-05-01+DATE()C. AT("ABC","智能ABC") $ "微软拼音" D. "123"+SPACE

18、(3)+VAL("456")36设置局域网中计算机的网络属性时，“默认网关”应该设置为以下哪个选项的内网地址（ ）ADNS服务器 BWeb服务器C. 路由器 D交换机37. 如果交换机在工作过程中，发现从某端口收到的数据帧中所包含的目标MAC地址不在其MAC地址列表中，则（ ）A丢弃该数据包B经原端口退回该数据包C向所有端口转发该数据包D暂时中止该端口工作，3秒钟后该端口重新启用38. 在下列关于OSI网络参考模型和TCP/IP网络模型的说法中正确的是（ ）A这是两个完全独立的网络模型，彼此没有联系B这两个模型有一定的层次对应关系CTCP/IP模型完全包含了OSI模型D目前

19、各种网络硬件主要使用的是OSI参考模型，而TCP/IP只是一种理论模型，并没有实际应用。39某单位的三个部门在同一建筑物内，并且已经使用TCP/IP协议组建了各自的局域网，现在要将这三个部门网络通过主干网互连起来，则下列哪种网络技术是优先考虑使用的（ ）A帧中继B数字专线CFDDID千兆以太网40当前计算机上提供的网络接口普遍为（ ）ABNCBDIXCRJ45 DST41. 影响局域网络特性的主要技术要素有三点，下列哪一项不属于局域网特性的主要技术要素（ ）A.网络拓扑结构B.网络的介质访问控制方法C.网络的传输介质D.网络的布线方法42.网络提供的所有服务几乎都具有透明性。所谓“透明性”是指

20、（ ）A用户不能察觉到“透明”网络服务的存在B用户无法访问服务器上的“透明”服务C用户必须在掌握“透明”服务如何实现的技术细节后，才能使用该项服务D用户可以直接使用某项“透明”的网络服务，而不必知道该服务实现的技术细节43.计算机的IP地址由网络地址和网络内主机地址两部分组成。在同一个局域网内，不同的计算机（ ）A具有相同的网络地址和不同的网络内主机地址B具有不同的网络地址和相同的网络内主机地址C具有相同的网络地址和相同的网络内主机地址D具有不同的网络地址和不同的网络内主机地址44.在OSI网络参考模型的传输层，最重要的协议是（ ）ATCP和UDPBTCP和IPCHTTP和FTPDTELNET

21、和DNS45. 国内一所高校要在CERNET中建立WWW 网站，其域名的后缀应该是（ ）A. B. C. D. 46. 按物理拓扑结构对计算机网络进行分类，下列哪项是错的（ ）A环型网B总线网C星型网D广播网47.在介质访问控制方法中，CSMA/CD的特点主要有（ ）A监听总线和碰撞检测B标志帧传递和数据发送C令牌传送和空闲使用D监听总线状态和随机发送48. 在下列关于网络知识的叙述中正确的是（ ）A121.260.23.233是一个合法、有效的IP地址BOutlook Express是一个电子邮件收发软件C显示网页中的图片、动画等多媒体信息，不会影响网页的浏览速度D在Internet上专门供

22、用户进行数据存储的网站，被称为搜索引擎49.在计算机网络通信系统中，为了改善线路使用效率、提高传输带宽而广泛使用了多路复用技术。下列不属于多路复用技术的是（ ）AFDMBTDMCCRCDSTDM50.某网络用户使用Outlook管理自己的电子邮件，则在其发送电子邮件时使用的协议为（ ）APOP3BFTPCDHCPDSMTP第卷（非选择题 共140分）二、判断题（本大题14小题，每小题1分，共14分。将答案填涂在机读卡上，正确的填涂“”格，错误的填涂“×”格）1计算机的指令系统与硬件系统无关。 （ ）2在计算机系统中，任何外部设备都必须通过CPU才能和主机相连。（ ）3. 在Windo

23、ws XP中，利用搜索框可以搜索文件夹。（ ）4在WindowsXP中，桌面可分为“开始”菜单按钮、快速启动工具栏、窗口按钮栏和通知区域等几部分。（ ）5在Word2003中，插入图片后，若希望其成为水印，则应将该图片置于文字下层。（ ）6. 在Word2003中，使用“分栏”按钮只能将文档分为两栏。若分多栏，需要使用“分栏”对话框进行设置。 （ ）7在Excel2003中，数据清单的排序可以按笔画进行排序。（ ）8. 在 Excel2003 中，删除图表中的某个数据系列时，需要双击图表中该数据系列，之后按Delete键。（ ） 9在Visual Basic中，对顺序文件既有读的操作语句，也有

24、写的操作语句。（ ）10在Visual FoxPro中，设置菜单项访问键的方法是在指定菜单标题时在访问键前加“<”字符。（ ）11在组建局域网时，中心设备使用集线器或交换机，对网络性能没有影响。（ ）12. URL由传输协议、域名、文件路径和文件名四部分组成。 （ ）13在网关位置安装网络防火墙并进行合理设置后，可以杜绝网络病毒的传播和网络攻击行为的发生。 （ ）14. 一台计算机只安装了一块网卡，在安装TCP/IP协议并正确连接网线后，可以为该计算机设置多于一个的IP地址。 （ ）三、填空题（本大题共13小题，每小题2分，共26分。请将答案填写在答题纸上）1能把汇编语言源程序翻译成目标

25、程序的程序是程序。2微型计算机的内存容量主要是指的容量。31000个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

26、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.网络互连可以在不同的网络层次上实现；如果互连设备为集线器，则参与互连的网络是在层上实现了互连。

27、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)。在相应数据库和表已打开的前提下，写出完成下述功能的命令(注意：只

28、能写一条语句，多于一条不得分)。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”表中“总金额”字

29、段的值，总金额=数量*单价。（用SQL语句）5. 查询“order_list”表中“客户号”为100001、“总金额”小于等于10000的记录，按“总金额”降序输出，结果保存到“JG.dbf”表中。（用SQL语句）五、程序分析（本大题共2小题，每小题5分，共10分，读程序并分析结果，请填写在答题纸上）1阅读下面的Visual Basic程序，程序运行后s的值是Option Base 0Private Sub Command1_Click()Dim a(4) As IntegerDim i As IntegerDim j As IntegerDim w As IntegerDim s As In

30、tegerj = 0: s = 0For 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 ForNext iPrint sEnd Sub2有Visual ForPro程序chengxu.prg如下CLEARINPUT "请输入X=" TO XINPUT "请输入Y=" TO YDIMENSION KK(2,2)I=1DO WHILE I<=2 J=1 DO WHIL

31、E 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+1ENDDOS=0FOR 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 ENDFORENDFOR?SFUNCTION ZHIPARAMETERS TTSUM1=0FOR I=1 TO TT-1 IF TT%I=0 SUM1=SUM1+I ENDIFENDFORIF SUM1=TT RETURN 1E

32、LSE RETURN 0ENDIF该程序的功能是计算S=的值（写出包含X和Y的表达式）六、写出下列程序的运行结果（本大题共5小题，每小题5分，共25分，请填写在答题纸上）1分析下面Visual Basic程序段。窗体中有一命令按钮（名称为Command1）。Private Sub Command1_Click()Dim a(3) As IntegerDim i As Integer, w As Integerw = 0For i = 0 To 3a(i) = iNext iFor i = 0 To 3w = w + fu(a(i)Next iPrint wEnd SubPrivate Func

33、tion fu(k As Integer)k = k + 1fu=kEnd Function窗体启动后单击命令按钮，输出w的值为。2分析下面Visual Basic程序段。窗体中有一命令按钮（名称为Command1）Option Base 1Private Sub Command1_Click()a = Array(23, 24, 17, 8, 11, 15, 16, 13)Dim i As IntegerDim num As IntegerDim k As IntegerDim j As IntegerDim flag As Integernum = 0For i = 1 To 8 flag

34、 = 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 iPrint numEnd Sub窗体启动后单击命令按钮，输出语句Print num执行结果是_。3有Visual ForPro程序如下:CLEARI=2DO WHILE .T. COUNT=0 M=IFOR 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

35、 ?J EXIT ENDIF I=I+2ENDDO运行上面的程序，显示的结果为。第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肖海 数据结构 32 11020002 02 王岩盐 

36、; 数据结构 13 11020003 01  肖海  C 语言 34 11020004 03 张月新  操作系统 25 11020005 01 李明玉  数据结构 76 11020006 02 孙民山  操作系统 117 11020007 03 钱无名  数据库 58 11020008 02 呼延军  编译原理 69 11020009 03

37、0; 钱无名  操作系统 510 11020010 01 张国梁  C 语言 411 11020011 03 林新月  操作系统 812 11020012 01 乔小廷  C 语言 913 11020013 02 孙民山  数据库 1114 11020014 01 欧阳秀  编译原理 10X_XX.DBF记录号 系号 系名1 01 计算机2 02 信息管理3

38、 03  中文4. 有如下Visual FoxPro程序：（代码中行末的分号为逻辑行连接符）CLEARDIME GA(1,4)SELECT 系号,姓名 FROM T_XX WHERE 排名 IN (SELECT MAX(排名) FROM T_XX);INTO DBF PT_1USE PT_1SELECT COUNT(DISTINCT 姓名) AS PXM,姓名 FROM PT_1 INTO DBF PT_2USE PT_2MGS=PT_2.PXMMXM=PT_2.姓名IF MGS=1 SELECT T_XX.系号,T_XX.姓名,X_XX.系名,COUNT(DISTINCT T_XX

39、.主讲课程); 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 ?"数据错误" ENDIFENDIF运行上面的程序，显示的结果是：。5. 新建一个表单，表单的Name属性为Form1，程序运行时的界面如下图所示：设置控件属性如下：有三个标签，其Name属性分别为Label1、Label2和Label3，Caption属性分别为“系名：”、“结果：”、(空)；

40、有一个文本框，其Name属性为Text1；一个命令按钮，其Name属性为Command1，Caption属性为“查询”。有如下的事件代码：Form1的Activate事件：THISFORM.TEXT1.VALUE="计算机"Command1的Click事件：（代码中行末的分号为逻辑行连接符）STR=TRIM(THISFORM.TEXT1.VALUE)OPEN DATABASE XKSELECT 系号 AS XH, COUNT(DISTINCT 姓名) AS G_XM FROM T_XX GROUP BY;系号 INTO DBF TS_1SELECT COUNT(DISTIN

41、CT 姓名) AS S_XM FROM T_XX INTO DBF TS_2USE TS_2GO TOPS_XM=TS_2.S_XMSELECT XH,G_XM FROM TS_1 WHERE XH=(SELECT 系号 FROM X_XX WHERE;系名=STR) INTO DBF TS_3USE TS_3GO TOPDO WHILE NOT EOF() THISFORM.LABEL3.CAPTION=STR(TS_3.G_XM,3)+"/"+STR(S_XM,3) SKIPENDDO计算机CLOSE ALL运行上面的表单，在Label3中显示的是：。七、Visual

42、Basic程序改错(本大题共2小题，每题5分，共10分，每个程序有两个错误行，请在答题纸上写出错误行代码和对应的正确代码，改对一处得一处分，改错不减分。注：要把整行写完整)1有数组:s = Array("a42", "b3c56", "de7fg", "hi", "jk35kmn")统计数组s的各个元素中含有数字字符个数，把结果放到数组b相应元素中，如上述数组s，当程序运行后b中各元素的值分别为：2,3,1,0,2。程序中有两处错误，请按要求改正。程序如下：（两个数组的下标都是从1开始，程序中定

43、义的每个变量都用到,程序中只能用变量total统计数组中每个元素含数字字符个数）s = Array("a42", "b3c56", "de7fg", "hi", "jk35kmn")Dim b(5) As IntegerDim total As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 5b(i) = 0 For j = 1 To Len(s(i) If Mid(s(i), j, 1) >= "0" And

44、Mid(s(i), j, 1) <= "9" Then total = total + b(i)Next jb(i) = totalNext iFor i = 1 To 5Print b(i);Next i2 如图所示，窗体有两个框架，左边框架中有三个单选按钮（名称分别为Option1，Option2和Option3），单选按钮分别设置了标题为小学、初中、高中；右边的框架中是一个列表框（名称为List1）；两个框架中间是命令按钮（标题为存放结果，名称为Command1），命令按钮功能：单击命令按钮，清除列表框中的内容，然后将选中单选按钮的标题放入列表框中。程序中有两处

45、错误，分布在两行，请将完整的错误行和相应的正确行写在答题纸横线上。（不能改变程序行数，不能增加函数）Private Sub Command1_Click()Dim s As StringList1.Clears = ""Select Case 1Case Option1.Value s = s + Option1.CaptionCase Option2.Value s = s + Option2.Caption Case Option3.Value s = s + Option3.CaptionEnd SelectList1.Text = sEnd Sub八、程序填空（本大

46、题共7个空，每空5分，共35分，按程序要求在答题纸上填入相应的内容，使程序完整正确）1(Visual Basic试题)下面程序是从键盘输入少于20个字符的字符串，然后对字符串从左端进行处理。处理方法：把字符串中后跟“#”的数字放入数组a中，如果是数字但后面没有“#”则不存放。如输入的字符串为“12#a2bc3#d45#6e7”,则12、3、45分别存放到数组a的前三个元素中。请填空。Option Base 0Private Sub Command1_Click()Dim s As StringDim c As StringDim i As IntegerDim j As IntegerDim

47、a(10) As IntegerDim num As IntegerDim w As IntegerDim flag As Integer'标志：为0表示前一个字符非数字，为1表示前一字符为数字num = 0: i = 1: flag = 0: j = 0s = 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

48、 flag = 1 And c = "#" Then (2) : j = j + 1: flag = 0: num = 0End If If (c < "0" Or c > "9") And flag = 1 Then flag = 0: num = 0 End If i = i + 1LoopFor i = 0 To j - 1 Print a(i);Next iEnd Sub2、(Visual Basic试题)窗体中有一文本框(名称Text1)，一组合框(名称Combo1，已添加5个条目)，一滚动条（名称Hs1，min

49、和max分别为1和5），一定时器控件（名称Timer1），定时器的Enabled属性初始为False，Interval属性值1000（1秒），一命令按钮(标题为开始，名称Command1)。程序功能：（1）开始命令按钮功能：启动定时器工作；（2）定时器Timer1事件功能：一是清空文本框，二是在文本框中显示组合框中选中的数字，选中数字几，就在文本框中显示几个该数字，如选中3，则在文本框中显示3个3，三是把滚动条的Value值改为组合框中选定的值，四是把定时器的Timer1事件触发时间改为与所选中的组合框的值一致的秒数。不完整的空白位置请写出正确的内容。Private Sub Command1_

50、Click()Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Dim i As IntegerDim k As IntegerText1.Text = ""k = Val( (3) )For i = 1 To kText1.Text = Text1.Text + Combo1.TextNext iHs1.Value = Combo1.Text (4) = Combo1.Text * 1000End Sub3(Visual FoxPro试题)程序的功能是：输入字符串，将字符串中的所有不是数字、字母的字符删除；将字母字符移到数字字符尾部，各自保持原来的先后顺序，形成新的字符串输出。如输入的字符串为“1Wq+2_3A”，则输出“123WqA”。程序如下，请在空白位置填写正确的代码。CLEARACCEPT "请输入字符串：" TO TT（5）?XXFUNCTION SHUCHU PARAMETERS SS N=LEN(