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

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

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

3、确，则该算式采用的进制是 （）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. 4MB8.

4、一台计算机的字长是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

5、.在桌面空白区域，点击鼠标右键，打开“属性”选项C “开始”菜单中的“设置”D “资源管理器”窗口11 在 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”中形成的C.只能是在“画图”中形成的D .可以是 Windows支持的多种格式15 .在Excel2003中，在单元格 A1内输入“第一季”，要想实现 A2、A3、A4单元

7、格依次为“第二季”、“第三 季” 、 “第四季”，以下操作正确的是 （）A.选中A1、A2、A3、A4单元格，点击编辑菜单，点击填充，选中序列的自动填充B.选中A1、A2、A3、A4单元格，点击编辑菜单，点击填充，选中序列的日期填充C.选中A1、A2、A3、A4单元格，点击编辑菜单，点击填充，选中序列的等差序列D.选中A1、A2、A3、A4单元格，点击编辑菜单，点击填充，选中向下填充16 . 在 Excel2003 中，进行分类汇总之前, 必须进行的操作是 . （）A.按分类列对数据清单进行排序，并且数据清单的第一行里必须有列标题B.按分类列对数据清单进行排序，并且数据清单的第一行里不能有列标

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

9、;8000<=3518 .在 Visual Basic 中，Print Int（35*Rnd）+n产生的随机数的范围是10至44 （含10及44）,则n是 （）A. 10 B. 20 C. 30 D. 3519 .在Visual Basic 中，下列可作为 Visual Basic 变量名的是 （）A. Filename B. ValC. X%DD. Print20 .在Visual Basic中，下列语句用来设置窗体中文本框（名称 Text1 ）的属性，其中在运行时不能正确 操作的语句是 （）A. Text1.Text="Text Test"B. Text1.Nam

10、e="Text Test"C. Text1.Enabled = FalseD. Text1.Visible = False21 .在Visual Basic 中，下列运算符优先级最高的是 （）A. + B. * C. > D. And22 .执行下面Visual Basic 程序后，结果是哪个选项 （）Fori = 1 To 6If i Mod 2 = 0 ThenPrint "#"Else Print "*"End If Next iA #B *C *#*#*#D #*#*#*23 . 下面的 Visual Basic 程序是

11、对数组a 中的元素按升序排列，程序中空白位置应该填下列选项中的哪一个 ()Option Base 1 Dim i As Integer Dim j As Integera = Array(2, 4, 7, 9, 3, 6, 20, 11)For i = 1 To 7For j = i + 1 To 8 If a(i) > a(j) Then a(i) = a(i) + a(j) a(j) = a(i) - a(j)End IfNext jNext iFor i = 1 To 8Print a(i);Next iA. a(i)=a(j)B. a(i) = a(i) - a(j)C. a(j

12、)=a(i)-a(j)D. Exit For24 . 执行下面Visual Basic 程序后，s=s+1 语句被执行了多少次 ()Dim s As Integers = 0For i = 1 To 10For j = 0 To i - 1s = s + 1Next jNext iA. 0 B. 10 C 55 D. 6625 . 执行下面Visual Basic 程序，数组a 中的数字50 所在位置的下标是 ()Option Base 1Private Sub Command1_Click()Dim i As IntegerDim k As IntegerDim t As IntegerDi

13、m 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 中，关于控件及窗体说法不正确的是 （）A. 任何一个控件都有名称B. 任何一个控件都有属性C. 任何一个控件都有单击事件D. 控件是对象，窗体也是对象27 . 执行下

14、面Visual Basic 程序，输入a 的值为10，最后输出s 的值是 （）Dim a As IntegerDim s As Integera = InputBox（"a="）Select Case a Mod 2Case 1: s = 1Case 2: s = 10Case 3: s = 11Case Else: s = 100End Select Print sA. 1 B. 2 C. 3 D. 100A. ADD28 . 在 Visual FoxPro 中，查询结果保存到文本文件中，如果文件已经存在，则将结果追加到该文件的末 尾的选项是 （）D. INSERTB.

15、ADDITIVEC. APPEND29.在 Visual FoxPro中，报表的数据源不包括30.A. 数据库表C. 视图在 Visual FoxProB.D.自由表表单中，使用SQL中的SELEC饰令进行条件查询时，WHER条件中可以使用 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. C 0 D 133. 在 Visual FoxPro 中，不允许出现重复字段值的索引是 （）A. 侯选索引和主索引B.普通索引和主索引C. 侯选索引和唯一索引D.普通索引和侯选索引34. 在 Visual FoxPro 中，下面关于类、对象、属性和方法的叙述中，错误的是. （

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

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

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

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

21、UDPB. TCP和 IPC. HTT可口 FTPD. TELNETS口 DNS45. 国内一所高校要在 CERNE并建立 WWWO站，其域名的后缀应该是（）A. B. C. D. 46 . 按物理拓扑结构对计算机网络进行分类，下列哪项是错的 （）A.环型网B.总线网C.星型网D.广播网47 .在介质访问控制方法中，CSMA/CD勺特点主要有（）A.监听总线和碰撞检测B.标志帧传递和数据发送C.令牌传送和空闲使用D.监听总线状态和随机发送48. 在下列关于网络知识的叙述中正确的是 （）A 121.260.23.233 是一个合法、有效的IP 地址8 Outlook Express 是一个电子邮

22、件收发软件C.显示网页中的图片、动画等多媒体信息，不会影响网页的浏览速度D.在Internet上专门供用户进行数据存储的网站，被称为搜索引擎49. 在计算机网络通信系统中，为了改善线路使用效率、提高传输带宽而广泛使用了多路复用技术。下列不属于多路复用技术的是 （）A FDM B TDM C CRC D STDM50. 某网络用户使用Outlook 管理自己的电子邮件，则在其发送电子邮件时使用的协议为 （）APOP3 B FTP C DHCP D SMTP第n卷（非选择题 共140分）二、判断题（本大题14小题，每小题1分，共14分。将答案填涂在机读卡上，正确的填涂格， 错误的填涂“X”格）1

23、.计算机的指令系统与硬件系统无关。（）2 .在计算机系统中，任何外部设备都必须通过CPU能和主机相连。（）3 .在Windows XP中，利用搜索框可以搜索文件夹。（）4 .在 Windows XP中，桌面可分为“开始”菜单按钮、快速启动工具栏、窗口按钮栏和通知区域等几部分。（）5 .在 Word2003中，插入图片后，若希望其成为水印，则应将该图片置于文字下层。（ ）6 .在Word2003中，使用“分栏”按钮只能将文档分为两栏。若分多栏，需要使用“分栏”对话框进 行设置。（）7 .在Excel2003中，数据清单的排序可以按笔画进行排序。（）8 .在Excel2003中，删除图表中的某个数

24、据系列时，需要双击图表中该数据系列，之后按Delete键。（）9 .在Visual Basic 中，对顺序文件既有读的操作语句，也有写的操作语句。（ ）10 .在Visual FoxPro 中，设置菜单项访问键的方法是在指定菜单标题时在访问键 前加“”字符。（）11 .在组建局域网时，中心设备使用集线器或交换机，对网络性能没有影响。（）12 . URL由传输协议、域名、文件路径和文件名四部分组成。（）13 .在网关位置安装网络防火墙并进行合理设置后，可以杜绝网络病毒的传播和网络攻击行为的发生。（ ）14 . 一台计算机只安装了一块网卡，在安装TCP/IP协议并正确连接网线后，可以为该计算机设置

25、多于一个的IP地址。（）三、填空题（本大题共13小题，每小题2分，共26分。请将答案填写在答题纸上）1 .能把汇编语言源程序翻译成目标程序的程序是 程序。2 .微型计算机的内存容量主要是指 的容量。3 . 1000个32*32点阵的汉字字模，需要占用的存储空间为 （KB）。4 .在 Windows XP中，桌面上的 图标不能删除。5 .在Word2003中，一部分字符格式设置好后，如果其他字符也需要使用相同的字符格式，则可以使用 将字符格式应用到其他字符上。6 .在Excel2003中，在单元格B2中输入数据“ 80”，在C2中输入字符“ good”（均不含引号），在单 元格 D2 中输入=I

26、F（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",&qu

27、ot;PUT"）, REPLICATE （"COM",2）的输出结果为： 。11 .网络互连可以在不同的网络层次上实现；如果互连设备为集线器，则参与互连的网络是在 层上实现了互连。12 .在OSI网络参考模型中，下层向上层提供的服务类型主要有两种，即 和。13 .在同一局域网络中，为了保证网络连通性，不同计算机的相同层次必须使用相 同的。四、根据已知的环境与题意，写出相应的Visual FoxPro 操作命令或SQL语句，要求每小题用一条命令或语句完成（本大题共5小题，每小题4分，共20分，请填写在答题纸上）。现有数据库“customer.DBC ”,其中包含表“

28、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”表，

29、字段为：职工号 （C,6）,姓名（C,8）,性别（C,2）,设置“职工号”字段为 主索引，并对“性别”字段建立有效性规则为：“性别”字段只能填“男”或“女”，如果填入其他数据则提示信息“性别输入错误”。（用SQL语句）4 .计算“ order_list ”表中“总金额”字段的值，总金额=数量*单价。（用SQL语句）5 .查询“ order_list ”表中“客户号”为100001、“总金额”小于等于 10000的记录，按“总金 额”降序输出，结果保存到“JG.dbf”表中。（用SQL语句）五、程序分析（本大题共2小题，每小题5分，共10分，读程序并分析结果，请填写在答题纸上）1.阅读下面的 V

30、isual Basic 程序，程序运行后 s的值是Option Base 0Private Sub Command1_Click（）Dim a（4） As IntegerDim 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 Thena(j) = ws = s + a(j)j = j + 1Elsei = i - 1End IfIf j = 5 Then Exit ForNext iPrint sEnd

31、Sub2有Visual ForPro 程序 chengxu.prg 如下CLEARINPUT " 请输入X=" TO XINPUT " 请输入Y=" TO YDIMENSION KK(2,2)I=1DO WHILE I<=2J=1DO WHILE J<=2IF I%2=0KK(I,J)=I*J*7ELSEKK(I,J)=I*J*3ENDIFJ=J+1ENDDOI=I+1ENDDOS=0FOR M=1 TO 2FOR N=1 TO 2IF ZHI(KK(M,N)=1IF KK(M,N)%4=0 S=S+KK(M,N)*XELSES=S+KK(M

32、,N)*YENDIFENDIFENDFORENDFOR?SFUNCTION ZHIPARAMETERS TTSUM1=0FOR I=1 TO TT-1IF TT%I=0SUM1=SUM1+IENDIFENDFORIF SUM1=TTRETURN 1ELSERETURN 0ENDIF该程序的功能是计算 S=的值(写出包含 X和Y的表达式) 六、写出下列程序的运行结果(本大题共5小题，每小题5分，共25分，请填写在答题纸上)1 .分析下面 Visual Basic 程序段。窗体中有一命令按钮(名称为Command 1。Private Sub Command1_Click()Dim a(3) As

33、IntegerDim i As Integer, w As Integer w = 0Fori = 0 To 3 a(i) = iNext iFori = 0 To 3 w = w + fu(a(i)Next iPrint wEnd SubPrivate Function fu(k As Integer)k = k + 1fu=kEnd Function窗体启动后单击命令按钮，输出 w的值为。2 .分析下面 Visual Basic程序段。窗体中有一命令按钮(名称为 Command)Option Base 1Private Sub Command1_Click()a = Array(23, 2

34、4, 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 8flag = 0k = Int(Sqr(a(i)Forj = 2 To kIf a(i) Mod j = 0 Then flag = 1Next jIf flag = 0 Then num = num + a(i)Next iPrint numEnd Sub窗体启动后单击命令按钮，输出语句Print num执行结果是3 .有 Visual Fo

35、rPro 程序如下:CLEARI=2DO WHILE .T.COUNT=0M=IFOR K=0 TO 2J=M/2*3+1M=JIF J % 2=0COUNT=COUNT+1ELSEEXITENDIFENDFORIF COUNT=2?JEXITENDIFI=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'

36、;表的结构为：系 号 （C ， 2） 、系名 （C ， 20）, 各表中数据如下：T_XX.DBF记录号编号系号姓名主讲课程排名11102000101肖海数据结构321102000202王岩盐数据结构131102000301肖海C 语言341102000403张月新操作系统251102000501李明玉数据结构761102000602孙民山操作系统1171102000703钱无名数据库581102000802呼延军编译原理691102000903钱无名操作系统5101102001001张国梁C 语言4111102001103林新月操作系统8121102001201乔小廷C 语言91311020

37、01302孙民山数据库11141102001401欧阳秀编译原理10X_XX.DBF记录号系号系名101计算机202信息管理303中文4 . 有如下 Visual FoxPro 程序： （代码中行末的分号为逻辑行连接符）CLEARDIME GA（1,4）SELECT 系号,姓名 FROM T_XX WHEREOF名 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_巡名IF MG

38、S=1SELECT 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)ELSEIF MGS=0?" 无记录"ELSE?"数据错误"ENDIFENDIF运行上面的程序，显示的结果是： 。5 .新建一个表单，表单的 Name1性为Forml,程序运行时的界面如下图所示:设置控件属性如下：有三个标签，其Name属性分别为

39、Labell、Label2和Label3 , Caption属性分别为“系名：”、“结果：”、 (空)；有一个文本框，其 Name属性为Text1 ; 一个命令按钮，其 Name属性为Command 1 Caption属性为 “查询”。有如下的事件代码：Form1 的 Activate 事件：THISFORM.TEXT1.VALUE="算机"Command141 Click事件：(代码中行末的分号为逻辑行连接符)STR=TRIM(THISFORM.TEXT1.VALUE)OPEN DATABASE XKSELECT 系号 AS XH, COUNT(DISTINCT 姓名)A

40、S G_XM FROM T_XX GROUP BY;系号 INTO DBF TS_1SELECT COUNT(DISTINCT姓名)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=(SELECTt 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

41、,3) SKIPENDDOCLOSE ALL运行上面的表单，在 Label3中显示的是：。七、Visual Basic程序改错(本大题共2小题，每题5分，共10分，每个程序有两个错误行，请在答题纸上写出错误行代码和对应的正确代码，改对一处得一处分，改错不减分。注：要把整行写完整)1 .有数组：s = Array("a42", "b3c56", "de7fg", "hi", "jk35kmn")统计数组s的各个元素中含有数字字符个数，把结果放到数组 b相应元素中，如上述数组 s,当程序运 行后b中

42、各元素的值分别为：2,3,1,0,2 。程序中有两处错误，请按要求改正。程序如下：(两个数组的下标都是从1开始，程序中定义的每个变量都用到，程序中只能用变量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) = 0For j

43、= 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 iFor i = 1 To 5Print b(i);Next i2 .如图所示，窗体有两个框架，左边框架中有三个单选按钮(名称分别为Option1 ,Option2和Option3 ), 单选按钮分别设置了标题为小学、初中、高中；右边的框架中是一个列表框(名称为List1 );两个框架中间是命令按钮(标题为存放

44、结果，名称为Command 1 ,命令按钮功能：单击命令按钮，清除列表框中的内容，然后将选中单选按钮的标题放入列表框中。程序中有两处错误，分布在两行，请将完整的错误行和相应的正确行写在答题纸横线上。(不能改变 程序行数，不能增加函数)Private Sub Command1_Click() Dim s As String Listl.Clear s =""Select Case 1Case Option1.Values = s + Option1.CaptionCase Option2.Values = s + Option2.CaptionCase Option3.Val

45、ues = s + Option3.Caption End SelectList1.Text = sEnd Sub八、程序填空(本大题共7个空，每空5分，共35分，按程序要求在答题纸上填入相应的内容，使程序 完整正确)1. (Visual Basic试题)下面程序是从键盘输入少于20个字符的字符串，然后对字符串从左端进行处理。处理方法：把字符串中后跟“#"的数字放入数组 a中，如果是数字但后面没有“#"则不存放。如输入的字符串为"12 #a2bc3#d45#6e7"，则12、3、45分别存放到数组 a的前三个元素中。请填空。Option Base 0Pr

46、ivate Sub Command1_Click()Dim s As StringDim c As StringDim i As IntegerDim j As IntegerDim 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 <= wc = Mid(s, i, 1)If c >

47、= "0" And c <= "9" Then num = num *10 + Val(c):End IfIf flag = 1 And c = "#" Then(2) : j = j + 1: flag = 0: num = 0End IfIf (c < "0" Or c > "9") And flag = 1 Then flag = 0: num = 0End If1 = i + 1LoopFor i = 0 Toj- 1Print a(i);Next iEnd Sub2、

48、(Visual Basic试题)窗体中有一文本框（名称Text1）, 一组合框（名称Combo1已添加5个条目），一滚动条（名称 Hs1, min和max分别为1和5）, 一定时器控件 （名称Timer1 ）,定时器的Enabled属性初始为 False , Interval 属性值1000 （1秒），一命令按钮（标题为开始，名称 Command1）程序功能：（1）开始命令按钮功能：启 动定时器工作；(2)定时器Timeri事件功能：一是清空文本框，二是在文本框中显示组合框中选中的数 字，选中数字几，就在文本框中显示几个该数字，如选中 3,则在文本框中显示 3个3,三是把滚动条的Value值改

49、为组合框中选定的值，四是把定时器的Timeri事件触发时间改为与所选中的组合框的值一致的 秒数。不完整的空白位置请写出正确的内容。Private Sub Command1_Click()Timerl.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Dim i As IntegerDim k As Integer Textl.Text ="" k = Val()For i = 1 To kTextl.Text = Textl.Text + Combol.TextNext iHsI.Value = Combol.Text(4)= C

50、ombol.Text * 1000End Sub3. (Visual FoxPro试题)程序的功能是：输入字符串，将字符串中的所有不是数字、字母的字符删除;将字母字符移到数字字符尾部，各自保持原来的先后顺序，形成新的字符串输出。如输入的字符串为“1Wq+2_3A,则输出“ 123WqA。程序如下，请在空白位置填写正确的代码。 CLEARACCEPT精输入字符串："TO TT £5) ?XXFUNCTION SHUCHUPARAMETERS SSN=LEN(SS)DIME A(N)FOR I=1 TO NA(I)=SUBSTR(SS,I,1)ENDFORB=""C=""FOR I=1 TO NIF (A(I)>="0" AND A(I)<="9")(6)ELSEIF (A(I)>="a" AND