江苏省计算机二级VB笔试题库含答案.doc

江苏省高等学校非计算机专业学生计算机基础及应用能力等级考试试卷二级Visual Basic全真模拟试卷一（本试卷包括计算机基础知识部分和程序设计部分，考试时间共120分钟）说明：1本试卷满分为60分，分选择题和填空题，试卷不分A、B类型。2选择题用答题卡答题。每一项有A、B、C、D四个可供选择的答案，请选择其中一个你认为正确的答案，用HB铅笔涂写在答题卡的相应答题号内。每选对一项得1分，不选或选错不得分。3填空题用答题纸答题。请将答案填写在答题纸的相应答题号内，每个答案只占一行,不得换行。每填对一个答案得1分，不填或填错不得分。4请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正确。 第一部分计算机基础知识1信息处理系统是综合使用信息技术的系统。下面有关信息处理系统的叙述中错误的是_1_。A信息处理系统从自动化程度来看，有人工的、半自动化的和全自动化的B应用领域很广泛。例如银行是一种以感知与识别为主要目的的系统C信息处理系统是用于辅助人们进行信息获取、传递、存储、加工处理及控制的一种系统D从技术手段上来看，有机械的、电子的和光学的;从通用性来看，有专片和通用的2下面关于集成电路的叙述中，错误的是2。A集成电路是20世纪50年代出现的B现代集成电路使用的半导体材料通常是硅或砷化镓C集成电路的许多制造工序必须在恒温、恒湿、超洁净的无尘厂房内完成D集成电路按用途可分为通用和专用两大类。微处理器和存储器芯片都属于专用集成电路3在通信系统的性能指标中，3是指数据传输中出错数据占被传输数据总数的比例。A信道带宽B误码率C数据率D端-端延迟4以下数据最大的是4。A01110110BB120DC7DHD177Q5从逻辑功能上来讲，计算机硬件主要包括中央处理器（CPU）、内存储器、外存储器、输入设备和输出设备等，它们通过5互相连接。A总线B控制线C数据线D地址线6 6接口是一种新的I/O接口，它是一种可以连接多个设备的总线式串行接口，2.0版的数据传输速率可高达480Mb/s（60MB/s），最多可以连接127个设备。AUSBBIEEE1394CSCSID并行7下列不属于无线局域网设备的是7。A无线网卡B蓝牙C无线HUBD无线网桥8 FAT16、FAT32、NTFS是三种不同的文件系统，Windows 2000/XP操作系统支持_8_。AFAT32 和FAT16文件系统 BNTFS文件系统CFAT32和NTFS文件系统DFAT16、FAT32和NTFS文件系统9下列关于CD-ROM存储器描述中，错误的是9。ACD盘上凹坑内表示0，凹坑外表示1BCD盘上记录数据的是一条由里向外连续的螺旋道CCD-ROM需要记录的信息实现要制作到光盘上，用户不能抹除，也不能再写入DCD-ROM成本低，可靠性好，非常耐用，即使盘面有指纹或灰尘存在，数据仍能读出10 10 属于文字处理软件。APageMarker和Word BWord和3D MAXCPhotoshop和WPS DPaintbrush和Flash11下列属于自由软件的操作系统是11 。AUNIXBOS/2CWINDOWSDLINUX 12下列关于操作系统任务管理的说法，错误的是12 。AWindows操作系统支持多任务处理B分时是指将CPU时间划分成时间片，轮流为多个程序服务C分时处理要求计算机必须配有多个CPU D并行处理可以让多个处理器同时工作，提高计算机系统的效率13分析某个算法的优劣时，从需要占用的计算机资源角度，应考虑的两个方面是13。A正确性和简明性B空间代价和时间代价C可读性和开放性D数据复杂性和程序复杂性14下列关于病毒的描述中，正确的是14。A计算机病毒也称为木马B邮件病毒很厉害，只要收到带病毒的邮件，不管看不看，计算机都会染上病毒C如果一台计算机染上了病毒，它旁边的计算机很有可能被传染，因此两台计算机之间要有一定的距离D计算机病毒是一些人蓄意编制的一种寄生性的计算机程序15不能作为广域网的数据传输介质的是15。A电话线B微波C双绞线D光缆16下面对于WWW和Email的说法中，错误的是 16 。A网页是一种采用HTML超文本标记语言描述的超文本文档, HTML文档包括头部和正文两大部分B电子邮件一般由三个部分组成：邮件的头部、邮件的正文、邮件的附件C现在的电子邮件正文中只能发送普通文本，图片等多媒体信息只能在附件中才能发送DWeb是按客户/服务器模式工作的17下面关于汉字编码标准的叙述中，正确的是17。A同一个汉字的不同造型（如宋体、楷体等）在计算机中的内码不同BUnicode是我国最新发布的也是收字最多的汉字编码国家标准CGB18030与GB2312和GBK汉字编码标准不兼容D在GB18030汉字编码国家标准中，共有2万多个汉字18适用于交互式多媒体应用，包括虚拟现实、远程教学、交互式电视等的视频压缩标准是18。AMPEG-1BMPEG-4CMPEG-3DMPEG-2 19下列信息系统中 19 属于三次信息的处理系统。A管理层业务处理系统 B信息分析系统C专家系统 D信息检索系统20关于Excel 97/2000/2003的数据筛选，下列说法中正确的是20。A筛选后的表格中只含有符合筛选条件的行，其它行被删除B筛选条件只能是一个固定的值C筛选后的表格中只含有符合筛选条件的行，其它行被暂时隐藏D筛选条件不能由用户自定义，只能由系统确定第二部分Visual Basic程序设计一、选择题（用答题卡答题，答案依次填在2130答题号内）21创建应用程序的界面时，在窗体上设置了一个文本框，运行程序后，文本框没有出现在窗体上，可能的原因是。A该文本框的Value属性被设置为FalseB该文本框的Enabled属性被设置为FalseC该文本框的Visible属性被设置为FalseD该文本框的Default属性被设置为True22下列不是Visual Basic事件名称的是22。AChangeBClickCScrollDChDir23由系统提供的，可在任何一个VB程序中随时使用的程序段的函数是23。A内部函数B公共函数C逻辑函数D关系函数24SQL缩写所表示的意思是24。A开放式容器B结构查询语言C数据库联接D数据库编程25Write#语句与Print#语句功能基本相同，它们之间的主要差别之一正确的是25。AWrite#语句写数值型的，而Print#语句写非数值型的B如果是字符串数据，Write#语句写数据后在其两边加双引号，而Print#语句没有CWrite#语句按紧凑格式写文件，而Print#语句按标准格式写文件DWrite#语句按标准格式写文件，而Print#语句按紧凑格式写文件26Datetime是Data类型的变量，以下赋值语句中错误的是26。ADatetime=#5/8/03# BDatetime=#September l,2003#CDatetime=#10:21:00AM# DDatetime=5/6/0327运行下列程序：Private Sub Form_Click()Dim sum As IntegerDim i As Integersum = 0For i = 12.4 To 3.1 Step -3.8sum = sum + iNext iDebug.Print sumEnd Sub单击窗体后，则在立即窗口上输出结果是27。A15 B-0.7C24 D028运行下列程序：Private Sub Command1_Click()Dim x As Integer, n As Integern = 0Don = n + 2x = x + nLoop While n 10Debug.Print xEnd Sub单击Command1命令按钮后，则在立即窗口上输出结果是是28。A2 B10C12 D3029运行下列程序：Private Sub Command1_Click()a = 100b = 24a = a Mod bb = b aa = b - aDebug.Print aEnd Sub单击Command1命令按钮后，则在立即窗口上输出结果是29。A2 B24C50 D10030下列程序运行后，信息框显示的内容是30。Private Sub Command1_Click()Dim s1 As StringDim s2 As Integers1 = Hello-World,2004s2 = Len(s1) + InStr(1, s1, 2)MsgBox s2End SubAHello-WorldB2003C16 D29二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，共30分）1freefile函数的作用是返回一个可供Open语句使用的，整型数据的（1）。2执行MyResult = 12.6 Mod 5后，变量MyResult将返回结果是（2）。3菜单控件的Checked属性用于将复选标记放到菜单项的左侧，以便表示菜单项的（3） 。4数组组中的控件通过索引值来区别，设置索引号的属性是（4）。5InputBox函数来返回值的类型是（5）。6运行下列程序：Private Sub Form_Click()Sum = 0For i = 1 To 100If Mid(CStr(i), 1, 1) = 1 ThenSum = Sum + 1End IfNext iPrint Sumxz单击窗体后，则在窗体上显示的结果是（6）。7运行下列程序：Private Sub Command1_Click()b = 1Do While b x(j)（10）Len(s1) To 1 Step-1For i = 0 To 3x(i) = （8）Next iFor i = 0 To UBound(x) - 1For j = i To UBound(x)If （9）Thent = x(i)x(i) = x(j)x(j) = tEnd IfNext jNext iFor i = 0 To 3Text1(i).Text = Str(x(i)Next iEnd Sub9下列程序是将两个文本框(tetx1和text2)的内容进行组合，组合后的结果在图片框(Pic1)显示出来，如图3所示。给定的程序不完整，将程序补充完整。图3Private Sub Command1_Click()Dim s1 As String, s2 As Strings1 = Text1.Texts2 = Text2.TextFor i = （10）s3 = s3 + Mid(s1, i, 1) + Mid(s2, i, 1)Next ipic1.Print s3End Sub10下列程序的功能是将数组中的奇数相加。给定的程序不完整，将程序补充完整。Option Base 1Private Sub form_Click()Dim k As IntegerDim Total As IntegerDim nn = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)For k = 1 To UBound(n)If （11）ThenTotal = Total + n(k)End IfNext kPrint TotalEnd Sub11窗体上有三个文本框Text1控件数组，两个按钮Command1和Command2，一个图片框Pic1。程序功能是解一个一元二次方程()。程序运行后如图4所示。给定的程序不完整，将程序补充完整。 图4Private Sub Command1_Click()Dim aAs Single, bAs Single, cAs SingleDim x1As Single, x2 As SingleDim st As Singlea = Val(Text1(0).Text)b = Val(Text1(1).Text)c = Val(Text1(2).Text)If a 0 Thencol =（12）st = -b / (2 * a)If （13）Thenx1 = st + Sqr(col) / (2 * a)x2 = st - Sqr(col) / (2 * a)Pic1.Print 方程有两个实根; x1, x2ElseIf col = 0 ThenPic1.Print 方程有两个相等实根; stElsex1 = Sqr(-col) / (2 * a)Pic1.Print 方程有两个虚根; st; +i; x1, st; -i; x1,End IfElseIf （14）Thenroot1 = -b / cPic1.Print 方程仅有一个根; root1ElsePic1.Print 方程无意义End IfEnd IfEnd SubPrivate Sub Command2_Click()Text1(0).Text = Text1(1).Text = Text1(2).Text = Pic1.（15）End Sub12下列程序运行后如图5所示。给定的程序不完整，将程序补充完整。图5Private Sub form_Click()k = 7For i = 5 To 1 Step -2Print Tab(k); （16）k = k + 1Next iEnd Sub13运行下列程序：Private Sub Command1_Click()Dim s As Integer, i As Integers = 0For i = 5.8 To 0.3 Step -1.3s = s + 1Next iPrint sEnd Sub单击Command1命令按钮后，则在窗体上显示的结果是（17）。14下列程序中有一个按钮Command1，一个文本框text1，其属性MultiLineTrue。当单击按钮后，文本框显示（18）行数据，其中第二行和第三行的数据分别是（19）和（20）。Option ExplicitPrivate Sub Command1_Click()Dim a As Single, i As Integera = 1.2For i = 1 To 3a = a * iPrint fun1(a)Next iEnd SubPrivate Function fun1(t As Single) As SingleStatic y As Singley = y + tt = y + 1fun1 = tEnd Function15要打印出50个在-100100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。Option Base 1Private Sub Command1_Click()Dim b()Randomize（21）Dox = RndIf x 0.5 Then y = 1 Else y = -1t = y * Int(Rnd * 100) + 1（22）Do While k jIf t b(k) Thenk = k + 1ElseExit DoEnd IfLoopIf k = j ThenReDim Preserve b(k)b(k) = tPrint b(k);j = j + 1End IfLoop Until j 50Print（23）Max = b(1)For n = 2 To 50If b(n) Max Then（24）p = nEnd IfNext nPrint 最大数是：; MaxPrint 位置在第; p; 个End Sub16有下列程序，运行后变量x1、y1和z1的结果分别是（25）、（26）和（27）。Private Sub fun1(s, m, n)s = m + 1m = n + 2n = s + 3End SubPrivate Sub form_Click()Dim x1, y1x1 = 1y1 = 1z1 = 1Call fun1(x1, y1 + 1, (z1)Debug.Print x1; y1; z1End Sub17编写一过程把C盘中的Config.sys文件内容读出，并在文本框中显示出来。在窗体Form1上建立一个文本框Text1，将其MuhiLine属性设置为True，ScrollBars属性设置为3-Both。给定的程序不完整，将程序补充完整。Option ExplicitPrivate Sub Form_Click()Dim ch1 As String, fn As IntegerDim Str As Stringfn = （28）Open C:Config.sys For Input As fnDo While Not EOF(（29）)Line Input #fn, ch1Str = Str + ch1 + vbCrLfLoopText1.Text = （30）End Sub二级Visual Basic全真模拟试卷一参考答案一、选择题：1B2D3B4C5A6A7B8D9A10A11D12C13B14D15C16C17D18B19B20C21C22D23A24B25B26B27C28D29A30D二、填空题：（1）文件号（2）3（3）开/关（4）Index（5）字符串（6）12（7）33（8）Val(Text1(i).Text)（9）x(i)x(j)（10）Len(s1) To 1 Step-1（11）n(k) Mod 20（12）b2-4*a*c（13）col0（14）b0（15）Cls（16）String(i,*)（17）7（18）2.2（19）6.6（20）26.4（21）j=1（22）k=1（23）p=1（24）Max=b(n)（25）3（26）1（27）1（28）FreeFile（29）fn（30）Str江苏省高等学校非计算机专业学生计算机基础及应用能力等级考试试卷二级Visual Basic全真模拟试卷二（本试卷包括计算机基础知识部分和程序设计部分，考试时间共120分钟）说明：1本试卷满分为60分，分选择题和填空题，试卷不分A、B类型。2选择题用答题卡答题。每一项有A、B、C、D四个可供选择的答案，请选择其中一个你认为正确的答案，用HB铅笔涂写在答题卡的相应答题号内。每选对一项得1分，不选或选错不得分。3填空题用答题纸答题。请将答案填写在答题纸的相应答题号内，每个答案只占一行,不得换行。每填对一个答案得1分，不填或填错不得分。4请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正确。 第一部分计算机基础知识1下列关于“信息系统”的叙述中错误的是1。A图书馆是一种以信息收藏和检索为主的系统B雷达是一种以感知与识别为主要目的的系统 C信息系统可以有人工的，也可以有自动的D电视系统是一种双向的、点到点的信息系统2下列叙述中，错误的是2。A微电子技术以集成电路为核心B硅是微电子产业中常用的半导体材料C现代微电子技术已经用砷化镓取代了硅D制造集成电路都需要使用半导体材料3下面对于多路复用技术的说法中，正确的是 3 。A将同一信号沿多条线路传输，以提高可靠性B将同一信号多次传输，以提高正确率C将多路信号沿同一条线路传输，以提高利用率D可分为时分和频分多路复用两种4十进制算式3512+764+5的运算结果对应的二进制数是4。A11111101001B11111000101C11111100101D110001111015从逻辑功能上来讲，计算机硬件主要包括5、内存储器、外存储器、输入设备和输出设备等，它们通过总线互相连接。A中央处理器B控制器C运算器D寄存器6现在PC机上常用的总线是1991年开始使用的6局部总线。AISABEISACPCIDAGP77文档最重要的特性是它能支持超链。链源可以是文本中的任何一个字、词或句子，甚至可以是一幅图象。链宿可以是另一个Web服务器上的某个信息资源，也可以是文本内部标记书签的某个地方。ATELNETBHTMLCURLDWWW 8CPU中有一个程序计数器（又称指令计数器），它用于存放8。A下一条要执行的指令的内存地址B正在执行的指令的内容C下一条要执行的指令的内容D正在执行的指令的内存地址9关于PC机组成，下列说法错误的是9。ACPU和存储器芯片分别通过主板上的CPU插座和存储器插座安装在主板上BPC机常用的外围设备主要通过一些扩充卡（如声音卡、视频卡等）与主板相连CCRT显示器通过插入AGP插槽的图形卡与主板相连D扩充卡的功能不能集成在主板上10 10 属于绘图软件。AWord和FrameMaker BAutoCAD和FoxmailCPhotoshop和CoreDraw DPageMaker和Dreamweaver11下面对于操作系统的一些说法，正确的是 11 。A 文件管理可以实现文件的共享、保密和保护B“虚拟内存”其实是外存C用户必须了解设备及接口的技术细节才能使设备和计算机协调工作D作业管理的任务主要是管理内存资源的合理使用12下面关于Windows的说法中，错误的是 12 。AWindows采用并发多任务方式支持系统中多个任务的执行BWindows可以在任何一台计算机上运行CWindows 2000 server不是目前Windows系列操作系统的最新版本DWindows XP既适合家庭用户，也适合商业用户13实现算法所需的存储单元多少称为算法的13。A可实现性B困难度C空间复杂度D时间复杂度14适用于DVD、高清晰度电视的视频压缩标准是14。AMPEG-4BMPEG-1CMPEG-3DMPEG-2 15目前我国家庭计算机用户接入互联网的下述几种方法中，最快的是 15 。A电话拨号BADSLC一线通D光纤入户16已知接入Internet网的计算机用户为jkf，而连接的服务商主机名为，则他相应的E-mail地址为16。AjkfBCD 17按照汉字的“输入处理输出打印”的处理流程，不同阶段使用的汉字编码分别对应为17。A国标码交换码字形码B输入码国标码机内码C输入码机内码字形码D拼音码交换码字形码18下列关于图像的说法，错误的是18 。A尺寸大的彩色图片数字化后，其数据量必定大于尺寸小的图片的数据量B图像的数字化过程大体可分为四步：扫描、取样、分色、量化C像素是构成图像的基本单位D黑白图像或灰度图像只有一个位平面19计算机信息系统（简称“信息系统”）是一类以提供信息服务为主要目的的数据密集型、人机交互的计算机应用系统。在下列有关信息系统的叙述中，错误的是 19 。A在信息系统中，绝大多数数据是持久的，不随程序运行的结束而失效B信息系统开发方法有多种，例如生命周期法、原型法等CMRP的英文说法是Material Requirement Planning ，制造业物料需求计划D电子商务，简称EC，是指对整个贸易活动实现电子化20在使用Excel 97/2000/2003处理数据时，下列叙述中正确的是 20 。A单元格的引用分为绝对引用和相对引用两种B一个工作表最多有65536行，256列C一个工作簿中可以无工作表 D在Excel中输入公式后，该表达式的计算结果就被存储在单元格中第二部分Visual Basic程序设计一、选择题（用答题卡答题，答案依次填在2130答题号内）21若需要在同一窗口内安排两组相互独立的单选按钮（OptionButton），适当的控件将它们分隔开。下列不能将单选按钮分组的控件是21。 TexBoxPictureBox ImageFrameListBoxABCD22Visual Basic指定参数x的自然对数值，返回一个Double的函数是22。ALog(x)BLg(x)CExp(x)DLn(x)23运行程序时，显示下图1内容的语句是23。Ab = InputBox(输入一个整数,2003,程序示例)Bb = InputBox(程序示例,输入一个整数,2003)Cb = MsgBox(输入一个整数,2003,程序示例)Db = MsgBox(程序示例, 输入一个整数,2003)图124各种运算符间的优先顺序，从高到低是24。A比较运算符算术运算符逻辑运算符B比较运算符逻辑运算符算术运算符C算术运算符比较运算符逻辑运算符D算术运算符逻辑运算符比较运算符25将表达式转换为Double类型的函数是25。ACboolBCbyteCCdblDCstr26运行下列程序：Private Sub Form_Click()Dim sum As Double, i As IntegerFor i = 1 To 20If i Mod 5 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub单击窗体后，则在窗体上显示的结果是26。A50B100C4D505027如果在立即窗口中执行以下操作：x=1 表示回车，下同y=2 Print x y则输出结果是27。A -1B1CFalseDTrue28运行下列程序：Private Sub Form_Click()a = 32: b = 5Doa = a / 2b = b + 1Loop While b 10Print aEnd Sub单击窗体后，则在窗体上显示的结果是28。A1 B2C5 D1129运行下列程序：Option Base 1Private Sub Form_Click()y = 43x = Array(21, 4, 50, 18, 23, 44, 87, 32, 67, 70)For i = 1 To 10If x(i) 10y = 3 * tCase Elsey = 2 * tEnd SelectPrint x; yEnd Sub运行时，从键盘输入4，输出的结果是30。A316B44C34D410二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，共30分）1在创建菜单时，如果命令在完成之前还需要附加信息，则在其名称后面应当有一个（1）。2VB6.0集成开发环境中，功能键Ctrl+F5的功能是对（2）。3在VB6.0中定义变量时，通过在变量名后加一个用于规定变量类型的说明字符，来规定变量的类型。当变量名后加“#”时，则表明该变量为（3）。4将表达式的结果为非零的值返回True；否则返回False的函数是（4）。5为了在TextBox控件中显示多行文本，要将（5）属性设置为True。6运行下列程序，单击窗体后，则在窗体上显示的第四行和最后一行的结果分别是（6）和（7）。Private Sub Form_Click()n = 0a = 1: b = 2: c = 3For i = 1 To 4For j = 0 To ia = b + 1: b = c + 2: c = a + 2n = n + 1Print cNext jNext iPrint nEnd Sub7在窗体有有一文本框，名为text1，则执行如下事件过程后，文本框中的输出为（8）。Private Sub form_Click()For i = 1 To 3a = 1For j = 1 To 3a = a + 4Next jNext iText1.Text = Str(a)End Sub8下列程序运行后，在窗体上打印的结果是（9）。Private Sub test(a, b, c)a = a + 1: b = b + 2: c = c + 3End SubPrivate Sub Command1_Click()x = 1: y = 2: z = 3Call test(x, y + 3, (z)Print Main:; x; y; zEnd Sub9下列程序的执行结果是（10）。Private Sub Form_Click()s = 50: n = 2Dos = s - nn = n + 1Loop Until n 8Print sEnd Sub10运行下列程序：Private Sub Form_Click()DoFor I = 1 To 100m = Int(Rnd * 100) + 1Select Case mCase 13: Exit ForCase 78: Exit DoEnd Selectn = n + 1Next ILoopPrint mEnd Sub单击窗体后，则在窗体上显示的结果是（11）。11下列程序的功能是计算两个自然数的最大公约数，如图2所示。给定的程序不完整，将程序补充完整。图2Private Sub Command1_Click()Dim x As Long, y As Long, i As Longx = Val(Text1.Text)y = Val(Text2.Text)Text3.Text = Str(（12）)End SubFunction fun1(a As Long, b As Long) As LongDim r As LongDim t As LongIf （13）Thent = aa = bb = tEnd Ifr = a Mod bDo While r 0a = bb = rr = a Mod bLoop（14）End Function12试求出所有满足下述条件的二位数：当它们乘以数字2，3，4，5，6，7，8，9时，其数字之和不变。给定的程序不完整，将程序补充完整。Private Sub Command1_Click()Dim m As Integer, sum As IntegerDim a As Integer, b As Integer, c As IntegerFor a = 1 To 9For b =（15）（16）For c = 2 To 9m = c * (a * 10 + b)sum = 0Dosum = sum + m Mod 10m = m 10Loop While m 0If（17）Then flg = 0: Exit ForNext cIf（18）ThenPrint a; bEnd IfNext bNext aEnd Sub13下列程序的功能是计算圆周率（计算精度到第n项减1的绝对值小于10-5为止）。请完善下列程序。Option ExplicitPrivate Sub Form_Click()Dim y As Single, t As Single, a As Singley = 2: t = 0Dot = Sqr(2 + t)（19）If Abs(a - 1) 1E-5 Then （20）y = y * aLoopPrint pi=; yEnd Sub14统计1,1000中包含数字1自然数，并将统计结果值，以及每相间100内具有该特征的数显示在文本框中，如图3所示。图3Private Sub Form_Click()Sum = 0: sum1 = 0For i = 1 To 1000（21）For j = 1 To Len(s)If Mid(s, j, 1) = 1 ThenSum = Sum + 1sum1 = sum1 + 1（22）End IfNext jIf i Mod 100 = 0 ThenText1.Text = Text1.Text + Str(sum1)（23）End IfNext iPrintText2.Text = SumEnd Sub15窗体上有一个命令按钮，数据文件data.txt的内容如下：宿舍2001,87商店2002,35教室2003,92球场2004,16又有运行下列程序：Type bsaa As String * 2bb As String * 4cc As IntegerEnd TypePrivate Sub Command1_Click()Dim xs As bsDim f1 As Integerf1 = FreeFileOpen d:data.txt For Input As #f1Do While Not EOF(f1)Input #f1, xs.aa, xs.bb, xs.ccList1.AddItem xs.bbList1.AddItem xs.aaList1.AddItem xs.ccLoopPrint EOF（f1）CloseEnd Sub问：在列表框中第一行、第三行、第四行的内容是（24）、（25）、（26）。窗体上打印出的是（27）。16编写一过程把C盘中的Config.sys文件内容读出，并在文本框中显示出来。在窗体Form1上建立一个文本框Text1，将其MuhiLine属性设