[IT认证]江苏省计算机二级VB笔试题库含答案

1、江苏省高等学校非计算机专业学生计算机根底及应用能力等级考试试卷二级Visual Basic全真模拟试卷一本试卷包括计算机根底知识局部和程序设计局部，考试时间共120分钟说明：1本试卷总分值为60分，分选择题和填空题，试卷不分A、B类型。2选择题用答题卡答题。每一项有A、B、C、D四个可供选择的答案，请选择其中一个你认为正确的答案，用HB铅笔涂写在答题卡的相应答题号内。每选对一项得1分，不选或选错不得分。3填空题用答题纸答题。请将答案填写在答题纸的相应答题号内，每个答案只占一行,不得换行。每填对一个答案得1分，不填或填错不得分。4请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否

2、填写正确。 第一局部计算机根底知识1信息处理系统是综合使用信息技术的系统。下面有关信息处理系统的表达中错误的选项是_1_。A信息处理系统从自动化程度来看，有人工的、半自动化的和全自动化的B应用领域很广泛。例如银行是一种以感知与识别为主要目的的系统C信息处理系统是用于辅助人们进行信息获取、传递、存储、加工处理及控制的一种系统D从技术手段上来看，有机械的、电子的和光学的;从通用性来看，有专片和通用的2下面关于集成电路的表达中，错误的选项是2。A集成电路是20世纪50年代出现的B现代集成电路使用的半导体材料通常是硅或砷化镓C集成电路的许多制造工序必须在恒温、恒湿、超洁净的无尘厂房内完成D集成电路按用

3、途可分为通用和专用两大类。微处理器和存储器芯片都属于专用集成电路3在通信系统的性能指标中，3是指数据传输中出错数据占被传输数据总数的比例。A信道带宽B误码率C数据率D端-端延迟4以下数据最大的是4。A01110110BB120DC7DHD177Q5从逻辑功能上来讲，计算机硬件主要包括中央处理器CPU、内存储器、外存储器、输入设备和输出设备等，它们通过5互相连接。A总线B控制线C数据线D地址线6 6接口是一种新的I/O接口，它是一种可以连接多个设备的总线式串行接口，2.0版的数据传输速率可高达480Mb/s60MB/s，最多可以连接127个设备。AUSBBIEEE1394CSCSID并行7以下不

4、属于无线局域网设备的是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 属

5、于文字处理软件。APageMarker和Word BWord和3D MAXCPhotoshop和WPS DPaintbrush和Flash11以下属于自由软件的操作系统是11 。AUNIXBOS/2CWINDOWSDLINUX 12以下关于操作系统任务管理的说法，错误的选项是12 。AWindows操作系统支持多任务处理B分时是指将CPU时间划分成时间片，轮流为多个程序效劳C分时处理要求计算机必须配有多个CPU D并行处理可以让多个处理器同时工作，提高计算机系统的效率13分析某个算法的优劣时，从需要占用的计算机资源角度，应考虑的两个方面是13。A正确性和简明性B空间代价和时间代价C可读性和开放

6、性D数据复杂性和程序复杂性14以下关于病毒的描述中，正确的选项是14。A计算机病毒也称为木马B邮件病毒很厉害，只要收到带病毒的邮件，不管看不看，计算机都会染上病毒C如果一台计算机染上了病毒，它旁边的计算机很有可能被传染，因此两台计算机之间要有一定的距离D计算机病毒是一些人蓄意编制的一种寄生性的计算机程序15不能作为广域网的数据传输介质的是15。A 线B微波C双绞线D光缆16下面对于WWW和Email的说法中，错误的选项是 16 。A网页是一种采用HTML超文本标记语言描述的超文本文档, HTML文档包括头部和正文两大局部B电子邮件一般由三个局部组成：邮件的头部、邮件的正文、邮件的附件C现在的电

7、子邮件正文中只能发送普通文本，图片等多媒体信息只能在附件中才能发送DWeb是按客户/效劳器模式工作的17下面关于汉字编码标准的表达中，正确的选项是17。A同一个汉字的不同造型如宋体、楷体等在计算机中的内码不同BUnicode是我国最新发布的也是收字最多的汉字编码国家标准CGB18030与GB2312和GBK汉字编码标准不兼容D在GB18030汉字编码国家标准中，共有2万多个汉字18适用于交互式多媒体应用，包括虚拟现实、远程教学、交互式电视等的视频压缩标准是18。AMPEG-1BMPEG-4CMPEG-3DMPEG-2 19以下信息系统中 19 属于三次信息的处理系统。A管理层业务处理系统 B信

8、息分析系统C专家系统 D信息检索系统20关于Excel 97/2000/2003的数据筛选，以下说法中正确的选项是20。A筛选后的表格中只含有符合筛选条件的行，其它行被删除B筛选条件只能是一个固定的值C筛选后的表格中只含有符合筛选条件的行，其它行被暂时隐藏D筛选条件不能由用户自定义，只能由系统确定第二局部Visual Basic程序设计一、选择题用答题卡答题，答案依次填在2130答题号内21创立应用程序的界面时，在窗体上设置了一个文本框，运行程序后，文本框没有出现在窗体上，可能的原因是。A该文本框的Value属性被设置为FalseB该文本框的Enabled属性被设置为FalseC该文本框的Vi

9、sible属性被设置为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#语句写数据后在其两边加双引号，而Pri

10、nt#语句没有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 -

11、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

12、= 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-World B2003C16 D29二、填空题请将答案填写在答题纸的相应答题号内，每个答案只

13、占一行每空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

14、SumEnd Sub单击窗体后，那么在窗体上显示的结果是6。7运行以下程序：Private Sub Command1_Click()b = 1Do While b 20b = b * b + 1a = a + bLoopMsgBox aEnd Sub单击Command1命令按钮后，那么弹出的消息对话框中显示7。8窗体上有4个文本框控件数组text1()和一个命令按钮，程序运行前如图1所示，程序运行后如图2所示。给定的程序不完整，将程序补充完整。图1图2Dim x(3) As IntegerPrivate Sub Command1_Click()For i = 0 To 3x(i) = 8Nex

15、t iFor i = 0 To UBound(x) - 1For j = i To UBound(x)If 9Thent = 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 = Tex

16、t1.Texts2 = Text2.TextFor i = 10s3 = 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 11ThenTotal = Total + n

17、(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(Text

18、1(2).Text)If a 0 Thencol =12st = -b / (2 * a)If 13Thenx1 = 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 14Thenroot1 = -b / cPic1.Print 方程仅有一个

19、根; root1ElsePic1.Print 方程无意义End IfEnd IfEnd SubPrivate Sub Command2_Click()Text1(0).Text = Text1(1).Text = Text1(2).Text = Pic1.15End Sub12以下程序运行后如图5所示。给定的程序不完整，将程序补充完整。图5Private Sub form_Click()k = 7For i = 5 To 1 Step -2Print Tab(k); 16k = k + 1Next iEnd Sub13运行以下程序：Private Sub Command1_Click()Dim

20、 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

21、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()Randomize21Dox = RndIf x 0.5 Then y = 1 Else y = -1t = y * In

22、t(Rnd * 100) + 122Do 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 50Print23Max = b(1)For n = 2 To 50If b(n) Max Then24p = nEnd IfNext nPrint 最大数是：; MaxPrint 位置在第; p; 个End Sub16有以下程序，运行后变量x1、y1和z1的结果分别是25、26和27。Pri

23、vate 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 ExplicitP

24、rivate Sub Form_Click()Dim ch1 As String, fn As IntegerDim Str As Stringfn = 28Open C:Config.sys For Input As fnDo While Not EOF(29)Line Input #fn, ch1Str = Str + ch1 + vbCrLfLoopText1.Text = 30End Sub二级Visual Basic全真模拟试卷一参考答案一、选择题：1B2D3B4C5A6A7B8D9A10A11D12C13B14D15C16C17D18B19B20C21C22D23A24B25B26

25、B27C28D29A30D二、填空题：1文件号233开/关4Index5字符串6127338Val(Text1(i).Text)9x(i)x(j)10Len(s1) To 1 Step-111n(k) Mod 2012b2-4*a*c13col014b015Cls16String(i,*)177182.2196.62026.421j=122k=123p=124Max=b(n)25326127128FreeFile29fn30Str江苏省高等学校非计算机专业学生计算机根底及应用能力等级考试试卷二级Visual Basic全真模拟试卷二本试卷包括计算机根底知识局部和程序设计局部，考试时间共120分

26、钟说明：1本试卷总分值为60分，分选择题和填空题，试卷不分A、B类型。2选择题用答题卡答题。每一项有A、B、C、D四个可供选择的答案，请选择其中一个你认为正确的答案，用HB铅笔涂写在答题卡的相应答题号内。每选对一项得1分，不选或选错不得分。3填空题用答题纸答题。请将答案填写在答题纸的相应答题号内，每个答案只占一行,不得换行。每填对一个答案得1分，不填或填错不得分。4请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正确。 第一局部计算机根底知识1以下关于“信息系统的表达中错误的选项是1。A图书馆是一种以信息收藏和检索为主的系统B雷达是一种以感知与识别为主要目的的系统 C信息

27、系统可以有人工的，也可以有自动的D电视系统是一种双向的、点到点的信息系统2以下表达中，错误的选项是2。A微电子技术以集成电路为核心B硅是微电子产业中常用的半导体材料C现代微电子技术已经用砷化镓取代了硅D制造集成电路都需要使用半导体材料3下面对于多路复用技术的说法中，正确的选项是 3 。A将同一信号沿多条线路传输，以提高可靠性B将同一信号屡次传输，以提高正确率C将多路信号沿同一条线路传输，以提高利用率D可分为时分和频分多路复用两种4十进制算式3512+764+5的运算结果对应的二进制数是4。A11111101001B11111000101C11111100101D110001111015从逻辑功

28、能上来讲，计算机硬件主要包括5、内存储器、外存储器、输入设备和输出设备等，它们通过总线互相连接。A中央处理器B控制器C运算器D存放器6现在PC机上常用的总线是1991年开始使用的6局部总线。AISABEISACPCIDAGP77文档最重要的特性是它能支持超链。链源可以是文本中的任何一个字、词或句子，甚至可以是一幅图象。链宿可以是另一个Web效劳器上的某个信息资源，也可以是文本内部标记书签的某个地方。ATELNETBHTMLCURLDWWW 8CPU中有一个程序计数器又称指令计数器，它用于存放8。A下一条要执行的指令的内存地址B正在执行的指令的内容C下一条要执行的指令的内容D正在执行的指令的内存

29、地址9关于PC机组成，以下说法错误的选项是9。ACPU和存储器芯片分别通过主板上的CPU插座和存储器插座安装在主板上BPC机常用的外围设备主要通过一些扩充卡如声音卡、视频卡等与主板相连CCRT显示器通过插入AGP插槽的图形卡与主板相连D扩充卡的功能不能集成在主板上10 10 属于绘图软件。AWord和FrameMaker BAutoCAD和FoxmailCPhotoshop和CoreDraw DPageMaker和Dreamweaver11下面对于操作系统的一些说法，正确的选项是 11 。A 文件管理可以实现文件的共享、保密和保护B“虚拟内存其实是外存C用户必须了解设备及接口的技术细节才能使设

30、备和计算机协调工作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目前我国家庭计算机用户接入互联网的下述几种

31、方法中，最快的是 15 。A 拨号BADSLC一线通D光纤入户16接入Internet网的计算机用户为jkf，而连接的效劳商主机名为 ，那么他相应的E-mail地址为16。A jkfB C Djkf.seuedu 17按照汉字的“输入处理输出打印的处理流程，不同阶段使用的汉字编码分别对应为17。A国标码交换码字形码B输入码国标码机内码C输入码机内码字形码D拼音码交换码字形码18以下关于图像的说法，错误的选项是18 。A尺寸大的彩色图片数字化后，其数据量必定大于尺寸小的图片的数据量B图像的数字化过程大体可分为四步：扫描、取样、分

32、色、量化C像素是构成图像的根本单位D黑白图像或灰度图像只有一个位平面19计算机信息系统简称“信息系统是一类以提供信息效劳为主要目的的数据密集型、人机交互的计算机应用系统。在以下有关信息系统的表达中，错误的选项是 19 。A在信息系统中，绝大多数数据是持久的，不随程序运行的结束而失效B信息系统开发方法有多种，例如生命周期法、原型法等CMRP的英文说法是Material Requirement Planning ，制造业物料需求方案D电子商务，简称EC，是指对整个贸易活动实现电子化20在使用Excel 97/2000/2003处理数据时，以下表达中正确的选项是 20 。A单元格的引用分为绝对引用和

33、相对引用两种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

34、运行程序时，显示以下图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 For

35、m_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 10P

36、rint 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在

37、创立菜单时，如果命令在完成之前还需要附加信息，那么在其名称后面应当有一个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

38、 = 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

39、= 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

40、 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

41、Long, b As Long) As LongDim r As LongDim t As LongIf 13Thent = aa = bb = tEnd Ifr = a Mod bDo While r 0a = bb = rr = a Mod bLoop14End 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,

42、 c As IntegerFor a = 1 To 9For b =1516For c = 2 To 9m = c * (a * 10 + b)sum = 0Dosum = sum + m Mod 10m = m 10Loop While m 0If17Then flg = 0: Exit ForNext cIf18ThenPrint a; bEnd IfNext bNext aEnd Sub13以下程序的功能是计算圆周率计算精度到第n项减1的绝对值小于10-5为止。请完善以下程序。Option ExplicitPrivate Sub Form_Click()Dim y As Single,

43、t As Single, a As Singley = 2: t = 0Dot = Sqr(2 + t)19If Abs(a - 1) 1E-5 Then 20y = y * aLoopPrint pi=; yEnd Sub14统计1,1000中包含数字1自然数，并将统计结果值，以及每相间100内具有该特征的数显示在文本框中，如图3所示。图3Private Sub Form_Click()Sum = 0: sum1 = 0For i = 1 To 100021For j = 1 To Len(s)If Mid(s, j, 1) = 1 ThenSum = Sum + 1sum1 = sum1

44、+ 122End IfNext jIf i Mod 100 = 0 ThenText1.Text = Text1.Text + Str(sum1)23End 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

45、 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 EOFf1CloseEnd Sub问：在列表框中第一行、第三行、第四行的内容是24、25、26。窗体上打印出的是27。16编写一过程把C盘中的Config.sys文件内容读出，并在文本框中显示出来。在窗体Form1上建立一个文本框Text1，将其MuhiLin

46、e属性设置为True，ScrollBars属性设置为3-Both。给定的程序不完整，将程序补充完整。Option ExplicitPrivate Sub Form_Click()Dim ch1 As String, fn As IntegerDim Str As Stringfn = 28Open C:Config.sys For Input As fnDo While Not EOF(29)Line Input #fn, ch1Str = Str + ch1 + vbCrLfLoopText1.Text = 30End Sub二级Visual Basic全真模拟试卷二参考答案一、选择题：1D

47、2C3C4B5A6C7B8B9D10C11A12B13C14D15D16B17C18A19C20B21B22A23B24C25C26A27C28A29C30A二、填空题：12工程执行全编译3双精度浮点数4Cbool5MultiLine6137148139Main:2 2 31015117812fun1(x,y)13ab14fun1=b150 To 9 16flg=117a+bsum18flg=119a=2/t20Exit Do21s=CStr(i)22Exit For23sum1=0242001258726200227True28ReDim s(t)29String(2*i+1,*)30Pri

48、nt s(i)江苏省高等学校非计算机专业学生计算机根底及应用能力等级考试试卷二级Visual Basic全真模拟试卷三本试卷包括计算机根底知识局部和程序设计局部，考试时间共120分钟说明：1本试卷总分值为60分，分选择题和填空题，试卷不分A、B类型。2选择题用答题卡答题。每一项有A、B、C、D四个可供选择的答案，请选择其中一个你认为正确的答案，用HB铅笔涂写在答题卡的相应答题号内。每选对一项得1分，不选或选错不得分。3填空题用答题纸答题。请将答案填写在答题纸的相应答题号内，每个答案只占一行,不得换行。每填对一个答案得1分，不填或填错不得分。4请认真填写并仔细核对答题卡和答题纸上的学校名称、准考

49、证号和姓名是否填写正确。 第一局部计算机根底知识1数据通信中的数据传输速率是最重要的性能指标之一，它指单位时间传送的二进位数目，下面是一些计量单位1Kb/s2MB/s3Mb/s4Gb/s其中常用的是1。A1B2和4C1、2、3和4D1、3和42下面有关于微电子技术的说法，错误的选项是2。 A集成电路将永远遵循Moore定律BIC卡是“集成电路卡的缩写C现代PC机所使用的电子元件都是超大规模和极大规模集成电路D现代集成电路使用的半导体材料通常是硅Si 3以下关于PC机主板的表达中，错误的选项是3。ACPU和RAM存储器均通过相应的插座安装在主板上B芯片组是主板的重要组成局部，所有控制功能几乎都集

50、成在芯片组内C软盘驱动器也安装在主板上D为便于安装，主板的物理尺寸已标准化4X的补码为10011000，其原码为4。A11101000B11100111C10011000D1110011055是一种新型的非易失性存储器，但又像RAM一样能快速方便地写入信息。ADRAMBFlashRAMCSRAMDCACHE6以下4项中，错误的IP地址是6。A0B60.268.24.128C9D97一幅12801024的24位真彩色图像，如果未经压缩，那么它的数据量为7。A3.75MB B768KBC24KBD1.44MB8目前许多外部设备如打印

51、机、数码相机、扫描仪等采用了USB接口。下面关于USB的表达中，错误的选项是8。AUSB接口有两种规格，2.0版的数据传输速度要比1.1版快得多B主机不能通过USB连接器引脚向外设供电C利用“USB集线器，一个USB接口能连接多个设备DUSB属于一种串行接口9以下说法中，错误的选项是9。A硬盘安装在机箱内，属于主机的组成局部B硬盘驱动器和盘片是密封在一起的，不能随意更换盘片的C硬盘是多张盘片组成的盘片组D硬盘的技术指标除容量外，另一个是转速10 以下属于应用软件的是 10。Word Windows XP LinuxVisual Basic MSN Messenger 7.5 图书管理系统A B

52、C D11在以下有关indows982000XP操作系统的表达中，错误的选项是 11。A它们都支持即插即用n功能B它们都支持支持FAT32文件系统C优盘中被删除的文件可从“回收站中回复出来D它们都是32位操作系统12以下各条中，对计算机操作系统的作用完整描述的是12。A它是用户与计算机的界面B它对用户存储的文件进行管理，方便用户C它管理计算机系统的全部软、硬件资源，合理组织计算机的工作流程，以到达充分发挥计算机资源的效率，为用户提供使用计算机的友好界面D它执行用户键入的各类命令13比拟算法和程序，以下说法中正确的选项是13。A程序中的指令和算法中的运算语句都必须用高级语言表示B算法和程序都必须

53、满足有穷性C算法可采用“伪代码或流程图等方式来描述D算法就是程序1414由两局部组成，第一局部指出客户端希望得到主机提供的哪一种效劳，第二局部是主机名和网页在主机上的位置。A BTELNETCURLDWWW 15在数据库系统中，最常用的一种根本数据模型是关系数据模型。在这种模型中，表示实体集及实体集之间联系的结构是15。A网络B图C二维表D树16发送邮件时，邮件传送程序必须与远程的邮件效劳器建立TCP连接，并按照16协议传输邮件。如果接受方邮箱在效劳器上确实存在，才进行邮件的发送，以确保邮件不会丧失。APOP3BTCPCSMTPDIP17在中文Windows 98/2000/XP环境下，设有一

54、段文本，该文本中有4个汉字和2个西文字符，那么这段文字的内码，最有可能是17。ACB F5 D0 B4 50B9B 95 90 94 50 43 8A 87 D6 B8CCB 45 D0 B4 50 43 CA C7 46 B8DCB F5 D0 B4 50 43 CA C7 D6 B8 18在以下有关声卡的描述中，错误的选项是18。A声卡的主要功能是控制波形声音和MIDI声音的输入输出B波形声音的质量与量化位数、采样频率有关C声卡中数字信号处理器在完成数字声音的解码及编辑操作中起着重要作用D声卡所要求的数据率不高，用ISA 总线进行传输19信息分析系统是一种高层次的信息系统，为管理决策人员掌

55、握企事业单位运行规律和趋势、制订规划、进行决策的辅助系统，可分为 19 和经理支持系统。A信息处理系统 B决策支持系统C学生信息系统 D图书管理系统20在使用Excel 97/2000/2003处理数据时，以下表达中不正确的选项是 20 。A在Excel中提供了许多内置函数, 函数范围包括数据库、数学和三角函数、查询与引用函数等B在默认情况下，每一个工作簿文件会翻开3个工作表文件，分别以Sheet1、Sheet2、Sheet3来命名C每个工作表中的行和列数量是没有限制的 D在Excel中，输入公式前要先输入一个等号“才行第二局部Visual Basic程序设计一、选择题用答题卡答题，答案依次填

56、在2130答题号内21代数式对应的Visual Basic6.0表达式是21。Asqr(1+(s+t)/(x+y)/log(s)B(1+(s+t)/(x+y)/log(s)/2Csqr(1+(s+t)/(x+y)/ln(s)Dsqr(1+s+t/x+y)/log(s)22设变量D为Date型、A为Integer型、S为String型、L为Long型，下面赋值语句中不能执行的是22。AD=#11:30:00 PM#BA= 182 * 182CS=DateDL=5487D423在窗体上有一个框架框(名称为Frame1)，一个计时器(名称为Timerl)，计时器的时间间隔属性Interval=100

57、，在图片框中有一个复选按钮(名称为Check1)和一个命令按钮(名称为Command1)，用户界面如图1所示。图1其中，计时器有Timer1_Timer事件过程如下：Private Sub Timer1_Timer()If Frame1.Left = Form1.Width Then Frame1.Left = 0Frame1.Move Frame1.Left + 50End Sub运行后，窗体中的现象是23。A仅框架框移动B框架框携带复选按钮和命令按钮同时移动C框架框携带复选按钮同时移动D框架框携带命令按钮同时移动24Loc函数作用是，返回一个24。ALong型数据，在已翻开的文件中指定当前

58、读写位置BLong型数据，计算其文件长度CInteger型数据，表示文件号的范围DLong型数据，表示用Open语句翻开的文件的大小25文件操作的一般顺序是25。A操作关闭文件B翻开文件操作关闭文件C翻开文件操作D翻开文件关闭文件操作26运行以下程序：Private Sub Form_Click()For i = 0 To 2Print Tab(4 - i); String(i * 2 + 1, A)Next iPrintEnd Sub单击窗体后，那么在窗体上显示的结果是26。AAAABAAA AAAAAA AAA AAACADAAAAAAAAA AAAAA AAA27运行以下程序：Priva

59、te Sub form_Click()x = InputBox(请输入一个数：)Select Case xCase Is 0: y = x + 1: x = y + 1Case Is = 0: y = x + 2: x = y + 2Case Else: y = x + 3: x = y + 3End SelectPrint x; yEnd Sub从键盘输入1，输出的结果是27。A32B23C22D1428在当前窗体有一个文本框Text1，在D盘的根目录存在数据文件data.txt，数据文件的内容是abc 10 20 30efg 40 50 60假设运行程序，要在文本框中显示的内容是28。Pr

60、ivate Sub Form_Click()Open d:data.txt For Input As #10Do Until EOF(10)Line Input #10, linesText1.Text = Text1.Text + Mid(lines, 5, 2)LoopClose #10End SubAabc B1040CefgD10 2029运行以下程序：Private Sub form_Click()Dim xx = 0Do While x 65n = String(3, UCase(s)Case Is = 65n = String(3, LCase(s)Case Elsen = sE