二級vb歷屆筆試試卷

第一部分 D20050.001m D．用戶使用MODEM通過 表示的8位整數(shù)X= 64 A．2個西文字符的ASCII C．1個16位整B．1個漢字的機內 B．BIOS存放在ROM器中，通常稱為BIOS，該器是非易失性的C．CMOS中存放著基本輸入輸出設備的驅動程序和一些硬件參數(shù)，如硬盤的數(shù)目、類型等D．CMOS器是易失性的，在關機時由主板上的電池供電PC機的機箱外面常有很多接口，用來連接設備。下列接口中，不在機箱外面的是 IEEE PC100AT接口、PS/2接口或USB接口 從微觀上看，前臺任務和任務能同時得到CPU響 互聯(lián)網(wǎng)中的IP地址可以分為A~E五類，且具有規(guī)定的格式。如果IP地址的主機號部分的每一位均為0，該地址一般作為 網(wǎng)絡中主服務器的IP地址 ①和 B．WindowsTrueType字庫所采用的字形描述方法是輪廓描述DPC機是采用同樣的操作系統(tǒng)，則其字庫完全相同 數(shù)字信號處理器(DSP)是聲卡的部件，它在完成聲音的編碼、和編輯操作中起著重D．MP3MPEG-3標準進行壓縮編碼的高質量數(shù)字音樂在下列有關中文版Windows98／2000／XP操作系統(tǒng)功能與操作的敘述中，錯誤的是 在下列有關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用法的敘述，錯誤的 用戶可以從其他繪圖軟件中把一幅圖形或剪切／，再粘貼到框執(zhí)行下面程序，單擊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執(zhí)行下面的程序，單擊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個字符，其位置數(shù)是被10除的余數(shù)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位小數(shù))。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