江苏省计算机二级VB考试真题及参考答案

2007年秋季vb考试真题1．下面关于比特的表达中，错误的选项是(1)A．比特是组成数字信息的最小单位B．比特只有“0”和“1”两个符号C．比特既可以表示数值和文字，也可以表示图像和声音D.比特”1”总是大于比特“0”2．在以下有关集成电路的表达中，错误的选项是(2)A．现代集成电路使用的半导体材料主要是硅B．大觑模集成电路一般以功能部件、子系统为集成对象C．我国第2代居民身份证中包含有IC芯片D?目前超大规模集成电路中晶体管的根本线条已小到l纳米左右3．在以下有关通信技术的表达中，错误的选项是(3)A.通信的根本任务是传递信息，因而至少需由信源、信宿和信道组成B.通信可分为模拟通信和数字通信，计算机网络属于模拟通信C.在通信系统中，采用多路复用技术的目的主要是提高传输线路的利用率D?学校的计算机机房一般采用5类无屏蔽双绞线作为局域网的传输介质4.下面是关于PC机主存储器的一些表达，其中正确的选项是(4)A.主存储器是一种动态随机存取存储器(RAM)B.主存储器的根本编址单位是字(即32个二进位)C.目前市场上销售的PC机，其内存容量可达数十GBD.所有PC机的内存条都是通用的：可以互换5．现行PC机中，IDE(或SATA)接口标准主要用于(5)A．打印机与主机的连接C．声卡与主机的连接B．显示器与主机的连接D．硬盘与主机的连接6.以下有关PC机的CPU、内存和主板的表达中，正确的选项是(6)。A．大多数Pc机只存一块CPu芯片，即使是“双核”CPU也是一块芯片B．所有Pentium系列微机的内存条相同，仅有速度和容量大小之分C．主板上芯片组的作用是提供存储器控制功能，I/O控制与芯片组无关D．主板上CMOS芯片用于存储CMOS设置程序和一些软硬件设置信息7.以下有关目前Pc机辅助存储器的表达中，错误的选项是(7)A．硬盘的容量越来越大，这是因为硬盘中磁盘碟片的数目越来越多B．硬盘的内部传输速率一般小于外部传输速率c．优盘采用Flash存储器技术，属于半导体存储器D．目前常见COMBO光驱是一种将CD-RW和DVD-ROM组合在一起的光驱8.下面有关Windows操作系统，(95以后版本)的表达中，错误的选项是(8)。A．Windows操作系统支持系统中多个任务的并发执行B．利用Whldows附件“系统工具”中的“系统信息”可以查看内存的工作情况C．系统规定文件名最多由128个字符组成D．Vista是Microsoft公司推出的WindowsXP操作系统的后继版本9.算法设计是编写程序的根底。以下关于算法的表达中，正确的选项是(9)。A．算法必须产生正确的结果C．算法可以没有输出B．算法必须具有确定性D．算法的表示必须使计算机能理解10．因特网使用TCP／IP协议实现全球范围的计算机网络互连，连接在因特网上的每一台主机都有一个IP地址。下面不能作为IP地址的是(10)A．120．34．0．18C．21．18．33．48B.201.256.39.68D．37．250．68．011.常用局域网有以太网、FDDI网等，下面的表达中错误的选项是(11)A?总线式以太网采用带冲突检测载波侦听多路访问(CSMA/CD)方法进行通信B．FDDI网和以太网可以直接进行互连C?交换式集线器比总线式集线器具有更高的性能，它能提高整个网络的带宽．D?FDDI网采用光纤双环结构，具有高可靠性和数据传输的保密性“”，其中的“”代表(12)A．协议类型C．路径及文件名B．主机域名D．用户名13.交换式以太网与总线式以太网在技术上有许多相同之处，下面表达中错误的选项是(13)14.下面是关于我国汉字编码标准的表达，其中正确的选项是(14)A．Unicode是我国最新发布的也是收字最多的汉字编码国家标准B．不同字型(如宋体、楷体等)的同一个汉字在计算机中的内码不同C．在GBl8030汉字编码标准中，共有2万多个汉字D．GBl8030与GB2312、GBK汉字编码标准不能兼容15．数字图像的文件格式有多种，以下哪一种图像文件能够在网页上发布且可具有动画效果(15)A．BMPB．GIFC．JPEGD．TIF16．声卡是获取数字声音的重要设备，．在以下有关声卡的表达中，错误的选项是A．声卡既负责声音的数字化(输入)，也负责声音的重建(输出)B．声卡既处理波形声音，也负责MIDI音乐的合成。C．声卡中的数字信号处理器(DSP)在完成数字声音编码、解码及编辑操作中起着重要的作用D．因为声卡非常复杂，所以它们都被做成独立的PCI插卡形式17．彩色图像所使用的颜色描述方法称为颜色模型。显示器使用的颜色模型为RGB三基色模型，PAL制式的电视系统在传输图像时所使用的颜色模型为A．YUVB．HSBC．CMYK18．在信息系统的结构化生命周期开发方法中，绘制E-R图属于(18)阶段的工作A．系统规划B．系统分析C．系统设计D．系统实施19．在以下有关MicrosoftWord2000／2003(中文版)功能的表达中，(19)A．起始页的页码可以不为1B．利用菜单命令，可更改所选英文文本的大小写C．利用菜单命令“字数统计”，可以统计出当前文档的行数和段落数D．表格中的数据不可排序，也不能利用公式进行统计计算20．在以下有关MicrosoftPowerPoint2001/2003(中文版)功能的表达中，错误的选项是()A．可通过“另存为”操作，将每张幻灯片保存为一个图片文件B．幻灯片的大小是固定的，用户不可以对其进行设置C．在排练计时的根底上，可以将幻灯片设置为循环放映D．可以对字体进行替换，例如将幻灯片中的“宋体”替换为“楷体”21.以下语句中，正确的选项是__________A．Textl．SetFocusB．Forml．ClearC．Labell．SetFocusD．Listl．Cls22．创立一个名为“文件”的菜单项，欲使其可用Alt+F方式访问，那么在菜单编辑器的标题文本框中应输入_________。A．文件($F)B．文件(&F)C．文件(#F)D．文件(％F)23．数学表达式的VB算术表达式为_______。A．Sin(27)+Sqr(X+Exp3)／(X+Y)B．Sin(27*3．14159／180)+Sqr(X+Exp(3))／Abs(X+y)C．Sin(27*3．14159／180)+Sqr(X+e^3)／Abs(X+Y)D．Sin(27*pi／180)+Sqr(X+Exp(3)／Abs(X+Y)24．以下说法不正确的选项是____________。A．使用不带关键字Preserve的ReDim语句可以重新定义数组的维数B．使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界c．使用不带关键字Preserve的ReDim语句可以改变数组的数据类型D．使用不带关键字Preserve的ReDim语句可以对数组中的所有元素进行初始化25．以下____________是合法的变量名。A．absB．-alC．cdcdD．Abe_1026．要向文件datal．txt添加数据，正确的文件翻开命令是_____________。A．Open”datal．txt”ForOutputAs#1B．Open”datal．txt”ForInputAs#1C．Open”datal．txt”ForAppendAs#5D．Open“datal．txt“ForWriteAs#527．以下对数组参数的说明中，错误的选项是___________。A．在过程中可以用Dim语句对形参数组进行声明B．形参数组只能按地址传递c．实参为动态数组时，可用ReDim语句改变对应形参数组的维界D．只需把要传递的数组名作为实参，即可调用过程28．设a=3，b=2，c=1，运行printa>b>c的结果是____________。A．TrueB．FalseC．1D．出错29．以下选项中，所包含的所有表达式能够将两位整数x的个位数与十位数对调(如将78转换为87)的是_______________。①Val(Right(X，1)&Left(X，1))②Val(Right(Str(X)，1)＆Left(Str(X)，1))③Val(Right(CStr(X)，1)＆Left(CStr(X)，1))④Val(Mid(X，2，1)+Mid(X，1，1))A．①②B．②③c．②④D．①③④30．以下______是正确的VB常量。A．D-6B．E-6C．5DD．5E-6二、填空题(请将答案填写在答题纸的相应答题号内，每个答案只占一行)1．执行下面程序，单击Commandl，那么窗体上显示的第一行是(1)，第二行是(3)，第三行是(3)。OptionExplicitPrivateSubCommandl—Click()DimaAsString，iAsIntegerDimXAsString，zAsStringa=’’iamstudent’’i=InStr(5，a，”d”)Dox=Mid(a，i，3)z=Right(X，1)z=UCase(x＆Z)i=i-2PrintzLoopUntili=1EndSub2．执行以下程序，单击Commandl，那么在Picturel上显示的第一行是(4)，第二行是(5)，第三行是(6)。OptionExplicitPrivateSubCommandl_Click()DimA(3，3)AsInteger，iAsInteger，JAsIntegerDimkAsIntegeri=3：j=2：A(i，j)=l：k=1DoUntilk>9k=k+1Ifi+1>3Aodj+1<=3Theni=1：J=j+1ElseIfi+1<=3Andj+1>3Theni=i+1：j=1Elselfi+1>3Andj+1>3Theni=i-1ElseIfi+1<=3Andj+1<=3AndA(i+1，j+1)<>0Theni=i-1Elsei=i+1：j=j+1EndIfA(i,j)=kLoopFori=1To3Forj=1To3Picture1.PrintA(i,J);NextJNextIEndSub3．执行下面的程序，单击Commandl，那么窗体上第一行显示的是(7)，第二行显示的是(8)。OptionExplicitDimXAsIntegerPrivateSubCommandl_Click()DimYasIntegerX=10：Y=2Callprocess(Y)PrintX，YCallprocess((Y))PrintX，YEndSubPrivateSubprocess(nAsInteger)DimYAsIntegerIfn>0ThenX=X—nY=XElseX=X+nY=X+2EndIfn=-nEndSub4．执行下面的程序，连续三次单击命令按钮Commandl之后，A数组共有(9)个元素；数组元素A(2)的值是(10)，A(4)的值是．(11)。OptionExplicitOptionBase1PrivateSubCommandl_Click()StaticA()AsInteger，nAsIntegerDimiAsInteger，kAsIntegerk=n‘n=n+2ReDimPreserveA(n)Fori=k+1TonA(i)=i*n+1NextiFori=1TonPrintA(i)；NextiPrintEndSub5．执行下面的程序，单击Commandl，在窗体界面上显示的第一行是(12)，第二行是(13)，第三行是(14)，第四行是(15)。OptionExplicitPrivateSubCommandl_Click()DimaAsInteger，bAsInteger，iAsIntegeri=1218a=i\100b=iMod100Ifb<>0ThenPrintaPrintb．PrintLcd((a)，(b))；a；bPrintLcd(a，b)；a；bEndIfEndSubPrivateFunctionLcd(xAsInteger，YAsInteger)AsIntegerDimdAsInteger’Ifxd=x：x=Y：Y=dEndIfd=XDoIfxModY=0ThenLcd=xExitDoElseX=x+dEndIfLoopEndFunction6.本程序的功能是利用无穷级数求cos(x)的近似值,:当第n项的绝对值小于等于10^-7时计算终止。OptionExplicitPrivateSubCommandl_Click()DimXAsSingle，nAsInteger，sumAsSingleDimaAsSinglex=Textl(16)a=1n=1Doa=-aa=(17)sum=sum+an=n+1LoopUntil(18)Text2=sumEndSub7．定义方阵的一种范数为该方阵各列元素的绝对值之和中的最大值。以下程序的功能是求一个4×4方阵的范数。该方阵的数据是随机生成的-20～20之间的整数。OptionExplicitOptionBase1PrivateSubCommandl_Click()Dima(4，4)AsIntegerDimiAsInteger，jAsIntegerFori=1T04Forj=1To4a(i，j)=(19)Picturel．PrintRight(""&Str(a(i，j))，4)；NextjPicturel．PrintNextiTextl.Text=(20)EndSubPrivateFunctionfan(a()AsInteger)AsIntegerDimb(4)AsInteger，maxAsIntegerDimiAsInteger，jAsIntegerFori=1To4Forj=1To4b(j)=(21)NextJNextimax=b(1)Fori=2To4IfmaxNextifan=maxEndFunction8．下面程序的功能是：找出仅由数字1、2、3、4组成的4位素数，要求每个素数由4个不同数字组成。算法提示：函数Validate用于验证一个4位数是否由4个不同数字组成。在函数中用A数组的各个元素分别对应数字0～9，只要某数字出现在四位数中，无论几次，均将该数字对应的数组元素值置为1。OptionExplicitPrivateSubCommandl_Click()DimiAsInteger，FlgAsBooleanFori=1234To4321(22)CallPrime(i，Flg)IfFlgThenIfValidate(i)ThenTextl=Textl&i&vbCrLf．EndIfEndIfNextiEndSubPrivateSubPrime(nAsInteger，fAsBoolean)DimkAsIntegerFork=2ToSqr(n)(23)Nextkf=TrueEndSubPrivateFunctionValidate(nAsInteger)AsBooleanDimA(0To9)AsInteger，sAsString，iAsIntegerDimslAsString*1．(24)Fori=1ToLen(s)sl=Mid(s，i，1)(25)NextiIfA(1)+A(2)+A(3)+A(4)=4Then(26)EndIfEndFunction9．下面程序的功能是：首先生成一个由小到大已排好序的整数数组，再输入一个数据，单击“插入”按钮会自动把这个数据插人到原数组适当的位置，并保持数组的有序性。OptionExplicitDima()AsIntegerPrivateSubForm_Activate()DimiAsIntegerReDima(10)Fori=1To10a(i)=(i-1)*10+1Textl=Textl&Str(a(i))NextiEndSubPrivateSubCommandl_Click()DimnAsInteger，iAsIntegern=Text2Fori=1ToUBound(a)If(27)ThenExitForNexti(28)Fori=1ToUBound(a)Text3=Text3&Str(a(i))NextiEndSubPrivateSubinst(P()AsInteger，nAsInteger，kAsInteger)'数组元素移位并实现插入DimiAsInteger(29)Fori=UBound(P)-lTokStep-1(30)NextiP(k)=nEndSub参考答案:填空(1)DENN(2)TUDD(3)MSTT(4)492(5)357(6)816(7)8-2(8)6-2(9)6(10)5(11)17(12)12(13)18(14)361218(15)363612(16)sum=1(17)a*x*x/(2*n*(2*n-1))(18)Abs(a)<=0.0000001(19)Int(Rnd*41)-20(20)fan(a)(21)b(j)+Abs(a(i,j))(22)Flg=False(23)IfnModk=0ThenExitSub(24)s=Cstr(n)或s=n(25)A(Val(s1))=1或A(s1)=1(26)Validate=True(27)n(28)CallInst(a,n,i)或insta,n,i(29)RedimPreservep(UBound(p)+1)(30)p(i+1)=p(i)二：编程题目(26分)编写一个查找介于整数A、B之间所有同构数的程序，假设一个数出现在自己平方数的右端，那么称此数为同构数，例如：5在5^2=25的右端，25在25^2=625的右端，故5和25为同构数2008年春江苏省计算机等级考试VB试题及参考答案第一局部计算机根底知识1．在以下有关微电子技术与集成电路的表达中，错误的选项是(1)。A．微电子技术是以集成电路为核心的技术B．集成度是指单个集成电路所含电子元件的数目C．Moore定律指出，单个集成电路的集成度平均每18—24个月翻一番D．IC卡仅有存储器和处理器，卡中不可能存储有软件2．在以下有关通信技术的表达中，错误的选项是(2)。A．目前无线电播送主要还是采用模拟通信技术B．数字传输技术最早是被长途系统采用的C．数字通信系统的信道带宽就是指数据的实际传输速率(简称“数据速率”)D．局域网中广泛使用的双绞线既可以传输数字信号，也可以传输模拟信号3．CPU的运算速度与许多因素有关，下面哪些是提高CPU速度的有效措施?(3)①增加CPU中存放器的数目②提高CPU的主频③增加CPU中高速缓存(cache)的容量④优化BIOS的设计A．①、③和④B．①、②和③C．①和④D．②、③和④4．下面是PC机常用的4种外设接口，其中键盘、鼠标、数码相机和移动硬盘等均能连接的接口是(4)A．RS-232B．IEEE-1394C．USBD．IDE5．以下有关PC机外部设备的表达中，错误的选项是〔5〕。A．扫描仪的工作过程主要基于光电转换原理，分辨率是其重要性能指标之一B．制作3—5英寸的照片(图片)，数码相机的CCD像素必须在600万以上C．集成显卡(指集成在主板上的显卡)的显示控制器主要集成在芯片组中D．存折和票据的打印，目前主要是采用针式打印机6．以下有关PC机辅助存储器的表达中，错误的选项是(6)。A．硬盘的盘片转动速度特别快，目前一般为每秒数千转B.近年来使用的串行ATA(SATA)接口硬盘，其传输速率比采用IDE接口的要快C．目前移动硬盘大多采用USB2．0接口，其传输速率可达每秒数十兆字节D.40倍速的CD-ROM驱动器的速率可达6MB／s左右7．在以下有关商品软件、共享软件、自由软件及其版权的表达中，错误的选项是〔7〕。A．通常用户需要付费才能得到商品软件的合法使用权B．共享软件是一种“买前免费试用”的具有版权的软件C．自由软件允许用户随意拷贝，但不允许修改其源代码和自由传播D．软件许可证确定了用户对软件的使用方式，扩大了版权法给予用户的权利8．下面有关Windows操作系统多任务处理的表达中，正确的选项是(8)。A．用户如果只启动一个应用程序工作(如使用Word写作)，那么该程序自始至终独占CPUB．由于CPU具有多个执行部件，所以操作系统才能同时进行多个任务的处理C．前台任务和后台任务都能得到CPU的响应D．处理器调度程序根据各个应用程序运行所需要的时间多少来确定时间片的长短9．从算法需要占用的计算机资源角度分析其优劣时，应考虑的两个主要方面是〔9〕。A．空间代价和时间代价•C．可读性和开放性B．正确性和简明性D．数据复杂性和程序复杂性10．接入因特网的每台计算机的IP地址〔10〕。A．由与该计算机直接连接的交换机及其端口决定B．由该计算机中网卡的生产厂家设定C．由网络管理员或因特网效劳提供商(ISP)分配D．由用户自定11．以下关于局域网和广域网的表达中，正确的选项是〔11〕。A．广域网只是比局域网覆盖的地域广，它们所采用的技术是完全相同的B．局域网中的每个节点都有一个惟一的物理地址，称为介质访问地址(MAC地址)C．现阶段家庭用户的PC机只能通过线接入网络D．单位或个人组建的网络都是局域网，国家或国际组织建设的网络才是广域网12．目前在网络互连中用得最广泛的是TCP／IP协议。事实上，TCP／IP是一个协议系列，它已经包含了100多个协议。在TCP／IP协议中，远程登录使用的协议是(12)。A．TELNETB．FTPC．HTTPD．UDP13．关于电子邮件效劳，以下表达中错误的选项是(13)。A．网络中必须有邮件效劳器用来运行邮件效劳器软件B．用户发出的邮件会暂时存放在邮件效劳器中C．用户上网时可以向邮件效劳器发出接收邮件的请求D．发邮件者和收邮件者如果同时在线，那么可不通过邮件效劳器而直接通信14•国际标准化组织(ISO)将世界各国和地区使用的主要文字符号进行统一编码的方案称为〔14〕。A．UCS／UnicodeC．GBKB．GB2312D．GBl803015•存放一幅1024×768像素的未经压缩的真彩色(24位)图像，大约需要多少字节的存储空间?〔15〕A．1024x768x24C．1024x768x2B．1024x768x3D．1024x768x1216•对带宽为300—3400Hz的语音，假设采样频率为8kHz、量化位数为8位且为单声道，那么未压缩时的码率约为(16)。A.64kb／sB．64kB／sC．128kb／sD．128kB／s17•彩色图像所使用的颜色描述方法称为颜色模型。在以下颜色模型中，主要用于彩色喷墨打印机的是(17)。A•YUVB．HSBC．CMYKD．RGB18•从信息处理的深度来区分，信息系统可分为业务信息处理系统、信息检索系统、信息分析系统和专家系统。在以下相关表达中，错误的选项是18。A．业务信息处理系统是采用计算机进行日常业务处理的信息系统B•信息检索系统就是指因特网上提供的各种搜索引擎，可以供各类用户免费使用C．决策支持系统是一种常见的信息分析系统D．专家系统可模仿人类专家的思维活动，通过推理与判断来求解问题19•在以下有关MicrosoftExcel2000(中文版)功能的表达中，错误的选项是〔19〕。A．可以将Excel工作簿或选定的工作表另存为网页文件(．htm)B．对数据清单进行排序时，最多可以选择5个关键字C•通过设置，可以实现在某单元格中输入数据后按回车键，光标自动移动到上边一单元格或左边一单元格。D．在工作表中可以插入“艺术字”20•在以下有关MicrosoftFrontPage2000(中文版)功能的表达中，错误的选项是20。A．执行菜单命令“新建”时，可以选择是新建网页还是新建站点B．用户可以对框架网页的框架进行拆分或删除C•如同Microsoftword中的表格，用户可以在网页中手绘表格或插入表格D．系统提供了“绘图”工具栏，便于用户在网页中绘图第二局部VisualBasic程序设计一、选择题(用答题卡答题，答案依次填在21—30答题号内)21．以下关于某对象SetFocus与GotFocus的描述中，正确的选项是21。A．SetFocus是事件，GotFocus是方法B．SetFocus和GotFocus都是事件C．SetFocus和GotFocus都是方法D．SetFocus是方法，GotFocus是事件22．Print方法可在_______上输出数据。①窗体②文本框③图片框④标签⑤列表框⑥立即窗口A．①③⑥B．⑦③⑤C．①⑦⑤D．③④⑥23．数学表达：A．(x^5一Cos(29))／Sqr(e^X+In(Y))+5B．(x^5一Cos(29))／(Sqr(Exp(x)+Log(Y))+5)C．(x^5一Cos(29*3．14159／180))／(Sqr(Exp(x)+Log(Y))+5)D．(x^5一Cos(29*3．14159／180))／(Sqr(e^X+Log(Y))+5)24．以下有关数组参数的说明中，正确的选项是24。A．在过程中也可用Dim语句对形参数组进行说明B．动态数组作为实参时，可用ReDim语句在过程中改变对应形参数组的维界24.以下有关数组参数的说明正确的选项是(24)。B.动态数组作为实参时，可用ReDim语句在过程中改变对应形参数组的维界C.调用过程时，数组名不能作为实参25.以下关于子过程或函数的定义正确的选项是(25)A.Subfl(nAsString*1)B.Subfl(nAsInteger)AsIntegerC.Functionfl(f1AsInteger)AsIntegerD.Functionfl(ByValnAsInteger)26.以下关于数值常量的说法错误的选项是(26)A.八进制数的表示方法是在数字前面加&OB.十六进制数的表示方法是在数字前面加&HC.在浮点数值中使用D来分隔尾数和指数时，系统将把该数值作为单精度型数处理D.32768是合法的数值常量’27.以下有关对象的表达正确的选项是(27)A.对象由属性、事件和方法构成B.对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置28.X<Y，A>B，那么以下表达式中，结果为True的是(28)A.Sgn(x-Y)+Sgn(A-B)=-1B.Sgn(X-Y)+Sgn(A-B)=-2C.Sgn(Y-X)+Sgn(A-B)=2D.Sgn(Y-X)+Sgn(A-B)=029.以下能够正确表示条件"x≤Y<Z"的VB逻辑表达式是(29)≤Y<ZB.X<=YAndY<Z≤YOrY<ZD.X<=Y<Z30.以下有关数组的说法正确的选项是(30)B.模块通用声明处有OptionBase1，那么模块中数组定义语句DimA(OTo5)会与之冲突C.模块通用声明处有OptionBasel，模块中有DimA(OTo5)，那么A数组第一维维下界为0D.模块通用声明处有OptionBase1，模块中有DimA(OTo5)，那么A数组第一维维下界为1二、填空题，’1.执行下面的程序，单击Commandl，那么窗体上显示的第一行是(1),第三行是(2),最后一行是(3)OptionExplicitPrivateSubCommand1_Click()DimXAsInteger，YAsIntegerX=12:Y=0DoWhileX>0.IfXMod4=0ThenY=Y+XElsey=Y-XEndIfX=X-3PrintX，YLoopEndSub.，2.执行下面的程序,单击Commandl，窗体上显示的第一行是(4)，第二行是(5)，第三行是(6)OptionExplicit.OptionBase1PrivateSubCommand1_Click()Dimsa(3，3)AsString*1，iAsInteger，jAsInteger，kAsIntegerk=1Fori=1To3Forj=1To3sa(i，j)=Chr(Asc("A")+(k+i+j)Mod26)Printsa(i，j);""；k=k+3NextJ、PrintNextiEndSub，3.执行下面的程序，单击Commandl，在窗体上显示的变量b的值为:(7)，变量c的值为(8)，变量z的值为(9)OptionExplicitPrivateSubCommand1_Click()DimbAsInteger，CAsInteger，zAsIntegerb=2C=1Z=fun(b，fun(b+1，c))+b-c+1Printb，c，zEndSubPrivateFunctionfun(XAsInteger，ByValYAsInteger)AsIntegerX=X-Yy=X+Y+2fun=Y—XEndFunction4.执行下面的程序，单击Commandl，输出的变量i的值是(10)，变量j的值是(11)，变量k的值是(12)OptionExplicitPrivateSubCommand1_Click()DimiAsInteger，jAsIntegerDimkAsIntegeri=10j=4k=Funk(i,j)Printi，j，k、EndSub?PrivateFunctionFunk(ByValAAsInteger，BAsInteger)AsIntegerA=A+BB=B-2.ifB=0OrB=1ThenFunk=1ElseFunk=A+Funk(A，B)EndIfEndFunction5.执行下面的程序，单击Commandl，在窗体上显示的第一行的内容是(13)，第二行的内容是(14)，第三行的内容是(15)OptionExplicitPrivateSubCommand1_Click()DimnAsInteger，iAsIntegern=2Fori=7To1Step-1Callsub2(i，n)Printi,nNextiEndSubPrivateSubsub2(xAsInteger，yAsInteger)StaticnAsIntegerDimiAsIntegerFori=2To1Step-1n=n+xx=x-1NextiY=Y+nEndSub6.用以下公式求sin(x)的值。当级数通项的绝对值小于eps=10^-7时停止计算，x的值由键盘输入。请完善如下程序:OptionExplicitPrivateSubForm_Click()DimxAsDouble，tAsDouble，nAsInteger，sumAsDouble0001x=Val(InputBox("请输入x:"))(16)sum=tn=1DoUntil(17)t=一tt=(18)sum=sum+tn=n+1Loop、Print"Sin(";x;")=";Format(sum,"0.000")EndSub7.下面程序的功能是随机生成小于100的诸素数的数组,程序界面参见以下图OptionExplicitPrivateSubCommand1_Click()DimP()AsInteger，iAsInteger，nasintegerDimstAsString，kAsIntegerRandomizek=InputBox("元素个数:"，，20)ReDimP(k)Don=Int(Rnd*90)+10if(19)Theni=i+1P(i)=nEndifLoopUntil(20)Fori=1ToUBound(P)st=st&Str(P(i))ifiMod10=0Thenst=st&VbcrlfNextiText1=stEndSubPrivateFunctionprime(nAsInteger)AsBooleanDimiAsIntegerprime=TrueFori=2ToSqr(n)IfnModi=0Then(21)ExitForEndIfNextiEndFunction8.下面程序的功能是将给定整数N表示成假设干个质数因子相乘的形式(分解质因数)。程序界面参见以下图。OptionExplicitOptionBase1PrivateSubCommand1_Click()DimnAsInteger，a()AsIntegerDimstAsString，iAsIntegern=Text1Callfenjie(n，a)st=CStr(n)&"="Fori=1ToUBound(a)-1st=st&a(i)&"*'NextiText2=st&a(i)EndSubPrivateSubfenjie((22))DimkAsInteger，iAsIntegerk=2DoIfnModk=0Theni=i+1.ReDimPreservea(i)a(i)=k(23)Else(24)EndIfLoopUntil(25)EndSub9.本程序的功能是把由4个用"."分隔的十进制数表示的IP地址转换为由32位二进制数组成OptionExplicitPrivateSubCommand1_Click()DimstrlAsString，str2AsStringDima(4)AsInteger，iAsIntegerCallTiqu(strl，a)Fori=1Tn4Ifa(i)<0Ora(i)>255ThenMsgBox("IP地址错误!")ExitSubjElse(26)EndIfNextiText2.Text=str2EndSubPrivateSubTiqu(stAsString，a()AsInteger)DimnAsInteger，kAsInteger，SAsString，dAsString*1，iAsIntegern=Len(st):k=0:s=""Fori=1Ton(27)Ifd="."Thenk=k+1a(k)=Val(S)(28)Elses=S&dEndIf、Nextia(4)=sEndSubPrivateFunctionconvert(ByValnAsInteger)AsStringDimbAsInteger，iAsInteger，sAsStringDoWhilen>0‘b=nMod2.n=n\2(29)LoopFori=1To8-Len(s).s="0"&sNexti(30)FndFunCtion2008年(春)笔试试卷第一局部计算机根底知识(1)D(2)C(3)B(4)C(5)B(6)A(7)C(8)C(9)A(10)C(11)B(12)A(13)D(14)A(15)B(16)A(17)C(18)B(19)B(20)D第二局部VisualBasic程序设计一、选择题(21)D(22)A(23)C(24)B(25)D(26)C(27)A(28)C(29)B(30)C二、填空题(1)912(2)3-3(3)0-6(4)DHL(5)NRV(6)XBF(7)-1(8)1(9)4(10)lO(11)0、、(12)15(13)515(14)235(15)-156(16)t=x(17)Abs(t)<eps(18)t*x*x/(2*n*(2*n+1)或t*x^2/(2*n)/(2*n+1)(19)prime(n)或prime(n)=True(20)i=k(21)prime=False(22)ByValnAsInteger，a()AsInteger(23)n=n\k(24)k=k+1(25)n=1(26)str2=str2&convert(a(i))(27)d=Mid(st，i，1)(28)s=""(29)S=CStr(b)&S或S=b&S(30)convert=s绝密★启用前2009年春江苏计算机等级考试二级vb试卷第一局部计算机根底知识1.在以下有关现代信息技术的一些表达中，正确的选项是1。A.集成电路是20世纪90年代初出现的，它的出现直接导致了微型计算机的诞生B.集成电路的集成度越来越高，目前集成度最高的已包含几百个电子元件D.光纤主要用于数字通信，它采用波分多路复用技术以增大信道容量‘.2.最大的10位无符号二进制整数转换成八进制数是2.。773.在以下有关目前PC机CPU的表达中，错误的选项是3。B."双核"是指PC机主板上含有两个独立的CPU芯片C.Pentium4微处理器的指令系统由数百条指令组成D.Pentium4微处理器中包含一定容量的Cache存储器4.在以下有关当前PC机主板和内存的表达中，正确的选项是4。A.主板上的BIOS芯片是一种只读存储器，其内容不可在线改写B.绝大多数主板上仅有一个内存插座，因此PC机只能安装一根内存条C.内存条上的存储器芯片属于SRAM(静态随机存取存储器)D.目前内存的存取时间大多在几个到十几个ns(纳秒)之间5.在以下有关PC机辅助存储器的表达中，正确的选项是5。B.对于光盘刻录机来说，其刻录信息的速度一般小于读取信息的速度C.使用USB2.0接口的移动硬盘，其数据传输速率大约为每秒数百兆字节6.在以下PC机I/O接口中，数据传输速率最快的是6。7.计算机软件可以分为商品软件、共享软件和自由软件等类型。在以下相关表达中，错误的选项是7。A.通常用户需要付费才能得到商品软件的使用权，但这类软件的升级总是免费的B.共享软件通常是一种"买前免费试用"的具有版权的软件C.自由软件的原那么是用户可共享，并允许拷贝和自由传播D.软件许可证是一种法律合同，它确定了用户对软件的使用权限8.人们通常将计算机软件划分为系统软件和应用软件。以下软件中，不属于应用软件类型的是8A.AutoCADB.MSNC.OracleD.WindowsMediaPlayer9.在以下有关Windows98/2000/XP操作系统的表达中，错误的选项是9。C.文件(夹)名的长度可达200多个字符D.硬盘、光盘、优盘等均使用FAT文件系统10.在以下有关算法和数据结构的表达中，错误的选项是10。A.算法通常是用于解决某一个特定问题，且算法必须有输入和输出B.算法的表示可以有多种形式，流程图和伪代码都是常用的算法表示方法C.常用的数据结构有集合结构、线性结构、树形结构和网状结构等11?因特网的IP地址由三个局部构成，从左到右分别代表11。A.网络号、主机号和类型号B.类型号、网络号和主机号C.网络号、类型号和主机号D.主机号、网络号和类型号12?在以下有关ADSL技术及利用该技术接入因特网的表达中，错误的选项是12。A.从理论上看，其上传速度与下载速度相同C.利用ADSL技术进行数据传输时，有效传输距离可达几公里13.人们往往会用"我用的是10M宽带上网"来说明白己计算机连网的性能，这里的"10M"指的是数据通信中的13指标。14?计算机局域网按拓扑结构进行分类，可分为环型、星型和14型等。B.以太15.网络信息平安主要涉及数据的完整性、可用性、机密性等问题。保证数据的完整性就是15。16.某计算机系统中，西文使用标准ASCII码、汉字采用GB2312编码。设有一段纯文本，其机内码为CBF5DOB45043CAC7D6B8，那么在这段文本中含有：16。B.4个汉字和2个西文字符17.以下关于汉字编码标准的表达中，错误的选项是17。A.GB2312标准中所有汉字的机内码均用双字节表示B.我国台湾地区使用的汉字编码标准BIG5收录的是繁体汉字C.GB18030汉字编码标准收录的汉字在GB2312标准中一定能找到D.GB18030汉字编码标准既能与UCS(Unicode)接轨，又能保护已有中文信息资源18.假设波形声音未进行压缩时的码率为64kb/s，取样频率为8kHz，量化位数为8，那么它的声道数是18。A.1B.2C.4D.819.从信息处理的深度来区分信息系统，可分为业务处理系统、信息检索系统和信息分析系统等。在以下几种信息系统中，不属于业务处理系统的是19。20.在以下有关信息系统开发、管理及其数据库设计的表达中，错误的选项是20。A.常用的信息系统开发方法可分为结构化生命周期方法、原型法、面向对象方法和CASE方法等B.在系统分析中常常使用结构化分析方法，并用数据流程图和数据字典来表达数据和处理过程的关系C.系统设计分为概念结构设计、逻辑结构设计和物理结构设计，通常用E-R模型作为描述逻辑结构的工具D.从信息系统开发过程来看，程序第二局部VisualBasic程序设计一、选择题(用答题卡答题，答案依次填在21—30答题号内)21．在列表框Listl中有假设干列表项，可以删除选定列表项的语句是21A．List1.text=""B．List1．List(Listl．ListIndex)=""22．执行22语句时，会出现出错提示信息。A．Print5+7=14B．Print16384*2C．Print32768*2D．Print"14"+3223.数学表达式对应的VB表达式是23。A。(e^(2*∏*x—5)*Log(x)+(Sin(2x))^3)/Sqr(Sin(x)-Cos(x^2))B．(Exp(2*3．14159*x一5)*Log(x)+(Sin(2*x))^3)/Sqr(Sin(x)一Cos(x^2))C．(Exp(2*∏*x—5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sin(x)—Cos(x^2))D．e^(2*3.14159*x一5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sing(x)—Cos(x^2))24．以下关于数组的说法中，错误的选项是24。A．使用了Preserve予句的ReDim语句，只允许改变数组最后一维的上界B．对于动态数组，ReDim语句可以改变其维界但不可以改变其数据类型C．Erase语句的功能只是对固定大小的数组进行初始化D．LBound函数返回值是指定数组某一维的下界25．以下有关过程的说法中，错误的选项是25。‘．A．在Sub或Function过程内部不能再定义其它Sub或Function过程B．对于使用ByRef说明的形参，在过程调用时形参和实参只能按传址方式结合C．递归过程既可以是递归Function过程，也可以是递归Sub过程D．可以像调用Sub过程一样使用Call语句调用Function过程26．以下有关对象属性的说法中，错误的选项是26。A．工具箱中的控件并不是VB中所有的控件B．假设将Frame的Enabled属性设置为False，那么不能使用放置在Frame里面的控件C．对象的Name属性在运行时不能改变D．对象的所有属性都可以在属性窗口中设置27．以下关于变量作用域的表达中，正确的选项是：2Z。A．窗体中凡用Private声明的变量只能在某个指定的过程中使用B．模块级变量只能用Dim语句声明D.当不同作用域的同名变量发生冲突时，优先访问局限性小的变量28.表达式CInt(4.5)+CInt(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0Mod2的运算结果是2829.假设要使逻辑表达式x>yXorY结果为True，那么x、Y、z的取值应为以下选项中的22。A.X=3、Y=3、Z=4B.X=2、Y=1、Z=2C.x=1、Y=3、Z=2D.x=2、Y=2、Z=230.在一个多窗体程序中，可以仅将窗体Form2从内存中卸载的语句是30二、填空题(请将答案填写在答题纸的相应答题号内，每个答案只占一行)1.执行下面程序,单击Commandl,那么图片框中显示的第一行是(1)，显示的第二行是(2)，最后一行显示的是(3)。PrivateSubCommand1_Click()Dima(3，3)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=3To1Step-1Ifi>=jThena(i,j)=i-jElsea(i，j)=j-iEndIfNextjNextiFori=1to3Forj=3To1Step-1Picture1.Printa(i,j);NextjPicturel．PrintNextiEndSub2.运行下面程序,如果连续三次单击命令按钮之后，A数组共有(4)个元素；数组元素A(2)的值是(5)，A(5)的值是(6)OptionExplicitOptionBaselPrivateSubCommand1_Click()StaticA()AsInteger,NAsIntegerDimIAsInteger,KAsIntegerK=NN=N+2ReDimPreserveA(N)ForI=K+1ToNA(I)=I*N+1NextIForI=1ToNPrintA(I)；NextIPrintEndSub3．运行下面的程序，单击commandl，在窗体上显示的变量A的值为(7),变量B的值为(8)OptionExplicitDimAAsIntegerPrivateSubCommand1_Click()DimBAsIntegerB=3A=4B=Fun(Fun(A,B+2),A)+BPrintA,BEndSubPrivateFunctionFun(NAsInteger,KAsInteger)N=N+AK=N-KFun=N+K+AEndFunction4．执行下面的程序，单击command1,窗体上显示的第一行是(9)，第二行是(10),第四行是(11),最后一行是(12)OptionExplicitPrivateSubCommand1_Click()DimnAsIntegern=5Calltest(n)PrintnEndSubPrivateSubtest(ByValnAsInteger)DimiAsInteger,SAsStringIfn>0ThenFori=lTonS=S&CStr(i)NextiPrintSCalltest(n-2)ElsePrint"0VER"EndIfEndSub5.运行以下程序，单击Command1，在窗体上显示的第一行内容是(12),第二行的内容是(14)，第三行的内容是(15)("A"的ASCII码是65,"z"是90)OptionExplicitPrivateSubCommandl_Click()DimiAsInteger,stAsString，nAsInteger,pAsString*1P="B"Fori=3To1Step-1n=Asc(p)-iIfn<65Thenn=n+26st=Chr(n)st=st&F(i)PrintstNextiEndSubPrivateFunctionF(nAsInteger)DimiAsIntegerStaticSAsIntegerFori=1Tons=s+iNextiF=SEndFunction6?用以下公式求f(x)的值。当通项的绝对值小于10^-7时停止计算，x的值由键盘输入。f(x)=a1x1-a2x2+a3x3-…+(-1)n+1anxn+…|X|1其中a1=1，a2=2，an=,n=3,4,5…OptionExplicitPrivateSubCommandl_Click()、DimxAsSingle，fxAsSingleDimaAsSingle，a1AsSingle,a2AsSingleDimtAsSinglea1=l：a2=2x=text1If(16)ThenMsgBox("x必须在-11之间")ExitSubEndIffx=a1*x-a2*x*xt=(-1)*x*xDOa=1/(al+a2)t=(-1)*x*xfx=(17)al=a2(18)Text2=fxEndSub7.学生的某次课程测验中，选择题的答案已记录在列表框list1中，其数据行格式是:学号为6个字符长度，2个空格，选择题的答案为15个字符长度，程序根据标准答案进行批改，每答对一题给1分，并将得分存放到列表框list1中，标准答案存放在变量Exact中。OptionExplicitPrivateSubCommand1_click()DimAnwasstring,StudIdasstringDimScorasInteger,ExactasstringDimIasInteger,JasintegerExact=”ABCCBAACBBDCCDA”ForI=(19)Anw=〔20〕StudId=Left(Anw,6)Anw=Right(Anw,Len(Anw)-8)(21)ForJ=1toLen(Anw)If〔22〕ThenScor=Scor+1EndIfNextJList2.AddItemStudId&““&ScorNextIEndSub8．下面程序的功能是：统计存放在数组A中的N个数有多少个是不同的。具体做法是：变量Left指向要被处理的数(从第2个元素开始)，Right指向数组最后一个元素。假设A(Left)与排在它前面的某个数组元素值相同，就用数组元素A(Right)的值来替换A(Left)的值，同时将变量Right的值减1；否那么将变量Left的值加1，处理数组下一个元素，重复以上过程，直到Left>Right为止。Right的值即为不同的数的个数。OptionExplicitOptionBase1PrivateSubCommandl_Click()DimA()AsInteger,NAsInteger,IASIntegerDimOPAsIntegerN=InputBox("请输入数据个数",,10)ReDimA(N)RandomizeForI=1ToNA(I)=Int(Rnd*10)+1Text1=Text1&A(1)&""NextICallStatistic(A,OP)Text2="有"&oP&"个不同的数:"ForI=1ToOPText2=Text2&A(I)&""NextIEndSubPrivateSubStatistic(A()AsInteger,RightAsInteger)DimLeftAsInteger,KAsInteger,IAsIntegerRight=(23)Le