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

1、班级VB模块基础检测（高一）姓名分数一、选择题（本大题共20小题，每小题3分，共60分）每小题4个选项中只有一个符合题目要求，不选、错选、多选均不得分。请将选项直接写在各小题相应位置。第1步：输入一个实数x第2步：判断x与0的大小关系，若x>0,则y=x2-1,否则y=2x-1第3步：输出y第4步：结束1.某算法的自然语言描述与流程图表示分别如下:A.y<2x-1x<2xB.y<2-x-1y<2xC.y<2x-1y<2-xD.x<2x-1y<2x则流程图中空白处理框和处应填入的是（1111VB表达式的值是“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范围内某一随机整数的表达式是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)执行后,A.执行了语句C.执行了语句B.先执行D.先执行5.数学表达式1A.1<=b<=100C.1<=bAndb<=100写成VB表达式，正确的是B.1vb)v100D.1&

3、lt;=bOrb<=1006.在VB代码编辑窗口中，输入了“List1.其中的“Clear”是List1的（）后出现了如第6题图所示的信息,A.属性名B.事件名C.对象名D.方法Listl_.弋朋&运、理_._a_i4IB-aclkColavdalionw岛UJ.earCLuiLLvi7.在VB数组说明语句Dima(11)AsSingleA.0B.12C.18.下列VB表达式的值等于100的是（中，数组a的元素个数是（D.11）第6题图A.Val("96”)+4B.Len("40”)+60C.Sqr(81)+19D.Str(20)+"80"

4、9.若x为正整数，同时能被5整除，则下列VB表达式的值一定为真的是()A. x / 5 = 0B. x Mod 5 = 0C.10.若x、y都是正整数，且关系表达式x y = 1A. x Mod y = 0B. x < yC. x * y Mod 2 = 0Int(x 5) = 0D. 5 Mod x = 0为真，则下列VB表达式值一定为真的是()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调试时出现如第A. x = a + b12 .有如下VB程序段：m = a(10)For i = 9 To 1 step -1If m > a(i) Then m = a(i)Next i该程序段执行后，变量 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运行该程序段，首先会出现的错误提示为( A.下标越界 C.要求对象1

6、00 + 1)100 + 1)第11题图11题图所示的错误提示，产生此错误的语句是(B. y = a - bC. c = Sqr(x)D. d = Sqr(y)a(1)至a(10)中的最小值a(2)至a(10)中的最小值B.子程序或函数未定义D.溢出14 .已知文本框对象Text1的Text属性值发生改变时，会驱动下面事件处理过程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运行程序，单击命令按钮Command后弹出图中所示出错信息提示，引起该错误的语句是()A.a=Val(Text1.Text)B.b=Val(Text2.Text)C.s=a*bD.Label1.Cap=Str(s)16 .下列VB表达式中，值为字符串型的是()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 .某数列前三项分别为：ai=2、a2=3、a3=4,以后每项都满足：ak=

10、ak-3+ak-i(k>3),如果用数组a存储该数列的前10项，请你完善该程序段，并输出结果()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程序的功能是：计算表达式1X2X3X4X5X6X7X8X9X10的值，并在文本框Text1中输出结果。为了实现这一功能，下面程序段划线处应填入()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 .表达式表述及其计算（共4分）（1）计算9+135*11/4Mod5的值：（2分）（2） bsqr（bA24*ac）2a,该vb表达式修正为：（2分）22 .下列VB程序运行时，在文本框Text1中输入"Basic",单击命令按钮Command俑，文本框Text2中显示的内容是。(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 .为使左、右框内的VB程序段能实现相同的功能:PrivateSubCommand1_Click()DimiAsInteg

13、er,sAsLongs=0Fori=1To50s=s+2*i-1NextiText1.Text=Str(s)EndSub右框内划线处的内容可以是24 .有VB程序段如下：(4分)DimiAsInteger,jAsInteger,kAsString,nAsIntegern=3List1.ClearFori=1Tonk=""Forj=2*i-1To1Step-2k=k+"*"NextjList1.AddItemkNexti该程序段运行后，请在下面方框内写出列表框List1中显示的内容。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)该程序段运行后，请在下面方框内写出文本框Text1中显示的内容。(4分)26 .下面程序的功能是：找出n以内的被3整除同时被5整除的奇数,将符合条件的这些整数累加到sum中，在文本框Textl中输入n的值（n

15、为正整数），输出sum结果。（共4分）PrivateSubCommand1_Click（）DimsumAsLong,iAsInteger,nAsIntegersum=0n=Val（Text1.Text）Fori=1Ton'（2分）If'（2分）NextiPrintsumEndSub27 .一个十进制整数的二进制表示中，如果数字“1”的个数多于数字“0”的个数，则称该整数为A类数。如十进制整数26的二进制表示为11010,26是一个A类数。下列VB程序的功能是：统计前1000个自然数中A类数的个数，并在文本框中输出。请在划线处填入合适代码。（共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程序运行时在文本框Text1中输入7,连续单击两次Command按钮后。在文本框Textl中的内容为（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程序运行时，单

18、击按钮Command后，在标签Label1中显示的内容是,(2分)Label2中显示的内容是(2分)30 .二进制转换为十进制可采用按权展开相加法：如：（1101）2=1X23+1X22+0X21+1X20=（13）io现用VB编写一个转换程序，功能如下：在文本框Text1中输入二进制编码，单击“转换"按钮Command程序将从左到右依次取出二进制数字字符，同时将该字符转换为数值，并乘以相应的权值后累加求和，最后在标签框Label1中输出转换后的十进制数值。程序运行效果如右图所示。（共4分）PrivateSubCommand1_Click()Dimcode2AsString'存放二进制Dimcode10AsLong'存放十进制DimchangduAsInteger,bitAsInteger,iAsIntegercode2=Text1.Textcode10=0changdu='(2分)Fori=1Tochangdubit='(2分)code10=code10+bit*Val(Mid(code2,i,1)NextiLabel1.Caption=Str