浙江省信息技术学考VB模块基础检测附参考

1、VB模块基础检测（高一）班级姓名分数一、选择题（本大题共20小题，每题3分，共60分）每题4个选项中只有一个吻合题目要求，不选、错选、多项选择均不得分。请将选项直接写在各小题相应地址。1某算法的自然语言描述与流程图表示分别以下：第1步：输入一个实数x第2步：判断x与0的大小关系，若x0，则y=x2-1，否则y=2x-1第3步：输出y第4步：结束则流程图中空白办理框和处应填入的是（）Ayx21x2x1Byx21y2x1Cy2x1yx21Dxx21y2x12字符串变量a的值为“Hello,world!，下”列VB表达式的值是“world的”是（）ALen(a)BMid(a,6,5)CMid(a,7

2、,4)DMid(a,7,5)3产生-20，20范围内某一随机整数的表达式是（）AInt(Rnd*41)BInt(Rnd*41)-20CInt(40*Rnd)-20DInt(-40*Rnd)+204在VB中，若a=4，b=3，语句IfabThena=a-2Elseb=b+1执行后，以下说法正确的选项是（）A执行了语句a=a-2B先执行a=a-2，再执行c=b+1C执行了语句b=b+1D先执行b=b+1，再执行a=a-25数学表达式1b100写成VB表达式，正确的选项是（）A1=b=100B1b100C1=bAndb=100D1=bOrb=1006在VB代码编写窗口中，输入了“List1.”后出现

3、了如第6题图所示的信息，其中的“Clear”是List1的（）A属性名B事件名C对象名D方法7在VB数组说明语句Dima(11)AsSingle中，数组a的元素个数是（）第6题图A0B12C1D118以下VB表达式的值等于100的是（）AVal(96)+4BLen(40)+60CSqr(81)+19DStr(20)+809若x为正整数，同时能被5整除，则以下VB表达式的值必然为真的是（）Ax/5=0BxMod5=0CInt(x5)=0D5Modx=010若x、y都是正整数，且关系表达式AxMody=0Bx=yAndxa(i)Thenm=a(i)Nexti该程序段执行后，变量m中储藏的是（）Aa

4、(1)至a(10)中的最大值Ba(1)至a(10)中的最小值Ca(2)至a(10)中的最大值Da(2)至a(10)中的最小值13某VB程序段以下：Dima(1To20)AsIntegerDimiAsIntegera(1)=1Fori=1To20a(i)=a(i-1)*iNexti运行该程序段，第一会出现的错误提示为（）A下标越界B子程序或函数不决义C要求对象D溢出14已知文本框对象Text1的Text属性值发生改变时，会驱动下面事件办理过程PrivateSubText1_Change()IfVal500Then=+2EndSub开始时，在Text1中输入6，Text1最后显示值是（）A622B

5、2222C62D226某VB程序的代以下：PrivateSubCommand1_Click()a=Valb=Vals=a*b=Str(s)EndSub运行程序，命令按Command1后出中所示出信息提示，引起的句是（）Aa=ValBb=ValCs=a*bD=Str(s)16.以下VB表达式中，字符串型的是()str(x)Chr(x)Asc(x)ABCD17以下能算Sum=1+2/3+3/5+50/的99VB程序段是（）ASum=1BSum=0Fori=1To49Fori=1To99Sum=Sum+i/(2*i-1)Sum=i/(2*i-1)NextiNextiCSum=0DSum=0i=1i=

6、1DoWhilei=50DoWhilei=50Sum=Sum+i/(2*i-1)Sum=Sum+i/(2*i-1)i=i+1LoopLoop18称字符串的特色是从左到右和从右到左完好一的。如“abba”是称的，“abcba”也是称的。判断字符串可否称的VB程序段以下:DimnAsInteger,iAsInteger,jAsInteger,kAsIntegerDimsAsString,c1AsString,c2AsStrings=n=Len(s)k=0:j=nFori=1Ton/2NextiIfk=0Then=称Else=不称方框中的代由以下三部分成：j=j-1Ifc1c2Thenk=k+1c1

7、=Mid(s,i,1):c2=Mid(s,j,1)代序正确的选项是ABCD19某数列前三分：a1=2、a2=3、a3=4，今后每都足：ak=ak-3+ak-1（k3）,若是用数组a储藏该数列的前10Dima(10)AsInteger,kAsIntegera(1)=2:a(2)=3:a(3)=4Fork=_To10a(k)=a(k-3)+a(k-1)NextkPrinta(10)A460B341项，请你完满该程序段，并输出结果（C511）D41120以下VB程序的功能是：计算表达式1234567的8值，9并在10文本框Text1中输出结果。为了实现这一功能，下面程序段划线处应填入（）Privat

8、eSubCommand1_Click()DimiAsInteger,sumAsLong_Fori=1To10sum=sum*iNexti=Str(sum)EndSubAi=0Bi=1Csum=0Dsum=1二、综合题（本大题共10小题，每题4分，共40分）21表达式表述及其计算（共4分）（1）计算9+135*11/4Mod5的值：（2分）（2）bsqr(b24*ac)2a，该VB表达式修正为：（2分）22以下VB程序运行时，在文本框Text1中输入“Basic”，单击命令按钮Command1后，文本框Text2中显示的内容是。（4分）PrivateSubCommand1_Click()Dimi

9、AsInteger,nAsIntegerDims1AsString,s2AsString,cAsStrings1=s2=n=Len(s1)Fori=1Tonc=Mid(s1,i,1)s2=c+s2Nextis2EndSub23为使左、右框内的VB程序段能实现相同的功能：（共4分）PrivateSubCommand1_Click()DimiAsInteger,sAsLongs=0Fori=1To50s=s+2*i-1PrivateSubCommand1_Click()s=0:t=1DoWhile_（2分）s=s+tt=_（2分）Nexti=Str(s)EndSubLoop=Str(s)EndSu

10、b右框内划线处的内容可以是、。24有VB程序段以下：（4分）DimiAsInteger,jAsInteger,kAsString,nAsIntegern=3List1.ClearFori=1Tonk=Forj=2*i-1To1Step-2k=k+*NextjList1.AddItemkNexti该程序段运行后，请在下面方框内写出列表框List1中显示的内容。25有VB程序段以下：（4分）Dima(1To10)AsIntegerDimkAsInteger,iAsInteger,cAsIntegera(1)=2:a(2)=11:a(3)=7:a(4)=14:a(5)=25c=0Fori=6To10

11、Ifa(i-3)+a(i-2)0IfnMod2=1Thent=t+1Elsek=（2分）n=n2LoopIfThens=s+1（2分）Nexti=Str(s)EndSub28.有VB程序段，Command1的事件办理过程以下（4分）PrivateSubCommand1_Click()DimsAsInteger,iAsInteger,nAsIntegers=0n=Val（）Fori5To1Step-2s=s+nNexti=Str(s）EndSub程序运行时在文本框Text1中输入7，连续单击两次Command1按钮后。在文本框Text1中的内容为（4分）有VB程序段以下：（4分）PrivateS

12、ubCommand1_Click()DimiAsInteger,aAsInteger,bAsIntegera=0:b=0Fori0To350Step3IfiMod3=0Thena=a+ib=b+1EndIfNexti=Str(a）=Str(b）EndSub程序运行时，单击按钮Command1后，在标签Label1中显示的内容是，（2分）Label2中显示的内容是（2分）30二进制变换为十进制可采用按权张开相加法：如：3210102现用VB编写一个变换程序，功能以下：在文本框Text1中输入二进制编码，单击“变换”按钮Command1，程序将从左到右依次取出二进制数字字符，同时将该字符变换为数值

13、，并乘以相应的权值后累加求和，最后在标签框Label1中输出变换后的十进制数值。程序运行收效如右图所示。（共4分）PrivateSubCommand1_Click()Dimcode2AsString存放二进制Dimcode10AsLong存放十进制DimchangduAsInteger,bitAsInteger,iAsIntegercode2=code10=0changdu=（2分）Fori=1Tochangdubit=（2分）code10=code10+bit*Val(Mid(code2,i,1)NextiStr(code10)EndSubVB模块基础检测答案参照（高一）一、选择题（本大题共20小题，每题3分，共60分）每题4个选项中只有一个吻合题目要求，不选、错选、多项选择均不得分。请将选项直接写在各小题相应地址。1B2D3B4A5C6D7B8A9B10D11D12B13A14A15D16B17C18C19A20D二、综合题（本大题共10小题，每题4分，共40分）21.（1）9（2）(-b+sqr(b2-4*a*c)/(2*a)没有其他不相同答案，注意乘号写错不给