VB 模拟考试 1.doc

试卷名称：VB 模拟考试 1 试卷说明： 命题教师： 北京化工大学北方学院 信息院 韩海花 一、单项选择题（总分 50）1. （分值：0.9 分）Visual Basic 6.0 集成环境的主窗口中不包括_C_。 A: 标题栏 B: 菜单栏 C: 状态栏 D: 工具栏 序号：4 难度：1 考查点：VB 概述 2. （分值：0.9 分）用于从字符串左边截取字符的函数是（ C ） A: Ltrim( ) B: Trim( ) C: Left( ) D: Instr( ) 序号：6 难度：1 考查点：VB 语言基础 3. （分值：0.9 分）窗体的标题栏显示内容由窗体对象的（ D ）属性决定。 A: BackColor B: BackStyle C: Text D: Caption 序号：9 难度：1 考查点：数据的输入与输出 4. （分值：0.9 分）VB 中可用（ D ）语句产生一消息框。 A: InputBox B: Shift C: Both D: MsgBox 序号：15 难度：1 考查点：数据的输入与输出 5. （分值：0.9 分）以下属于 Visual Basic 合法的数组元素是 C A: x8 B: x8 C: s (0) D: v8 序号：26 难度：1 考查点：数组 6. （分值：0.9 分）运行下列程序段后，显示的结果为 B J1=4 J2=9 If J1J2 Then Print J2 Else Print J1 A: 4 B: 9 C: 13 D: 49 序号：30 难度：1 考查点：选择结构程序 7. （分值：0.9 分）设 a=6，则执行 x=IIf(a5,-1,0)后,x 的值为( D ) A: 5 B: 6 C: 0 D: -1 序号：50 难度：1 考查点：选择结构程序 8. （分值：0.9 分）刚建立一个新的标准 EXE 工程后 ，不在工具箱中出现的控件是（ C ） A: 单选按钮 B: 图片框 C: 通用对话框 D: 文本框 序号：55 难度：1 考查点：VB 概述 9. （分值：0.9 分）以下叙述中正确的是 AA: 窗体的 Name 属性指定窗体的名称 ，用来标识一个窗体 B: 窗体的 Name 属性的值是显示在窗体标题栏中的文本 C: 可以在运行期间改变对象的 Name 属性的值 D: 对象的 Name 属性值可以为空 序号：57 难度：1 考查点：VB 概述 10. （分值：0.9 分）在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程： Private Sub Txta_KeyPress(keyascii as integer) End Sub 若焦点位于文本框中，则能够触发 KeyPress 事件的操作是 DA: 单击鼠标 B: 双击文本框 C: 鼠标滑过文本框 D: 按下键盘上的某个键 序号：81 难度：1 考查点：键盘与鼠标事件过程 11. （分值：0.9 分）把窗体的 KeyPreview 属性设置为 True，然后编写如下过程： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode+2) End Sub 程序运行后，如果在键盘上输入一个字母 a，则输出结果为_C_ A: A A B: A B C: A C D: A D 序号：159 难度：1 考查点：键盘与鼠标事件过程 12. （分值：0.9 分）编写如下事件过程： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If(Button And 3)=3 Then Print AAAA End If End Sub 程序运行后，为了在窗体上输出AAAA，应按下的鼠标键为 _C_A: 左 B: 右 C: 同时按下左右键 D: 按什么键都行 序号：160 难度：1 考查点：键盘与鼠标事件过程 13. （分值：0.9 分）为了使一个窗体从屏幕上消失但仍在内存中，所使用的方法或语句为 _B_ A: Show B: Hide C: Load D: Unload 序号：151 难度：1 考查点：多重窗体与环境应用 14. （分值：0.9 分）InputBox 函数返回值的类型为_B_。 A: 数值 B: 字符串 C: 变体 D: 数值或字符串（视输入的数据而定）序号：36 难度：1 考查点：数据的输入与输出 15. （分值：0.9 分）在 Do UntilLoop 循环中，判断循环表达式与结束循环的关系是(B ) A: 先判断循环表达式，当表达式值为假时结束循环 B: 先判断循环表达式，当表达式值为真时结束循环 C: 先执行循环体，后判断循环表达式，当表达式值为假时结束循环 D: 先执行循环体，后判断循环表达式，当表达式值为真时结束循环 序号：46 难度：1 考查点：循环结构程序 16. （分值：0.9 分）以下叙述错误的是 DA: 在 KeyUp 和 KeyDown 事件过程中，从键盘上输入 A 或 a 被视作相同的字母（即具有相同的 KeyCode） B: 在 KeyUp 和 KeyDown 事件过程中，将键盘上的1和右侧小键盘上的1视作不同的数字（即具有不同的 KeyCode） C: KeyPress 事件中不能识别键盘上某个键的按下与释放 D: KeyPress 事件中可以识别键盘上某个键的按下与释放 序号：154 难度：1 考查点：键盘与鼠标事件过程 17. （分值：0.9 分）以下叙述错误的是_C_。 A: 一个工程只能有一个 Sub Main 过程 B: 窗体的 Show 方法的作用是将指定的窗体装入内存并显示该窗体 C: 窗体的 Hide 方法和 Unload 方法的作用完全相同 D: 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体 序号：150 难度：1 考查点：多重窗体与环境应用 18. （分值：0.9 分）下列说法错误的是 CA: 窗体文件的扩展名为.frm B: 一个窗体对应一个窗体文件 C: Visual Basic 中的一个工程只包含一个窗体 D: Visual Basic 中一个工程最多可以包含 255 个窗体 序号：201 难度：1 考查点：多重窗体与环境应用 19. （分值：0.9 分）下列符号中哪个是 VB 程序中合法的变量名（A） A: ab7 B: 7ab C: If D: a*bc 序号：16 难度：1 考查点：VB 语言基础 20. （分值：0.9 分）下列说法有错误的是（D） A: 默认情况下，属性 Visible 的值为 False B: 如果设置控件的 Visible 属性为 False，则运行时控件会隐藏 C: Visible 的值可设为 True 或者 False D: 设置 Visible 属性同设置 Enabled 属性的功能是相同的，都是使控件处于失效状态序号：19 难度：1 考查点：VB 概述21. （分值：0.9 分）不能脱离控件(包括客体) 而独立存在的过程是 AA: 事件过程 B: 通用过程 C: Sub 过程 D: 函数过程 序号：33 难度：1 考查点：过程 22. （分值：0.9 分）下列叙述不正确的是（D） A: 驱动器列表框是一种能显示系统中所有有效磁盘驱动器的列表框 B: 驱动器列表框的 Drive 属性只能在运行时被设置 C: 从驱动器列表框中选择驱动器能自动变更系统当前的工作驱动器 D: 要改变系统当前的工作驱动器需要使用 ChDrive 语句 序号：54 难度：1 考查点：数据文件 23. （分值：0.9 分）编写如下事件过程： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift =6 And Button =2 Then Print BBBB End If End Sub 程序运行后，为了在窗体上输出BBBB，应执行的操作为_D_ A: 同时按下键和鼠标左键 B: 同时按下键和鼠标右键 C: 同时按下,键和鼠标左键 D: 同时按下,键和鼠标右键 序号：161 难度：1 考查点：键盘与鼠标事件过程 24. （分值：0.9 分）执行以下程序段后，变量 c $ 的值为 （ D ） a $ b $ c $ = Visual Basic Programing = Quick = b $ & Ucase (Mid $ (a $,7,6) & Right $ (a $,11) A: Visual BASIC Programing B: Quick Basic Programing C: QUICK Basic Programing D: Quick BASIC Programing 序号：39 难度：1 考查点：VB 语言基础 25. （分值：0.9 分）设有如下声明： Dim X As Integer 如果 Sgn(X) 的值为-1，则 X 的值是 DA: 整数 B: 大于 0 的整数 C: 等于 0 的整数 D: 小于 0 的数 序号：59 难度：1 考查点：VB 语言基础 26. （分值：0.9 分）以下叙述中错误的是 CA: 一个工程中只能有一个 Sub Main 过程 B: 窗体的 Show 方法的作用是将指定的窗体装入内存并显示该窗体 C: 窗体的 Hide 方法和 Unload 方法的作用完全相同 D: 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体 序号：70 难度：1 考查点：多重窗体与环境应用 27. （分值：0.9 分）以下叙述正确的是 DA: 一个记录中所包含的各个元素的数据类型必须相同 B: 随机文件中的每个记录的长度是固定的 C: Open 命令的作用是打开一个已经存在的文件 D: 使用 Input #语句可以从随机文件中读取数据 序号：86 难度：1 考查点：数据文件 28. （分值：0.9 分）计时器控件的（ B ）属性用于设置 Timer 事件发生的时间间隔。 A: Stretch B: Interval C: Value D: Length 序号：12 难度：1 考查点：选择结构程序 29. （分值：0.9 分）要使菜单项 MenuOne 在程序运行时失效，使用的语句是 D A: MenuOne.Visible=True B: MenuOne.Visible=False C: MenuOne.Enabled=True D: MenuOne.Enabled=False 序号：27 难度：1 考查点：菜单与对话框 30. （分值：0.9 分）当函数 EOF()的返回值为-1 时，表示文件的指针指向( B ) A: 开头 B: 结尾 C: 第一个记录 D: 最后一个记录 序号：49 难度：1 考查点：数据文件 31. （分值：0.9 分）假设有以下程序段： For I=1 to 3 For j=5 to 1 Step -1 Print I*j Next j Next I 则语句 Print I*j 的执行次数 I、j 的值分别是（ A ） A: 15 4 0 B: 16 3 1 C: 17 4 0 D: 18 3 1 序号：52 难度：1 考查点：选择结构程序 32. （分值：0.9 分）在 Visual Basic 中，要将一个窗体加载到内存进行预处理但不显示，应 使用的语句是 AA: Load B: Show C: Hide D: Unload 序号：29 难度：1 考查点：多重窗体与环境应用 33. （分值：0.9 分）下列操作不能向工程中添加窗体的是 CA: 执行工程菜单中的添加窗体命令 B: 单击工具栏上的添加窗体按钮 C: 右击窗体，在弹出的菜单中选择添加窗体命令 D: 右击工程资源管理器，在弹出的菜单中选择添加命令，然后在下一级菜单中选择添加 窗体命令 序号：152 难度：1 考查点：多重窗体与环境应用 34. （分值：0.9 分）当在滚动条内拖动滚动块时触发 CA: KeyUp 事件 B: KeyPress 事件 C: Scroll 事件 D: Change 事件 序号：211 难度：1 考查点：键盘与鼠标事件过程 35. （分值：0.9 分）设有语句 open c：TestDat For OutPut As#1 则以下错误的叙述是 DA: 该语句打开 C 盘根目录下一个己存在的文件 TestDat B: 该语句在 C 盘根目录下建立一个名为 TestDat 的文件 C: 该语句建立的文件的文件号为 1 D: 执行该语句后，就可以通过 Print#语句向文件 TestDat 中写入信息 序号：80 难度：1 考查点：数据文件 36. （分值：0.9 分）目录列表框的 Path 属性的作用是 AA: 显示当前驱动器或指定驱动器上的路径 B: 显示当前驱动器或指定驱动器上的某目录下的文件名 C: 显示根目录下的文件名 D: 只显示当前路径下的文件 序号：82 难度：1 考查点：数据文件 37. （分值：0.9 分）在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static X As Integer Static Y As Integer Cls Y=1 Y=Y+5 X=5+X Print X,Y End Sub 程序运行时，三次单击命令按钮 Commandl 后，窗体上显示的结果为 BA: 15 16 B: 15 6 C: 15 15 D: 5 6 序号：60 难度：1 考查点：变量与过程的作用范围 38. （分值：0.9 分）在上题中，如果把窗体的 KeyPreview 属性设置为 False，则文本框显 示的内容为 BA: abcdefg B: 不显示任何信息 C: ABCDEFG D: 出错 序号：157 难度：1 考查点：键盘与鼠标事件过程 39. （分值：0.9 分）一个工程必须包含的文件的类型是 AA: *.vbp *.frm *.frx B: *.vbp *.cls *.bas C: *.bas *.ocx *.res D: *.frm *.cls *.bas 序号：232 难度：1 考查点：多重窗体与环境应用 40. （分值：0.9 分）用标准工具栏中的工具按钮不能执行的操作是_B_。 A: 添加工程 B: 打印源程序 C: 运行程序 D: 打开工程 序号：5 难度：1 考查点：VB 概述41. （分值：0.9 分）退出 For 循环可使用的语句为（ A ） A: Exit For B: Exit Do C: End For D: End Do 序号：8 难度：1 考查点：循环结构程序 42. （分值：0.9 分）在窗体上画一个文本框，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String Char =Chr(KeyAscii) KeyAscii=Asc(UCase(char) Text1.Text=String(6, KeyAscii) End Sub 程序运行后，如果在键盘上输入一个字母 a，则文本框中显示的内容为_D_ A: a B: A C: aaaaaa D: AAAAAA 序号：158 难度：1 考查点：键盘与鼠标事件过程 43. （分值：0.9 分）以下叙述中错误的是 CA: 一个工程中可以包含多个窗体文件 B: 在一个窗体文件中用 Private 定义的通用过程能被其他窗体调用 C: 在设计 VB 程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件 D: 全局变量必须在标准模块中定义 序号：71 难度：1 考查点：多重窗体与环境应用 44. （分值：0.9 分）、执行 x$=InputBox(请输入 x 的值) 时，在弹出的对话框中输入 123， 在列表框 List1 选中 1 个列表项(数据为 456) ，使有的值使 123456 的语句是 A A: y=x$+List1.List(0) B: y=x$+List1.List(1) C: y=Val(x$) +Val(List1.List(0) ) D: y=Val(x$) & Val(List1.List(1) ) 序号：23 难度：1 考查点：VB 语言基础 45. （分值：0.9 分） 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 CA: 工程资源管理器窗口 B: 工具箱窗口 C: 代码窗口 D: 属性窗口 序号：56 难度：1 考查点：VB 概述 46. （分值：0.9 分）要将名为 MyForm 的窗体显示出来，正确的使用方法是 A A: MyForm.Show B: Show.MyForm C: MyForm Load D: MyForm Show 序号：216 难度：1 考查点：多重窗体与环境应用 47. （分值：0.9 分）以下不属于键盘事件的是（ C ） A: KeyDown B: KeyUp C: Unload D: KeyPress 序号：14 难度：1 考查点：VB 概述 48. （分值：0.9 分）X 是小于 100 的非负数，用 VB 表达式表达正确的是（C） A: 0X100 B: 0=X100 C: 0=X and X100 D: 0X100 序号：17 难度：1 考查点：VB 语言基础 49. （分值：0.9 分）下列各控件不包含滚动条的控件是（ D ） A: ListBox B: ComboBox C: TextBox D: Label 序号：20 难度：1 考查点：VB 概述 50. （分值：0.9 分）下面的属性中，用于自动调整图像框中图形内容的大小的是 DA: Picture B: CurentY C: CurrentX D: Stretch 序号：24 难度：1 考查点：数据的输入与输出 51. （分值：0.9 分）下列语句正确的是 CA: If AB Then Print A 不等于 B B: If AB Then Printf A 不等于 B C: If AB Then Print A 不等于 B D: If AB Print A 不等于 B 序号：31 难度：1 考查点：选择结构程序 52. （分值：0.9 分）编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下（即不按住键和锁定大写），运行程序，如果按键，则程序的输出是_A_A: A a B: a A C: A A D: a a 序号：155 难度：1 考查点：键盘与鼠标事件过程 53. （分值：0.9 分）在窗体上画一个命令按钮和一个文本框，并把窗体的 KeyPreview 属性 设置为 True，然后编写如下代码：Dim SaveAll As String Private Sub Command1_Click() Text1. Text=UCase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll= SaveAll+ Chr(KeyAscii) End Sub 程序运行后，在键盘上输入abcdefg，单击命令按钮，则文本框中显示的内容为 CA: abcdefg B: 不显示任何信息 C: ABCDEFG D: 出错 序号：156 难度：1 考查点：键盘与鼠标事件过程 54. （分值：0.9 分）当一个工程中含有多个窗体时，其中的启动窗体是_D_ A: 启动 Visual Basic 时建立的窗体 B: 第一个添加的窗体 C: 最后一个添加的窗体 D: 在工程属性对话框中指定的窗体 序号：153 难度：1 考查点：多重窗体与环境应用 55. （分值：0.9 分） 如果在程序中要将 c 定义为静态变量，且为整型数，则应使用的语句是（ B ） A: Redim a As Integer B: Static a As Integer C: Public a As Integer D: Dim a As Integer 序号：21 难度：1 考查点：变量与过程的作用范围56. （分值：0.9 分）Sub 过程与 Function 过程最根本的区别是 CA: Sub 过程可以用 Call 语句直接使用过程名调用，而 Function 过程不可以 B: Function 过程可以有形参，Sub 过程不可以 C: Sub 过程不能返回值，而 Function 过程能返回值 D: 两种过程参数的传递方式不同 序号：34 难度：1 考查点：过程 57. （分值：0.9 分）设有如下变量声明 Dim TestDate As Date 为变量 TestDate 正确赋值的表达方式是 AA: TextDate=#1/1/200 2# B: TestDate=#1/1/2002 # C: TextDate=date(1 /1/2002) D: TestDate=Forma t(m/d/yy,1/1/2002) 序号：58 难度：1 考查点：VB 语言基础 58. （分值：0.9 分）设 a=3,b=5，则以下表达式值为真的是 BA: a=b And b10 B: (ab)Or(b0) C: (a0) D: (-3+5a)A nd(b0) 序号：61 难度：1 考查点：VB 语言基础 二、填空题（总分 20） 1.（分值：1.5）下列程序是判断一个整数(=3) 是否为素数，请补充完整。 Dim n As Integer n=InputBox(请输入一个整数(=3) ) k=Int(Sqr(n) ) i=2 swit=0 While i =k And swit=0 If n Mod i=0 Then swit=0 Else swit=1 End If End If loop If swit=0 Then Print n; 是一个素数。 Else Print n; 不是一个素数。 End If 序号：2 难度：1 考查点：循环结构程序 2.（分值：0.7）用户可以用 Type 语句 语句定义自己的数据类型。 序号：14 难度：1 考查点：变量与过程的作用范围 3.（分值：2.2）执行下面程序，单击命令按钮 Command1 后，显示在窗体上第一行的内容是 4 第二行的内容是 8 第三行的内容是 16 Option Explicit Private Sub Command1_Click() Dim N As Integer, M As Integer N=2 DO While m3 N=N+2 If Fun(N) Then Print N M=M+1 End If Loop End Sub Private Functio 序号：60 难度：1 考查点：过程 4.（分值：0.7）设有如下程序段： a$=BeijingShanghai b$=Mid(a$,InStr(a$,g)+1) 执行上面的程序段后，变量 b$的值为 Shanghai .序号：22 难度：1 考查点：VB 语言基础 5.（分值：0.7）要使下列 For 语句循环执行 20 次，循环变量的初值应当是多少? For k= 33 To -5 Step -2 序号：93 难度：2 考查点：循环结构程序6.（分值：0.7）在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的 值，则应使用 Static 关键字在过程中定义局部变量。 序号：95 难度：2 考查点：变量与过程的作用范围 7.（分值：0.7）列表框中项目的序号是从 0 开始的。 序号：100 难度：2 考查点：数组 8.（分值：2.2）执行下面程序，单击命令按钮 Command1 后，显示在窗体上第一行的内容 是 11 第二行的内容是 61 最后一行的内容是 136 Option Explicit Dim N As Integer Private Sub Command1_Click() Dim I As Integer, J As Integer For I=3 To 1 Step -2 N=Fun(I,N) Print N Next I End Sub Private Function Fun (A As Integer) As Integer 序号：58 难度：1 考查点：过程 9.（分值：0.7）整型变量 x 中存放了一个两位数，要将两位数交换位置，如 13 变成 31，实 现的表达式是（x mod 10）*10+x10 。序号：88 难度：3 考查点：VB 语言基础 10.（分值：1.5）下面程序的功能是产生 10 个小于 100(不含 100) 的随机正整数，并统计其中 5 的倍数所占比例，但程序不完整，请补充完整。 Sub PR() Randomize Dim a(10) For j=1 To 10 a(i) =Int( (99 * Rnd）+ 1 ) If a(j) Mod 5 = 0 Then k=k + 1 Print a(j) Next j Print Print k / 10 End Sub 序号：5 难度：1 考查点：循环结构程序11.（分值：2.2）在窗体上有一个命令按钮，然后编写如下程序： Function Trans(ByVal num As Long) As Long Dim k As Long k=1 Do While num k=k * (num Mod 10) num=num 10 Loop Trans=k Print Trans End Function Private Sub Command1_Click() Dim m As Long Dim s As Long m=InputBox(请输入一个数) s=Trans(m) End Sub 程序运行时，单击命令按钮，在输入对话框中输入789，输出结果为 504 ,在输入 对话框中输入987输出 504 在输入对话框中输入879，输出结果为 504 . 序号：4 难度：1 考查点：过程 12.（分值：1.5）在刚建立工程时，使窗体上的所有控件具有区别于默认值的相同的字体格式，应对_Form 窗体的Font 属性进行设置 序号：66 难度：1 考查点：VB 概述 13.（分值：1.5）为了显示一个窗体，所使用的方法为.Show 而为了隐藏一个窗体，所使用的方法为 .Hide 或 Me.Hide . 序号：27 难度：1 考查点：多重窗体与环境应用 14.（分值：1.5）为了把一个窗体装入内存，所使用的语句是 Load 为了清除内存中指定的窗体，所使用的语句是 Unload 或 Unload Me . 序号：26 难度：1 考查点：多重窗体与环境应用 15.（分值：0.7）表达式(73+1)*3 的值是 9 。 序号：50 难度：1 考查点：VB 语言基础 16.（分值：0.7）函数 Str$(256.36) 的值是 256.36 . 序号：6 难度：1 考查点：VB 语言基础 三、编程题（总分 30） 1.(分值：15.0 分)编写程序，输入学生的姓名、学号和成绩（高数、英语和专业课），判断该 学生能获得几等奖学金，并输出结果。 获奖条件是：一等奖学金要求所有成绩在 95 分以上；二等奖学金要求所有成绩在 90 分以上； 三等奖学金要求所有成绩在 88 分以上。 参考答案: 1 序号：13 难度：2 考查点：选择结构程序 2.(分值：15.0 分)编写 的 Function 函 数 ， 用 该 函 数 实 现 以 下 表 达 式 求 和 ， n 为 任 意 输 入 的 数 值 。参考答案: 12 序号：4 难度：1 考查点：循环结构程序