VB选择题设计题.doc

VB复习1、选择题（20题，共50分）2、设计题(3题，满分30分)3、编程题（2题，满分20分）一、选择题（选择题知识点共20个，满分50分）1VB基本概念、功能、特点，控件类1-1在以下叙述中错误的是（）。A) 窗体文件包含该窗体及其控件的属性B) 一个工程中可以含有多个标准模块文件C) 以.bas为扩展名的文件是标准模块文件D) 工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件1-2在以下叙述中错误的是（ ）。A) VB是可视化程序设计语言 B) VB是面向过程的程序设计语言C) VB采用事件驱动编程机制 D) VB应用程序可以以编译方式执行1-3下列关于事件的叙述，错误的是（ ）。A) 事件是系统预先为对象定义的能被对象识别的动作B) 事件可分为用户事件与系统事件两类C) VB为每个对象设置好各种事件，并定义好事件过程的过程名D) VB中每个对象的默认事件均为Click2常用数据类型、常量、变量2-1 VB中占用存储空间最小的数据类型（ ）。A) Byte B) Date C) Integer D) Boolean2-2假定变量Logic类型是Boolean，下面（ ）赋值语句是正确的。A) Logic=True B) Logic=.TrueC) Logic=True D) Logic=3-43 以下合法的变量名是（ ）。A) X（-1） B) A%C C) SIN D) C O13运算符、表达式运算3-1 下列表达式的值为真的是（ ）。A) 1+2=12 B) 1 & 2=12C) 1+2=3 D) 1 & 2=33-2 下列运算结果中，值最小的是（ ）。A) 37 B) 3/7 C) 7 mod 3 D) 3 mod 73-3 判断整型变量X是奇数的表达式是（ ）。A) X Mod 2 = 1 B) X Mod 2 = 0C) X mod 2 0 D) X Mod 2 14常用内部函数4-1 表达式Len(Str(Val(123.4)的值为（ ）。A) 4 B) 5 C) 6 D) 114-2 假设A = Hello Tom，B = Im Kitty!，则下列表达式结果为Hello Kitty!的是（ ）。A)Left(A, 5) + Right(B, 6) B) Mid(A + B, 1, 11)C) Left(A, 10) + Right(B, 6) D) Mid(A, 1, 6) + Mid(B, 5, 6)4-3执行以下程序段后，变量c$的值为（ ）。 a$=Visual Basic Programing b$=Quick c$=b$ & UCase(Mid$(a$,7,6) & Right$(a$,11)A) Visual BASIC Programing B) Quick Basic ProgramingC) QUICK Basic Programing D) Quick BASIC Programing5代码编写规则，Print方法、打印格式、Cls方法5-1 已知intA% = 7，执行Print intA = 4 + 4, intA + 1后在窗体上显示（）。 A)7 8 B) 8 9 C) False 8 D) 报错，不打印结果5-2 已知a=Sqr(9)，执行Print Format(a,$#.#)后在窗体上显示（）。A) $3. B) $3. C) $3.000 D) $0009.0005-3 已知Picture1和Label1分别是图片框和标签的名称，下列语句不正确的是（ ）。A) Print 25 B) Debug.print 25C) Label1.Print 25 D) Picture1.print 256输入框（InputBox）、消息对话框(MsgBox）6-1 下列语句正确的是（ ）。A) MsgBox VbOkOnly, Error B) MsgBox Error, vbOKOnlyC) MsgBox(VbOkOnly, Error) D) MsgBox(Error, vbOKOnly)6-2 执行X=Inputbox(请输入半径,0,计算面积), 在键盘上输入10后按回车,下列描述中正确的是（ ）。A) 0是缺省值 B) 变量X的值是0C) 变量X的值是10“ D) 对话框标题是计算面积6-3 设文本框的内容为123。下列语句组：Num1 = Text1.Text Num2 = InputBox(Enter the Numeric) Print num1 + num2执行后在输入框中输入123，则输出结果是（ ）。A) 123 B) 246 C) 123123 D) 出错7窗体的常用属性、事件和方法7-1 在以下叙述中错误的是（ ）。A) 窗体的Load事件在加载窗体时发生B) 窗体的Height、Width属性用于设置窗体的大小C) 执行Unload Form1语句后，窗体Form1消失，但仍在内存中D) 当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止7-2窗体在整个存活期中会发生许多事件，这些事件发生的顺序()。A) Load, GotFocus, InitializeB) Initialize, GotFocus, LoadC) GotFocus, Initialize, LoadD) Initialize, Load, GotFocus7-3 由用户触发的事件是（ ）。 A) Initialize B) LostFocus C) DragDrop D) MouseUp8文本控件的常用属性、事件和方法8-1 要使文本框能够使用滚动条卷动显示多行文字，则应进行如下设置（ ）。A) MultiLine属性设为TrueB) ScrollBars属性设为2-VerticalC) 在文本框边框上添加一个VScrollBar控件D) 设置MultiLine为True且ScrollBars为2-Vertical8-2要使文本框获得输入焦点，则应采用文本框控件的（ ）方法。A) GotFocus B) GetFocus C) SetFocus D) TakeFocus8-3 修改文本框内容时触发的事件是（ ）。A) Modify B) Change C) AutoSize D) Validate9图形控件的常用属性、事件和方法9-1 在以下的属性和方法中，可更改坐标系统单位的是（ ）。A) Style B) Scale C) ScaleMode D) Scaletype9-2当窗体的AutoRedraw属性采用默认值时，若窗体装入时要使用绘图方法绘制图形，则应将程序放在（ ）。A) Paint事件 B) Load事件C) Initialize事件 D) Click事件9-3 语句： Circle (600, 300), 200, , , 2绘制的是（ ）。A) 圆形 B) 椭圆 C) 扇形 D) 圆弧10选择控件的常用属性、事件和方法10-1 正确设置复选框为选中状态的语句是（ ）。A) Check1.Value = 0 B) Check1.Value = 1C) Check1.Value = 2 D) Check1.Value = True10-2 在窗体上画三个单选按钮，组成一个名称为chkOption的控件数组。用于标识各个控件数组元素的参数是（ ）。A)Tag B) Name C) Index D) Caption10-3 下面不具有DblClick事件的控件有（ ）。A) 框架 B) 文本框 C) 复选框 D) 单选按扭11命令按钮的常用属性、事件和方法11-1 为了在按下ESC键时执行某个命令按钮的单击事件过程，需要设置其（ ）属性为True。A) Enter B) Cancel C) Default D) Enabled11-2 若要将命令按钮的快捷键设为Alt+x,则其Caption属性值应包含（ ）。A) &x B) x& C) #x D) x#11-3 命令按钮能响应的事件是（ ）。A) Load B) Scroll C) DragDrop D) Dbclick12列表框及组合框的常用属性、事件和方法12-1 清除列表框中的所有内容应使用的方法是（ ）。 A) Cls B) Clear C) Remove D) RemoveItem12-2 下列属性中表示列表框当前被选中的列表项内容的是（ ）。 A) Text B) List C) Index D) ListIndex12-3 组合框Combo1中有6个项目，以下能删除第一项的语句是( ) 。 A)Combo1.RemoveItem 0 B) Combo1.RemoveItem 1 C) Combo1.RemoveItem 1 D) Combo1.RemoveItem Combo1.Listcount13框架、滚动条和计时器的常用属性、事件和方法13-1可以用作其它控件容器的控件有（ ）。A) 窗体、列表框、图像框 B) 窗体、文本框，框架C) 窗体、框架、图片框 D) 窗体、标签、图片框13-2在窗体上有一个文本框控件TxtTime；一个计时器控件Timer1，要求每秒钟在文本框中显示一次当前时间。程序为： Private Sub Timer1_ _() TxtTime.text=Time End Sub在下划线上应填入的内容是（ ）。A) Visible B) Timer C) Enabled D) Interval13-3在以下叙述中错误的是（ ）。A) 计数器的Interval属性以秒为单位B) 触发计数器Timer事件的时间间隔可人为设定C) 计数器的Enabled属性为False，会暂停计数器的操作D) 运行时计数器不可见，所以它放在窗体什么位置都可以14. 焦点和Tab键顺序，鼠标器和键盘的常用属性、事件和方法14-1 在以下叙述中正确的是（ ）。A) 不同控件的TabIndex属性可以相同B) 窗体、命令按钮、标签和文本框控件都有TabIndexC) 窗体上控件的TabIndex属性值必须小于其控件个数D) 同一个窗体不同控件的TabIndex属性值可以任意设置14-2 在以下叙述中错误的是（ ）。A) 只有获得焦点的对象才能够接受键盘事件B) KeyPress事件中可以识别键盘上某个键的按下与释放C) 在KeyDown事件中，键盘上输入的A或a被视作相同的字母D) 在KeyUp事件中，键盘上的“1”和右侧小键盘上的“1”视作不同的数字14-3 在以下关于键盘事件的叙述中错误的是 ( )A) 将KeyPress事件的KeyAscii参数设置成0，可以取消本次击键B) 当KeyPreview属性为True时，窗体将先于其上的控件获得键盘事件C) Shift参数传递了当前键盘上Ctrl、Alt和Shift三个控制键的按键状态D) 按下键盘上的任何一个键，都将依次触发KeyDown、KeyPress和KeyUp事件14-4对窗体编写如下代码： Option Base 1 Private Sub Form_KeyPress(KeyAscii AS Integer) a=Array(237,126,87,48,498) m1=a(1):m2=1 If KeyAscii=13 Then For i=2 To 5 If a(i)m1 Then m1=a(i):m2=i End If Next i End If Print m1:Print m2 End Sub程序运行后，按回车键，输出结果为（ ）。A) 48 B) 273 C) 498 D) 498 4 1 5 414-5如下事件过程Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 3 And Button = 2 Then Print Visual Basic End If End Sub运行时，如果要输出“Visual Basic”，应进行的操作是( )。A) 同时按下Shift键和鼠标左键B) 同时按下Shift键和鼠标右键C) 同时按下Ctrl、Alt键和鼠标左键D) 同时按下Shift、Ctrl键和鼠标右键15顺序/分支结构（程序阅读、选择填空）15-1执行下列程序段。 s = Val(InputBox(s=, ,6) Select Case s Case Is 6 f = s + 1 Case Is 5 f = s + 2 Case Is 4 f = s + 3 Case Else f = s + 4 End Select Print s; f运行后，直接按回车，窗体显示的结果是（ ）。A) 6 7 B) 6 8 C) 6 9 D) 6 1015-2下列程序段: a = Val(InputBox(请输入分数:, 计算你的等级, -1) If a 100 Then Print 输入错误 ElseIf a 60 Then Print 不合格 ElseIf a 80 Then Print 合格 Else Print 优秀 End If运行后，直接按回车，窗体显示的结果是（ ）。A) 优秀 B) 合格 C) 不合格 D) 输入错误15-3下列程序段的执行结果是（ ）。 a = 10: b = 30: c = 50 If a c Then b = c: c=a If b = c Or a c Then a = a + 40 Print a; b; cA) 50 30 50 B) 10 30 50 C) 10 50 50 D) 50 50 1016循环结构程序（程序阅读、选择填空）16-1下列程序段: Dim x As Integer, n As Integer x = 1 n = 0 Do x = x 2 x = x + 1 n = n + 1 Loop While x 10 Text1.Text = Str(x) Text2.Text = Str(n)运行后，在两个文本框中分别显示（ ）。A) 9和3 B) 26和3 C) 16和4 D) 27和 416-2执行下列程序段后，窗体显示的内容( )。 x = 0 For i = 1 To 3 For j = 1 To i x = x + j Next j Next i Print xA) 3 B) 6 C) 10 D) 1816-3执行下列程序段后，窗体显示的内容为（ ）。 Dim n As Integer, m As Single For n = 0 To 20 Step 2 If n Mod 5 = 0 Then m = m + n Next n Print mA) 21 B) 22 C) 30 D) 5016-4执行下列程序段后，窗体显示的内容为（ ）。 Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a1 Loop While a = 0 Print s; aA) 37 0 B) 1 8 C) 9 7 D) 死循环17数组、控件数组17-1执行下列程序段后，窗体显示的内容为（ ）。 Dim a Dim s%, i% a = Array(1, 2, 3, 4, 5) For i = 1 To 3 s = s + a(i) 2 Next i Print sA) 6 B) 14 C) 29 D) 5517-2执行下列程序段后，窗体显示的内容为（ ）。 Dim m(10) For i = 0 To 10 m(i) = 2 * i Next i Print m(m(5)A) 10 B) 20 C) m(m(5) D) 出错17-3执行下列程序段后，窗体显示的内容为（ ）。 Dim a Dim i As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 5 Step 2 Print a(5 - i); Next A) 5 3 1 B) 6 4 2 C) 5 4 3 2 1 D) 6 5 4 3 2 118过程、自定义函数、变量的作用域、参数传递（程序阅读、选择填空）18-1假定有如下的过程： Sub S(ByVal x As Single, y As Single) t = x x = t / y y = t Mod y End Sub在窗体上画一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim m As Single Dim n As Single m = 3 n = 2 S m, n Print m, n End Sub程序运行后，单击命令按钮，输出结果为（ ）。 A) 1.5 1 B) 3 1 C) 1.5 2 D) 3 218-2如下程序： Function F(ByVal x As Integer) Static z z = z + 1:F = x + z End Function Private Sub Form_Click() Dim a%, i% a = 2 For i = 1 To 3 Print F(a); Next i Print End Sub运行后，单击窗体，输出结果为（ ）。A) 3 3 3 B) 3 4 5 C) F(2) F(2) F(2) D) 空白18-3如下程序： Private Sub Form_Click() Dim a As Integer, b As Integer a = 8 b = 3 Call Test(a, b) Print 主程序:; a, b End Sub Sub Test(ByVal x As Integer, y As Integer) x = 2 y = 4 Print 子程序:; x, y End Sub运行后，单击窗体，输出结果为（ ）。A) 子程序:2 4 主程序：8 3 B) 主程序：8 3 子程序：2 C）子程序：2 4主程序：8 4 D）主程序：2 4 子程序：2 419菜单设计、工具栏设计、对话框设计、多重窗体设计、多文档界面设计19-1在以下叙述中错误的是（ ）。A) 程序运行时，通用对话框控件是不可见的B) 调用通用对话框控件的ShowColor方法，可以打开颜色对话框C) 调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件D) 在同一个程序中，用不同的方法（如ShowOpen或ShowSave等）打开的通用对话框具有不同的作用19-2 在下列关于菜单叙述中,错误的是（ ）。A) 在程序运行过程中可以增加或减少菜单项B) 如果把一个菜单项的Enabled属性设置为False,则可删除该菜单项C) 弹出式菜单在菜单编辑器中设计D) 菜单项与其它控件一样有自己的属性和事件19-3在以下叙述中错误的是（ ）。A) 一个工程只能以窗体作为启动对象B) 窗体模块间可利用Public型的模块级变量来相互传递数据C) 在一个窗体中要显示另外一个窗体，只要调用它的Show方法D) 模式窗体只有被关闭后才可以把焦点移到应用程序的其它部分继续操作19-4 在窗体上画一个通用对话框，若要求打开该对话框时，文件类型栏只显示扩展名为DOC的文件，则通用对话框的Filter属性应设置为（ ）。A) (*.doc)*.doc B) (*.doc )| (.doc)C) (*.doc)|*.doc D) (*.doc)|*.doc“19-5假定有一个菜单项，名为MenuItem，为了在运行时使该菜单失效（非激活）应使用的语句为（ ）。A)MenuItem.Enabled=False B) MenuItem.Enabled=TrueC) MenuItem.Visible=True D) MenuItem.Visible=False20文件的基本概念、分类，顺序文件、ASCII文件、随机文件的打开、关闭、读、写，文件系统控件（驱动器列表框、目录列表框、文件列表框）的常用属性和事件，文件系统对象模型FSO20-1从随机文件中读出数据应该执行（ ）。 A) Write #文件号, 表达式列表 B) Put #文件号, 变量名 C) Input #文件号, 表达式列表 D) Get #文件号, 变量名20-2以下叙述中错误的是（ ）。A) 随机文件每条记录的长度是固定的B) Open语句的功能是打开一个已经存在的文件C) 执行 Openc:File.dat For Output As#1 文件指针指向文件头D) 以下语句的条件表示当到达文件尾时结束循环 Do While Not EOF(1) Loop20-3目录列表框的Path属性的作用是（ ）。A) 显示当前驱动器或指定驱动器上的路径B) 显示当前驱动器或指定驱动器上的某目录下的文件名C) 显示根目录下的文件名D) 只显示当前路径下的文件20-4为了使文件系统控件（DriveListBox, DirListBox和FileListBox）三者协调同步，可分别在驱动器列表框和目录列表框的（ ）事件中更新目录列表框和文件列表框的Path属性。 A) Click B) Change C) GotFocus D) LostFocus20-5语句： Open text.dat For Output As #1以下叙述中错误的是（ ）。A) 以顺序输出模式打开文件text.datB) 如果文件text.dat不存在，则建立一个新文件C) 如果文件text.dat已存在，则打开该文件，新写入的数据将增添到该文件中D) 如果文件“text.dat”已存在，则打开该文件，新写入的数据将覆盖原有的数据相同二、设计题 1窗体以及控件基本属性设置，无需编写程序。属于容易题 2简单设计题，属于中等偏容易题 3综合设计题，属于中等难度题 1.1请按图在窗体上设两个高、宽均为500、1200，标题分别为“确定”和“取消”的命令按钮。通过设置相应的属性使得按下Esc键时，相当于对“取消”按钮执行了单击的操作；同时为“确定”按钮设置“Alt+E”的访问键。注：在属性窗口中完成所有设计。 窗体文件名Canc.frm，工程文件名Canc.vbp。1.2 请按图在标题为“密码框”的窗体上设一个显示内容为“密码”的标签和一个文本框。通过设置相应的属性使得文本框最多允许输入6个字符，同时输入的字符都以“*”显示出来。注：在属性窗口中完成所有设计。 窗体文件名Passw.frm，工程文件名Passw.vbp。1.3 请在标题为“形状”的窗体上设一个如图所示的高、宽均为1500，与窗体的左边距离为1000的形状控件。注：在属性窗口中完成所有设计。 窗体文件名Shape.frm，工程文件名Shape.vbp。2.1请按图设一个名称为“fs”、标题为“字体大小”的菜单项；在这个菜单下创建一个名为“size”的控件数组的子菜单，包含两个子菜单项，标题分别为“12号”和“18号”，下标分别为“0”和“1”；再在窗体上添加一个文本居中显示的文本框。运行时单击子菜单，文本框中的字体大小会做相应的变换。注：程序中无需使用任何变量。 窗体文件名Fonts.frm，工程文件名Fonts.vbp。2.2请按图设名称为“pic”的“图片”菜单，其“显示”和“清空”子菜单的名称分别为为dis和eli；设一个大小能自动调整以适应其显示图片的尺寸的图片框（Picture1）。运行时，单击“显示”，在图片框中显示如图所示图片（K:Fjexam95Fish.jpg）；单击“清空”则清空图片框。注：程序中无需使用任何变量。 窗体文件名Picd.frm，工程文件名Picd.vbp。3.1请按图设一个组合框、一个文本框（窗体左下方）和“添加”和“删除”按钮，并为组合框添加“高等数学”、“大学英语”和“线性代数”三个列表项。运行时，单击“添加”（Command1），将文本框中的内容添加到组合框末尾并清空文本框；单击“删除”（Command2），将组合框中选中的列表项删除。注：程序中无需使用任何变量。 窗体文件名Comb.frm ，工程文件名Comb.vbp。3.2 请按图设一个列表框，并为其添加10、20、30、40、50、60、70、80、90共9个项目；设一个初始内容为空白、文本内容居中显示的文本框；设一个水平滚动条，其Min和Max属性分别为0和100。运行时单击列表框中的某个项目，在文本框中显示该项目内容，并把滚动滑块移到相应的位置。注：程序中无需使用任何变量。 窗体文件名Movs.frm ，工程文件名Movs.vbp。3.3 请按图设名称为cal和eli的“计算”和“清除”菜单项，“计算”中含名称为add和sub的“加法”和“减法”子菜单；另设两个文本框和一个有边框的标签（窗体右下角）