二级vb历届笔试试卷

第一部分 D20050.001m D．用户使用MODEM通过 表示的8位整数X= 64 A．2个西文字符的ASCII C．1个16位整B．1个汉字的机内 B．BIOS存放在ROM器中，通常称为BIOS，该器是非易失性的C．CMOS中存放着基本输入输出设备的驱动程序和一些硬件参数，如硬盘的数目、类型等D．CMOS器是易失性的，在关机时由主板上的电池供电PC机的机箱外面常有很多接口，用来连接设备。下列接口中，不在机箱外面的是 IEEE PC100AT接口、PS/2接口或USB接口 从微观上看，前台任务和任务能同时得到CPU响 互联网中的IP地址可以分为A~E五类，且具有规定的格式。如果IP地址的主机号部分的每一位均为0，该地址一般作为 网络中主服务器的IP地址 ①和 B．WindowsTrueType字库所采用的字形描述方法是轮廓描述DPC机是采用同样的操作系统，则其字库完全相同 数字信号处理器(DSP)是声卡的部件，它在完成声音的编码、和编辑操作中起着重D．MP3MPEG-3标准进行压缩编码的高质量数字音乐在下列有关中文版Windows98／2000／XP操作系统功能与操作的叙述中，错误的是 在下列有关Excel97／2000／2003功能和操作的叙述中，错误的 一、选择题(用答题卡答题，答案依次填在21~30答题号内) A．Print256* “256”＆C．Print“256”+ 256=127* A．对象的Name(名称)属性在程序代码中，作为对象的标识名C．Visible属性值设为True的对象肯定是活动对象以下有关变量说明的叙述中，错误的是A exsin3xexsin3xAbs(e^x+Sinx^3／Sqr(x+B．Abs((e^x+Sinx^3)／Sqr(x+y))C．Abs((Exp(x)+Sinx^3)／Sqr(x+y))D．Abs((Exp(x)+Sin(x)^3)／Sqr(x+y))S为字符型，若在文本框Text1、Text22335s的值为“58”的 A．S=Text1.Text＆B．S=Text1.Text+D．S=Val(Text1.Text)＆Text2.Text 01 A．在Sub或Function过程中不能再定义其他Sub或Function过程CDim语句进行说明以下有关框PictureBox用法的叙述，错误的 用户可以从其他绘图软件中把一幅图形或剪切／，再粘贴到框执行下面程序，单击Command1按钮，多行文本框Text1中显示的第一行是 OptionPrivateSubDimstAsString,nAsInteger,astAsStringst="Basic"n=Len(st)ast=change(st,Text1=Text1&ast&vbCrLfn=n-1LoopUntiln<=1EndSubPrivateFunctionchange(stAsString,nAsInteger)AsStringStaticPAsIntegerP=P+change=Right(st,n-1)&Left(st,P)EndFunction (3 是 OptionPrivateSubDima(4,4)AsInteger,kAsDimiAsInteger,JAsInteger,mAsInteger,nAsIntegerForm=1To4J=Forn=1Tok=k+1a(n,J)=kJ=J-1NextnNextmForn=2To4i=nForm=4TonStep-1k=k+1a(i,m)=ki=i+1NextmNextnForn=1ToForm=1ToText1=Text1&Right(" "&Str(a(n,m)),3)NextmText1=Text1&vbCrLfNextnEnd执行下面的程序，单击Command1按钮，窗体上显示的第一行 、第二行 OptionPrivateSubCommand1_Click()DimIAsInteger,nAsIntegerForI=5To15Step2n=fun1(I,I)PrintnNextIPrintEndPrivateFunctionfun1(ByValaAsInteger,bAsInteger)b=a+bfun1=a+bEndFunction一行 第二行 OptionPrivateFunctionpf(xAsInteger)AsIntegerIfx<100Thenpf=xModpf=pf(x\100)*10+xModPrintpfEndIfEndPrivateSubDimxAsIntegerx=Text1Printpf(x)EndSubText1as235gh458yjCommnd1中显示的第一行 、第二行 ；列表框List2中显示的第一行 OptionPrivateSubDimstAsString,SAsString,kAsDimPAsString,num()AsInteger,iAsInteger,nAsIntegerS=Text1Fori=1Tost=Mid(S,i,Ifst>="0"Andst<="9"ThenP=P&stIfP<>""ThenList1.AddItemPP=""EndNextIfP<>""ThenList1.AddItemPReDimnum(List1.ListCount)Fori=1ToUBound(num)P=List1.List(i-num(i)=Val(Left(P,Len(P)-1))n=Val(Right(P,1))List2.AddItemchange(num(i),n)NextiEndSubPrivateFunctionchange(xAsInteger,YAsInteger)DimPAsInteger,kAsIntegerP=xModchange=change+P*Y^kx=x\10k=k+1LoopUntilx<=0Endf(x)=a1+a2+…+an+…(|x|<1)其中ax

anan1

(x)(2n1)

，n=2，3n0.001|an|≤0.001)OptionPrivateSubDimXAsSingle,SumAsSingle,nAsIntegerDima0AsSingle,an AsSingleX=Text1N=1A0=Sum=a0N=n+An= （17）a0*(-x)*(2*n-1)/(2*n) Abs(an)<=0.001ThenExitDoSum=sum+ a0=Text2=sumEndSubsunsetm为第12个字符，其位置数是被10除的余数2，其余依次类推)作为密文字符的代码，再将字符逆序排列(例如ABCD，逆序排列为DCBA)即为密文。算法是加密算法的逆运算。OptionPrivateSubCommand1_Click() DimencAsString,dec String,IAsIntegerDimsAsString*1,nAsIntegerDec=Fori=1ToLen(dec)S=Mid(dec,I,1)（19）n=iModIfn=0ThenEnc=Chr(Asc(S)+n)＆encNextiText2=encEndSubPrivateSubCommand2_Click() ‘DimencAsString,decAsString,iAsIntegerDimnAsInteger,SAsString*1,PAsIntegerEnc=Text2（20）n=ForI=1To I,1)P=nMod10Ifp=0ThenP=Dec （21）Chr(Asc(S)-P)&N=n-NextiText1=decEnd最高分和一个最低分后，所得总分的平均分就是选手最后得分(l位小数)。OptionPrivateSubDimscore(8)AsSingle, iAsInteger,maxv AsSingleDimminvAsSingle,av AsSingle,sumAsSingleForI=1Toscore(i)=(Int(Rnd*31)+70)／10Text1=Text1＆Str(score(i))＆"" Callmaxmin(score,maxv,minv)Av=(sum–maxv Text2= EndPrivateSubmaxmin( DimiAsIntegerMaxv=a(1):minv=Ifa(i)>maxvThenMaxv=a(i)ElseIfa(i)<minvThenEndIfNextiEndC盘根下的daa.xt文件中一组从到大已序的英词，Li1ex1中输入的英文词汇按序插入到已排序的英文Li2利用二分法确定待插入的英文词汇的插入位OptionPrivateSubCommand1_Click()DimS()AsString,kAsIntegerDimtempAsString,iAsIntegerOpen“C:\data.txt”ForInputAs#11 K=k+ReDimPreserveList1.AddItemS(k)Close#11Callsort(temp, I=1ToUBound(S)List2.AddItemS(i)NextiEndSubPrivateSubsort(tempAsString, AsDimlowAsInteger,high AsInteger,midAsIntegerDimiAsIntegerLow=1:high=UBound(st)ReDimPreservest(UBound(st)+1)Iftemp<st(1)ThenForI=UBound(st)-1To1Step-N