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

牌頭中學高二技術月考卷第一部分：信息技術（共50分）選擇題（本題共13小題，每小題2分，只有一個答案是正確的，多選或不選均不得分。）答案填涂在答題卷的113小題！1、小周定義了一個變量rs來存儲超市里商品條形碼，變量的數據類型應是（）A．IntegerB．StringC．LongD．Date2、下列可作為VB變量名的是 ()（A）true （B）we*6（C）dew3 （D）3ABC3、隨機產生一個范圍為[8,89]的正整數的VB表達式是 ()（A）8+int(82*rnd) （B）8+int(90*rnd)（C）int(90*Exp) （D）int(82*rnd)4、下列VisualBasic表達式的值為True的是（）A．1=2B．"78"〉"79"C．Len("78")＝Len("中國")D．Mid("abcdef",2,3)="abc"5、將數學表達式sin(e)+寫成ＶisualBasic的表達式，其正確的形式是（）Ａ、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，出現如圖所示的出錯信息。發(fā)生"下標越界"錯誤時所執(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后彈出如圖所示的錯誤信息提示。出現錯誤的原因是（）A、變量a類型定義錯誤B、界面缺少文本框Text1C、mand1屬性設置錯誤D、Sqr函數計算時出錯9、第1次，將1張正方形紙片沿垂直和水平中線對折后撕開，變成4張紙片，第2次，從4張紙片中取其中1張紙片也照上面方法撕開，變成7張紙片，一直這樣下去。描述計算撕了n次后紙片總數s的算法部分流程圖如下圖所示：空白矩形框中應該填入的是…………………()（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中顯示的內容為（）A．13579B．13579C．97531D．9753112、有如下ＶisualBasic程序：PrivateSubmand1_Click()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=n/in=n+1sum=sum+xNextiEndSub該程序通過For循環(huán)計算一個表達式的值，這個表達式是（）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程序段實現相同的功能：則劃線處填入的代碼正確的是（）temp=1__________________temp=1__________________temp=temp+gnextgDowhileg<=6temp=temp+gg=g+2loop二、程序設計題(本題共4個大題，每空2分，共24分。)14、有如下程序段,該程序段運行后，e的值為()

i的值為(

)

j的值為()

e=0Fori=2to10step2

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