江苏省VB二级考试2022年(秋)

2023〔秋〕二级考试笔试卷〔VB〕〔本试卷包括计算机根底学问局部和程序设计局部，考试时间共120〕第一局部计算机根底学问(各语种一样)1CPUIntel公司出品的pentium4芯片，在其体积仅为几立方厘米的芯片上集成了＿＿各种晶体管。Ａ．数万个 Ｂ．数百万个 Ｃ．近千万个 Ｄ．数千万个２.在以下有关数的进制系统的表达中，不正确的选项是＿＿。A．全部信息在计算机中的表示均承受二进制编码．B．以任何一种进制表示的数，均可准确地用其它进制来表示．C．二进制数的规律运算有三种根本类型，分别为＂与＂、＂或＂和＂非＂．D．Ｗindows9x/2023/XP操作系统供给的＂计算器＂软件可以实现几种进制数之间的转换．３.目前汉字信息的编码标准有多个．在以下的表达中，错误的选项是＿＿。A．Windows98不支持Unicode编码 Ｂ．BIG5是一个繁体汉字字符集C．GBK收录了20230多个汉字 D．GB2312-80共收录了６０００多个汉字pc，＿＿与PC总线无关。A.PCI Ｂ．ＩＳＡ Ｃ．ＥＩＳＡ Ｄ．ＲＩＳＣ５.硬盘的转速是评价硬盘性能的重要指标之一．假设某硬盘的平均等待时间〔指需要读／写的扇区旋转到磁头下面的平均时间〕ms，则该硬盘的转速约为＿＿。Ａ．１０００转／分 Ｂ．２０００转／分 Ｃ．３０００转／分Ｄ．６０００转／分６.在以下有关程序设计语言及其处理程序的表达中，错误的选项是＿＿。Ａ．用多种不同的汇编语言编写一个程序称为＂穿插汇编＂Ｂ．汇编语言是一种用助记符号表示的、与机器语言接近的符号语言Ｃ．机器语言指令是由一串“０”和“１”组成的二进位代码Ｄ．编译程序应具有词法分析和语法分析功能７.软件工程是指用工程化的概念、思想、方法和技术指导软件开发的全过程。在以下表达中，不符合软件工程根本思想的是＿＿。Ａ．需求分析应由软件设计人员与用户共同进展Ｂ．在软件开发过程中，可借助业务流程图、数据流程图等工具进展标准的分析和设计Ｃ．软件维护期是软件生命周期中最长的阶段Ｄ．在软件总体设计阶段，应着重打算每个软件模块内部的算法和算法描述８.针对构建一个校园网／企业网，以下有关网络传输介质的表达中正确的选项是＿＿。Ａ．多模光纤的性能比单模光纤差Ｂ．无屏蔽双绞线支持的数据传送距离比屏蔽双绞线远Ｃ．在无中继设备时双绞线的传输距离比同轴电缆长Ｄ．线是性能价格比最好的传输介质９.在以下有关局域网与广域网的表达中，错误的选项是＿＿。Ａ．一般来说，局域网承受专用的传输介质，而广域网承受公用的通信介质Ｃ．局域网可以承受无线信道进展组网，而广域网不行能承受无线信道进展信息的传输Ｄ．因特网是一种典型的广域网，它的联网根底是ＴＣＰ／ＩＰ协议１０.在因特网中，每台主机的ＩＰ地址都是唯一的，每个ＩＰ地址使用＿＿位的二进制编码表示。Ａ．４ Ｂ．１６ Ｃ．３２ Ｄ．６４1ＫＢ。利用Ｗindows供给的“画图”软件对其进展编辑时，假设不对图片作任何修改，直接将其另存为类型为“１６色位图”、文件名为ＰＩＣＴ１６．ＢＭＰ，则ＰＩＣＴ１６．ＢＭＰ文件的大小约为＿＿。Ａ．３０１ＫＢ Ｂ．１５２ＫＢ Ｃ．７６ＫＢ Ｄ．２ＫＢ１２.在以下有关声音信息在计算机中的表示与处理的表达中，错误的选项是＿＿。Ａ．在对声音进展“数字化”的过程中，采样频率越高，则声音的保真度越好Ｂ．ＭＩＤＩ主要是用来表示由乐器所演奏的乐曲，目前尚不能表示由某人演唱的歌曲Ｃ．在多媒体计算机中，全部“声音卡”的功能是一样的，其区分仅在于处理声音时的质量凹凸Ｄ．在承受Ｗindows供给的“录音机”软件进展录音时，保存的文件其扩展名通常为.ＷＡＶ１３.在以下有关多媒体信息处理的表达中，错误的选项是＿＿。Ａ．数码相机保存的图片文件是经过数据压缩处理的Ｂ．ＭＰ３音乐中的“ＭＰ３”指音频信息的编码格式Ｃ．不同类型的图片文件通常可以使用某种工具软件进展格式转换Ｄ．ＶＣＤ、ＤＶＤ等视频信息是承受ＭＰＥＧ标准对运动图象及其伴音进展编码的１４.在以下有关Ｗindows９８／２０００／ＸＰ操作系统的表达中，错误的选项是＿＿。Ａ．Ｗindows〔ＰnＰ〕功能Ｂ．ＷindowsＣ．“回收站”中不会保存软盘中被删除的文件Ｄ．它们都是３２位操作系统１５.在Ｗindows〔可能非满屏〕以图片的形式复制到“剪贴板”中应按＿＿键。Ａ．PrintScreen Ｂ．Alt+PrintScreen Ｃ．Ctrl+PrintScreenＤ．Shift+PrintScreen１６.在Ｗindows＿＿。Ａ．假设已连接因特网，则在“资源治理器”窗口的地址栏中输入网址就可以扫瞄网页Ｂ．emailindows内置的扫瞄器软件，但可以通过“把握面板”将其卸载Ｄ．利用ＯutlookＥxpress件１７.在ＭicrosoftＷord＿＿。ordＢ．目前正在排队等待打印的文档Ｃ．目前处于翻开状态的文档ord１８.在以下有关Ｍcrosoft Ｅxcel软件功能的表达中，错误的选项是＿＿。Ａ．打印是可以对页面按比例进展缩放Ｂ．可以为工作表和工作簿分别设定保护密码Ｃ．系统具有英文拼写检查功能Ｄ．可以将工作簿保存为ＲＩＦ文件类型１９.在Ｗindows操作系统和Ｏffice软件环境下操作时，以下操作中能实现的是＿＿。Ａ．在“Ｗindows资源治理器”窗口中剪切的文件可以粘贴屡次Ｂ．在“ＷindowsＣ．在ＷordＤ．在Ｅxcel编辑窗口中剪切的单元格可以粘贴屡次２０.在Ｗindows环境下，很多操作可以通过所用软件供给的菜单、工具栏等完成，但把握一些常用的快捷键有助于提高工作效率。“撤消”操作的快捷键是＿＿。Ａ．Ctrl+A Ｂ．Ctrl+X Ｃ．Ctrl+Y Ｄ．Ctrl+Z其次局部VisualBasic程序设计〔用答题卡答题，答案依次填在２１－３０答题号内〕Click＿〔２１〕＿．Ａ．Label Ｂ．Timer Ｃ．TextBoxＤ．DriveListBoxDrivelistBoxDirListBox和FileListBox＿〔２２〕＿语句确定不会转变相应控件的Path或DriveＡ．Drivel.ListIndex=2 Ｂ．Dir1ListIndex=-2Ｃ．File1.FileName=“a:\*.*“ Ｄ．File1.Path=Drive1.DriveSetFocus和GotFocus描述正确的选项是＿〔２３〕＿。Ａ．SetFocus是方法，GotFocus大事 Ｂ．SetFocus是大事，GotFocus是大事Ｃ．SetFocus是方法，GotFocus是方法 Ｄ．SetFocus是大事，GotFocus是方法２４.设a为Integer型变量，sSingles则在文本框中显示的结果与执行语句a＝s:Text1=a的结果一样的有＿〔２４〕＿。〔１〕a=Int(s):Text1=a (2)a=Fix(s):Text1=a(3)a=CInt(s):Text1=a (4)a=Format(s,“#####”):Text1=aＡ．１ Ｂ．２ Ｃ．３ Ｄ．４２５.以下语句运行时系统给出错误提示的是＿〔２５〕＿。Ａ．Print-32023-769 Ｂ．Print“IE2“+8Ｃ．Print“AB“&128 Ｄ．Print3=2=4２６.描述Ｘ、Ｙ中有一个小于Ｚ的规律表达式是＿〔２６〕＿。Ａ．X<ZAndY<Z Ｂ．X<ZOrY<ZＣ．X<ZXorY<Z Ｄ．X<Y<Z２７.以下有关控件数组的说法中错误的选项是＿〔２７〕＿。Ａ．控件数组由一组具有共同名称和一样类型的控件组成Ｂ．控件数组中的每一个控件共享同样的大事过程Ｃ．控件数组中的每个元素的下标由控件的IndexＤ．同一控件数组中的元素只能有一样的属性设置值２８.以下说法＿〔２８〕＿是不正确的。Ａ．当程序正常完毕时，全部没用Close语句关闭的文件都会自动关闭Ｂ．在关闭文件或程序完毕之前，可以不用Unlock语句对已琐定的记录解琐Ｃ．可以用不同的文件翻开同一个随机文件Output模式翻开一个挨次文件，即使不对它进展写操作，原来内容也被去除２９.VB的数据控件〔Data〕不能通过Connect属性对数据库＿〔２９〕＿直接访问。Ａ．MicrosoftAccess Ｂ．FoxProＣ．dBASE Ｄ．MicrosoftSQLServer３０.以下有关过程的说法中错误的选项是＿〔３０〕＿。Ａ.在Sub或FunctionSub或Function过程Ｂ.在调用过程时，与使用ByRef说明的形参对应的实参只能按地址传递方式结合FunctionSubＤ.在调用过程时，形参为数组的参数对应的实参只能是数组二、填空题〔请将答案填写在答题纸的相应答题号内，每个答案只占一行〕１.在程序运行时，将保存在Ｃ盘PicFishing.bmp的图片加载到图片框Picture1中的语句为＿〔１〕＿。Command1_Click大事过程后，Text1＿〔２〕＿，Text2的内容是＿〔３〕＿。PrivateSubCommand1_ClickDimSAsString,IAsIntegerConstChAsString=“0123456789.“S=“2L0A03U.1SI0V.1I“ForI=1ToLen(S)IfInStr(Ch,Mid(S,I,1))=0ThenText1=Mid(S,I,1)&Text1EndSub

ElseEndIfNextI

Text2=Text2&Mid(S,I,1)Command1按钮后，窗体上的第一行内容是＿〔４〕＿，其次行内容是＿〔５〕＿，最终一行内容是＿〔６〕＿。PrivateSubCommand1_ClickDimNAsInteger,MAsInteger,LcmAsIntegerN=9M=27Lcm=Recursion(N,M)Print“Lcm=“;LcmEndSubPrivateFunctionRecursion(AAsInteger,BAsInteger)AsIntegerStatickAsIntegerk=k+1IfAModB=0ThenRecursion=AElseRecursion=Recursion(A+A/k,B)EndIfPrintA,kk=0EndFunctionCommand1＿〔７〕＿，其次行是＿〔８〕＿，第三行是＿〔９〕＿。PrivateSubCommand1_ClickDimxAsInteger,kAsIntegerx=483k=2DoUntilx<=1IfxModk=0Thenx=x\kList1.AddItemStr(k)Elsek=k+1EndIfLoopEndSub５.执行下面程序，单击命令按钮Command1后，窗体上显示的第一行内容是＿〔１０〕＿，其次行内容是＿〔１１〕＿，最终一行内容是＿〔１２〕＿。PrivateSubCommand1_ClickDimAAsInteger,KAsIntegerA=2K=Fun((A),A)+Fun(A,A)Print“K=“;KEndSubPrivateFunctionFun(XAsInteger,YAsInteger)AsIntegerStaticKAsIntegerK=K+X+yX=X+YY=Y+KFun=X+YPrintFun;X;YEndFunction６．执行下面程序，窗体上显示的其次行是＿〔１３〕＿，单击命令按钮Cmd1,第四行是＿〔１４〕＿，第五行是＿〔１５〕＿，第六行是＿〔１６〕＿。OptionExplicitOptonBase1Privatea(3,3)AsIntegerPrivateSubForm_ActivateDimiAsInteger,jAsInteger,kAsIntegerk=1Forj=1To3Fori=1To3a(i,j)=kk=k+1Printa(i,j);NextiPrintNextjEndSubPrivateSubCmd1_ClickDimb(4)AsInteger,iAsInteger,kAsInteger,tAsIntegerFori=2To4b(i)=i-1Nextib(1)=2Fori=1To2t=a(b(1),b(4))a(b(1),b(4))=a(b(2),b(1))a(b(2),b(1))=a(b(3),b(2))a(b(3),b(2))=a(b(4),b(3))a(b(4),b(3))=tNextiFori=1To3Fork=1To3Printa(i,k);NextkPrintNextiEndSub７．本程序的功能是求下面数列前nS(x,n)=x/2+2!*x^3/2*4+3!*x^5/2*4*6+.....+n!*x^2n-1/2*4*6...2nOptionExplicitPrivateSubCommand1_ClickDimxAsSingle,sAsSingleDimnAsInteger,iAsIntegerx=InputBox(“n=InputBox(“Fori=1Tons=s+fun(x,i)NextiLabel1.Caption= (17) Text1=sEndSubPrivateFunctionfun(xAsSingle,nAsInteger)AsSingle＿＿＿＿＿〔１８〕＿＿＿＿＿＿p=1Fori=1Ton＿＿＿＿＿〔１９〕＿＿＿＿＿＿Nextifun=x^(2*n-1)*pEndFunction8．下面程序的功能是统计文件中英文字母〔不区分大小写〕消灭的个数。OptionBase1PrivateSubCommand1_ClickDimalpha(26)AsInteger,nAsIntegerDimiAsInteger,sAsStringOpen“c:\kav2023\readme.txt“ForInputAs#11DoWhileNotEOF(11)s=＿＿＿＿〔２０〕＿＿＿＿s=UCase(s)Ifs>=“A“Ands<=“Z“Thenn=＿＿＿＿〔２１〕＿＿＿＿alpha(n)=alpha(n)+1EndIfEndSub

LoopFori=1To26Ifalpha(i)<>0ThenList1.AddItemChr(i+64)&“:“&CStr(alpha(i))EndIfNextiClose９．下面程序的功能是依次将给定字符串Ａ中的字符逐个插入到字符串Ｂ中，插入的位置是字符串Ｂ中第一个与其一样的字符之后〔不区分大小写〕，假设Ｂ中无一样字符，则依次插入到Ｂ的末尾。PrivateSubCommand1_ClickDimst1AsString,st2AsStringst1=Text1.Text:st2=Text2.TextCallinst(st1,st2)Text3=st2EndSubPrivateSubinst(s1AsString,s2AsString)DimiAsInteger,pAsString,nAsInteger,n1AsIntegerFori=1ToLen(s1)p=Mid(s1,i,1)Ifp>=“A“Andp<=“Z“Thenn=InStr(s2,p)＿＿＿＿〔２２〕＿＿＿＿＿Callins(s2,p,n,n1)ElseIfp>=“a“Andp<=“z“Then＿＿＿＿〔２３〕＿＿＿＿＿n1=InStr(s2,p)Else

＿＿＿＿〔２４〕＿＿＿＿＿MsgBox“，vbOKOnly,“ExitSubEndSub

EndIfNextiPrivateSubins(sAsString,pAsString,nAsInteger,kAsInteger)Ifn<>0