浙江省諸暨市牌頭中學(xué)2017-2018學(xué)年高二1月月考信息技術(shù)試題

牌頭中學(xué)高二技術(shù)月考卷第一部分：信息技術(shù)（共50分）選擇題（本題共13小題，每小題2分，只有一個答案是正確的，多選或不選均不得分。）答案填涂在答題卷的113小題！1、小周定義了一個變量rs來存儲超市里商品條形碼，變量的數(shù)據(jù)類型應(yīng)是（）A．IntegerB．StringC．LongD．Date2、下列可作為VB變量名的是 ()（A）true （B）we*6（C）dew3 （D）3ABC3、隨機(jī)產(chǎn)生一個范圍為[8,89]的正整數(shù)的VB表達(dá)式是 ()（A）8+int(82*rnd) （B）8+int(90*rnd)（C）int(90*Exp) （D）int(82*rnd)4、下列VisualBasic表達(dá)式的值為True的是（）A．1=2B．"78"〉"79"C．Len("78")＝Len("中國")D．Mid("abcdef",2,3)="abc"5、將數(shù)學(xué)表達(dá)式sin(e)+寫成ＶisualBasic的表達(dá)式，其正確的形式是（）Ａ、sin(exp(3))+sqr(abs(x+y)) Ｂ、sin(e^3)+sqr(abs(x+y))Ｃ、sin(exp(3))+sqr(|x+y|) Ｄ、sin(e^3)+sqr(|x+y|) 6、運行如下VisualBasic程序，單擊命令按鈕mand1，出現(xiàn)如圖所示的出錯信息。發(fā)生"下標(biāo)越界"錯誤時所執(zhí)行的語句是()PrivateSubmand1_Click()Dima(0To5)AsIntegerDimiAsInteger’①a(0)=1'②Fori=1To5a(i)=2*a(i1)+1'③NextiText1.Text=Str(a(6))'④EndSub（A）①（B）②（C）③（D）④7、在VisualBasic的代碼窗口中，語句Password.Caption="a>b"中的Password是（）（A）對象名（B）屬性值（C）屬性名（D）類名8、某VB程序的一個事件過程如下：PrivateSubmand1_Click()DimaAsIntegera=Val(Text1.Text)Text1.Text=Str(Sqr(a))EndSub程序運行時，單擊命令按鈕mand1后彈出如圖所示的錯誤信息提示。出現(xiàn)錯誤的原因是（）A、變量a類型定義錯誤B、界面缺少文本框Text1C、mand1屬性設(shè)置錯誤D、Sqr函數(shù)計算時出錯9、第1次，將1張正方形紙片沿垂直和水平中線對折后撕開，變成4張紙片，第2次，從4張紙片中取其中1張紙片也照上面方法撕開，變成7張紙片，一直這樣下去。描述計算撕了n次后紙片總數(shù)s的算法部分流程圖如下圖所示：空白矩形框中應(yīng)該填入的是…………………()（A）s←s+2（B）s←s+3（C）s←s+j（D）s←s*310、下面程序段運行后，變量T的值為（）T=1：K=1DoWhileK<=5T=T*KK=K+2LoopA、3B、15C、120D、6011、某VisualBasic程序如下：PrivateSubmand1_Click()DimsAsString,iAsIntegers=""Fori=1To10Step2s=Str(i)+sNextiText1.Text=sEndSub運行程序，單擊命令按鈕mand1后，在文本框Text1中顯示的內(nèi)容為（）A．13579B．13579C．97531D．9753112、有如下ＶisualBasic程序：PrivateSubmand1_Click()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=n/in=n+1sum=sum+xNextiEndSub該程序通過For循環(huán)計算一個表達(dá)式的值，這個表達(dá)式是（）A、1+1/2+2/3+3/4+4/5 B、1+1/2+2/3+3/4C、1/2+2/3+3/4+4/5 D、1+1/2+1/3+1/4+1/513、使用兩種不同的VB程序段實現(xiàn)相同的功能：則劃線處填入的代碼正確的是（）temp=1__________________temp=1__________________temp=temp+gnextgDowhileg<=6temp=temp+gg=g+2loop二、程序設(shè)計題(本題共4個大題，每空2分，共24分。)14、有如下程序段,該程序段運行后，e的值為()

i的值為(

)

j的值為()

e=0Fori=2to10step2

Forj=1to6If(i+j)mod3=0thene=e+1NextjNexti15、以下VisualBasic程序的功能是：在文本框Text1中輸入一個兩位數(shù)x，將個位上的數(shù)和十位上的數(shù)互換組合成新的兩位數(shù)y，并在文本框Text_2中輸出新數(shù)。PrivateSubmand1_Click()DimxAsInteger,yAsIntegerDimiAsInteger,jAsIntegerx=val(text1.text)i=x\10_____________①y=j*10+iText1.Text=y②EndSub（1）為了實現(xiàn)上述表達(dá)式的計算，①處應(yīng)填寫的是____________。（2）程序中②處的表達(dá)式有誤，應(yīng)更正為____________。16、用蒙特卡洛法求圓周率PI的近似值，其算法如下：使用隨機(jī)函數(shù)Rnd,隨機(jī)生成兩個[0,1）之間的隨機(jī)數(shù)，由此構(gòu)成一個投點坐標(biāo)（x,y），然后根據(jù)x2+y2<=1投點是否在圓內(nèi)來求PI的近似值。其中總共隨機(jī)投點n次，統(tǒng)計落點在單位圓內(nèi)的點數(shù)為s,則4s/n即為所求PI的近似值。程序界面如圖所示，在Text1中輸入投點的個數(shù)，單機(jī)“計算”按鈕，PI的近似值結(jié)果顯示在Text2中。）（1）要使得按鈕的文字顯示為“計算”，應(yīng)該修改該對象的__________屬性。（2）要實現(xiàn)上述功能，請在劃線處填入合適代碼。PrivateSubmand1_Click()Randomize'隨機(jī)數(shù)初始化DimiAsLong,nAsLong,sAsLongDimxAsDouble,yAsDouble,zAsDoublen=Val(Text1.Text)__________________________eq\o\ac(○,1)s=0DoWhilei<=n'隨機(jī)投點n次x=Rnd:y=Rndz=____________________eq\o\ac(○,2)Ifz<=1Thens=s+1EndIfi=i+1LoopText2.Text=eq\o\ac(○,3)17、李雷收到了朋友發(fā)給他的一封奇怪的郵件，里面有段內(nèi)容是由一些數(shù)字和符號組成，信上面說了，這段內(nèi)容是加密后的內(nèi)容，并給出了具體加密方法（假定原文的英文字母都是大寫的），具體方法如下：（1）“A”變?yōu)橐粋€1到100內(nèi)的隨機(jī)數(shù)*27+1，“B”變?yōu)橐粋€1到100內(nèi)的隨機(jī)數(shù)*27+2，……，“Z”變?yōu)橐粋€1到100內(nèi)的隨機(jī)數(shù)*27+26；（2）每個字母變?yōu)閿?shù)字后會加上一個“—”用來分割數(shù)字；（3）其他空格和標(biāo)點字符都按原來的表示。李雷利用VB編寫了一個解密程序，功能如下：將郵件中密文的內(nèi)容復(fù)制到文本框Text1中，點擊“解密”按鈕mand1后，程序會將密文解密并將解密后的內(nèi)容顯示在文本框Text2中。程序運行界面如圖所示：（1）根據(jù)描述，若密文為“19051442”，則表示的是：_______________（2）實現(xiàn)上述功能的VB程序如下，請在劃線處填入合適代碼。PrivateSubmand1_Click()DimsAsString,ywAsString,tAsStringDimvalueAsInteger'用于存儲某字母在密文中對應(yīng)數(shù)值的臨時變量value=0yw=""Fori=1ToLen(s)t=①Ift>="0"Andt<="9"Thenvalue=value*10+Val(t)ElseIft="—"Thenyw=yw+Chr(