VB计习题册2018带答案.doc

目录第一部分 语法基础2第二部分 选择结构9第三部分 循环结构11第四部分 控件19第五部分 数组36第六部分 过程55第七部分 文件89第八部分 专题训练93第一部分 语法基础一、选择题1.以下_不能作为VB中的变量名.A:Abx45 B:P1234 C:89TasFF D:xy2.Integer类型的数据由_ _字节组成.A:1 B:2 C:3 D:43.下列语句中,不能交换变量a和b的值的是().A:t=b : b=a : a=t B:a=a+b : b=a-b : a=a-bC:t=a : a=b : b=t D:a=b : b=a4.表达式4+56*7/8 Mod 9的值是A:4 B:5 C:6 D:75.可以同时删除字符串前导和尾部空白的函数是().A:Ltrim B:Rtrim C:Trim D:Mid6.以下语句的输出结果是()。Print Format (32548.5,0000,000.00) A:32548.5 B:32,548.5C:032,548.50 D:0,032,548.507.表达式xyz + 568的值是().A:xyz B:568 C:xyz568 D:1208.表达式print Len(trim( abcd )&123)的结果是A:9 B:7 C:abcd D:1239.执行下面程序段后,变量c$的值为_ _. a$= Visual Basic Programming b$= Quick c$=b$ & Ucase(Mid$(a$,7,6) & Right$(a$,12)A:Visual BASIC Programming B:Quick Basic ProgrammingC:QUICK Basic Programming D:Quick BASIC Programming10.下列变量命名正确的是().A:myfile B:vb 1 C:page2 D:cmd.111.下面4项中合法的字符常数是().A:ABC$ B:ABC C:ABC D:ABC12.下列运算符中()的优先级最高.A:/ B: C:Mod D:+13. 13.下列选项中,属于Visual Basic 6.0程序设计方法的是().A:面向对象、顺序驱动 B:面向对象、事件驱动C:面向过程、事件驱动 D:面向过程、顺序驱动14.表达式Abs(-5)*55/5的值是A:-25 B:25 C:5 D:115. 一句语句要在下一行继续写,续行符是().A:+ B:- C:_ D:16.Print Day(#2000-10-15#)语句显示的结果是A:2000-10-15 B:2000 C:10 D:1517.结构化程序由三种基本结构组成,下面属于三种基本结构之一的是().A:递归结构 B:选择结构 C:过程结构 D:输入、输出结构18. Int(198.555*100+0.5)/100的值( ).A:198 B:199.6 C:198.56 D:20019.设x=8,y=14,z=15,表达式xz) Or zx的值是（）A:1 B:-1 C:True D:False20. 下面选项中()是字符连接运算符.A:% B:Mod C:& D:And21.数学关系3x10表示成正确的VB表达式为A:3=x10 B:3=x AND x=3 OR x10 D:3=x AND =b And b10 B:(ab)Or(b0)C:(a0) D:(-3+5a)And(b0)26.要定义一个变量为全局变量,应使用()关键字.A:Static B:Public C:Private D:Sub27.下面正确的赋值语句是A:x+y=30 B:y=*r*r C:y=x+30 D:3y=x28.InputBox函数返回值的类型是().A:整型数值 B:字符串 C:变体 D:数值或字符串29.下列变量命名正确的是().A:Len B:Testqw C:6cost_1 D:count2s30.如果一个整型变量定义后未赋值,则该变量的缺省值为().A:8 B: C:1 D:031.与传统的程序设计语言相比,Visual Basic最突出的特点是().A:结构化程序设计 B:程序开发环境C:事件驱动编程机制 D:程序调试技术32.下面（）不是VB的工作模式.A:设计模式 B:运行模式 C:中断模式 D:大纲模式33.设x=4,y=6,则以下不能在窗体上显示出A=10的语句是A:Print A=x+y B:PrintA=;x+yC:Print A=+Str(x+y) D:PrintA=&x+y34.下列选项中,属于Visual Basic 6.0程序设计方法的是().A:面向对象、顺序驱动 B:面向对象、事件驱动C:面向过程、事件驱动 D:面向过程、顺序驱动35.表达式val(a2000)的值为().A:0 B:65 C:2000 D:1936.msgBox函数返回值的类型是().A:整型数值 B:字符串 C:变体 D:数值或字符串37. 记录长度最大可取的值是_字节.A:32767 B:32768 C:65535 D:6553638.下面4项中合法的变量名是().A:X_yz B:123abc C:integer D:X-Y39.下面是()合法的字符常数.A:ABC$ B:ABC C:ABC D:ABC40.如果一个逻辑型变量定义后未赋值,则该变量的缺省值为().A:false B:true C:1 D:041.以下合法的一组Visual Basic用户标识符是A:Sum 和 8abc B:Const 和 DoWhileC:a#x 和 Pi D:ForLoop 和 Total42.下列运算符中()的优先级最高.A:/ B: C:Mod D:43.设a=Visual Basic,下面使b=Basic的语句是 .A:b=Left(a,8,12) B:b=Left(a,8,5) C:b=Mid(a,8,5) D:b=Right(a,5,5)44. 38-3 OR 10+2 =b And b10 B:(ab)Or(b0)C:(a0) D:(-3+5a)And(b0)48.表达式4+5 6 * 7 / 8 Mod 9 的值是().A:4 B:5 C:6 D:749.在一个语句内写多条语句时,用来分隔每条语句的符号是().A:, B: C:、 D:;50.数学表达式xyz的正确VB逻辑表达式是_.A:xy And yz C:xy And z D:xy And yz51.下面4项中不合法的整常数是().A:100 B:&O100 C:&H100 D:152.可以删除字符串尾部空白的函数是().A:Ltrim B:Rtrim C:Trim D:Mid53.语句print sgn(-54)+abs(-23)+int(23)输出结果为A:15 B:-38 C:-54 D:-1554.下列程序段的运行结果.Private Sub Form_Click() Dim Msg Hide Msg=选择确定按钮 MsgBox Msg Show End SubA:隐藏窗体,按确定按钮使窗体重现 B:隐藏窗体C:显示窗体,按确定按钮使窗体隐藏 D:显示窗体55.Int(198.555*100+0.5)/100的值().A:198 B:199.6 C:198.56 D:20056.设有如下变量声明Dim TestDate As Date为变量TestDate正确赋值的表达方式是A:TestDate=#1/1/2008# B:TestDate=#1/1/2008#C:TestDate=date(1/1/2008) D:TestDate=Format(m/d/yy,1/1/2008)57.设x=8,y=14,z=15,以下表达式的值是 xz) Or z8-3 OR 10+2 b+c C:abc D:ab+c70.表达式 15 Mod 4 + 13 5 * 2 的值是A:0 B:2 C:4 D:771.执行以下程序段后,变量c的值为()a=Visual Basic Programing : b=Quick c=b & LCase(Mid(a,7,6) & Right(a,11)A:Visual basic ProgramingB:Quick basic ProgramingC:QUICK basic ProgramingD:Quick Basic Programing72.常量2.7856E-6的类型是_.A:整型 B:实型 C:字符型 D:双精度73.下面四项中,_是VB中的变量.A:ABC B:E+2 C:True D:.013574.已知A$=12345678,则表达式Val(Left$(A $,4)+Mid$(a $,4,2)的值为A:123456 B:123445 C:8 D:675.VB6.0是一种面向()的编程环境.A:机器 B:对象 C:过程 D:应用76.VB窗体文件的扩展名是().A:VBW B:VBP C:FRM D:BAS77. CLS可清除窗体或图形框中的内容是A:Picture属性设置的背景图案 B:在设计时放置的控件C:程序运行时产生的图形和文字 D:以上AC全部78.下面各种高级语言中,不是面向对象程序设计语言的是().A:Visual Basic B:C+ C:Pascal D:Java79.InputBox函数返回值的类型是().A:整型数值 B:字符串 C:变体 D:数值或字符串80.VB表达式Cos(0)+Abs(-1)+Int(Rnd(1)的值是_.A:1 B:2 C:0 D:-181.表达式Abs(-5)*55/5的值是A:-25 B:25 C:5 D:182.下面4项中不属于面向对象系统三要素的是().A:变量 B:事件 C:属性 D:方法83.语句print sgn(-54)+abs(-23)+int(23)输出结果为A:15 B:-38 C:-54 D:-1584.结构化程序由三种基本结构组成,下面属于三种基本结构之一的是().A:递归结构 B:选择结构 C:过程结构 D:输入、输出结构85.表达式16/4-25*8/4MOD52的值为A:14 B:4 C:20 D:2第二部分 选择结构一、选择题1.下面程序段：Dim yIf y Then Print y+1 Else Print y+2运行后，显示的结果是_.A:2 B:0 C:-1 D:显示出错信息2.当输入4时,以下程序的输出结果是_. Private Sub Command1_Click() x=InputBox(x) If x215 Then y=x2+1 Print y End SubA:4 B:17 C:18 D:253.选择和循环结构的作用是_.A:控制程序的流程 B:提高程序的运行速度C:便于程序的阅读 D:方便程序的调试4.语句If x=1 Then y=1,下列说法正确的是_.A:x=1和y=1均为赋值语句B:x=1和y=1均为关系表达式C:x=1为关系表达式,y=1为赋值语句D:x=1为赋值语句, y=1为关系表达式5.VB提供了结构化程序设计的3种基本结构,这3种基本结构是_.A:递归结构,选择结构,循环结构B:选择结构,过程结构,顺序结构C:过程结构,输入、输出结构,转向结构D:选择结构,循环结构,顺序结构6.下面程序段: Dim m m=Int(Rnd+1)+5 Select Case m Case 6 Print优秀Case 5Print良好Case 4Print通过Case ElsePrint不通过End Select显示的结果是A:优秀 B:良好 C:通过 D:不通过二、程序改错 1、题目：程序功能根据输入的学习成绩,分别显示优秀(90分以上), 良好(75分以上),及格(60分以上)，不及格四个等级.Option ExplicitPrivate Sub Form_Click()ClsDim i As Integeri = InputBox(请输入学习成绩)Select Case i*FOUND* Case 0 i 100 MsgBox 成绩应该在0-100之间*FOUND* Case 90 Print 优秀 Case 75 To 89 Print 良好 Case 60 To 74 Print 及格 *FOUND* Case MsgBox 不及格, vbCriticalEnd SelectEnd Sub第三部分 循环结构一、选择题1.在窗体中添加两个文本框Text1和Text2,一个命令按钮Command1,编写如下事件过程:Private Sub Command1_Click()x = 0Do While x 100 print a End SubA:100 B:120 C:201 D:10113.以下程序的循环次数是 . Private Sub Command1_Click() For j=8 To 35 Step 3 Print j; Next j End SubA:10 B:9 C:27 D:814.设有如下程序:Private Sub Command1_Click()Dim sum As Double , x As Doublesum = 0n = 0For i = 1 To 5 i=1,i=2,i=3,i=4,i=5x = n / I x=0,x=1/2,x=2/3n = n + 1 n=1,n=2,n=3sum = sum + x sum=0+1/2+2/3+NextEnd Sub该程序通过For循环计算一个表达式的值,这个表达式是 .A:1+1/2+2/3+3/4+4/5 B:1+1/2+2/3+3/4C:1/2+2/3+3/4+4/5 D:1+1/2+1/3+1/4+1/515.以下正确的ForNext结构是 .A:For x = 5 Step 10Next xB:For x=3 To -3 Step -3Next x C:For x=1 To 10start: Next x If i=10 Then GoTo startD:For x=3 To 10 Step 3Next m16.下面程序段输出的结果是Private Sub Command1_Click()x = 8For i = 0 To 20 Step 5x = x + I x=8+0+5+10+15+20Nextprint X=; xEnd SubA:X=210 B:X=218 C:X=50 D:X=58二、程序改错1、该程序实现将输入的 0 - 255 之间的正整数转换成二进制数Option ExplicitPrivate Sub Form_Click() Const n = 8 Dim a(n) As Integer, s As String, m As Integer, x As Integer x = Val(InputBox(请输入一个 0 - 255 之间的正整数：) Print x*FOUND* For m = 0 To n a(m) = x Mod 2*FOUND* x = x 2 Next m s = For m = n To 0 Step -1*FOUND* s =s+ Str(a(m) Next m Print s End Sub2、用InputBox函数输入一个字符串，编写程序按与输入的字符相反的次序用Msgbox函数输出这个字串。如输入字符串为abcdefgh，则输出为hgfedcbaOption ExplicitPrivate Sub Command1_Click() Dim pristr As String, outstr As String Dim i As Integer pristr = InputBox(please input a string) *FOUND* For i = 0 To Len(pristr)-1 *FOUND* outstr = outstr + Mid(pristr, Len(pristr) I,1) Next i *FOUND* MsgBox outstr,vbquestion , The Output Result End Sub3、统计一顺序文件text.txt中的空格、字母、数字和其它字符个数。Option ExplicitPrivate Sub Command1_Click() Dim s As String, C As String Dim I As Integer, L As Integer, spac As Integer, character As Integer, digit As Integer, other As Integer *FOUND* Open App.Path & text.txt For input As #1 *FOUND* Do Until EOF(1) Line Input #1, s L = Len(s) For I = 1 To L C = Mid(s, I, 1) If C = a And C = A And C = 0 And C =9 Then digit = digit + 1 Else other = other + 1 End If Next I Loop Close #1 Print 字符个数为：; character; 数字个数为：; digit Print 空格个数为：; spac; 其它个数为：; otherEnd Sub第四部分 控件一、选择题1.为了使列表框中的项目按字母顺序排列,应设置哪个属性?A:List B:Sorted C:Style D:Text2.下面关于打印对话框属性的说法错误的是_.A:Copies属性指定打印的份数.B:HDC属性指定分配给打印机的句柄,用来识别对象的设备环境.C:FromPage属性指定要打印文档的页范围.使用该属性时必须把Flags属性设置为1.D:Max和Min属性用来显示FromPage和ToPage的范围,其中Min指定允许的起始页码,Max指定允许的最后页码.3.如果要使一个窗体从屏幕上和内存中完全消失,所要使用的语句是_.A:Hide B:Show C:Load D:Unload4.要判断命令按钮是否被鼠标单击,应在命令按钮的 事件中判断.A:Chang B:KeyDown C:Click D:KeyPress5.为了把窗体上的某个控件变为活动的,应执行的操作是().A:单击窗体的边框 B:单击该控件的内部C:双击该控件 D:双击窗体6.要使Form1窗体的标题栏显示欢迎使用VB,以下语句正确的是().A:Form1.Caption=欢迎使用VB B:Form1.Caption=欢迎使用VBC:Form1.Caption=欢迎使用VB D:Form1.Caption=欢迎使用VB 7.指令Circle(1000,1000),500,8,-6,-3将绘制A:画圆 B:椭圆 C:圆弧 D:扇形8.标签的()属性设置为True时,标签控件的大小随标题文字自动调整.A:AutoSize B:Caption C:Alignment D:BackStyle9.若要禁止窗体被用户移动,通过设置可达此要求的窗体的属性是().A:MaxButton B:Moveable C:Move D:ControlBox10.以下的属性和方法中,可重定义坐标系的是A:Drawstyle属性 B:DmwWidth属性 C:Scale方法 D:ScaleMode属性11.要想不使用Shift和Ctrl键就能在列表框中同时选择多个项目,则应把该列表框的MultiSelect属性设置为:A:0 B:1 C:2 D:其他12.如果列表框(List1)中没有被选定的项目,则执行List1.RemoveItem List1.ListIndex 语句的结果是A:移去第一项 B:移去最后一项C:移去最后加入列表的一项 D:以上都不对13.下面关于对象的描述中,错误的是().A:对象就是自定义结构变量B:对象代表正在创建的系统中的一个实体C:对象是一个状态和操作(或方法)的封装体D:对象之间的信息传递是通过消息进行的14.若要使标签控件显示时不覆盖其背景内容,要对()属性进行设置.A:BackColor B:BorderStyle C:ForeColor D:BackStyle15.Cls方法可清除窗体或图片框中的信息是 .A:Picture属性设置的背景图案 B:在设计时放置的控件C:程序设计时产生的图形和文字 D:以上方法都对16.下面4项中不属于面向对象系统三要素的是().A:变量 B:事件 C:属性 D:方法17.框架内的所有控件是_.A:随框架一起移动、显示、消失和屏蔽B:不随框架一起移动、显示、消失和屏蔽C:仅随框架一起移动 仅随框架一起显示和消失18.当一个工程含有多个窗体时,其中的启动窗体是().A:启动 Visual Basic 时建立的窗体 B:第一个添加的窗体C:最后一个添加的窗体 D:在工程属性对话框中指定的窗体19.假如列表框(List1)有4个数据项,那么把数据项China添加到列表框的最后,应使用的语句是A:List1.AddItem3,ChinaB:List1.AddItemChina,List1.ListCount-1C:List1.AddItemChina,3D:List1.AddItemChina,List1.ListCount20.VB6.0是一种面向()的编程环境.A:机器 B:对象 C:过程 D:应用21.以下叙述错误的是A:在工程资源管理起窗口中只能包含一个工程文件及属于该工程的其他文件B:一个工程中可以含有多个标准模块文件C:以.bas为扩展名的文件是标准模块文件D:窗体文件包含该窗体及其控件的属性22.如果文本框的Enabled属性设为 False,则_.A:文本框的文本将变成灰色,并且此时用户不能将光标置于文本框上B:文本框的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容C:文本框的文本将变成灰色,用户仍然能改变文本框中的内容D:文本框的文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容23.在修改列表框内容时,AddItem方法的作用是().A:清除列表框中的全部内容 B:删除列表中指定的内容C:在列表框中添加一个项目 D:在列表框中插入一行文本24.下列操作中不能向工程中添加窗体的是().A:执行工程菜单中的添加窗体命令B:单击工具栏上的添加窗体按钮C:右击窗体,在弹出菜单中选择添加窗体命令D:右击工程资源管理器,在弹出菜单中选择添加命令,然后在下一级菜单中选择添加窗体命令25.要使某控件在运行时不可显示,应对()属性进行设置.A:Enabled B:Visible C:BackColor D:Caption26.下面关于多重窗体的叙述中,正确的是A:作为启动对象的Main子过程只能放在窗体模块内B:如果启动对象是Main子过程,则程序启动时不加载任何窗体,以后由该过程根据不同情况决定是否加载及加载哪一个窗体C:没有启动窗体,程序不能执行D:以上都不对27.下列程序：Private Sub Textl _Change()Print Textl；End Sub当在文本框输入1234这4个字符时，窗体上显示的是A:1234 B:1234C:1121231234D:112123123428.以下能在窗体MainForm的标题栏中显示江苏理工学院的语句是A:MainForm.Name=江苏理工学院 B:MainForm.Title=江苏理工学院C:MainForm.Caption=江苏理工学院 D:MainForm.Text=江苏理工学院29.如