江苏省计算机二级VB试题与答案

63/63二级VisualBasic全真模拟试卷一1．信息处理系统是综合使用信息技术的系统。下面有关信息处理系统的叙述中错误的是____1____。A．信息处理系统从自动化程度来看，有人工的、半自动化的和全自动化的B．应用领域很广泛。例如银行是一种以感知与识别为主要目的的系统C．信息处理系统是用于辅助人们进行信息获取、传递、存储、加工处理与控制的一种系统D．从技术手段上来看，有机械的、电子的和光学的;从通用性来看，有专片和通用的2．2。A．集成电路是20世纪50年代出现的B．现代集成电路使用的半导体材料通常是硅或砷化镓C．集成电路的许多制造工序必须在恒温、恒湿、超洁净的无尘厂房完成D．集成电路按用途可分为通用和专用两大类。微处理器和存储器芯片都属于专用集成电路3．在通信系统的性能指标中，3是指数据传输中出错数据占被传输数据总数的比例。A．信道带宽B．误码率 C．数据率 D．端-端延迟4．以下数据最大的是4。A．01110110B B．120D C．7DH D．177Q5．从逻辑功能上来讲，计算机硬件主要包括中央处理器（CPU）、存储器、外存储器、输入设备和输出设备等，它们通过5互相连接。A．总线 B．控制线 C．数据线 D．地址线6．6接口是一种新的I/O接口，它是一种可以连接多个设备的总线式串行接口，2.0版的数据传输速率可高达480Mb/s（60MB/s），最多可以连接127个设备。A．USB B．IEEE1394 C．SCSI D．并行7．下列不属于无线局域网设备的是7。A．无线网卡B．蓝牙 C．无线HUB D．无线网桥8．FAT16、FAT32、NTFS是三种不同的文件系统，Windows2000/XP操作系统支持___8___。FAT32和FAT16文件系统 BNTFS文件系统CFAT32和NTFS文件系统DFAT16、FAT32和NTFS文件系统下列关于CD-ROM存储器描述中，错误的是9。A．CD盘上凹坑表示0，凹坑外表示1B．CD盘上记录数据的是一条由里向外连续的螺旋道C．CD-ROM需要记录的信息实现要制作到光盘上，用户不能抹除，也不能再写入D．CD-ROM成本低，可靠性好，非常耐用，即使盘面有指纹或灰尘存在，数据仍能读出10属于文字处理软件。A．PageMarker和WordB．Word和3DMAXC．Photoshop和WPSD．Paintbrush和Flash列属于自由软件的操作系统是11。A．UNIX B．OS/2 C．WINDOWS D．LINUX12．下列关于操作系统任务管理的说法，错误的是12。A．Windows操作系统支持多任务处理B．分时是指将CPU时间划分成时间片，轮流为多个程序服务C．分时处理要求计算机必须配有多个CPUD．并行处理可以让多个处理器同时工作，提高计算机系统的效率13．分析某个算法的优劣时，从需要占用的计算机资源角度，应考虑的两个方面是13。A．正确性和简明性B．空间代价和时间代价C．可读性和开放性 D．数据复杂性和程序复杂性14．下列关于病毒的描述中，正确的是14。A．计算机病毒也称为木马B．病毒很厉害，只要收到带病毒的，不管看不看，计算机都会染上病毒C．如果一台计算机染上了病毒，它旁边的计算机很有可能被传染，因此两台计算机之间要有一定的距离D．计算机病毒是一些人蓄意编制的一种寄生性的计算机程序15．A．线 B．微波C．双绞线 D．光缆16．下面对于WWW和Email的说法中，错误的是16。A．网页是一种采用HTML超文本标记语言描述的超文本文档,HTML文档包括头部和正文两大部分B．电子一般由三个部分组成：的头部、的正文、的附件C．现在的电子正文中只能发送普通文本，图片等多媒体信息只能在附件中才能发送D．Web是按客户/服务器模式工作的17．下面关于汉字编码标准的叙述中，正确的是17。A．同一个汉字的不同造型（如宋体、楷体等）在计算机中的码不同B．Unicode是我国最新发布的也是收字最多的汉字编码国家标准C．GB18030与GB2312和GBK汉字编码标准不兼容D．在GB18030汉字编码国家标准中，共有2万多个汉字18．适用于交互式多媒体应用，包括虚拟现实、远程教学、交互式电视等的视频压缩标准是18。A．MPEG-1 B．MPEG-4 C．MPEG-3 D．MPEG-219．下列信息系统中19属于三次信息的处理系统。A．管理层业务处理系统B．信息分析系统C．专家系统D．信息检索系统20．关于Excel97/2000/2003的数据筛选，下列说法中正确的是20。A．筛选后的表格中只含有符合筛选条件的行，其它行被删除B．筛选条件只能是一个固定的值C．筛选后的表格中只含有符合筛选条件的行，其它行被暂时隐藏D．筛选条件不能由用户自定义，只能由系统确定21．创建应用程序的界面时，在窗体上设置了一个文本框，运行程序后，文本框没有出现在窗体上，可能的原因是。A．该文本框的Value属性被设置为FalseB．该文本框的Enabled属性被设置为FalseC．该文本框的Visible属性被设置为FalseD．该文本框的Default属性被设置为True22．下列不是VisualBasic事件名称的是22。A．Change B．Click C．Scroll D．ChDir23．由系统提供的，可在任何一个VB程序中随时使用的程序段的函数是23。A．部函数 B．公共函数 C．逻辑函数 D．关系函数24．SQL缩写所表示的意思是24。A．开放式容器B．结构查询语言C．数据库联接 D．数据库编程25．Write#语句与Print#语句功能基本一样，它们之间的主要差别之一正确的是25。A．Write#语句写数值型的，而Print#语句写非数值型的B．如果是字符串数据，Write#语句写数据后在其两边加双引号，而Print#语句没有C．Write#语句按紧凑格式写文件，而Print#语句按标准格式写文件D．Write#语句按标准格式写文件，而Print#语句按紧凑格式写文件26．Datetime是Data类型的变量，以下赋值语句中错误的是26。A．Datetime=#5/8/03# B．Datetime=#Septemberl,2003#C．Datetime=#10:21:00AM# D．Datetime="5/6/03"27．运行下列程序：PrivateSubForm_Click()DimsumAsIntegerDimiAsIntegersum=0Fori=12.4To3.1Step-3.8sum=sum+iNextiDebug.PrintsumEndSub单击窗体后，则在立即窗口上输出结果是27。A．15 B．-0.7 C．24 D．028．运行下列程序：PrivateSubCommand1_Click()DimxAsInteger,nAsIntegern=0Don=n+2x=x+nLoopWhilen<10Debug.PrintxEndSub单击Command1命令按钮后，则在立即窗口上输出结果是是28。A．2 B．10 C．12 D．3029．运行下列程序：PrivateSubCommand1_Click()a=100b=24a=aModbb=b\aa=b-aDebug.PrintaEndSub单击Command1命令按钮后，则在立即窗口上输出结果是29。A．2 B．24 C．50 D．10030．下列程序运行后，信息框显示的容是30。PrivateSubCommand1_Click()Dims1AsStringDims2AsIntegers1="Hello-World,2004"s2=Len(s1)+InStr(1,s1,"2")MsgBoxs2EndSubA．Hello-World B．2003 C．16 D．29二、填空题（请将答案填写在答题纸的相应答题号，每个答案只占一行）（每空1分，共30分）1．freefile函数的作用是返回一个可供Open语句使用的，整型数据的（1）。2．执行MyResult=12.6Mod5后，变量MyResult将返回结果是（2）。3．菜单控件的Checked属性用于将复选标记放到菜单项的左侧，以便表示菜单项的（3）。4．数组组中的控件通过索引值来区别，设置索引号的属性是（4）。5．InputBox函数来返回值的类型是（5）。6．运行下列程序：PrivateSubForm_Click()Sum=0Fori=1To100IfMid(CStr(i),1,1)="1"ThenSum=Sum+1EndIfNextiPrintSumEndSub单击窗体后，则在窗体上显示的结果是（6）。7．运行下列程序：PrivateSubCommand1_Click()b=1DoWhileb<20b=b*b+1a=a+bLoopMsgBoxaEndSub单击Command1命令按钮后，则弹出的消息对话框中显示（7）。8．窗体上有4个文本框控件数组text1()和一个命令按钮，程序运行前如图1所示，程序运行后如图2所示。给定的程序不完整，将程序补充完整。图1图2Dimx(3)AsIntegerPrivateSubCommand1_Click()Fori=0To3x(i)=（8）NextiFori=0ToUBound(x)-1Forj=iToUBound(x)If（9）Thent=x(i)x(i)=x(j)x(j)=tEndIfNextjNextiFori=0To3Text1(i).Text=Str(x(i))NextiEndSub9．下列程序是将两个文本框(tetx1和text2)的容进行组合，组合后的结果在图片框(Pic1)显示出来，如图3所示。给定的程序不完整，将程序补充完整。图3PrivateSubCommand1_Click()Dims1AsString,s2AsStrings1=Text1.Texts2=Text2.TextFori=（10）s3=s3+Mid(s1,i,1)+Mid(s2,i,1)Nextipic1.Prints3EndSub10．下列程序的功能是将数组中的奇数相加。给定的程序不完整，将程序补充完整。OptionBase1PrivateSubform_Click()DimkAsIntegerDimTotalAsIntegerDimnn=Array(1,2,3,4,5,6,7,8,9,10)Fork=1ToUBound(n)If（11）ThenTotal=Total+n(k)EndIfNextkPrintTotalEndSub11．窗体上有三个文本框Text1控件数组，两个按钮Command1和Command2，一个图片框Pic1。程序功能是解一个一元二次方程()。程序运行后如图4所示。给定的程序不完整，将程序补充完整。图4PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimx1AsSingle,x2AsSingleDimstAsSinglea=Val(Text1(0).Text)b=Val(Text1(1).Text)c=Val(Text1(2).Text)Ifa<>0Thencol=（12）st=-b/(2*a)If（13）Thenx1=st+Sqr(col)/(2*a)x2=st-Sqr(col)/(2*a)Pic1.Print"方程有两个实根";x1,x2ElseIfcol=0ThenPic1.Print"方程有两个相等实根";stElsex1=Sqr(-col)/(2*a)Pic1.Print"方程有两个虚根";st;"+i";x1,st;"-i";x1,EndIfElseIf（14）Thenroot1=-b/cPic1.Print"方程仅有一个根";root1ElsePic1.Print"方程无意义"EndIfEndIfEndSubPrivateSubCommand2_Click()Text1(0).Text=""Text1(1).Text=""Text1(2).Text=""Pic1.（15）EndSub12．下列程序运行后如图5所示。给定的程序不完整，将程序补充完整。图5PrivateSubform_Click()k=7Fori=5To1Step-2PrintTab(k);（16）k=k+1NextiEndSub13．运行下列程序：PrivateSubCommand1_Click()DimsAsInteger,iAsIntegers=0Fori=5.8To0.3Step-1.3s=s+1NextiPrintsEndSub单击Command1命令按钮后，则在窗体上显示的结果是（17）。14．下列程序中有一个按钮Command1，一个文本框text1，其属性MultiLine＝True。当单击按钮后，文本框显示（18）行数据，其中第二行和第三行的数据分别是（19）和（20）。OptionExplicitPrivateSubCommand1_Click()DimaAsSingle,iAsIntegera=1.2Fori=1To3a=a*iPrintfun1(a)NextiEndSubPrivateFunctionfun1(tAsSingle)AsSingleStaticyAsSingley=y+tt=y+1fun1=tEndFunction15．要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。OptionBase1PrivateSubCommand1_Click()Dimb()Randomize（21）Dox=RndIfx>0.5Theny=1Elsey=-1t=y*Int(Rnd*100)+1（22）DoWhilek<jIft<>b(k)Thenk=k+1ElseExitDoEndIfLoopIfk=jThenReDimPreserveb(k)b(k)=tPrintb(k);j=j+1EndIfLoopUntilj>50Print（23）Max=b(1)Forn=2To50Ifb(n)>MaxThen（24）p=nEndIfNextnPrint"最大数是：";MaxPrint"位置在第";p;"个"EndSub16．有下列程序，运行后变量x1、y1和z1的结果分别是（25）、（26）和（27）。PrivateSubfun1(s,m,n)s=m+1m=n+2n=s+3EndSubPrivateSubform_Click()Dimx1,y1x1=1y1=1z1=1Callfun1(x1,y1+1,(z1))Debug.Printx1;y1;z1EndSub17．编写一过程把C盘中的Config.sys文件容读出，并在文本框中显示出来。在窗体Form1上建立一个文本框Text1，将其MuhiLine属性设置为True，ScrollBars属性设置为3-Both。给定的程序不完整，将程序补充完整。OptionExplicitPrivateSubForm_Click()Dimch1AsString,fnAsIntegerDimStrAsStringfn=（28）Open"C:\Config.sys"ForInputAsfnDoWhileNotEOF(（29）)LineInput#fn,ch1Str=Str+ch1+vbCrLfLoopText1.Text=（30）EndSub二级VisualBasic全真模拟试卷一参考答案一、选择题：1．B2．D3．B4．C5．A6．A7．B8．D9．A10．A11．D12．C13．B14．D15．C16．C17．D18．B19．B20．C21．C22．D23．A24．B25．B26．B27．C28．D29．A30．D二、填空题：（1）文件号（2）3（3）开/关（4）Index（5）字符串（6）12（7）33（8）Val(Text1(i).Text)（9）x(i)>x(j)（10）Len(s1)To1Step-1（11）n(k)Mod2<>0（12）b^2-4*a*c（13）col>0（14）b<>0（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二级VisualBasic全真模拟试卷二1．下列关于“信息系统”的叙述中错误的是1。A．图书馆是一种以信息收藏和检索为主的系统B．雷达是一种以感知与识别为主要目的的系统C．信息系统可以有人工的，也可以有自动的D．电视系统是一种双向的、点到点的信息系统2．下列叙述中，错误的是2。A．微电子技术以集成电路为核心B．硅是微电子产业中常用的半导体材料C．现代微电子技术已经用砷化镓取代了硅D．制造集成电路都需要使用半导体材料3．下面对于多路复用技术的说法中，正确的是3。A．将同一信号沿多条线路传输，以提高可靠性B．将同一信号多次传输，以提高正确率C．将多路信号沿同一条线路传输，以提高利用率D．可分为时分和频分多路复用两种4．十进制算式3×512+7×64+5的运算结果对应的二进制数是4。A． B．C． D．5．从逻辑功能上来讲，计算机硬件主要包括5、存储器、外存储器、输入设备和输出设备等，它们通过总线互相连接。A．中央处理器 B．控制器 C．运算器 D．寄存器6．现在PC机上常用的总线是1991年开始使用的6局部总线。A．ISA B．EISA C．PCI D．AGP7．7文档最重要的特性是它能支持超链。链源可以是文本中的任何一个字、词或句子，甚至可以是一幅图象。链宿可以是另一个Web服务器上的某个信息资源，也可以是文本部标记书签的某个地方。A．TELNET B．HTML C．URL D．WWW8．CPU中有一个程序计数器（又称指令计数器），它用于存放8。A．下一条要执行的指令的存地址B．正在执行的指令的容C．下一条要执行的指令的容 D．正在执行的指令的存地址9．关于PC机组成，下列说法错误的是9。A．CPU和存储器芯片分别通过主板上的CPU插座和存储器插座安装在主板上B．PC机常用的外围设备主要通过一些扩充卡（如声音卡、视频卡等）与主板相连C．CRT显示器通过插入AGP插槽的图形卡与主板相连D．扩充卡的功能不能集成在主板上10．10属于绘图软件。A．Word和FrameMakerB．AutoCAD和FoxmailC．Photoshop和CoreDrawD．PageMaker和Dreamweaver11．下面对于操作系统的一些说法，正确的是11。A．文件管理可以实现文件的共享、和保护B．“虚拟存”其实是外存C．用户必须了解设备与接口的技术细节才能使设备和计算机协调工作D．作业管理的任务主要是管理存资源的合理使用12．下面关于Windows的说法中，错误的是12。A．Windows采用并发多任务方式支持系统中多个任务的执行B．Windows可以在任何一台计算机上运行C．Windows2000server不是目前Windows系列操作系统的最新版本D．WindowsXP既适合家庭用户，也适合商业用户13．实现算法所需的存储单元多少称为算法的13。A．可实现性 B．困难度C．空间复杂度 D．时间复杂度14．适用于DVD、高清晰度电视的视频压缩标准是14。A．MPEG-4 B．MPEG-1 C．MPEG-3 D．MPEG-215．目前我国家庭计算机用户接入互联网的下述几种方法中，最快的是15。A．拨号 B．ADSL C．一线通D．光纤入户16．已知接入Internet网的计算机用户为jkf，而连接的服务商主机名为，则他相应的E-mail地址为16。A．jkf B．C． D．17．按照汉字的“输入处理输出打印”的处理流程，不同阶段使用的汉字编码分别对应为17。A．国标码交换码字形码 B．输入码国标码机码C．输入码机码字形码 D．拼音码交换码字形码18．下列关于图像的说法，错误的是18。A．尺寸大的彩色图片数字化后，其数据量必定大于尺寸小的图片的数据量B．图像的数字化过程大体可分为四步：扫描、取样、分色、量化C．像素是构成图像的基本单位D．黑白图像或灰度图像只有一个位平面19．计算机信息系统（简称“信息系统”）是一类以提供信息服务为主要目的的数据密集型、人机交互的计算机应用系统。在下列有关信息系统的叙述中，错误的是

19

。A．在信息系统中，绝大多数数据是持久的，不随程序运行的结束而失效B．信息系统开发方法有多种，例如生命周期法、原型法等C．MRPⅡ的英文说法是MaterialRequirementPlanningⅡ，制造业物料需求计划ⅡD．电子商务，简称EC，是指对整个贸易活动实现电子化20．在使用Excel97/2000/2003处理数据时，下列叙述中正确的是20。A．单元格的引用分为绝对引用和相对引用两种B．一个工作表最多有65536行，256列C．一个工作簿中可以无工作表D．在Excel中输入公式后，该表达式的计算结果就被存储在单元格中21．若需要在同一窗口安排两组相互独立的单选按钮（OptionButton），适当的控件将它们分隔开。下列不能将单选按钮分组的控件是21。①TexBox②PictureBox③Image④Frame⑤ListBoxA．①②③ B．①③⑤ C．②④⑤ D．③④⑤22．VisualBasic指定参数x的自然对数值，返回一个Double的函数是22。A．Log(x) B．Lg(x) C．Exp(x) D．Ln(x)23．运行程序时，显示下图1容的语句是23。A．b=InputBox("输入一个整数",2003,"程序示例")B．b=InputBox("程序示例","输入一个整数",2003)C．b=MsgBox("输入一个整数",2003,"程序示例")D．b=MsgBox("程序示例","输入一个整数",2003)图124．各种运算符间的优先顺序，从高到低是24。A．比较运算符→算术运算符→逻辑运算符B．比较运算符→逻辑运算符→算术运算符C．算术运算符→比较运算符→逻辑运算符D．算术运算符→逻辑运算符→比较运算符25．将表达式转换为Double类型的函数是25。A．Cbool B．Cbyte C．Cdbl D．Cstr26．运行下列程序：PrivateSubForm_Click()DimsumAsDouble,iAsIntegerFori=1To20IfiMod5=0Thensum=sum+iEndIfNextiPrintsumEndSub单击窗体后，则在窗体上显示的结果是26。A．50 B．100 C．4 D．505027．如果在立即窗口中执行以下操作：x=1<CR>'<CR>表示回车，下同y=2<CR>Printx>y<CR>则输出结果是27。A．-1 B．1 C．False D．True28．运行下列程序：PrivateSubForm_Click()a=32:b=5Doa=a/2b=b+1LoopWhileb<10PrintaEndSub单击窗体后，则在窗体上显示的结果是28。A．1 B．2 C．5 D．1129．运行下列程序：OptionBase1PrivateSubForm_Click()y=43x=Array(21,4,50,18,23,44,87,32,67,70)Fori=1To10Ifx(i)<yThenz=x(i)+1y=x(i)Elsez=z+yEndIfNextiPrintzEndSub单击窗体后，则在窗体上显示的结果是29。A．43 B．21 C．37 D．4430．运行下列程序：PrivateSubform_Click()t=Val(InputBox("请输入一个数："))x=t-1SelectCasetCase1To10y=4*tCaseIs>10y=3*tCaseElsey=2*tEndSelectPrintx;yEndSub运行时，从键盘输入4，输出的结果是30。A．316 B．44 C．34 D．410二、填空题（请将答案填写在答题纸的相应答题号，每个答案只占一行）（每空1分，共30分）1．在创建菜单时，如果命令在完成之前还需要附加信息，则在其名称后面应当有一个（1）。2．VB6.0集成开发环境中，功能键Ctrl+F5的功能是对（2）。3．在VB6.0中定义变量时，通过在变量名后加一个用于规定变量类型的说明字符，来规定变量的类型。当变量名后加“#”时，则表明该变量为（3）。4．将表达式的结果为非零的值返回True；否则返回False的函数是（4）。5．为了在TextBox控件中显示多行文本，要将（5）属性设置为True。6．运行下列程序，单击窗体后，则在窗体上显示的第四行和最后一行的结果分别是（6）和（7）。PrivateSubForm_Click()n=0a=1:b=2:c=3Fori=1To4Forj=0Toia=b+1:b=c+2:c=a+2n=n+1PrintcNextjNextiPrintnEndSub7．在窗体有有一文本框，名为text1，则执行如下事件过程后，文本框中的输出为（8）。PrivateSubform_Click()Fori=1To3a=1Forj=1To3a=a+4NextjNextiText1.Text=Str(a)EndSub8．下列程序运行后，在窗体上打印的结果是（9）。PrivateSubtest(a,b,c)a=a+1:b=b+2:c=c+3EndSubPrivateSubCommand1_Click()x=1:y=2:z=3Calltest(x,y+3,(z))Print"Main:";x;y;zEndSub9．下列程序的执行结果是（10）。PrivateSubForm_Click()s=50:n=2Dos=s-nn=n+1LoopUntiln>8PrintsEndSub10．运行下列程序：PrivateSubForm_Click()DoForI=1To100m=Int(Rnd*100)+1SelectCasemCase13:ExitForCase78:ExitDoEndSelectn=n+1NextILoopPrintmEndSub单击窗体后，则在窗体上显示的结果是（11）。11．下列程序的功能是计算两个自然数的最大公约数，如图2所示。给定的程序不完整，将程序补充完整。图2PrivateSubCommand1_Click()DimxAsLong,yAsLong,iAsLongx=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=Str(（12）)EndSubFunctionfun1(aAsLong,bAsLong)AsLongDimrAsLongDimtAsLongIf（13）Thent=aa=bb=tEndIfr=aModbDoWhiler<>0a=bb=rr=aModbLoop（14）EndFunction12．试求出所有满足下述条件的二位数：当它们乘以数字2，3，4，5，6，7，8，9时，其数字之和不变。给定的程序不完整，将程序补充完整。PrivateSubCommand1_Click()DimmAsInteger,sumAsIntegerDimaAsInteger,bAsInteger,cAsIntegerFora=1To9Forb=（15）（16）Forc=2To9m=c*(a*10+b)sum=0Dosum=sum+mMod10m=m\10LoopWhilem>0If（17）Thenflg=0:ExitForNextcIf（18）ThenPrinta;bEndIfNextbNextaEndSub13．下列程序的功能是计算圆周率π（计算精度到第n项减1的绝对值小于10-5为止）。请完善下列程序。……OptionExplicitPrivateSubForm_Click()DimyAsSingle,tAsSingle,aAsSingley=2:t=0Dot=Sqr(2+t)（19）IfAbs(a-1)<1E-5Then（20）y=y*aLoopPrint"pi=";yEndSub14．统计[1,1000]中包含数字1自然数，并将统计结果值，以与每相间100具有该特征的数显示在文本框中，如图3所示。图3PrivateSubForm_Click()Sum=0:sum1=0Fori=1To1000（21）Forj=1ToLen(s)IfMid(s,j,1)="1"ThenSum=Sum+1sum1=sum1+1（22）EndIfNextjIfiMod100=0ThenText1.Text=Text1.Text+Str(sum1)（23）EndIfNextiPrintText2.Text=SumEndSub15．窗体上有一个命令按钮，数据文件data.txt的容如下："宿舍""2001",87"商店""2002",35"教室""2003",92"球场""2004",16又有运行下列程序：TypebsaaAsString*2bbAsString*4ccAsIntegerEndTypePrivateSubCommand1_Click()DimxsAsbsDimf1AsIntegerf1=FreeFileOpen"d:\data.txt"ForInputAs#f1DoWhileNotEOF(f1)Input#f1,xs.aa,xs.bb,xs.ccList1.AddItemxs.bbList1.AddItemxs.aaList1.AddItemxs.ccLoopPrintEOF（f1）CloseEndSub问：在列表框中第一行、第三行、第四行的容是（24）、（25）、（26）。窗体上打印出的是（27）。16．编写一过程把C盘中的Config.sys文件容读出，并在文本框中显示出来。在窗体Form1上建立一个文本框Text1，将其MuhiLine属性设置为True，ScrollBars属性设置为3-Both。给定的程序不完整，将程序补充完整。OptionExplicitPrivateSubForm_Click()Dimch1AsString,fnAsIntegerDimStrAsStringfn=（28）Open"C:\Config.sys"ForInputAsfnDoWhileNotEOF(（29）)LineInput#fn,ch1Str=Str+ch1+vbCrLfLoopText1.Text=（30）EndSub二级VisualBasic全真模拟试卷二参考答案一、选择题：1．D2．C3．C4．B5．A6．C7．B8．B9．D10．C11．A12．B13．C14．D15．D16．B17．C18．A19．C20．B21．B22．A23．B24．C25．C26．A27．C28．A29．C30．A二、填空题：（1）…（2）工程执行全编译（3）双精度浮点数（4）Cbool（5）MultiLine（6）13（7）14（8）13（9）Main:223（10）15（11）78（12）fun1(x,y)（13）a<b（14）fun1=b（15）0To9（16）flg=1（17）a+b<>sum（18）flg=1（19）a=2/t（20）ExitDo（21）s=CStr(i)（22）ExitFor（23）sum1=0（24）2001（25）87（26）2002（27）True（28）ReDims(t)（29）String(2*i+1,"*")（30）Prints(i)二级VisualBasic全真模拟试卷三1．数据通信中的数据传输速率是最重要的性能指标之一，它指单位时间传送的二进位数目，下面是一些计量单位（1）Kb/s （2）MB/s （3）Mb/s （4）Gb/s其中常用的是1。A．（1） B．（2）和（4）C．（1）、（2）、（3）和（4） D．（1）、（3）和（4）2．下面有关于微电子技术的说法，错误的是2。A．集成电路将永远遵循Moore定律B．IC卡是“集成电路卡”的缩写C．现代PC机所使用的电子元件都是超大规模和极大规模集成电路D．现代集成电路使用的半导体材料通常是硅（Si）3．下列关于PC机主板的叙述中，错误的是3。A．CPU和RAM存储器均通过相应的插座安装在主板上B．芯片组是主板的重要组成部分，所有控制功能几乎都集成在芯片组C．软盘驱动器也安装在主板上D．为便于安装，主板的物理尺寸已标准化4．已知X的补码为10011000，其原码为4。A．11101000 B．11100111 C．10011000 D．111001105．5是一种新型的非易失性存储器，但又像RAM一样能快速方便地写入信息。A．DRAM B．FlashRAM C．SRAM D．CACHE6．下列4项中，错误的IP地址是6。A．0 B．60.268.24.128 C．9 D．97．一幅1280×1024的24位真彩色图像，如果未经压缩，则它的数据量为7。A．3.75MB B．768KB C．24KB D．1.44MB8．目前许多外部设备（如打印机、数码相机、扫描仪等）采用了USB接口。下面关于USB的叙述中，错误的是8。A．USB接口有两种规格，2.0版的数据传输速度要比1.1版快得多B．主机不能通过USB连接器引脚向外设供电C．利用“USB集线器”，一个USB接口能连接多个设备D．USB属于一种串行接口9．下列说法中，错误的是9。A．硬盘安装在机箱，属于主机的组成部分B．硬盘驱动器和盘片是密封在一起的，不能随意更换盘片的C．硬盘是多盘片组成的盘片组D．硬盘的技术指标除容量外，另一个是转速10．下列属于应用软件的是10。①Word②WindowsXP③Linux④VisualBasic⑤MSNMessenger7.5⑥图书管理系统A．①③④⑤B．①④⑤⑥C．①⑤⑥D．①⑥11．在下列有关Ｗindows98／2000／XP操作系统的叙述中，错误的是11。A．它们都支持即插即用（ＰnＰ）功能B．它们都支持支持FAT32文件系统C．优盘中被删除的文件可从“回收站”中回复出来D．它们都是32位操作系统12．下列各条中，对计算机操作系统的作用完整描述的是12。A．它是用户与计算机的界面B．它对用户存储的文件进行管理，方便用户C．它管理计算机系统的全部软、硬件资源，合理组织计算机的工作流程，以达到充分发挥计算机资源的效率，为用户提供使用计算机的友好界面D．它执行用户键入的各类命令13．比较算法和程序，以下说法中正确的是13。A．程序中的指令和算法中的运算语句都必须用高级语言表示B．算法和程序都必须满足有穷性C．算法可采用“伪代码”或流程图等方式来描述D．算法就是程序14．14由两部分组成，第一部分指出客户端希望得到主机提供的哪一种服务，第二部分是主机名和网页在主机上的位置。A． B．TELNET C．URL D．WWW15．在数据库系统中，最常用的一种基本数据模型是关系数据模型。在这种模型中，表示实体集与实体集之间联系的结构是15。A．网络 B．图 C．二维表 D．树16．发送时，传送程序必须与远程的服务器建立TCP连接，并按照16协议传输。如果接受方在服务器上确实存在，才进行的发送，以确保不会丢失。A．POP3 B．TCP C．SMTP D．IP17．在中文Windows98/2000/XP环境下，设有一段文本，该文本中有4个汉字和2个西文字符，则这段文字的码，最有可能是17。A．CBF5D0B450 B．9B95909450438A87D6B8C．CB45D0B45043CAC746B8 D．CBF5D0B45043CAC7D6B818．在下列有关声卡的描述中，错误的是18。A．声卡的主要功能是控制波形声音和MIDI声音的输入输出B．波形声音的质量与量化位数、采样频率有关C．声卡中数字信号处理器在完成数字声音的解码与编辑操作中起着重要作用D．声卡所要求的数据率不高，用ISA总线进行传输19．信息分析系统是一种高层次的信息系统，为管理决策人员掌握企事业单位运行规律和趋势、制订规划、进行决策的辅助系统，可分为19和经理支持系统。A．信息处理系统B．决策支持系统C．学生信息系统D．图书管理系统20．在使用Excel97/2000/2003处理数据时，下列叙述中不正确的是20。A．在Excel中提供了许多置函数,函数围包括数据库、数学和三角函数、查询与引用函数等B．在默认情况下，每一个工作簿文件会打开3个工作表文件，分别以Sheet1、Sheet2、Sheet3来命名C．每个工作表中的行和列数量是没有限制的D．在Excel中，输入公式前要先输入一个等号“＝”才行第二部分VisualBasic程序设计一、选择题（用答题卡答题，答案依次填在21～30答题号）21．代数式对应的VisualBasic6.0表达式是21。A．sqr((1+(s+t)/(x+y))/log(s)) B．(1+(s+t)/(x+y))/log(s)/2C．sqr((1+(s+t)/(x+y))/ln(s)) D．sqr((1+s+t/x+y)/log(s))22．设变量D为Date型、A为Integer型、S为String型、L为Long型，下面赋值语句中不能执行的是22。A．D=#11:30:00PM# B．A="182"*182C．S=Date D．L="5487D4"23．在窗体上有一个框架框(名称为Frame1)，一个计时器(名称为Timerl)，计时器的时间间隔属性Interval=100，在图片框中有一个复选按钮(名称为Check1)和一个命令按钮(名称为Command1)，用户界面如图1所示。其中，计时器有Timer1_Timer事件过程如下：PrivateSubTimer1_Timer()IfFrame1.Left>=Form1.WidthThenFrame1.Left=0Frame1.MoveFrame1.Left+50EndSub运行后，窗体中的现象是23。A．仅框架框移动B．框架框携带复选按钮和命令按钮同时移动C．框架框携带复选按钮同时移动D．框架框携带命令按钮同时移动24．Loc函数作用是，返回一个24。A．Long型数据，在已打开的文件中指定当前读／写位置B．Long型数据，计算其文件长度C．Integer型数据，表示文件号的围D．Long型数据，表示用Open语句打开的文件的大小25．文件操作的一般顺序是25。A．操作→关闭文件B．打开文件→操作→关闭文件C．打开文件→操作D．打开文件→关闭文件→操作26．运行下列程序：PrivateSubForm_Click()Fori=0To2PrintTab(4-i);String(i*2+1,"A")NextiPrintEndSub单击窗体后，则在窗体上显示的结果是26。A．AAA B．AAAAAA AAAAAA AAAC．A D．AAAAAA AAAAAAAA AAA27．运行下列程序：PrivateSubform_Click()x=InputBox("请输入一个数：")SelectCasexCaseIs>0:y=x+1:x=y+1CaseIs=0:y=x+2:x=y+2CaseElse:y=x+3:x=y+3EndSelectPrintx;yEndSub从键盘输入1，输出的结果是27。A．32 B．23 C．22 D．1428．在当前窗体有一个文本框Text1，在D盘的根目录存在数据文件data.txt，数据文件的容是abc102030efg405060若运行程序，要在文本框中显示的容是28。PrivateSubForm_Click()Open"d:\data.txt"ForInputAs#10DoUntilEOF(10)LineInput#10,linesText1.Text=Text1.Text+Mid(lines,5,2)LoopClose#10EndSubA．abc B．1040 C．efg D．102029．运行下列程序：PrivateSubform_Click()Dimxx=0DoWhilex<10x=x+3LoopMsgBoxxEndSub单击窗体后，则在窗体上显示的结果是29。A．0 B．3 C．10 D．1230．运行下列程序：PrivateSubform_Click()s=InputBox("请输入一个字符A：")SelectCaseAsc(s)CaseIs>65n=String(3,UCase(s))CaseIs=65n=String(3,LCase(s))CaseElsen=sEndSelectPrintnEndSub从键盘输入A，输出的结果是30。A．aaa B．AAA C．65 D．a二、填空题（请将答案填写在答题纸的相应答题号，每个答案只占一行）（每空1分，共30分）1．由VisualBasic系统中，引发事件的对象叫做（1）。2．在VB6.0中，CInt(-3.4)的函数值是（2）。3．Stretch的属性只使用于（3）控件。4．在用Open语句打开文件时，设定为二进制访问模式是（4）。5．指示复选框处于选定、未选定或禁止状态(暗淡的)中的属性是（5）。6．下列程序运行时，单击鼠标的右键时，窗体上打印出的数值是（6）。PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)ClsPrintButtonEndSub7．下列程序运行后，输出的图形是一个（7）。PrivateSubForm_Click()DimCx,CyCx=ScaleWidth/2Cy=ScaleHeight/2Line(Cx,0)-(Cx,ScaleHeight)Line(0,Cy)-(ScaleWidth,Cy)EndSub8．运行下列程序,单击Command1命令按钮后，则在窗体上显示第一行和第二行的结果分别是（8）和（9）。PrivateSubCommand1_Click()t=1:x=2:y=3:z=4Ift>0Ort=xAndx<>yOry>zThent=fun1(t,z)PrinttElset=fun1(x,y)PrinttEndIfPrintxPrintyEndSubFunctionfun1(ByValxAsInteger,ByValyAsInteger)AsIntegerDoWhiley<>0t=x\yx=yy=tLoopfun1=xEndFunction9．当下列程序运行，单击窗体后，分别输入72和24，信息框上显示的结果是（10）。PrivateSubForm_Click()DimxAsInteger,yAsIntegerx=Val(InputBox("输入整数72"))y=Val(InputBox("输入整数24"))z=fun1(x,y)MsgBoxStr(z)EndSubPrivateFunctionfun1(ByValaAsInteger,ByValbAsInteger)AsIntegerDor=aModba=bb=rLoopUntilr=0fun1=aEndFunction10．运行下列程序，单击窗体后，则在窗体上显示第一行和第二行的结果分别是（11）和（12）。PrivateSubForm_Click()x=3:y=7:z=2:t=5Doy=y+xx=x+yCallsub1(x,y,z,t)Printx;z;tLoopWhilex<54EndSubPrivateSubsub1(x,y,z,ByValw)z=xy=zw=x+y+zx=wEndSub11．下列程序运行后，在窗口显示结果的第二行和第三行分别是（13）和（14）。OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)Callsub1(a,3)Fori=1To5Printa(i)NextiEndSubPublicSubsub1(x,n)Ifn>1Thent=x(1)x(1)=x(n-1)x(n-1)=tCallsub1(x,n-1)EndIfEndSub12．下列程序的窗口上有一个列表框List1，程序运行单击窗体后列表框最后一行的值为（15），List1.ListCount的值为（16）。OptionBase1PrivateSubform_Click()Fori=1To10List1.AddItemiNextiSum=0Fori=0ToList1.ListCount-1Sum=Sum+List1.List(i)NextiList1.AddItemSumEndSub13．下列程序运行后，在对话框输入4后，结果如图2所示。给定的程序不完整，将程序补充完整。图2PrivateSubform_Click()Dims()t=Val(InputBox("请输入整数4"))k=2*t（17）Fori=0To2*tSelectCaseiCaseIs=0,2*ts(i)=String(2*t,"")+（18）CaseIs<ts(i)=String(k,"")&"*"&String(2*i-1,"")&"*"CaseElses(i)=String(i,"")&"*"&String(2*k-1,"")&"*"EndSelect（19）NextiFori=0To2*tPrints(i)NextiEndSub14．有下列程序，利用下列公式，即级数求和的方法，求cos(x)值。计算精度为1×10－6。程序运行后的结果如图3所示。给定的程序不完整，将程序补充完整。OptionBase1PrivateSubCommand1_Click()DimxAsSingle,nAsLong,sumAsSinglex=Val(Text1.Text)sum=1k=-1n=2（20）Dos=s*x*xt=s/fun1(n)sum=sum+k*tn=n+2k=（21）LoopUntilt<0.000001Text2.Text=sumEndSubPrivateFunctionfun1(nAsLong)AsLongDimiAsLongIfn=0Orn=1Then（22）Elsefun1=n*fun1(n-1)EndIfEndFunction15．将1～20的自然数围成一圈，使其相邻的两数之和均为素数。程序中数组a存放1～20中的奇数，数组b存放1～20中的偶数，c数组存放最后结果(即有上述性质的圈)。程序实现将1(奇数)放入c，从b中选一偶数放入c，使该两数之和为素数，然后再从a中选一奇数放入c，使相邻两数之和为素数，重复此过程直至c中放到20个为止。程序运行后的结果如图4所示。给定的程序不完整，将程序补充完整。图4OptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger,b(10)AsInteger,c(21)AsIntegerDimi,j,k,m,nFori=1To10a(i)=2*i-1b(i)=2*iNextic(1)=a(1)m=c(1)a(1)=0（23）DoWhilek<=20IfmMod2<>0Thenn=fun1(b,m)Elsen=fun1(a,m)EndIfIfn>0Then（24）k=k+1m=nElsePrint"fail"EndIf（25）Iffun2(c(1)+n)Thent=0Fori=1To20pic1.Printc(i);t=t+1IftMod10=0Thenpic1.PrintNextiEndIfEndSubPublicFunctionfun2(n)AsBooleanfun2=TrueFori=2ToSqr(n)IfnModi=0Then（26）ExitFunctionEndIfNextiEndFunctionPublicFunctionfun1(x,m)AsIntegerf=1n=0i=10DoWhilef*i>0Ifx(i)=0Theni=i-1Elsen=x(i)Iffun2(m+n)Thenx(i)=0f=0Elsei=i-1EndIfEndIfLoopIfi>0Thenfun1=nElsefun1=0EndFunction16．本程序的功能是从给定的纯英文字符串（Text1中的容）中找出最长的一个按字母顺序排列的子串，并在Text2中显示出来。程序界面参见图5。请完善下列程序。OptionExplicitPrivateSubCommand1_Click()Dimst1AsStringst1=Text1Text2=（27）EndSubPrivateFunctionmax_s(stAsString)AsStringDimiAsInteger,staAsString,s1AsString,s2AsStringDimtemAsStrings1=Mid(st,1,1)Fori=2ToLen(st)-1s2=（28）IfAsc(s2)-Asc(s1)=1Thentem=tem&s1ElseIfLen(tem)>1AndLen(tem)>Len(sta)Thensta=tem（29）EndIfEndIf（30）NextiIfLen(tem)>1AndLen(tem)>Len(sta)Thenmax_s=temElsemax_s=staEndIfEndFunction二级VisualBasic全真模拟试卷三参考答案一、选择题：1．D2．A3．C4．D5．B6．B7．A8．B9．A10．C11．C12．C13．C14．C15．C16．C17．D18．D19．B20．C21．A22．B23．B24．A25．B26．C27．A28．B29．D30．A二、填空题：（1）事件源（2）-3（3）Image（4）Binary（5）Value（6）2（7）十字形图形（8）4（9）2（10）24（11）39135（12）273915（13）1（14）3（15）55（16）11（17）ReDims(k)（18）"*"（19）k=k-1（20）s=1（21）(-1)*k（22）fun1=1（23）k=2（24）c(k)=n（25）Loop（26）fun2=False（27）max_s(st)（28）Mid(st,i,1)（29）tem=""（30）s1=s2二级VisualBasic全真模拟试卷四1．计算机最具代表性的应用领域是科学计算，数据处理，1，计算机辅助设计和人工智能。A．办公室自动化B．银行电子化C．算术运算D．实时控制2．下列关于集成电路的叙述中，错误的是2。A．集成电路使用的都是半导体硅（Si）材料B．集成电路根据它所包含的晶体管数目可分为小规模、中规模、大规模、超大规模和极大规模集成电路C．集成电路的工作速度与组成逻辑门电路的晶体管尺寸有密切关系D．集成电路是将大量晶体管、电阻与互连线等制作在尺寸很小的半导体单晶片上3．在CPU中，3是指挥中心，它有一个指令计数器，用来存放CPU正在执行的指令的地址，CPU将按照该地址从存读取所要执行的指令。A．寄存器 B．指挥器 C．运算器 D．控制器4．二进制带符号整数（补码）10000000的表示的十进制数为4。A．0 B．128 C．-0 D．-1285．下列关于RAM的说法中，错误的是5。A．DRAM芯片电路简单，集成度高，工耗小，成本低B．DRAM工作速度快，适合用作CacheC．SRAM芯片电路复杂，集成度低，工耗大，成本高D．无论是DRAM还是SRAM，当关机或断电时，其中的信息都将随之丢失6．下面有关PCI总线的叙述中，错误的是6。A．PCI总线的数据宽度仅为32位B．PCI总线的时钟与CPU时钟无关C．PCI总线数据线宽度比ISA总线宽D．PCI总线可同时支持多组外围设备，与CPU的型号无关7．成像芯片的像素数目是数码相机的重要性能指标，它与可拍摄的图象分辨率直接相关。索尼(SONY)--DSC-T7的像素约为500万，它所拍摄的图象的最高分辨率为7。A．1280×960

B．1600×1200

C．2048×1536

D．2592×19448．8音乐与高保真的波形声音相比，虽然在音质方面还有一些差距，也无法合成出所有各种不同的声音，但它的数据量很少，又易于编辑修改，还可以与波形音乐同时播放。A．MIDI B．Rel C．MPEG D．JPEG9．如果一个图像的颜色深度为24，这该图像能表示的最大颜色数目为9。A．24种 B．256种C．1千6百多万种 D．10亿种以上10．下列应用软件中___10___属于网络通信软件。A．FrameMaker7.0B．FlashC．OutlookExpressD．Frontpage11．虚拟存储系统能够为用户程序提供一个容量很大的虚拟地址空间，但其大小有一定的围，它受到___11__的限制。A．存容量大小B．外存空间与CPU地址表示围C．交换信息量大小D．CPU时钟频率12．下列关于PC机的叙述中，下面说法中正确的是12。A．CMOS中存放着基本输入/输出系统（BIOS）B．PC机只能安装MS-DOS或Windows操作系统C．PC机主板型号与CPU型号是一一对应的，不同的主板对应不同的CPUD．CMOS芯片需要一个电池给它供电，否则其中数据会因主机断电而丢失13．算法是问题求解规则的一种描述，下面哪些选项属于其基本性质13。A．确定性、有穷性、能行性、输入、输出B．确定性、无穷性、能行性、输入、输出C．不确定性、无穷性、能行性、输入、输出D．不确定性、有穷性、能行性、输入、输出14．计算机网络是利用通信设备和网络软件，把地理位置分散而14的计算机（与智能设备）以相互共享资源和进行信息传递为目的连接起来的一个系统。A．相互连接 B．功能齐全 C．功能独立 D．价格便宜15．关于有线电视电缆调制解调技术的描述中，正确的是15。A．使用电缆调制解调技术，上网速度很快，但在上网的同时不能看电视B．电缆调制解调技术是多用户共享带宽，用的人多了，单个用户的速度会下降C．使用电缆调制解调技术非常的方便，只要有有线电视的地方就能上网D．电缆调制解调器的下载速度快，上传速度慢16．通过Internet发送或接收电子(E-mail)的首要条件是应该有一个电子(E-mail)地址，它的正确形式是16。A．用户名#域名 B．用户名域名C．用户名/域名D．用户名.域名17．微软公司自Windows95简体中文版始，系统采用17代码，该代码共收录汉字21003个、符号883个，并提供1894个造字码位，简、繁体字融于一库。A．UCS B．BIG5 C．GBK D．CJK18．目前，数据相机所采用的既支持无损压缩又支持有损压缩的图像文件格式是18。A．TIF B．JPEG C．BMP D．GIF19．用于辅助人们进行信息获取、传递、存储、加工处理、控制与显示的综合使用各种信息技术的系统，可以通称为19。A．自动办公系统 B．信息管理系统C．信息处理系统 D．人工智能系统20．在电子表格软件Excel环境下，下列叙述中不正确的是20。A．在一个单元格最多可以存放255个西文字符B．在输入由数字组成的字符输入项时，应为数字字符串加双引号C．利用“填充柄”可向单元格输入系列数据D．单元格引用分为相对引用、绝对引用和混合引用21．在SelectCasea结构中，描述判断条件1≦a≦10的测试项应该写成21。A．Case1<=a<=10 B．Case1≦aAnda≦10C．CaseIs>=10orIs>=1 D．Case1To1022．用Hide方法隐藏窗体时，它就从屏幕上被删除，并将其Visible属性设置为22。A．1 B．0 C．False D．True23．Lof函数作用是，返回一个23。A．Long型数据，在已打开的文件中指定当前读／写位置B．Long型数据，表示用Open语句打开的文件的大小C．Integer型数据，表示文件号的围D．Boolean型数据，表明是否已经到文件的结尾24．以下四个控件中具有Pattern属性的是24。A．目录列表框 B．驱动器列表框 C．文件列表框 D．列表框25．为菜单上访问键被显示成带下划线的字母，请在要作为访问键的字母前面键入一个25号。A．"-" B．"&" C．"#" D．"+"26．运行下列程序：PrivateSubCommand1_Click()x=3Ifx<3ThenPrintx+3;Ifx<4ThenPrintx+4;Ifx<5ThenPrintx+5;Ifx<6ThenPrintx+6;PrintEndSub单击Command1命令按钮后，则在窗体上显示的结果是26。A．6789 B．789 C．89 D．927．运行下列程序：PrivateSubCommand1_Click()s$="abcdefabcdefabcdef"k=InStr(s$,"c")DoWhilek>0n=n+1s$=Mid(s$,k+1)k=InStr(s$,"c")LoopPrintnEndSub单击Co