浙江省信息技術(shù)學(xué)考VB模塊基礎(chǔ)檢測(附參考答案)

1、班級VB模塊基礎(chǔ)檢測（高一）姓名分?jǐn)?shù)一、選擇題（本大題共20小題，每小題3分，共60分）每小題4個選項中只有一個符合題目要求，不選、錯選、多選均不得分。請將選項直接寫在各小題相應(yīng)位置。第1步：輸入一個實數(shù)x第2步：判斷x與0的大小關(guān)系，若x>0,則y=x2-1,否則y=2x-1第3步：輸出y第4步：結(jié)束1.某算法的自然語言描述與流程圖表示分別如下:A.y<2x-1x<2xB.y<2-x-1y<2xC.y<2x-1y<2-xD.x<2x-1y<2x則流程圖中空白處理框和處應(yīng)填入的是（1111VB表達(dá)式的值是“world”的是（2.字符串變量A

2、.Len（a）a的值為"Hello,world!:下列B.Mid(a,6,5)C.Mid(a,7,4)D.Mid(a,7,5)20范圍內(nèi)某一隨機(jī)整數(shù)的表達(dá)式是A.Int(Rnd*41)C.Int(40*Rnd)-20B.D.Int(Rnd*41)-20Int(-40*Rnd)+204.在VB中，若a=4,b=3下列說法正確的是（,語句Ifa>bThena=a-2Elseb=b+1)執(zhí)行后,A.執(zhí)行了語句C.執(zhí)行了語句B.先執(zhí)行D.先執(zhí)行5.數(shù)學(xué)表達(dá)式1A.1<=b<=100C.1<=bAndb<=100寫成VB表達(dá)式，正確的是B.1vb)v100D.1&

3、lt;=bOrb<=1006.在VB代碼編輯窗口中，輸入了“List1.其中的“Clear”是List1的（）后出現(xiàn)了如第6題圖所示的信息,A.屬性名B.事件名C.對象名D.方法Listl_.弋朋&運(yùn)、理_._a_i4IB-aclkColavdalionw島UJ.earCLuiLLvi7.在VB數(shù)組說明語句Dima(11)AsSingleA.0B.12C.18.下列VB表達(dá)式的值等于100的是（中，數(shù)組a的元素個數(shù)是（D.11）第6題圖A.Val("96”)+4B.Len("40”)+60C.Sqr(81)+19D.Str(20)+"80"

4、9.若x為正整數(shù)，同時能被5整除，則下列VB表達(dá)式的值一定為真的是()A. x / 5 = 0B. x Mod 5 = 0C.10.若x、y都是正整數(shù)，且關(guān)系表達(dá)式x y = 1A. x Mod y = 0B. x < yC. x * y Mod 2 = 0Int(x 5) = 0D. 5 Mod x = 0為真，則下列VB表達(dá)式值一定為真的是()D. x >= y And x < 2 * y11 .有如下VB程序段 For i = 1 To 1000a= Int(Rndb= Int(Rndx = a + b y = a - b c = Sqr(x) d = Sqr(y) N

5、ext i調(diào)試時出現(xiàn)如第A. x = a + b12 .有如下VB程序段：m = a(10)For i = 9 To 1 step -1If m > a(i) Then m = a(i)Next i該程序段執(zhí)行后，變量 m中存儲的是(A. a(1)至a(10)中的最大值B.C. a(2)至a(10)中的最大值D.13 .某VB程序段如下：Dim a(1 To 20) As Integer Dim i As Integer a(1) = 1 For i = 1 To 20 a(i) = a(i - 1) * iNext i運(yùn)行該程序段，首先會出現(xiàn)的錯誤提示為( A.下標(biāo)越界 C.要求對象1

6、00 + 1)100 + 1)第11題圖11題圖所示的錯誤提示，產(chǎn)生此錯誤的語句是(B. y = a - bC. c = Sqr(x)D. d = Sqr(y)a(1)至a(10)中的最小值a(2)至a(10)中的最小值B.子程序或函數(shù)未定義D.溢出14 .已知文本框?qū)ο骉ext1的Text屬性值發(fā)生改變時，會驅(qū)動下面事件處理過程PrivateSubText1_Change()IfVal(Text1.Text)<500ThenText1.Text=Text1.Text+"2"EndSub開始時，在Text1中輸入6,Text1最后顯示值是()A.622B,2222C.

7、62D.22615 .某VB程序的代碼如下：PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)s=a*bLabel1.Cap=Str(s)EndSub運(yùn)行程序，單擊命令按鈕Command后彈出圖中所示出錯信息提示，引起該錯誤的語句是()A.a=Val(Text1.Text)B.b=Val(Text2.Text)C.s=a*bD.Label1.Cap=Str(s)16 .下列VB表達(dá)式中，值為字符串型的是()str(x)Text1.textLabel1.HeightChr(x)Asc(x)A.B.C.D.17 .下歹U能計算S

8、um=1+2/3+3/5+A.Sum=1Fori=1To49Sum=Sum+i/(2*i-1)NextiC. Sum=01 =1DoWhilei<=50Sum=Sum+i/(2*i-1)i=i+1Loop+50/99的VB程序段是()8. Sum=0Fori=1To99Sum=i/(2*i-1)NextiD. Sum=0i=1DoWhilei<=50Sum=Sum+i/(2*i-1)Loop18.對稱字符串的特征是從左到右讀和從右到左讀完全一樣的。如“判斷字符串是否對稱的VB程序段如下：DimnAsInteger,iAsInteger,jAsInteger,kAsIntegerDi

9、msAsString,c1AsString,c2AsStrings=Text1.Textn=Len(s)k=0:j=nFori=1Ton/2abba”是對稱的，“abcba也是對稱的ONextiIfk=0ThenLabel1.Caption="方框中的代碼由以下三部分組成： j=j-1 Ifc1<>c2Thenk=k+1 c1=Mid(s,i,1):c2=Mid(s,j,1)代碼順序正確的選項是對稱"ElseLabel1.Caption="不對稱"A.B.C.D.19 .某數(shù)列前三項分別為：ai=2、a2=3、a3=4,以后每項都滿足：ak=

10、ak-3+ak-i(k>3),如果用數(shù)組a存儲該數(shù)列的前10項，請你完善該程序段，并輸出結(jié)果()Dima(10)AsInteger,kAsIntegera(1)=2:a(2)=3:a(3)=4Fork=To10a(k)=a(k-3)+a(k-1)NextkPrinta(10)A.460B.341C.511D.41120 .以下VB程序的功能是：計算表達(dá)式1X2X3X4X5X6X7X8X9X10的值，并在文本框Text1中輸出結(jié)果。為了實現(xiàn)這一功能，下面程序段劃線處應(yīng)填入()PrivateSubCommand1_Click()DimiAsInteger,sumAsLongFori=1To1

11、0sum=sum*iNextiText1.Text=Str(sum)EndSubA.i=0B.i=1C.sum=0D.sum=1二、綜合題（本大題共10小題，每小題4分，共40分）21 .表達(dá)式表述及其計算（共4分）（1）計算9+135*11/4Mod5的值：（2分）（2） bsqr（bA24*ac）2a,該vb表達(dá)式修正為：（2分）22 .下列VB程序運(yùn)行時，在文本框Text1中輸入"Basic",單擊命令按鈕Command俑，文本框Text2中顯示的內(nèi)容是。(4分)PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDim

12、s1AsString,s2AsString,cAsStrings1=Text1.Texts2=""n=Len(s1)Fori=1Tonc=Mid(s1,i,1)s2=c+s2NextiText2.Text=s2EndSub(共4分)Private Sub Command1_Click()s = 0: t = 1Do While'(2 分)s = s + tt = '(2 分)LoopText1.Text = Str(s)End Sub23 .為使左、右框內(nèi)的VB程序段能實現(xiàn)相同的功能:PrivateSubCommand1_Click()DimiAsInteg

13、er,sAsLongs=0Fori=1To50s=s+2*i-1NextiText1.Text=Str(s)EndSub右框內(nèi)劃線處的內(nèi)容可以是24 .有VB程序段如下：(4分)DimiAsInteger,jAsInteger,kAsString,nAsIntegern=3List1.ClearFori=1Tonk=""Forj=2*i-1To1Step-2k=k+"*"NextjList1.AddItemkNexti該程序段運(yùn)行后，請在下面方框內(nèi)寫出列表框List1中顯示的內(nèi)容。25 .有VB程序段如下：(4分)Dima(1To10)AsInteger

14、DimkAsInteger,iAsInteger,cAsIntegera(1)=2:a(2)=11:a(3)=7:a(4)=14:a(5)=25c=0Fori=6To10Ifa(i-3)+a(i-2)<=a(i-1)*2Thenc=c+1a(i)=(a(i-3)+a(i-1)2NextiText1.Text=Str(a(10)&":"&Str(c)該程序段運(yùn)行后，請在下面方框內(nèi)寫出文本框Text1中顯示的內(nèi)容。(4分)26 .下面程序的功能是：找出n以內(nèi)的被3整除同時被5整除的奇數(shù),將符合條件的這些整數(shù)累加到sum中，在文本框Textl中輸入n的值（n

15、為正整數(shù)），輸出sum結(jié)果。（共4分）PrivateSubCommand1_Click（）DimsumAsLong,iAsInteger,nAsIntegersum=0n=Val（Text1.Text）Fori=1Ton'（2分）If'（2分）NextiPrintsumEndSub27 .一個十進(jìn)制整數(shù)的二進(jìn)制表示中，如果數(shù)字“1”的個數(shù)多于數(shù)字“0”的個數(shù)，則稱該整數(shù)為A類數(shù)。如十進(jìn)制整數(shù)26的二進(jìn)制表示為11010,26是一個A類數(shù)。下列VB程序的功能是：統(tǒng)計前1000個自然數(shù)中A類數(shù)的個數(shù)，并在文本框中輸出。請在劃線處填入合適代碼。（共4分）PrivateSubComma

16、nd1_Click（）DimiAsInteger,nAsIntegerDimsAsInteger,tAsInteger,kAsIntegers=0Fori=1To1000n=it=0k=0DoWhilen>0IfnMod2=1Thent=t+1Elsek='（2分）n=n2LoopIfThens=s+1'（2分）NextiText1.Text=Str（s）EndSub28 .有VB程序段，Command住J事件處理過程如下（4分）PrivateSubCommand1_Click（）DimsAsInteger,iAsInteger,nAsIntegers=0n=Val（Te

17、xt1.Text）Fori=5To1Step-2s=s+nNextiText1.Text=Str（s）EndSub程序運(yùn)行時在文本框Text1中輸入7,連續(xù)單擊兩次Command按鈕后。在文本框Textl中的內(nèi)容為（4分）29 .有VB程序段如下：(4分)PrivateSubCommand1_Click()DimiAsInteger,aAsInteger,bAsIntegera=0:b=0Fori=0To350Step3IfiMod3=0Thena=a+ib=b+1EndIfNextiLabel1.Caption=Str(a)Label2.Caption=Str(b)EndSub程序運(yùn)行時，單

18、擊按鈕Command后，在標(biāo)簽Label1中顯示的內(nèi)容是,(2分)Label2中顯示的內(nèi)容是(2分)30 .二進(jìn)制轉(zhuǎn)換為十進(jìn)制可采用按權(quán)展開相加法：如：（1101）2=1X23+1X22+0X21+1X20=（13）io現(xiàn)用VB編寫一個轉(zhuǎn)換程序，功能如下：在文本框Text1中輸入二進(jìn)制編碼，單擊“轉(zhuǎn)換"按鈕Command程序?qū)淖蟮接乙来稳〕龆M(jìn)制數(shù)字字符，同時將該字符轉(zhuǎn)換為數(shù)值，并乘以相應(yīng)的權(quán)值后累加求和，最后在標(biāo)簽框Label1中輸出轉(zhuǎn)換后的十進(jìn)制數(shù)值。程序運(yùn)行效果如右圖所示。（共4分）PrivateSubCommand1_Click()Dimcode2AsString'存放二進(jìn)制Dimcode10AsLong'存放十進(jìn)制DimchangduAsInteger,bitAsInteger,iAsIntegercode2=Text1.Textcode10=0changdu='(2分)Fori=1Tochangdubit='(2分)code10=code10+bit*Val(Mid(code2,i,1)NextiLabel1.Caption=Str