1、- 1 -一、 单选题1. Visual Basic 是一种面向对象的可视化程序设计语言，采取了_的编程机制。A） 从窗体开始执行 B） 按书写顺序执行 C） 从主程序开始执行 D） 事件驱动2. 在 Visual Basic 中最基本的对象是_，它是应用程序的基石，是其他控件的容器。A） 文本框 B） 窗体 C） 标签 D） 命令按钮3. 有下面的程序代码：Command1.Caption =“确定“，则 Command1，Caption 和“确定“分别代表 _。A） 对象，属性，值 B） 对象，方法，值 C） 对象，值，属性 D） 属性，对象，值4多窗体程序是由多个窗体组成的，在缺省的情况
2、下，VB 应用程序执行时，总是把_指定为启动窗体。A）不包含任何控件的窗体 B）设计时的第一个窗体 C）包含控件最多的窗体 D）命名为 Form1 的窗体5VB 是一种面向对象的程序设计语言，下面_不是面向对象包含的三要素。A） 变量 B） 事件 C） 属性 D） 方法6VB 6.0 集成开发环境中不能完成的功能是_。A）输入编辑源程序 B）编译生成可招待程序 C） 调试运行程序 D）自动生成查找并改正程序中的错误7下列关于 VB 编程的说法中不正确的是_。A）属性是描述对象特征的数据 B）事件是能被对象识别的动作C）方法指示对象的行为 D）VB 程序采用的运行机制是面向对象8关于面向对象的描
3、述中，不正确的是_。A）对象就是自定义结构变量 B）对象代表正在创建的系统中的一个实体C）对象是一个特征和操作的封装体 D）对象之间的信息传递是通过消息进行的9以下叙述错误的是_。A）打开一个工程文件时，系统自动装入与该工程有关的窗体文件B）打开一个窗体文件时，系统自动装入与该窗体有关的工程文件C）保存 VB 应用程序时，应分别保存窗体文件和工程文件D）事件可以由用户激发,也可以由系统激发10VB6.0 集成开发环境不包括_窗口。A）DOS 界面窗口 B）窗体窗口 C）代码窗口 D）属性窗口11VB 的一个应用程序至少包含一个_文件，该文件存储窗体上使用的所有控件对象和有关的_、对象对应的_过
4、程和_代码。A） 模块、方法、事件、程序 B） 窗体、属性、事件、程序C） 窗体、程序、属性、事件 D） 窗体、属性、事件、模块12. 以下不属于 VB 工作模式的是_模式。A） 编译 B） 设计 C） 运行 D） 中断13. 在 VB 集成环境创建 VB 应用程序时。除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是_。A）窗体布局窗口 B） 立即窗口 C） 代码窗口 D） 监视窗口14. 保存新建工程时，默认的路径是_。A）My Documents B） VB98 C） D） Windows15. 对于窗体，下面_属性在程序运行时其属性设置起作用。A）MaxButton B） Bord
5、Style C） Name D） Left16. 要使 Print 方法在 Form_Load 事件中起作用，要对窗体的_属性进行设置。A）BackColor B） ForeColor C） AutoRedraw D） Caption17 .要使标签显示时不覆盖其背景内容，要对_属性进行设置。- 2 -A）BackColor B） ForeColor C） BackStyle D） Caption18 若要使命令按钮不可操作，要对_属性进行设置。A）Visible B） Enabled C） Name D） Caption19.文本框没有_属性。A） Enabled B） Caption C）
6、 BackColor D） Visible20. 不论任何控件，共同具有的是_属性。A） Text B） Caption C） BackColor D） Name21. 要使 Form1 窗体的标题栏显示 “ 欢迎使用 Visual Basic 6.0!”,以下_语句是正确的。A） Form1.Caption =“ 欢迎使用 Visual Basic 6.0! “B） Form1.Caption = 欢迎使用 Visual Basic 6.0! C） Form.Caption = “ 欢迎使用 Visual Basic 6.0! “D） Form.Caption = 欢迎使用 Visual B
7、asic 6.0! 22. 有如下语句： Form1.Print “欢迎使用 Visual Basic 6.0!” Form1，Print 和“欢迎使用Visual Basic 6.0!”则分别代表_。A） 对象，属性，值 B） 对象，方法，参数 C） 对象，值，属性 D） 属性，对象，值23. 要判断在文本框是否按了 Enter 键，应在文本框的_事件中判断。A） Change B） KeyPress C） Click D） KeyDown24. 要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只需要对下列_属性进行设置。A） MaxButton B） BordStyle C）
8、Width D） MinButton25. 当文本框 ScrollBars 属性设置了非零值，却没有效果，原因是_。A） 文本框中没有内容 B） 文本框中的 MultiLine 设置为 FalseC） 文本框中的 MultiLine 设置为 True D） 文本框中的 Locked 设置为 True26Visual Basic 是一种面向对象的程序设计语言，对象的三要素包括_。A） 变量，属性，方法 B） 属性，事件，方法 C） 类，属性，方法 D） 对象，属性和方法27. 以下叙述中，错误的是_。A）一个 Visual Basic 应用程序可以含有多个标准模块文件B）一个 Visual Ba
9、sic 工程可以含有多个窗体文件C）标准模块文件可以属于某个指定的窗体文件D）标准模块文件的扩展名是 Bas28. 刚建立一个新的标准 EXE 工程后，不在工具箱中出现的控件是_。A）单选按钮 B）图片框 C）通用对话框 D）文本框29以下关于窗体的描述中，错误的是_。A）执行 Unload Form1 语句后，窗体 Form1 消失，但仍在内存中B）窗体的 Load 事件在加载窗体时发生C）当窗体的 Enabled 属性为 False 时通过鼠标和键盘对窗体的操作都被禁止D）窗体的 Height、Width 属性用于设置窗体的高和宽30. 新建一个工程将其窗体的 Name 属性设置为 Myf
10、rm，则默认的窗体文件名为_。A）Form1.frm B）Myfrm.frm C）Form1.vbp D）工程 1.frm31. 下面是窗体 Forml 的 Click 事件过程,实现运行时每次单击窗体时,窗体均向右移动 100。Private Sub Form_click()Static intleft As Integerintleft = intleft + 100Form1._ = intleftEnd Sub请选择正确属性填充空白处，完成本程序。A）Caption B） Top C）Width D）Left32. 决定一个窗体有无控制菜单的属性是_。- 3 -A）MinButton
11、B）Caption C）MaxButton D）ControlBox33. 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Text1.Text=“Visual“Me.Text1=“Basic“Text1=“_ “End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是_。A）Visual B）Basic C）Program D）出错34. 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()M
12、ove 500,500End Sub程序运行后，单击命令按钮，执行的操作为_。A）命令按钮移动到距窗体左边界、上边界各 500 的位置B）窗体移动到距屏幕左边界）上边界各 500 的位置C）命令按钮向左）上方向各移动 500D）窗体向左）上方向各移动 50035. 在代码编辑器中，如果一条语句过长，不能在一行内写下，则需要折行书写，这是通过在行末使用续行符来实现的，该续行符表示为_。A）一个下划字符（_） B）一个空格加一个下划字符（_） C）一个空格加一个连字符 D）回车36. 为了在按下 Esc 键时执行某个命令按钮的 Click 事件过程，需要把该命令按钮的一个属性设置为True，这个属
13、性是_。A）Value B）Default C）Cance1 D）Enabled37. 以下关于焦点的叙述中，错误的是_。A）如果文本框的 TabStop 属性为 False，则不能接收从键盘上输入的数据B）当文本框失去焦点时，触发 LostFocus 事件C）当文本框的 Enabled 属性为 False 时，其 Tab 顺序不起作用D）可以用 TabIndex 属性改变 Tab 顺序38. 要使文本框获得输入焦点，则应采用文本控件的哪个方法_。A）GotFocus B）LostFocus C）KeyPress D）SetFocus39. 图像框有一个属性，可以自动调整图形的大小，以适应图像
14、框的尺寸，这个属性是_。A）Autosize B）Stretch C）AutoRedraw D）Appearance40. 运行时，要向图片框 Pic 中加载“C:windowsbeer.bmp“图像文件，应使用语句_。A）Picture1.Picture=“C:windowsbeer.bmp“B）Picture1.Picture=LoadPicture(“C:windowsbeer.bmp“)C）Pic.Picture=LoadPicture(C:windowsbeer.bmp)D）Pic.Picture=LoadPicture(“C:windowsbeer.bmp“)41. 将文本框的_属
15、性设置为 True 时，文本框可以输入或显示多行文本，且会在输入的内容超出文本框的宽度时自动换行。A）Multiline B）Scrollbars C）Text D）Enabled42. 将文本框的 ScrollBars 属性设置为非零值，却没有效果，原因是_。A）文本框中没有内容 B）文本框的 MultiLime 属性值为 FalseC）文本框的 MultiLine 属性值为 True D）文本框的 Locked 属性值为 True- 4 -43. 在设计阶段，在属性窗口设置 Text 属性时，通过按下 Ctrl+Enter 组合键实现文本的换行。在运行阶段，如果在窗体上有缺省按钮（已设置
16、Default 属性为 True）存在，则必须在文本框中按下_组合键才能移动到下一行。A）Enter B）Alt+Enter C）Ctrl+Enter D）Ctrl+Shift+Enter44. 为了清除窗体上的一个控件，下列正确的操作是_。A）按回车键 B）按 ESC C）选择（单击）要清除的控件，然后按 DEL D）选择（单击）要清除的控件，然后按回车45. 以下叙述中错误的是_。A）打开一个工程文件时，系统自动装入与该工程有关的窗体，标准模块文件B）当程序运行时，双击一个窗体，则触发该窗体的 DblClick 事件C）Visual Basic 应用程序只能以解释方式执行D）事件可以由用户
17、引发，也可以由系统引发46. 以下有关 VB 对象名称(Name)属性的叙述，正确的是_。A）对象的 Name 属性值可以为空B）窗体的 Name 属性用来标识和引用窗体C）可以在程序运行期间改变对象的 Name 属性值D）窗体的 Name 属性值是显示在标题栏中的字符串47. Visual Basic6.0 集成环境的主窗口中不包括_。A）标题栏 B）菜单栏 C）状态栏 D）工具栏48. 在 VB 中文本框控件的哪个属性在设计时不能设置_。A）Seltext B）Locked C）Enabled D）MaxLength49. 在开发 VB 应用程序时，一个工程一般至少应含有_。A）标准模块文
18、件和类模块文件 B）工程文件和窗体文件 C）工程文件和类模块文件 D）工程文件和标准模块文件50. 退出 Visual Basic 的快捷键是_。A） Alt+Q B）Ctrl+Q C）Alt+X D）shift+X51.为了使命令按钮(名称为 Command1)右移 200，应使用的语句是_。A） Command1.Move -200B） Command1.Move 200C） Command1.Left= Command1.Left+200D） Command1.Left= Command1.Left-20052. 为了使命令按钮(名称为 Command1)下移 200，应使用的语句是_。
19、A） Command1.Move -200B） Command1.Move 200C） Command1.move Command1.top+200D） Command1.move Command1.Left,Command1.top+20053. 在 Visual Basic 工程中，可以作为启动对象的是_。A）任何窗体或标准模块B）任何窗体或过程C）Sub Main 过程或其他任何模块D）Sub Main 过程或任何窗体54. 在面向对象方法中，类的实例称为_。A）集合 B）抽象 C）对象 D）模板55. 在 VB 中,对象的行为被称作_，它被事先编写好相应的过程或函数供用户直接调用。A）
20、属性 B）方法 C）事件 D）消息56.当窗体最小化时缩小为一个图标，设置这个图标的属性是_。A）MouseIcon B）Icon C）Picture D）MousePointer- 5 -57. 为了使文本框同时具有水平和垂直滚动条，应先把 MultiLine 属性设置为 True，然后再把ScrollBars 属性设置为_。A）0 B）1 C）2 D）358. 当程序运行时，系统自动执行启动窗体的_事件过程。A）Click B）Load C）Unload D）GotFocus59. 在为了使标签中的内容居中显示，应把 Alignment 属性设置为_。A）0 B）1 C） 2 D）360.
21、 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是_。A） Value B） Default C） Cancel D） Enabled61. Visual Basic 程序设计语言属于_。A）面向过程的语言 B）机器语言 C）面向对象的语言 D）汇编语言62. 以下关于 Visual Basic 特点的叙述中，错误的是_。A）Visual Basic 是采用事件驱动编程机制的语言B）Visual Basic 程序既可以编译运行，也可以解释运行C）构成 Visual Basic 程序的多个过程没有固定的执行顺序D）Visual Basic 程序
22、不是结构化程序，不具备结构化程序的特点63. 刚建立一个新的标准 EXE 工程后，不在工具箱中出现的控件是_。A）单选按钮 B）图片框 C）通用对话框 D）文本框64. 将窗体的_属性设置为 False 后，运行时窗体上的按钮、文本框就不会对用户的操作做出响应。A） ControlBox B） Visible C） Enabled D） BorderStyle65. 能够改变窗体边框线类型的属性是_。A） FontStyle B） Border C） BackStyle D） BorderStyle66 要想改变一个窗体的标题内容，则应设置以下哪个属性的值_。A） Name B） FontNa
23、me C） Caption D） Text67. 下面是窗体 Form1 的 Click 事件过程，实现运行时每次单击窗体时，窗体向右移动 100。Private Sub_()Static intleft As IntegerInleft=inleft+100Form1.Left=intleftEnd SubA） Form_Click B） Form1_Click C） Command_Click D） Command1_Click68. 决定控件上文字的字体、字形、大小、效果的属性是_。A） Text B） Caption C） Name D） Font69. 在设计阶段，双击窗体 Form
24、1 的空白处，打开代码窗口，显示_事件过程。A） Form_Click B） Form1_Load C） Form_Load D） Form1_Click70. 在设计阶段，当双击窗体上的某一个文本框控件时，系统将在代码窗口中显示该文本框控件的_事件过程模板。A） Click B） DblClick C） Change D） GetFocus71将调试通过的工程经“文件”菜单的“生成.exe 文件“编译成.exe 文件后，该可执行文件到其它机器上不能运行的主要原因是_。A）运行机器上无 VB 系统 B）缺少.frm 窗体文件 C）该可执行文件有病毒 D）以上原因都不对72当需要上下文帮助时，选
25、择要帮助的“难题”，然后按_键，就可出现 MSDN 窗口及显示所需“难题”的帮助信息。A）Help B）F10 C）F1 D）Esc73Visual Basic 有多种类型的窗口，若要在设计时看到窗体窗口，以下操作不正确的是_。A）打开“视图”菜单，选择“对象窗口”- 6 -B）双击 VB 窗口工作区的空白处C）单击“工程资源管理器”中的“查看对象”按钮D）双击“工程资源管理器”中对应的窗体名74下面关于属性和方法的描述中，不正确的是_。A）属性是对象的特征，方法是对象的行为B）属性和方法都有值C）属性可以被赋值D）方法表示能执行的操作75下面关于标签和文本框的描述中，正确的是_。A）文本框和
26、标签都可以显示文字B）文本框和标签都可以在运行时输入文字C）文本框和标签都有 Caption 属性D）文本框和标签都有 Text 属性二、 填空题1. 启动 Visual Basic 后，在窗体的左侧有一个用于应用程序界面设计的窗口，称作_ _【1】_。2. 当进入 VB 集成环境，发现没有显示“工具箱”时，应选择_【2】 _的工具箱选项，使工具箱显示在窗口。3对象的属性是指_【3】_。4对象的方法是指_【4】_。5在创建工程时，使窗体上所有的控件具有相同的字体格式，应对_【5】_ 的 Font 属性进行设置。6在代码窗口对窗体的 BorderStyle、MaxButton 属性进行了设置，但
27、运行后没有显示效果，原因是这些属性_【6】_。7对命令按钮的 Picture 属性装入.bmp 图形文件后，选项按钮并没有显示所需要的图形，原因是没有将_【7】_属性设置为 1。8在文本框中通过_【8】_属性能获得当前插入点所在的位置。9要对文本框中已有的内容进行编辑，按下键盘上的按键就是不起作用，原因是设置的_【9】_属性为 True。10.在窗体上已建立多个控件如 Text1、Label1、Command1 等，若要使程序一运行焦点定位在 Command1控件上，应把 Command1 控件的_【10】_属性设置为 0。11.在工具栏的右侧有两栏，分别用来显示窗体的当前位置和大小，其单位为
28、_【11】_。12.属性窗口主要是针对窗体和控件设置的。在 Visual Basic 中，窗体和控件被称为_【12】_。13.一个 Visual Basic 应用程序可由_【13】_标准模块和类模块组成。14.假定已将文本框的 MultiLine 属性设置为 True，则按_【14】_组合键可以插入一个空行。15.将 C 盘根目录下的图形文件 moon.jpg 装入图片框 Picture1 的语句是_【15】_。Visual Basic 语言基础1在一行内写多条语句时，每个语句之间用_来分隔。A） ， B） ： C） 、 D） ；2下面_是合法的变量名。A） X_yx B） 123abc C）
29、 integer D） X-Y3下面_是不合法的整常数。A） 100 B） x+yC）Print “A=“+Str(x+y) D）Print“A=“ Sqr(9)的输出结果是_。A）Sqr(9)= Sqr(9) B）Sqr(9)=3C）”3”=3 D）3= Sqr(9)84下面程序段的输出结果为_。X = 10 ：Y = 20Print X ；”+” ；Y ；”= ”；Print X + YA）10 + 20 = 30B）10 + 20 = 30C）X+ Y = 30D）10 + 20 =3085若要处理一个值为 50000 的整数，应采用哪种 VB 基本数据类型描述更合适？_A）Intege
30、r B）Long C）Single D）String86以下函数表达式中，其值等于-3 的是_。A）Int(-3.5) B）Fix(-3.5) C）Round(-3.5) D）Abs(-3.5)87以下函数表达式中，其值不等于 3 的是_。A）Int(3.5) B）Fix(3.5) C）Round(3.5) D）Abs(-3)88以下函数表达式中，其值不等于-4 的是_。A）Int(-3.5) B）Fix(-4.5) C）Round(-3.5) D）Abs(-3.5)89以下函数表达式中，其值等于 4 的是_。A）Int(3.5) B）Fix(3.5) C）Round(3.5) D）Abs(3
31、.5)90以下函数表达式中，其值等于 3.5 的是_。A）Int(3.5) B）Fix(3.5) C）Round(3.5) D）Abs(3.5)二、 填空题1. 整型变量 X 中存放了一个两位数，要将两位数交换位置，例如 13 变成 31，实现的表达式是_【1】_。2. 数学表达式 的 VB 表达式是_【2】_。3. 数学表达式 的 VB 表达式是_【3】_。4. 表示 x 是 5 的倍数或 9 的倍数的逻辑表达式是_【4】_。5. 已知 a=3.5，b=5.0，c=2.5，d=true，则表达式 a=0 AND a+c b+3 OR NOT d 的值是_【5】_。6. 表达式 Ucase(M
32、id(“abcdefgh”，3，4)的值是_【6】_。7. 要以年月日形式显示当前机器内日期的 Format 函数格式为_【7】_。8. 计算距中华人民共和国建国 60 周年有多少天的函数表达式是_【8】_。9. 计算离你毕业 2012 年 6 月 30 日还有多少个星期的函数表达式是_【9】_。10. 表示 s 字符变量是字母(不区分大小写)的逻辑表达式是_【10】_。- 13 -11. a$=Lcase(“Hello“) a$的返回值是：_【11】_；b$=Ucase(“Hello“) b$的返回值是：_【12】_。12. 与数学表达式 对应的 Visual Basic 表达式是 【13】
33、 。13. 若 A=20，B=80，C=70 ，D=30，则表达式 A+B160 Or (B+C200 And Not D60)的值是_【14】_。14. 描述“X 是小于 100 的非负整数”的 Visual Basic 表达式是【15】 。15. 产生一在3，X区间的随机整数应使用表达式_【16】_。过 程一、 单选题1在过程定义中用 _表示形参的传值。A） Var B） ByRef C） ByVal D） ByValue2若已经编写一个 Sort 子过程，在该工程中有多个窗体，为了方便调用 Sort 子程序，应该将子过程放在_中。A） 窗体模块 B） 类模块 C） 工程 D） 标准模块3
34、下面的子过程语句说明合法的是_。A） Sub f1(ByVal n%() B） Sub f1(n%) As Integer C） Function f1%(f1%) D） Function f1(ByVal n%)4要想从子过程调用后返回两个结果，下面子过程语句说明合法的是_。A） Sub f(ByVal n%, ByVal m%) B） Sub f(n%, ByVal m%) C） Sub f(ByVal n%, m%) D） Sub f(n%, m%)10. 下列叙述中正确的是_。A）在窗体的 Form_Load 事件过程中定义的变量是全局变量B）局部变量的作用域可以超出所定义的过程C）在
35、某个 Sub 过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程D）在调用过程时，所有局部变量被系统初始化为 0 或空字符串11 .以下关于变量作用域的叙述中，正确的是_。A）窗体中凡被声明为 Private 的变量只能在某个指定的过程中使用B）全局变量必须在标准模块中声明C）模块级变量只能用 Private 关键字声明D）Static 类型变量的作用域是它所在的窗体或模块文件13. 可以在窗体模块的通用声明段中声明_。A）全局变量 B）全局常量 C）全局数组 D）全局用户自定义类型18. 以下关于函数过程的叙述中，正确的是_。A）函数过程形参的类型与函数返回值
36、的类型没有关系B）在函数过程中，通过函数名可以返回多个值C）当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D）如果不指明函数过程参数的类型，则该参数没有数据类型20. 假定已定义了一个过程 Sub Add(a As Single,b As Single)，则正确的调用语句是_。A）Add 12,12 B）Call(2*x,Sin(1.57) C）Call Add x,y D）Call Add(12,12,x)21. 一个工程中包含两个名称分别为 Form1、Form2 的窗体，一个名称为 Md1Func 的标准模块。假定在Form1、Form2 和 Md1Func 中分别建
37、立了自定义过程，其定义格式为：Form1 中定义的过程：- 14 -Private Sub frmFunction1()End SubForm2 中定义的过程：Private Sub frmFunction2()End SubmdlFunc 中定义的过程：Public Sub md1Function()End Sub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是_。A）上述三个过程都可以在工程中的任何窗体或模块中被调用B）frmFunction2 和 mdlFunction 过程能够在工程中各个窗体或模块中被调用C）上述三个过程都只能在各自被定义的模块中调用D）只有
38、Md1Function 过程能够被工程中各个窗体或模块调用23. 以下叙述中错误的是_。A）一个工程中可以包含多个窗体文件B）在一个窗体文件中用 Public 定义的通用过程不能被其他窗体调用C）窗体和标准模块需要分别保存为不同类型的磁盘文件D）用 Dim 定义的窗体层变量只能在该窗体中使用24. 下面的过程定义语句中合法的是_。A）Sub Procl(ByVal n() B）Sub Procl(n) As Integer C）Function Procl(Procl) D）Function Procl(ByVal n)27. 在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的
39、值，则使用_关键字在过程中定义局部变量。A）Dim B）Private C）Public D）Static28. 以下正确的描述是：在 Visual Basic 应用程序中_。A）过程的定义可以嵌套，但过程的调用不能嵌套。B）过程的定义不可以嵌套，但过程的调用可以嵌套。C）过程的定义和过程的调用均可以嵌套。D）过程的定义和过程的调用均不能嵌套。29. 有子过程语句说明：Sub fSum(sum%,ByVal m%,ByVal n%),且在事件过程中有如下变量说明：Dim a%,b%,c!则下列调用语句中正确的是_。A）fsum a,a,b B）fsum 2,3,4 C）fsum a+b,a,b
40、 D）Call fsum (c,a,B）37. 在过程调用中，参数的传递可以分为_和按地址传递两种方式。A）按值传递 B）按地址传递 C）按参数传递 D）按位置传递39. 要想在过程调用后返回两个结果，下面的过程定义语句合法的是_。A）Sub Procl(ByVal n,ByVal m) B）Sub Procl(n,ByVal m) C）Sub Procl(n,m) D）Sub Procl(ByVal n,m)二、 填空题1. 阅读下面程序，子过程 Swap 的功能是实现两个数的交换，请将程序填写完整。Public Sub Swap(x As Integer, y As Integer)Dim
41、 t As Integert = x : x = y : y = tEnd Sub- 15 -Private Sub Command1_Click()Dim a As Integer, b As Integera = 10 : b = 20【1】Print “a = “; a , “b =“; bEnd Sub2. 下列程序中，fac 是求 n!的递归函数，请将程序填写完整。Public Function fac(n As Integer)If n = 1 Then fac = 1Else fac = 【2】End IfEnd Sub3如下程序，运行的结果是 【3】 ，函数过程的功能是 【4】
42、 。Public Function f(ByVal n% , ByVal r%)If n nDo While m n ：m = m n ：LoopDo While m 0CountWord = CountWord + 1st = 【12】i = InStr(st，“ “)LoopCountWord = CountWord + 1st = Trim(s)【13】Do While i 0CountThe = CountThe + 1st = 【14】i = InStr(st，“The“)Loop【15】End Sub7全局变量必须在_【16】_模块中定义，所用的语句为_【17】_。8设有以下函数过
43、程： Function Fun (m as Integer) As IntegerDim k As Integer, Sum As IntegerSum =0 For k = m To 1 Step -2Sum =Sum +k Next k Fun =Sum End Function若在程序中用语句 s =fun(10)调用此函数，则 s 的值为 【18】 。数组和自定义类型一、 单选题1. 下面数组声明语句，_正确。A） Dim a2,4 As Integer B） Dim a(2,4) As Integer C） Dim a(n,n) As Integer D） Dim a(2 4) As
44、 Integer2要分配存放如下方阵的数据，可使用_数组声明语句来实现（不能浪费空间）。- 17 -A） Dim x(9) As Single B） Dim x(3,3) As Single C） Dim x(-1 to 1, -5 to -3) As SingleD） Dim x(-3 to -1, 5 to 7) As Integer 3. 下面数组声明语句中，数组包含元素个数为 _。Dim a(-2 to 2,5) A） 120 B） 30 C） 60 D） 204下面程序的输出结果是 _。Dim aa = Array(1,2,3,4,5,6,7)For i = Lbound(A） to
45、 Ubound(A）a(i) = a(i) * a(i)Next iPrint a(i)A） 36 B） 程序出错 C） 49 D） 不确定6以下定义数组或给数组元素赋值的语句中，正确的是_。A）Dim a As Variant B）Dim a(10) As Integera = Array(1,2,3,4,5) a = Array(1,2,3,4,5)C）Dim a%(10) D）Dim a(3),b(3) As Integera(1) = “ABCDE“ a(0) = 0a(1) = 1a(2) = 2b = aA）6 6 B）10 5 C）7 21 D）6 1218. 下面叙述中不正确的
46、是_。A）自定义类型只能在窗体模块的通用声明段进行声明B）自定义类型中的元素类型可以是系统提供的基本数据类型或已声明的自定义类型C）在窗体模块中定义自定义类型时必须使用 Private 关键字D）自定义类型必须在窗体模块或标准模块的通用声明段进行声明19. 在设定 Option Base 0 后，经 Dim arr(3,4) As Integer 定义的数组 arr 含有的元素个数为_。A）12 B）20 C）16 D）920. 用下面语句定义的数组的元素个数是_ 。Dim A (-3 To 5) As IntegerA） 6 B） 7 C） 8 D） 9 27. 以下有关数组定义的语句序列中，错误的是_。A） Static arr1(3)Arr1(1)=100Arr1(2)=“Hello“ Arr1(3)=123.45B）Dim arr2() As IntegerDim size As IntegerPrivate Sub Command2_Click()size=InputBox(“输入：“)ReDim arr2(size)- 18 -End SubC）Option Base 1Private Sub Command3_Click()Dim arr3()
