浙江省诸暨市牌头中学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，出现如图所示的出错信息。发生"下标越界"错误时所执行的语句是()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循环计算一个表达式的值，这个表达式是（）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次，统计落点在单位圆内的点数为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、李雷收到了朋友发给他的一封奇怪的邮件，里面有段内容是由一些数字和符号组成，信上面说了，这段内容是加密后的内容，并给出了具体加密方法（假定原文的英文字母都是大写的），具体方法如下：（1）“A”变为一个1到100内的随机数*27+1，“B”变为一个1到100内的随机数*27+2，……，“Z”变为一个1到100内的随机数*27+26；（2）每个字母变为数字后会加上一个“—”用来分割数字；（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(