《VB程序设计》练习题

《VB程序设计》练习题一一、选择题1.以下关系表达式中，其值为True的是(B.VisualBasicvisualbasic)。2.若设置了文本框的属性PasswordChar=”$”,则运行程序时向文本框中输入8个任意字符后,文本框中显示的是(A.8个”$”)3.以下关键字中，不能定义变量的是(A.Declare)。4.若在某窗体模块中有如下事件过程PrivateSubCommand1_Click(IndexASInteger)……EndSub则以下叙述中正确的是()。A.此事件过程与不带参数的事件过程没有区别B.有1个名称为Command1的窗体,单击此窗体则执行此事件过程C.有1个名称为Command1的控件数组,数组中有多个不同类型控件D.有1个名称为Command1的控件数组,数组中有多个相同类型控件5.执行以下程序段a$=VisualBasicProgramming：b$=C++：c$=UCase(Left$(a$,7))&b$&Right$(a$,12)后，变量c$的值为()。A.VisualBASICProgrammingB.VISUALC++ProgrammingC.VisualC++ProgrammingD.VISUALBASICProgramming6.为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为()。A.DimpiAsIntegerB.Dimpi(7)AsIntegerC.DimpiAsSingleD.DimpiAsLong7.如果变量a=2、b=abc、c=acd、d=5，则表达式adORbcANDbc的值为()。A.TrueB.FalseC.YesD.No8.在一个有(1)逻辑运算、(2)算术运算、(3)关系运算混合在一起的表达式(无括号)中，其运算顺序为()A.(1)(2)(3)B.(3)(2)(1)C.(2)(3)(1)D.(2)(1)(3)9.窗体上有Command1、Command2两个命令按钮。现编写以下程序：OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCommand1_Click()m=InputBox(请输入一个正整数)ReDima(m)EndSubPrivateSubCommand2_Click()m=InputBox(请输入一个正整数)ReDima(m)EndSub运行程序时，单击Command1后输入整数10，再单击Command2后输入整数7，则数组a中元素的个数是()。A.7B.8C.10D.1110.若Y=welcome!，则表达式Left(Y,Len(Y)-1)的值是()。A.welcome!B.wC.welcomeD.11.表达式Int(5*Rnd+1)*Int(5*Rnd-1)值的范围是()。A.[0,15]B.[-1,15]C.[-4,15]D.[-5,15]12.以下程序段的运行结果是()。PrivateSubForm_Click()DimIAsInteger,XAsString,YAsStringX=ABCDEFGForI=4To1Step-1Y=Y+Mid(X,I,1)NextIPrintYEndSubA.ABCDB.DCBAC.DEFGD.GFED13.下列If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是()。A.Ifsex=男Andage40AndInStr(duty,教授)0Thenn=n+1B.Ifsex=男Andage40And(duty=教授orduty=副教授)Thenn=n+1C.Ifsex=男Andage40AndRight(duty,2)=教授Thenn=n+1D.Ifsex=男Andage40Andduty=教授Andduty=副教授Thenn=n+114.下列分别是求两个数中的大数的四个程序段，()不正确。A.Max=IIf(xy,x,y)B.IfxyThenMax=xElseMax=yC.Max=x:Ify=xThenMax=yD.Ify=xThenMax=y:Max=x15.下列程序段的作用是()。m=0:n=0Fori=1To10x=Val(InputBox(请输入x的值:))Ifx0Thenm=m+xElseIfx0Thenn=n+1EndIfNextiPrintm,nA.计算从键盘输入的数据之和，并统计输入数据的数目B.分别计算从键盘输入的正数之和与负数之和C.分别计算从键盘输入的正数和负数的个数D.计算从键盘输入的正数之和，并统计负数的个数16.在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是()。A.PrivateSubCommand1_Click()B.PrivateSubCommand1_Click()Text1.Left=100Text1.Left=Text1.Left-100EndSubEndSubC.PrivateSubCommand1_Click()D.PrivateSubCommand1_Click()Text1.MoveText.Left+100Text1.Move.Text.LeftEndSubEndSub17.以下程序段的执行结果是()。n=0Fori=0To1Forj=0To1n=n+1NextjNextiPrintnA.4B.2C.1D.018.在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：PrivateSubCommand1_Click()Timer1._________EndSubPrivateSubTimer1_Timer()Text1.Text=NowEndSub则在______处应填入的内容是()。A.Enabled=TrueB.Enabled=FalseC.Visible=TrueD.Visible=False19.假定在图片框Picture1中装入了一个图形，为了清除该图形(不删除图片框)，应采用的正确方法是：()。A.选择图片框，然后按Del键B.执行语句Picture1.Picture=LoadPicture()C.执行语句Picture1.Picture=D.选择图片框，在属性窗口中选择Picture属性，然后按回车键20.在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是()。B.PrivateSubList1_Click()Label1.Name=List1.ListIndexEndSubA.PrivateSubList1_Click()Label1.Caption=List1.ListIndexEndSubC.PrivateSubList1_Click()Label1.Name=List1.TextEndSubD.PrivateSubList1_Click()Label1.Caption=List1.TextEndSub21.设a=MicrosoftVisualBasic,则以下使变量b的值为”VisualBasic”的语句是()。A.b=Left(a,10)B.b=Mid(a,10)C.b=Right(a,10)D.b=Mid(a,11,10)22.下列表达式中不能判断x是否为偶数的是()。A.x/2=Int(x/2)B.xMod2=0C.FiX(x/2)=x/2D.x\2=023.以下叙述中错误的是()。A.在通用过程中，多个形式参数之间可以用逗号作为分隔符B.在Print方法中，多个输出项之间可以用逗号作为分隔符C.在Dim语句中，所定义的多个变量可以用逗号作为分隔符D.当一行中有多个语句时，可以用逗号作为分隔符24.设窗体上有一个列表框控件List1。以下能表示当前被选中的列表项内容的是()。A.List1.ListB.List1.ListIndexC.List1.TextD.List1.Index25.一个二维数组可以存放一个矩阵。在程序开始有语句OptionBase0，则下面定义的数组中正好可以存放1个4*3矩阵（即只有12个元素）的是()。A.Dima(-2To0,2)AsIntegerB.Dima(3,2)AsIntegerC.Dima(4,3)AsIntegerD.Dima(-1To-4,-1To-3)AsInteger26.设在窗体上有1个名称为Combol的组合框，含有5个项目，要删除最后一项，正确的语句是()。A.Combo1.RemoveItemCombo1.TextB.Combo1.RemoveItem4C.Combo1.RemoveItemCombo1.ListCountD.Combo1.RemoveItem527.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimI,NumRandomizeDoForI=1To1000Num=Int(Rnd*100)PrintNum;SelectCaseNumCase12ExitForCase58ExitDoCase65,68,92EndEndSelectNextILoopEndSub上述事件过程执行后，下列描述中正确的是()。A.Do循环执行的次数为1000次B.在For循环中产生的随机数小于或等于100C.当所产生的随机数为12时结束所有循环D.当所产生的随机数为65、68或92时窗体关闭、程序结束28.某人创建了1个工程，其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是()A.在工程属性对话框中把“启动对象”设置为Form2B.在Form1的Load事件过程中加入语句LoadForm2C.在Form2的Load事件过程中加入语句Form2.ShowD.在Form2的TabIndex属性设置为1，把Form1的TabIndex属性设置为229.用SelectCase语句选择|x|=10情况的语句为：Case()。A.Not(-10To10)B.-10To10C.IsAbs(x)10D.Is-10Or1030.赋值语句g=123+Mid(123456,3,2)执行后，变量g中的值是()。A.12334B.123C.12334D.15731.表达式Len(123程序设计ABC)的值是()。A.10B.14C.20D.1732.一个工程中包含两个名称分别为Form1和Form2的窗体，一个名称为mdlfunc的标准模块。假定Form1,Form2和mdlfunc中分别建立了自定义过程，其定义格式为：Form1中定义的过程：PrivatesubfrmFunction1()...EndSubForm2中定义的过程：PublicsubfrmFunction2()...EndSubMd1func中定义的过程：Publicsubmd1Function()...EndSub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是()。A.上述三个过程都可以在工程中的任何窗体或模块中被调用B.frmFunction2和md1Function过程能够在工程中各个窗体或模块中被调用C.上述三个过程都只能在各自被定义的模块中调用D.只有md1Function过程能够被工程中各个窗体或模块调用33.以下程序段的运行结果是()。PrivateSubForm_Click()DimxAsIntegerx=4Printx;Calltest(x)PrintxEn