Vb专题习题

VB专题习题1/30Vb专题习题一、选择题1.将数学表达式写成VisualBasic表达式，正确的是（）（A）Sqr(abs(b*b-4ac))（B）Sqr(abs[b*2-4*a*c])（C）Sqr(abs(b*b-4*a*c))（D）Sqr[abs(b*b-4*a*c)]2.在VisualBasic中，若要将窗体中某个命令按钮设置成无效状态，应对该按钮的（）属性值进行修改。（A）Value（B）Visible（C）Enabled（D）Caption3.执行如下VisualBasic程序段时，出现了如下图所示的错误：PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=5:b=8b=a+blabel1.Caption=Str(b)EndSub引发此错误的语句可能为（）（A）DimaAsInteger,bAsInteger（B）a=5:b=8（C）b=a+b（D）label1.Caption=Str(b)4.已知a=5，b=9，c=11，则下列VisualBasic表达式的值为False的是（）（A）abAndac（B）abOrac（C）ab+c（D）ac–b5.有下列VisualBasic程序段：某同学正编写一个判断两数大小的程序，其窗体和代码窗口如下图所示：VB专题习题2/30根据代码窗口中的程序，要在程序运行时判断两数的大小，窗体上必须增加的对象是（）（A）标签Text1（B）文本框Text2（C）命令按钮Command1（D）文本框Print若程序要实现“求100内能被3整数的自然数个数”的功能，则方框中正确的语句是（）（A）i/3=0（B）imod3=0（C）i\3=0（D）int(i/3)=06.有如下VisualBasic程序段：PrivateSubCommand1_Click()DimaAsIntegera=Int(5*Rnd+1)*Int(5*Rnd-1)PrintaEndSub执行程序后，a的值范围是（）（A）[0，15]（B）[－1，15]（C）[－4，15]（D）[－5，15]VB专题习题3/307.在VisualBasic中，表达式3^2Mod14\2^3的值是（）（A）1（B）0（C）2（D）38.某同学正编写一个判断两数大小的程序，其窗体和代码窗口如下图所示：根据代码窗口中的程序，要在程序运行时判断两数的大小，窗体上必须增加的对象是（）（A）标签Text1（B）文本框Text2（C）命令按钮Command1（D）文本框Print9.下列VisualBasic程序段中，能实现输出变量a、b、c三个数中最大数的是（）10、有如下VisualBasic程序段：VB专题习题4/30x=3y=5Text1.Text=x+y该程序运行后，要文本框Text1中显示的是（）（A）3+5（B）x+y（C）8（D）3+5=811.在VisualBasic中，下列表达式的值为5的是（）（A）Int(Sqr(9)+1.28)（B）(19\2)Mod5（C）Abs(-7)+Sqr(4)（D）Len(x+y+2)12.在VisualBasic中，下列语句定义的数组元素为10个的是（）（A）Dima(0To10)AsInteger（B）Dimb(1To9)AsString（C）Dimc(2To10)AsBoolean（D）Dimd(0To9)AsDate13.某VisualBasic工程的代码窗口如图所示：从图中可以看出，当前正在编辑的是（）A.Command1的Click事件过程代码B.Timer1的Timer事件过程代码C.Label1的Click事件过程代码D.Image1的Click事件过程代码14.在VisualBasic中，下列能作为变量名的是（）A.MyB.IfC.a+yD.2ndVB专题习题5/3015.已知字符A～Z的ASCII码值分别对应65～90。小明编写了一个在标签Label1上显示26个英文大写字母“ABCDE……XYZ”的VB程序。部分程序如下：a=Fori=65To90NextiLabel1.Caption=a方框中正确的语句是（）A.a=a+Str(i)B.a=a+Chr(i)C.a=a+Int(i)D.a=a+ASC(i)16.a=a+bb=a-ba=a-b功能相同的程序段是（）A.a=bb=aB.a=a+ba=a-bb=a-bC.t=aa=bb=tD.IFabTHENa=bELSEb=aENDIF17.在VisualBasic中，表达式Abs(－3.6)*Sqr(100)的值是（）A.36B.360C.－36D.－36018.某同学正编写一个判断酒驾行为的VisualBasic程序，其窗体和代码窗口如下图所示。VB专题习题6/30根据代码窗口中的程序，要在程序运行时获取输入的x值，窗体上必须增加的对象是（）A.标签Text1B.标签Label2C.文本框Text1D.文本框Label219.某VisualBasic程序如下：PrivateSubCommand1_Click()DimiAsInteger,sumAsIntegersum=0Fori=10To2Step-2sum=sum+iNextitext1.Text=Str(sum)EndSub运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，此时程序正执行的语句是（）VB专题习题7/30（A）sum=0（B）Fori=10to2step-2（C）Sum=sum+i（D）Text1.text=str(sum)20.有如下VisualBasic程序段：s=0Fori=1To5s=s+iNexti该程序运行后，i的值为（）（A）1（B）5（C）6（D）1521.在VisualBasic中，某对象的属性窗口如图所示：该对象名是（）（A）CommandButton（B）Command1（C）Command_1（D）AppearanceVB专题习题8/3022.有如下VisualBasic程序段：j=10Fori=1To9Ifa(i)a(j)Thenj=iNexti该程序运行后，变量a(j）中存储的是（A）a(1)至a(10)中的最大值（B）a(1)至a(10)中的最小值（C）a(1)至a(10)的累加值（D）从1计数至923.某VisualBasic程序的一个事件过程如下：PrivateSubCommand1_Click()DimrAsSingleDimpiAsDoubler=100pi=3.14Label1.Caption=圆面积为:+Val(pi*r*r)EndSub运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的语句因是（）A.DimrAsIntegerB.DimpiAsDoubleC.Pi=3.14D.Label1.Caption=圆面积为:+Val(pi*r*r)24.有如下VisualBasic程序段：s=0Fori=1To10Step4s=s+iNextiVB专题习题9/30该程序运行后，变量s的值是()（A）0（B）1（C）5（D）1525.下列VisualBasic表达式的值等于56的是()（A）Mid(123456,5,3)（B）Len(55+1)（C）Sqr(56)（D）Abs(-55)+126.27.VB专题习题10/3028.小金编写了一个统计随机数分布的VB程序，部分程序如下所示，在调试程序的时候出现如右图所示的错误信息：n=0m=0Fori=1To100IfRnd0．5Thenn=n+1Elsem=m+1Nexti……小金仔细分析该程序段后，发现其中缺少了()A.ForB.NextC.EndIfD.If29.有如下VB程序：PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=Val(text1.Text)b=Val(text2.Text)c=(a+b+Abs(a-b))\3Text3.Text=Str(c)EndSub运行该程序，分别在文本框Text1、Text2中输入5、9，单击命令按钮Command1后，文本框Text3中显示的内容是（）A.6B.5C.4D.730.如右图所示的VB程序中，输入以下程序代码，运行后单击命令按钮Command1，出现错误的提示图是：（）PrivateSubCommand1_Click()Dima(1To4)AsIntegerDimiAsIntegera(1)=1Fori=2To4a(i)=2*a(i-1)+1NextiList1.AddItemStr(a(i))EndSubVB专题习题11/30A．B．C．D．31.若x表示能被3整除的正整数，则下面逻辑表达式的值一定为真的是：（）A.Int(x/3)=0B.3Modx=0C.xMod3=0D.x\3=032.、为使下面左右框内的VB程序段实现相同的功能，则左框内划线处填写的代码应该是（）。33.VB表达式S=Int（Rnd()*1000+9000），则S的取值范围是（）A.},100009000|{RSSSB.},100009000|{ZSSSC.},100009000|{RSSSD.},100009000|{ZSSS34.下表记录了6个数据的排序过程。分析表中数据可知，该排序采用的算法与排序方式分别为（）原始数据655759444569第1遍446557594569第2遍444565575969第3遍444557655969…………………A．A.t=2B．B.t=6C.t=t+1D．D.t=t+2s=0Fort=1To6Step2s=s+tNextts=0:t=0DoWhilet=6s=s+tLoopVB专题习题12/30A．冒泡排序，升序B．选择排序，升序C．冒泡排序，降序D．选择排序，降序35.阶乘是基斯顿﹒卡曼于1808年发明的运算符号。正整数n的阶乘为n！=1×2×3…×n。小王编写了如下VB程序用来求S=1！+2！+3！+…+10！。Functionfac(nAsInteger)AsLongfac=1Fori=1Tonfac=fac*iNextiEndFunctionPrivateSubCommand1_Click()DimsAsLong,jAsIntegerForj=1To10NextjText1.Text=Str(s)EndSub方框中的正确语句是：A．s=s+fac(j)B．s=fac(j)C．s=s+i*fac(i)D．s=s+fac(i)36.下列逻辑表达式中，值为False的是（）A．Asc(A)Asc(a)B．Int(Rnd*49)49C．3+4=7and5+69D．thirtytwo37.有100个大小形状一样的透明玻璃球，其中有1个玻璃球的重量轻于其他99个玻璃球，小明想利用一台无砝码的天平，运用合理的算法保证一定能找出这颗轻玻璃球的最少的次数为：A．100B．10C．8D．638.下列VB程序中，f是一个递归函数：PrivateSubCommand1_Click()DimyAsIntegery=Val(Text1.Text)Label1.Caption=Str(f(y))EndSubFunctionf(nAsInteger)AsIntegerVB专题习题13/30If(n=1)Or(n=2)Thenf=1Elsef=f(n-1)+f(n-2)EndIfEndFunction程序运行时，在文本框中输入8，单击命令按钮Command1后，Label1中显示的内容是：A．5B．8C．13D．2139.用选择排序将七个数“2022，2017，2018，2014，2021，2012，2015”从小到大进行排序，则第二轮交换数据后的顺序是（）A．2022，2021，2018，2017，2014，2012，2015B．2012，2014，2018，2017，2021，2022