VB基础知识强化练习

VB基础知识强化练习1求一元二次方程实数根的算法中，在方程不存在实数根的情况下，要求输出“方程无TOC\o"1-5"\h\z实数根。这一要求主要体现了算法特征中的（）A、有穷性B.确定性c.有输出D.可没有输入2在VB中，某对象的属性窗口如图3-8-1所示，该对象的名称是（）A.CommandButtonB.Commandl.CCommand_lD.Caption3在VB中，某对象的属性窗口如图3-8-1所示，其中BackColor是（）A.对象名B.属性名C.属性值D.事件名4在VB中，在文本框Text3中显示“密码错误！”，应改变的属性是（）A.FontB.TextC.WidthD.BackColor5!对于窗体对象Forml,执行语句Forml.Caption="Height”后可能引起的变化是（）A.Forml对象的名称改变B.Forml对象的高度改变C.Forml对象标题栏中的文字改变D.Forml对象的背景色改变6在VB中，要在标签对象Lab上显示文字“请输入验证码：”，应改变的属性是（）A.FontB.CaptionC.WidthD.Height7在VB中，下列方法能获得Textl文本框中内容的是（）A.a=Textl.textB.Textl.text=aC.b=TextI.FontD.Textl.Fontb.在VB中，下列函数的值属于字符串常量的是()A.Val("10")B.Len("10")C.Str(10)D.Sqr(10)TOC\o"1-5"\h\z.产生［1，6］范围内某一随机整数的表达式是()A.Rnd:g6B.Rnd~6+1C.Int(Rnd*6)D.Int(Rnd*6+1).在VB中，若x=2.185,则表达式Int(x*10+0.5)/的值是()A.2B.2.1C.2.2D.23.下列VB运算符中，属于算术运算符的是()A.>B.=C.ModD.Or.下列属于正确VB表达式的是()A.a+2*|b-c|B.b2+1C.2x-lD.vO+a.t.在VB中，表达式”20”+”15"的值是()A-”35”B.35C.”20+15”D."2015”.在VB中，与表达式Len(”-100”)+100的值相等的是()A.Str(100)+”4”B.Abs-(100)+4C.Val-(1”00”)+100D.Sqr(100)+1001.5在VB中，设x=5132,能得到其百位上数字“1”的表达式是()A.xMod100B.x\10Mod10C.x\100Mod10D.x\100Mod10016.在VB中，若x表示能被7整除的正整数，则下列表达式的值一定为真的是()A.x\7=0B.xMod7=0C.Int(x/7)=0D.7Modx=0.7已知a=10,b=20,c=30,下列表达式中值为True的是()A.a<cOrb>cB.a<bAndb>cC.Not(a<c)D.a+b>c.在VB中，若使用变量t存储表达式x>y的值，则变量t的数据类型应定义为()A.StringB.IntegerC.SingleD.Boolean.下列VB程序运行时，在文本框Textl中输人数据5,在文本框Text2中输人数据8,单击命令按钮Commandl后，文本框Textl中显示的内容是—,文本框Text2中显示的内容是。PrivateSubCommandl_Click()

DimaAsInteger,bAsIntegera=Val(TextI.Text)b=Val(Text2.Text)a=a*bb=a/ba=a/bTextI.Text=Str(a)Text2.Text=Str(b)EndSub20。某VB程序的事件过程如下：PrivateSubCommandI_Click()DimaAsIntegera=Val(TextI.Text)a=28a+lTextI.Text=Str(a)EndSub程序运行时，在文本框Textl中输入1,连续两次单击命令按钮Commandl后，文本框Textl中显示的内容是.下列VB程序段用来判断某整数的正负情况：x=Val(TextI.Text)IfThenLabel1.Caption="负整数”ElseLabel1.Caption="非负整数”EndIf则程序划线处应填入()A.x<0A.x<0B.X<>0C.x>=0D.x<=0.已知a、b、c为某三条线段的长度，判断这三条线段能否构成一个三角形的VB程序代码如下：PrivateSubCommandl_click()a=10:b=4:c=5Ifa+b>cAndb+c>aAndc+a>bThenTextI.Text="YESElseText2.Text="NO"EndSub运行程序，单击命令按钮Commandl后，结果是()A.文本框Textl中显示“YES”B.文本框Text2中显示“NO”C.出现“块If没有Endlf”的错误信息D.出现“False”的错误信息.下列VB程序段：DimaAsInteger,bAsIntegera=Val(Text1.Text)Ifa<=10Thenb=aA2Elseb=a*2EndIfText1.Text=Str(b)若要测试所有分支程序代码是否正确.下列测试数据中最恰当的一组是()A.9,10B.10,11C.11,12D.-10,10.有如下VB程序段：s=0Fori=lT05s=s+lNexti该程序段执行后，i和s的值分别为（）A．12B．55C．65D．66.有如下VB程序段：k=l：s=0DoWhilek<=3s=s+kk=k+lLoop该程序段执行后，变量k和s的值分别是（）A.33B.63C.46D.104.有如下VB程序：PrivateSubCommandlClick（）DimxAsInteger,iAsIntegerListl.ClearFori=lT05x=i*（i+2）ListI.AddltemStr（x）NextiEndSub该程序运行后，单击命令按钮Commandl,在列表框Listl中显示的数据个数是（）A.1B.2C.5D.10.有如下VB程序段：s=lFori=10ToStep-lS=s+i

Nexti若要使语句执行5次，则循环变量i终值应为（）A5B6C7D8.有如下VB程序段：S=0：i=lDoWhileS=s+ii=i+2Loop该程序段运行后，变量s的值等于9,则程序中划线处的语句是（）A.i<5B.i<=5c.i<=7D.i=9.某算法的部分程序代码与其相对应的流程图分别表示如下：则代码中①和②处应填人的是（）PrivateSubCominandlClick()DimiAsIntegerDimsAsLongs=lNextiLabel1-Caption=Str(s)EndSubNextiA.①i=lT010B.①i=lT010②s=s*i②s=s+iC.①i1T010StepD2①i=lToIOStep2②s=s+I②s=s*i

.有如下VB程序段:s=0Fori=1T010s=s+iMod2NextiLabel1.Caption=Str(s)该程序段运行后，在标签Labell上显示的是。.有如下VB程序：PrivateSubCommand1_Click()Dima(1T05)AsInteger,iAsIntegera(1)=1a(2)=lFori=3T05a(i)=2*a(i-l)+a(i-2)NextiTextl.Text=Str(a(5))EndSub该程序运行后，单击命令按钮Commandl后，文本框Textl中显示的内容是.小明用如下VB程序来计算S=1A2+3A2+5A2+.