VB期中练习题-答案

VB单元练习题一一、选择题1、VisualBasic集成开发环境中不包括下列哪些窗口？（）A.工具箱窗口C.属性窗口B.工程资源管理器窗口D.命令窗口2、“行进”和“被一辆大型货车撞坏了”分别对象VisualBasic中的哪些术语？（B）A.对象、属性、事件、方法B.对象、属性、方法、事件D.属性、对象、方法、事件C.属性、对象、事件、方法3、对象的特征和状态特征称为？（C）A.事件4、下面哪一个属性用来标识对象的名称？（D）A.CaptionB.ValueC.Text5、下列哪个符号是合法的变量名?（A）A.VB123B.AbsC.99Ji6、数学式子10sin25写成VisualBasic表达式是？（）B.方法C.属性D.类D.NameD.x\yoA.10sin257、VisualBasic中不存在下列哪一种数据类型？（D）A.字符串类型B.日期类型C.逻辑类型8、表达式“”,3)+Lcase(AB的值是？（C）B.10*sin(25)C.10*sin(25)D.10*sin(25*3.14/180)oD.指针类型A.visAB9、表达式6+10Mod4*2+1的值是？（）A.9B.11C.1B.VisABC.VisabD.ualabD.310、把数值型转换为字符串型需要使用下列哪一种函数?（）A.Val()B.Str()C.Asc()D.Chr()、VB中窗体文件的扩展名是______。(A)VBP(B)FRM(对)(C)VBW(D)PDM12、在设计应用程序时，通过______窗口可以查看到应用程序工程中的所有组成部分。代码窗口(B)窗体设计窗口(C)属性窗口工程资源管理器窗口对)13、在VisualBasic中，所有的窗体和控件都必定具有的一个属性是______。(A)Name(对)(B)Font(C)Caption(D)FillColor14、对变量名说法不正确的是______。必须是字母开头，不能是数字或其他字符不能是VB的保留字(C)可以包含字母、数字、下划线和标点符号对)不能超过255个字符15、以下变量名中，______是不符合VisualBasic的命名规范的。(A)Abc901_mnu_Open_234(对)(C)price_(D)K16、在窗体上画一个命令按钮（名称为Command1PrivateSubCommand1_Click()DimbAsIntegerb=b+1EndSub运行程序，三次单击命令按钮后，变量b的值是：______。(A)0(B)1(对)(C)2(D)317、下列程序段的执行结果为______。X=5:Y=-20IfNotX>0ThenX=Y-3ElseY=X+3EndifPrintX-Y;Y-X(A)-33(对)(B)58(C)33(D)252518、当x是(A)ifx\2=x/2thenprint"偶数"else奇数"(B)ifxmod2=0thenprint"偶数"elseprint"奇数"(C)ifnotxmod2<>0thenprint"偶数"elseprint"奇数"(D)ifx\2=int(x/2)thenprint"偶数"else奇数对)19、若要执行下列程序段后窗体上显示“红”字，则x可取的值为：Selectcaseint(x/10)case2,4,6,8print"黄"case1,3,5,7,9print"绿"caseelseprint"红"endselect(A)27(B)38(C)10对)20、在程序代码中将图片文件mypic.jpg装入图片框Picture1的语句是______。(A)Picture1.Picture="mypic.jpg"(B)Picture1.Image="mypic.jpg"(C)Picture1.Picture=LoadPicture("mypic.jpg")(对)(D)LoadPicture("mypic.jpg")21、大部分控件都没有的属性是______。(A)Top(B)Name(C)Enabled(D)Interval(对)22、下列属于正确的字符串常量的是____________(A)#ABC"(B)$ABC$(C)'ABC'23、设，则以下表达式的值为真的是____________(A)(-3+5>a)and(b>0)(B)a>=bandb>12(C)not(b>0)(D)"ABC"(对)(D)(a>b)or(b>0)(对)24、语句Z=y+1代表________将变量Z存入变量y中，再加上1的表达式变量Z取得y+1的值对)(C)变量Z取得变量y的值，然后再加上1的一个表达式将变量Z存入变量y+1中25、执行下面的语句后，所产生的信息框的标题是___________。A=MsgBox("AAAAA",3,"BBBBB")(A)BBBBB(对)(B)AAAAA(C)空出错，不能产生信息框26、执行下列代码，分别输入12和89，输出结果是_____。PrivateSubForm_Click()a=InputBox("D")b=InputBox("E")Printa+bEndSub(A)10127、为了暂时关闭计时器，应把该计时器的某个属性设置为，这个属性是_______。(A)Enabled(对)(B)Visible(C)Timer(D)Interval28、下列表达式，哪一个可以产生1到6之间的随机整数（包括1和6）___。(A)Int(Rnd*7)(B)Int(Rnd(6)+1)(C)Int(Rnd*6)(D)Int(Rnd*6+1)(对)(B)DE1289(C)DE(D)1289(对)29、执行下列程序，从键盘输入10，运行结果是_________。PrivateSubCommand1_Click()S=InputBox("请输入一个数字：")SelectCaseSCaseIs>0Print">0"CaseIs>3Print">3"CaseIs>5Print">5"EndSelectEndSub(A)>0(对)(B)>3(C)>5(D)>030．VB6.0共有3个版本，它们分别是_______．学习版、标准版和企业版．学习版、专业版和企业版C．学习版、标准版和网络版．标准版、专业版和中文版31．VB的集成开发环境中有___c____工作状态．一种．两种C．三种．四种32．VB6.0的集成开发环境不包括___D____．窗体窗口．工具箱C．代码窗口．过程窗口33．VB6.0集成开发环境有三种工作状态，不属于三种工作状态之一的是___B____．设计状态34．用VB设计的应用程序，文件的扩展名中不含____D___．.Frx．.BasC．.Vbp．.Form35．以下说法正确的是___B____．编写代码状态C．运行状态．中断状态．属性窗口包括：标题栏、对象名称的单选按钮、选项卡、属性列表、属性含义说明．属性窗口包括：标题栏、对象名称的下拉列表、选项卡、属性列表、属性含义说明C．属性窗口包括：菜单栏、对象名称的单选按钮、选项卡、属性列表、属性含义说明．属性窗口包括：菜单栏、对象名称的下拉列表、选项卡、属性列表、属性含义说明36．VB中，强制变量声明的语句是___A____。．OptionExplicit．OptionBaseC．REM．PUBLIC37．VB6.0集成开发环境有三种工作状态，工作状态显示在_______。．状态栏的最左方．状态栏的最右方C．状态栏的中括号内．标题栏的中括号内38．在界面设计时，双击窗体中的对象后，VB将显示的窗口是______。．立即窗口．代码窗口C．属性窗口．项目（工程）窗口39．下述选项中，属于VB的程序设计方法是____B___。．面向对象、顺序驱动．面向对象、事件驱动C．面向过程、事件驱动．面向过程、顺序驱动40．VB集成开发环境中，功能键F5的功能是___D____。．进入帮助窗口．进入编辑状态C．进行上下窗口的切换．运行程序41．VB设计的应用程序，扩展名为.Vbp的文件是____C__。．窗体文件．类文件C．工程文件．标准模块文件42．VB设计的应用程序，扩展名为.Frm的文件是__A____。．窗体文件B．类文件C．工程文件．标准模块文件43．用VB可视化程序设计语言设计应用程序的主要工作是完成___B___。．设计流程和编写代码C．设计算法和编写代码．设计界面和编写代码．设计程序和编写代码44．在VB6.0中，12345&的数据类型是（B）．整数型．长整数型C．字符常数．双精度常数45VB6.0DimM1#,Abc,XyzAsSingle定义的M1Abc和Xyz）．双精度、整数型、单精度C．双精度、整数型、整数型．双精度、单精度、单精度．双精度、可变类型、单精度46．在VB6.0中，下列不正确的Integer型常数是_____A__________。．3276847．在VB6.0K，12345678#的类型是__B____。．整数型．长整数型C．字符常数6．在VB6.0中，合法的字符串常数是______B______。．ABC$3+4”C．‘ABC’3+4’48．方法PRINT20\30输出结果是————。．“”．20\30C．出现错误信息D．049．假定Bln1是逻辑型变量，下面赋值语句中正确的是__D___.B．0C．037%D．–22222．双精度常数．’’C．Bln1=#True#．Bln1=.True.．Bln1=3<450．在以下运算符中，优先级最低的是（C）．/．\．^C．Mod51．VB6.0中，执行下面的四个语句时出现错误的是（C）．x=SGN(0)．x=SQR(1)C．x=LOG(0)．x=SIN(1)52．VB6.0表达式COS（0）（）+INT（RND（1()．1C．0B．–1．253．设a为整型变量，不能正确表达数学关系6<a<15的VB6.0表达式是（）．6<a<15．Not(a<=6)Anda<15C．a>6Anda<15D．a>6AndNot(a>=15)54．骰子是一个正六面体，用1~6这六个数分别代表这六面，掷一次骰子出现的数可表示为（）．（RND（6）+1）C．（RND（1）*7）．（RND*6）．（RND（1）*6+1）55．逻辑运算符And,Or和Not的优先顺序，从高到低是____C___．Or-And-NotC．Not-And-OrB．And-Not-Or．Not-Or-And56．计算b的自然对数使用的VisualBasic表达式是____A_____．Log(b)C．Loge(b)．Lg(b)D．Lge(b)57．方法Print28Mod–15输出结果是____D____．“28Mod–15”C．-13．28Mod–15．1358A的ASCII码为十进制的65Asc+AscC_______B__．6567B．132．ACC．“AC”59．若、，则表达式X+Y=11的值是___C___．X+Y=11C．True．11D．False60．下列执行语句后，V的值是____B____A$=”54321”V=Val(Mid$(A$,3,2))．43．32D．0C．43261．执行下列语句后，E、、G的值分别是______E=5:F=4:G=3E=F:F=G:G=E．345C．454．434D．45562m,n是整数，且n>m,在下面四个语句中，能将x赋值为一个m~n之间（含m,n）的任意整数，即满足m<=x<=n的是_______．x=INT(RND*(n-m+1))+mC．x=INT(RND*m)+n．x=INT(RND*n)+mD．x=INT(RND*n-m)+m63．VB6.0表达式Log(1)+ABS(-1)+Int(Rnd(1))的值是_______．-1C．B．0．2164．VB表达式10^-2的值是_______．–100C．100．0.01D．–0.0165．VB6.0表达式Len(Left(“abcd”,2)+Right(的值为_________．2C．6．4D．866．Load事件是在窗体被装入工作区时（）触发的事件。．用户C．手工．程序员．自动67．修改控件属性，一般可以使用属性窗口，也可以通过（）为属性赋值。．命令C．方法．对象．代码68．下面是窗体的四个属性，在界面设计时，改变属性值就看不到窗体变化的属性是_____。．TopC．Left．Width．Enabled69．下面四个选项，不是事件的是_____。．LoadB．EnabledD．DblClickC．Unload70．以下叙述正确的是_______。．窗体（名称）属性是用来标识窗体的．窗体（名称）属性的值显示在窗体的标题栏中C．可以在运行期间改变窗体的（名称）．窗体的（名称）属性值可以为空71．决定窗体标题条显示内容的属性是______。“asdf”asdf"1234"1234#2008/11/10#true3、把下列数学式子写成VB表达式(x+y+z)/sqr(x^2+y^2+z^2)2*sin((x+y)/2)*cos((x-y)/2)(((2*x+y)^3)/3)^(1/4)8/4*2.5/1.25*(3.7+2.5)24.80214/5*25.6115\5*227^1/3927^(1/3)sqr(100)\4*231z1=”Lblts.caption=姓名”8、写出输入输出语句3.为了同时改变一个活动控件的高度和宽度，正确的操作是(A)A.拖拉控件4个角上的某个小方块B.只能拖拉位于控件右下角的小方块C.只能拖拉位于控件左下角的小方块D.不能同时改变控件的高度和宽度4、用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成程序代码，A）A、面向对象的程序设计C、事件驱动的编程机制C、学习版、专业版和企业版D、学习版、企业版和专业版6、VB集成开发环境有三种工作状态，不属于三种工作状态之一的是（B）A、设计状态、编写代码状态7、工程文件的扩展名是（B）C、运行状态Ｃ、.basD、中断状态Ｄ、.frxＡ、.frm8、窗体文件的扩展名是（A）Ａ、.frmB、.vbp9、VB集成开发环境可以（D）A、编辑、调试、运行程序，但不能生成执行程序、.vbpＣ、.basＤ、.frxB、编辑、生成可执行程序、运行程序，但不能调试程序C、编辑、调试、生成可执行程序，但不能运行程序D、编辑、调试、运行程序，也能生成执行程序10、标准模块文件的扩展名是（C）Ａ、.frmB、.vbpＣ、.basＤ、.vbg11．用于获得字符串S从第5个字符开始的3个字符的函数是（AA．Mid(S,5,3)B.Middle(S,5,3)C.Right(S,5,3)D.Left(S,5,3)A、Ltrim()A、Ltrim()C、Left()D、Instr()14.假定窗体的名称(Name属性)为A.Form1="VBTest"B.Caption="VBTest"B、Trim()C、Instr()))C.Form1．Text="VBTest"D.Form1.Name="VBTest"15下列说法中正确的是：为了保存一个VisualBasic应用程序，应当(D)A.只保存窗体模块文件(.frm)B.只保存工程文件(.vbp)C.分别保存工程文件和标准模块文件(.bas)块文件D.分别保存工程文件、窗体文件和标准模16.要使一个标签框对象能够显示所需要的文本，应设置该对象的那一个属性的值？(A)A.C.CaptionNameB.TextD.AutoSize17.要使一个命令按钮称为图形式命令按钮，应设置该队象的哪一个属性值？(B)A.PictureB.StyleC.DownPictureD.DisabledPicture18.为使计时器对象每隔5Interval属性值应设置为(D)A.5B.300C.500D.500019.一个标准的VB应用程序至少要包含一个(C)对象。A.文本框B.标签框C.窗体D.命令按钮20.要使一个文本框对象能够显示多行文字，应设置该对象的(B)属性值为True.A.TextB.MultiLineC.StyleD.Visible21、双击窗体中的对象后，VB将显示的窗口是（C）A、工具箱B、项目（工程）窗口C、代码窗口22、下述选项中，属性VB的程序设计方法是（B）D、属性窗口A、面向对象、顺序驱动C、面向过程、事件驱动、面向对象、事件驱动D、面向过程、顺序驱动23、下面是窗体的四个属性，在界面设计时，改变属性值看不到窗体变化的是（D）A、TopB、WidthC、Left、Enabled24、下面四个选项，不是事件的是（BA、Load、EnabledC、Unload25、用来设置窗体背景图片的属性是（B）A、Moveable、PictureC、ForeColor26、在VB6中的每一个对象都具有自己的属性、___C____和方法。A、控件B、函数C、事件D、公用过程27．计算结果为0的表达式是（B）D、DblClickD、WindowStateA．Int(3.4)+Int(-3.8)C．Fix(3.4)+Fix(-2.8)B.Int(3.4)+Fix(-3.8)D.Fix(3.4)+Int(-3.8)28.假设A=3，B=7，C=2，则表达式NOT(B<C)ANDC>A的值是(B)A.TrueB.FalseC.表达式错误D.不确定29.在表达式y=InputBox(a,b,c)中，a,b,c分别为输入函数对话框的A.标题B.提示C.预设值D.帮助文件名30.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()a=InputBox("EntertheFirstinteger")b=InputBox("EntertheSecondinteger")Printb+aEndSub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是(D)A.579B.123C.456D.12345631.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dima,bAsIntegera=InputBox("EntertheFirstinteger")b=InputBox("EntertheSecondinteger")Printb+aEndSub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是(A)A.579B.123C.456D.12345632.执行下面的语句后，所产生的信息框的标题是A.BBBBB.空C.AAAAD.出错，不能产生信息框33.假定x的值为SelectCase语句是(C)A.SelectCasexCase10To1Print"Result"EndSelectB.SelectCasexCaseIs＞5,Is＜5Print"Result"EndSelectC.SelectCasexCaseIs＞5,1,3To10Print"Result"EndSelectD.SelectCasexCase1,3,Is＞5Print"Result"EndSelect34.假定有以下循环结构DoUntil条件循环体Loop则正确的描述是(B)A.如果"条件"是一个为0的常数，则一次循环体也不执行如果条件是一个为0的常数，则无限次执行循环体C.如果"条件"是一个不为0的常数，则至少执行一次循环体D.不论"条件"是否为"真"，至少要执行一次循环体35.以下程序段的输出结果为x=1y=4DoUntily＞4x=x*yy=y+1LoopPrintx(B)A.1B.4C.8D.2036.执行下面的程序段后，x的值为x=5Fori=1To20Step2x=x+i\5Nexti(A)A.21B.22C.23D.2437.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoUntilx=-1a=InputBox("请输入A的值")a=Val(a)b=InputBox("请输入B的值")b=Val(b)x=InputBox("请输入x的值")x=Val(x)a=a+b+xLoopPrintaEndSub(A)A.2B.3C.14D.15(．PasswordCharD39.退出For循环可使用的语句为（A、B、EndForC、ExitDoD、EndDo40.退出Do…Loop循环可使用的语句为（CA、ExitForB、EndForD、EndDo41.退出函数过程可使用的语句为（DA、ExitsubB、EndsubC、EndFunction42.退出sub过程可使用的语句为（AA、B、EndsubC、EndFunctionD、ExitFunction43.在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程：PrivateSubForm_Load()Text1.Text=""Text1.SetFocusFori=1To10Sum=Sum+iNextiText1.Text=SumEndSub上述程序的运行结果是（C）A.在文本框Text1中输出55B.在文本框Text1中输出0C.出错D.在文本框Text1中输出不定值44.在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoWhilex＜50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为(B)A.1和0B.2和72C.3和50D.4和16845.在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：PrivateSubCommand1_Click()ForI=1To4ForJ=0ToIPrintChr(65+I);NextJPrintNextIEndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是(A)A.BBCCCDDDDEEEEEB.ABBCCCDDDDC.BCCDDDEEEED.AABBBCCCCDDDDD46.在窗体上画两个名称分别为Label1和Label2的标签，然后编写如下事件过程PrivateSubForm_Click()x=-5:s=-5SelectCasesCaseIs＞0y=x+1CaseIs＞=0y=x+2CaseElsey=x+3EndSelectLabel1.Caption=xLabel2.Caption=yEndSub程序运行后，单击窗体，标签Label1和Label2中显示的内容分别是(A)A.-5和-2B.-5和-4C.-5和-3D.-5和–533.下列VB程序语句正确的是(D).AAD.IfA>=BThenT=A:A=B:B=TC.IfA>=BThenT=AA=BB=T47.下列程序段执行后输出的结果是(C)n=10Fork=nTo1step-1x=k^2NextkPrintxA.-2B.-1C.1D.048下列程序段执行后输出的结果是(A)i=0Fork=10To19Step3i=i+1NextkPrintiA.4B.56C.3D.49下列程序段执行后输出的结果是(B)x=int(Rnd+4)SelectCasexCase5Print"优秀"KCase4Print"良好"Case3Print"及格"CaseElsePrint"不及格"EndSelectA.C.优秀B.良好及格D.不及格50.在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()Dimａa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub运行上面的程序，单击命令按钮，其输出结果是(D)A.4321B.12C.34D.123451.决定窗体标题条显示内容的属性是(C)A.TextB.NameC.CaptionD.BackStyle（A）．Passwordchar属性值为*B.Caption属性值为*D.Text属性值为*C．PasswordChar属性值为真53决定窗体有无控制菜单的属性是(A)A.ControlBoxB.MinButtonC.EnabledD.MaxButton54使文本框获得焦点的方法是(C)A.ChangeB.GotFocusC.SetFocusD.LostFocus`55下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句为（C）A.Picture="pic1.jpg"B.Picture.Handle="pic1.jpg"C.Picture1.Picture=LoadPicture("pic1.jpg")D.Picture=LoadPicture("pic1.jpg")56决定标签内显示内容的属性是(D)A.TextB.NameC.AlignmentD.Caption57假定在图片框Picture1中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是(B)A.选择图片框，然后按Del键执行语句Picture1.picture=LoadPicture("")C.执行语句Picture1.picture=""D.选择图片框，在属性窗口中选择Picture属性条，然后按回车键58.比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是（．当图片框（PictureBox）的AutoSize自属性为False时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸B．当图像框（Image）的Stretch属性为True时，图像框会自动改变大小以适应图形的大小，使图形充满图像框C．两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小D．两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分59删除列表框中指定的项目所使用的方法为(D)A.MoveB.RemoveC.ClearD.RemoveItem60.若要向列表框添加列表项，可使用的方法是（AB、RemoveC、ClearD、Add61当拖动滚动条中的滚动块时，将触发的滚动条的事件是(C)A.MoveB.ChangeC.ScollD.SetFocus62．滚动条控件的LargeChange属性所设置的是（B）A．滚动条中滚动块的最大移动范围．单击滚动条和滚动箭头之间的区域时，滚动条控件value属性值的改变量C．滚动条中滚动块的最大移动位置D．滚动条控件无该属性63用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是(C)A.ListB.ListIndexC.TextD.ListCount64．设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（D）A．CaptionB．NameC．Text．Value65.在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程：PrivateSubCommand1_Click()a=Text1.Text+Text2.TextPrintaEndSubPrivateSubForm_Load()Text1.Text=""Text2.Text=""EndSub程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321，然后单击命令按钮，则输出结果为(C)A.444B.321123C.123321D.132231．）K=4K3n=5K4n=4K5n=3n．3A．C．4．5．）=*+<="="="="="．良A．优C．中．A=3A3A4A5A63456和0=1=2=3=4=5=6==_ABCD1BI=14I=1x=II4x=x+1I．2345A12342344D3456Bx=\2+\2+\2x=\3+\3+\3x>yx=y．x=yADA=0j=12A=A+j\5jAA．．16C．D．stIs=0=2=1I=0t=+t2=t1_t1=t_I=I+1ssA=0j=1A=A+j\2+j3jAA．B．35C．s=0i=i\*3=is=s+1i=i+1i=i+1sA．7．9C．．s=0i=1ii0s=s+ii=i+1i=i+1sA．B．．C．==j=15+6-jA．C．．．1.在VB6集成开发环境中,可以编辑程序代码,但不能修改用户界面的工作状态是(中断模式).2.控件和窗体的Name属性只能通过(属性窗口)设置,不能在(运行)期间设置.3.VB的数值型数