《Visual Basic 6.0项目教程》（电工版第三版）期末复习卷（三）

《Visual Basic 6.0项目教程》第三版 期末复习卷（三） 时间：120分钟 总分：120分 班级 姓名 学号 成绩 一、选择题(本大题共25小题，每小题2分，共50分) 1. Visual Basic有（ ）三种工作模式。 A.设计、运行和中断 B.设计、运行和调试 C.调试、运行和中断 D.运行、中断和调试 2. 打开程序代码窗口的方法不包括（ ）。 A. 双击窗体或窗体上包含的控件 B. 按 “F4” 键 C. 单击工程资源管理器窗口的 “查看代码” 按钮 D. 选择 “视图”→“代码窗口” 命令 3. 保存工程时，选择 “文件”→“保存工程” 命令后，首先弹出的对话框是（ ）。 A. 工程另存为 B. 保存工程 C. 文件另存为 D. 生成工程 4. 能够存储所有系统定义类型数据的是（ ）。 A. 字符型（String） B. 可变型（Variant） C. 对象型（Object） D. 布尔型（Boolean） 5. 若声明一个符号常量，以下正确的是（ ）。 A. Const PI 3.14159 B. Const PI As Single = 3.14159 C. Dim PI As Single = 3.14159 D. Static PI = 3.14159 6.下列选项中，能作为 VB 标识符的是？（ ） A. If B. MyVariable C. #Variable D. 2ndVariable 7. 执行以下 Print 1 + 2; 3*4语句后，输出结果是（ ）。 A.3 12 B.1 + 2; 3*4 C.312 D.15 8. Shape控件的 Shape 属性值为2时显示的形状为（ ）。 A.矩形 B.正方形 C.椭圆 D.圆 9. 调用子过程的语句正确的是（ ）。 A.Call Proc 5,6 B.Proc(5,6) C.Call Proc(5,6) D.Proc5,6 10. 表达式Int(-27.8)+Sgn(37.8)的值是（ ）。 A. 10 B. -27 C. -18 D. -16 11. 以下哪种情况属于运行时错误（ ）。 A. 变量名拼写错误 B. 缺少 End If 语句 C. 试图打开一个不存在的文件 D. 逻辑判断条件设置错误 12. 下列关于窗体Name属性的说法，正确的是（ ）。 A.可以在运行时修改Name属性的值 B. Name属性在属性窗口中显示为名称，运行时只读 C. Name属性用于设置窗体的标题 D.以上说法都不对 13. 假定建立了一个名为Command1的命令按钮数组，则下列说法中错误的是（ ）。 A.数组中每个命令按钮的名称(名称属性)均为Command1 B.数组中每个命令按钮的标题(Caption属性)都一样 C.数组中所有命令按钮使用同一个事件过程 D.用名称Command1(下标)可以访问数组中的每个命令按钮 14. 自定义函数中，若要提前退出函数，可使用（ ）语句。 A. Exit Sub B. Exit Function C. End Sub D. End Function 15.（ ）不是键盘事件。 A．KeyUp B．KeyPres C．MouseDown D．KeyDowns 16. 设有以下语句:S=InputBox("录入参数","2","管理")程序运行后,如果从键盘上输入数值20,并按Enter键,则下列说法正确的（ ）。 A.“录入参数”是默认值信息 B.提示区显示的是“2” C.在InputBox 对话框标题栏中显示的是“管理” D. 变量S的值是字符串“20” 17. 以下关于 MsgBox 函数的说法，正确的是（ ）。 A. MsgBox 函数没有返回值 B. MsgBox 函数只能显示简单的文本信息 C. MsgBox 函数的 prompt 参数是可选的 D. MsgBox 函数返回一个整数表明用户单击了哪一个按钮 18. 文本框控件中，用于设置或返回文本框中能够输入的最大字符数量的属性是（ ）。 A. MultiLine B. MaxLength C. PasswordChar D. ScrollBars 19. 当用户单击窗体时，会触发以下哪个事件？（ ）。 A. Load B. Click C. DoubleClick D. Unload 20. 若要将一个项目添加到列表框控件中，应使用（ ）方法。 A. RemoveItem B. AddItem C. Clear D. SetFocus 21. 数据控件（Data）的Refresh方法作用是（ ）。 A. 对数据库进行修改后，使所进行的修改生效 B. 打开或重新打开数据库，并重建控件的 Recordset 属性内的记录集 C. 清除 MSFlexGrid 的内容 D. 在记录集中查询满足条件的记录 22. 为了使列表框中的项目分为多列显示，需要设置的属性为（ ）。 A.List B.MultiSelect C.Columns D.Style 23. 设置滚动条控件的（ ）属性值，可以控制用户单击滚动箭头时滚动条控件的 Value属性值的改变量。 A.LargeChange B.SmallChange C.MaX D.Min 24. 在程序运行期间可以用（ ）函数把图形装入窗体、图像框或图像控件。 AutoSize B.Stretch C.Picture D.LoadPicture 25. Shape控件的 FillStyle 属性值为4时填充效果为（ ）。 A.垂直线 B.交叉线 C.左上对角线 D.右下对角线 二、判断题(本大题共10小题，每小题2分，共20分) 1.（ ）在Visual Basic 中整个应用程序是一个对象。 2.（ ）Array 只适用于一维数组和二维数组赋值,不适合多维数组赋值。 3.（ ）在赋值语句中,赋值号“=”与数学上的等号意义相同。 4.（ ）动态数组是指计算机在执行过程中才给数组开辟存储空间的数组。 5.（ ）在“窗体名.KeyPreview=Boolean”语句中,Boolean为True时,窗体先接收键盘事件,然后是活动控件接收事件;Boolean为False时,则活动控件接收键盘事件,而窗体不接收。 6.（ ）在设计 Windows 应用程序时,用户可以使用系统本身提供的某些对话框,这些对话框可以直接从系统调入而不必由用户用“自定义”的方式进行设计。 7.（ ）因为程序代码中有If而无对应的End If或者括号不匹配等引起的错误是实时错误。 8.（ ）图像框控件可以接受和输出一般图形,还可以用于创建动态画图。 9.（ ）在画椭圆中,Circle 语句中使用了一个参数 Radius 对应的是椭圆的长轴。 10.（ ）在创建MDI应用程序时,当子窗体为活动窗体的时候,MDIForm 子窗体上的菜单条将替换MDI对象上的菜单条。 三、名词解释题(本大题共4小题，每小题4分，共16分) 1. 事件 2. 窗体 3. 运算符优先级 4. 工具栏控件 五、简答题(本大题共4小题，每小题6分，共24分) 1. 简述窗体Load事件和 Activate事件的区别？ 2. Visual Basic程序中的错误分为哪几种类型？ 3. FSO对象模型包括哪些对象？ 4. Do循环结构的语法格式？ 六、综合题(本大题共1小题，每小题10分，共10分) 定义一个包含 10 个整数的数组arr，使用冒泡排序算法对数组元素进行升序排序，并输出排序后的数组。 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$ 《Visual Basic 6.0项目教程》第三版 期末复习卷（三） 时间：120分钟 总分：120分 班级 姓名 学号 成绩 一、选择题(本大题共25小题，每小题2分，共50分) 1. Visual Basic有（ ）三种工作模式。 A.设计、运行和中断 B.设计、运行和调试 C.调试、运行和中断 D.运行、中断和调试 【答案】A 【解析】Visual Basic 有设计、运行和中断三种工作模式，在设计模式下，可以对应用程序的界面和代码进行设计与编辑；当启动应用程序运行时，就进入了运行模式；程序运行时遇到断点或者发生错误时进入中断模式。所以答案选 A。 2. 打开程序代码窗口的方法不包括（ ）。 A. 双击窗体或窗体上包含的控件 B. 按 “F4” 键 C. 单击工程资源管理器窗口的 “查看代码” 按钮 D. 选择 “视图”→“代码窗口” 命令 【答案】B 【解析】按 “F4” 键是打开属性窗口的方法。打开程序代码窗口的方法有：双击窗体或窗体上包含的控件；选择 “视图”→“代码窗口” 命令；单击工程资源管理器窗口的 “查看代码” 按钮；按 “F7” 键。所以答案选 B。 3. 保存工程时，选择 “文件”→“保存工程” 命令后，首先弹出的对话框是（ ）。 A. 工程另存为 B. 保存工程 C. 文件另存为 D. 生成工程 【答案】C 【解析】选择 “文件”→“保存工程” 命令后，会先弹出 “文件另存为” 对话框，之后再弹出 “工程另存为” 对话框。 4. 能够存储所有系统定义类型数据的是（ ）。 A. 字符型（String） B. 可变型（Variant） C. 对象型（Object） D. 布尔型（Boolean） 【答案】B 【解析】可变型（Variant）能够存储所有系统定义类型的数据；字符型（String）用于处理字符串；对象型（Object）用于引用程序或某些应用程序中的对象；布尔型（Boolean）用于处理真（True）和假（False）。 5. 若声明一个符号常量，以下正确的是（ ）。 A. Const PI 3.14159 B. Const PI As Single = 3.14159 C. Dim PI As Single = 3.14159 D. Static PI = 3.14159 【答案】B 【解析】声明符号常量使用 Const 语句，格式为 Const 常量名 [As 类型] = 常量表达式，B 选项符合该格式。A 选项缺少 As 类型及等号；C 选项使用 Dim 是声明变量；D 选项 Static 用于声明静态变量。所以答案选 B。 6.下列选项中，能作为 VB 标识符的是？（ ） A. If B. MyVariable C. #Variable D. 2ndVariable 【答案】B 【解析】“If” 是 VB 的保留字，不能作为标识符，A 选项错误；标识符不能包含 “#” 等特殊字符，C 选项错误；不能以数字开头，D 选项错误；B 选项以字母开头，符合命名规则。 7. 执行以下 Print 1 + 2; 3*4语句后，输出结果是（ ）。 A.3 12 B.1 + 2; 3*4 C.312 D.15 【答案】A 【解析】Print 语句用于输出表达式的值，表达式之间用分号 “;” 分隔时，输出结果会紧凑显示，先计算1 + 2得3，再计算3 * 4得12，所以输出结果是3 12， 选项A正确。 8. Shape控件的 Shape 属性值为2时显示的形状为（ ）。 A.矩形 B.正方形 C.椭圆 D.圆 【答案】C 【解析】在 Visual Basic 中，Shape 控件用于在窗体上显示各种几何形状，其 Shape 属性决定了该控件所显示的形状，该属性值对应的形状如下：0显示矩形，1显示正方形，2显示椭圆，3显示圆形，4显示圆角矩形，5显示圆角正方形。 9. 调用子过程的语句正确的是（ ）。 A.Call Proc 5,6 B.Proc(5,6) C.Call Proc(5,6) D.Proc5,6 【答案】C 【解析】当使用Call语句调用子过程时，参数列表必须用括号括起来，因此选项A错误；若不使用Call关键字调用子过程，参数列表不应该使用括号，因此选项B错误；Call关键字后面跟着子过程名，参数列表用括号括起来，符合 Visual Basic 的语法要求，因此选项C正确；选项D既没有使用Call关键字，参数列表的格式也不正确，不能正确调用子过程，因此选项D错误。 10. 表达式Int(-27.8)+Sgn(37.8)的值是（ ）。 A. 10 B. -27 C. -18 D. -16 【答案】B 【解析】Int 函数的作用是返回不大于给定数值的最大整数。对于 Int(-27.8)，不大于 -27.8 的最大整数是 -28，即 Int(-27.8) = -28。Sgn 函数的作用是返回表示数值符号的整数。当数值大于 0 时，Sgn 函数返回 1；当数值等于 0 时，Sgn 函数返回 0；当数值小于 0 时，Sgn 函数返回 -1，即Sgn(37.8) = 1。所以表达式的值： Int(-27.8) + Sgn(37.8)=−28+1=−27。 11. 以下哪种情况属于运行时错误（ ）。 A. 变量名拼写错误 B. 缺少 End If 语句 C. 试图打开一个不存在的文件 D. 逻辑判断条件设置错误 【答案】C 【解析】运行时错误是程序在运行期间发生的错误。试图打开一个不存在的文件，在程序运行到打开文件这一步时会因为文件不存在而产生错误，属于运行时错误。变量名拼写错误和缺少 End If 语句属于编译时错误，逻辑判断条件设置错误属于逻辑错误。所以答案选C。 12. 下列关于窗体Name属性的说法，正确的是（ ）。 A.可以在运行时修改Name属性的值 B. Name属性在属性窗口中显示为名称，运行时只读 C. Name属性用于设置窗体的标题 D.以上说法都不对 【答案】B 【解析】Name属性在属性窗口中显示为名称，并且在运行时是只读的，不能在运行时修改其值，A 选项错误；Name属性用于设置窗体的名称，而不是标题，C 选项错误。所以答案选B。 13. 假定建立了一个名为Command1的命令按钮数组，则下列说法中错误的是（ ）。 A.数组中每个命令按钮的名称(名称属性)均为Command1 B.数组中每个命令按钮的标题(Caption属性)都一样 C.数组中所有命令按钮使用同一个事件过程 D.用名称Command1(下标)可以访问数组中的每个命令按钮 【答案】B 【解析】命令按钮数组是由一组相同类型的命令按钮组成，它们具有相同的名称，均为 Command1，因此选项A正确。数组中每个命令按钮的标题可根据需要单独设置，因此选项B错误。命令按钮数组中的所有按钮使用同一个事件过程，通过 Index 参数来区分不同的按钮，因此选项C正确。下标用于唯一标识数组中的每个元素，可以用名称 Command1 (下标) 访问数组中的每个命令按钮，因此选项D正确。 14. 自定义函数中，若要提前退出函数，可使用（ ）语句。 A. Exit Sub B. Exit Function C. End Sub D. End Function 【答案】B 【解析】在自定义函数中，Exit Function用于提前退出函数，Exit Sub用于提前退出Sub过程，End Sub用于结束Sub过程，End Function用于结束函数，所以答案选 B。 15.（ ）不是键盘事件。 A．KeyUp B．KeyPres C．MouseDown D．KeyDowns 【答案】C 【解析】KeyDown 事件在按下键盘上的某个键时触发；KeyPress 事件在按下并释放键盘上某个键时触发，主要用于接收字符输入；KeyUp 事件在释放键盘上的某个键时触发； MouseDown 是鼠标事件，当鼠标按钮被按下时触发，与键盘操作无关。 16. 设有以下语句:S=InputBox("录入参数","2","管理")程序运行后,如果从键盘上输入数值20,并按Enter键,则下列说法正确的（ ）。 A.“录入参数”是默认值信息 B.提示区显示的是“2” C.在InputBox 对话框标题栏中显示的是“管理” D. 变量S的值是字符串“20” 【答案】D 【解析】InputBox 函数的语法为 InputBox(prompt[, title][, default])，其中 prompt 是必选参数，用于指定显示在输入框中的提示信息；title 是可选参数，用于指定输入框的标题；default 是可选参数，用于指定输入框的默认值。InputBox 函数返回用户输入的内容，无论输入的是数值还是其他类型的数据，都会被作为字符串处理，所以变量 S 的值是字符串 "20"。所以答案选D。 17. 以下关于 MsgBox 函数的说法，正确的是（ ）。 A. MsgBox 函数没有返回值 B. MsgBox 函数只能显示简单的文本信息 C. MsgBox 函数的 prompt 参数是可选的 D. MsgBox 函数返回一个整数表明用户单击了哪一个按钮 【答案】D 【解析】MsgBox 函数返回一个整数表明用户单击了哪一个按钮，A 选项错误；它可以通过设置参数显示丰富的信息，不只是简单文本，B 选项错误；prompt 参数是必需的，C 选项错误。所以答案选 D。 18. 文本框控件中，用于设置或返回文本框中能够输入的最大字符数量的属性是（ ）。 A. MultiLine B. MaxLength C. PasswordChar D. ScrollBars 【答案】B 【解析】MaxLength属性的作用是返回或设置一个值，指出在文本框中控件中能够输入的字符是否有一个最大数量，并指定该最大数量。MultiLine用于决定文本框是否可以接受和显示多行文本；PasswordChar用于设置输入字符的占位符；ScrollBars用于设置文本框是否有滚动条。所以答案选B。 19. 当用户单击窗体时，会触发以下哪个事件？（ ）。 A. Load B. Click C. DoubleClick D. Unload 【答案】B 【解析】Click 事件在用户单击对象时触发，所以当用户单击窗体时会触发该事件；Load 事件在窗体被加载到内存时触发；DoubleClick 事件在用户双击对象时触发；Unload 事件在窗体从内存中卸载时触发。所以答案选B。 20. 若要将一个项目添加到列表框控件中，应使用（ ）方法。 A. RemoveItem B. AddItem C. Clear D. SetFocus 【答案】B 【解析】AddItem方法用于将项目添加到列表框控件；RemoveItem用于从列表框控件中删除一项；Clear用于清除列表框中所有的项目内容；SetFocus是文本框等控件用于获取焦点的方法，与列表框添加项目无关。所以答案选 B。 21. 数据控件（Data）的Refresh方法作用是（ ）。 A. 对数据库进行修改后，使所进行的修改生效 B. 打开或重新打开数据库，并重建控件的 Recordset 属性内的记录集 C. 清除 MSFlexGrid 的内容 D. 在记录集中查询满足条件的记录 【答案】B 【解析】Refresh方法用于打开或重新打开数据库，并能重建控件的 Recordset 属性内的记录集，A 选项是UpdateRecord方法的作用；C 选项是 MSFlexGrid 控件Clear方法的作用；D 选项是 ADO RecordSet 对象查询方法的功能。所以答案选 B。 22. 为了使列表框中的项目分为多列显示，需要设置的属性为（ ）。 A.List B.MultiSelect C.Columns D.Style 【答案】C 【解析】Columns 属性用于设置列表框的列数，当该属性值大于 1 时，列表框中的项目会分为多列显示；List 属性用于访问列表框中的项目列表；MultiSelect 属性用于设置是否允许多选；Style 属性用于设置列表框的外观风格。所以答案选C。 23. 设置滚动条控件的（ ）属性值，可以控制用户单击滚动箭头时滚动条控件的 Value属性值的改变量。 A.LargeChange B.SmallChange C.MaX D.Min 【答案】B 【解析】SmallChange 属性指定了用户单击滚动箭头时滚动条 Value 属性值的改变量；LargeChange 属性则是用户单击滚动条的空白处时 Value 属性值的改变量；Max 和 Min 属性分别用于设置滚动条的最大值和最小值。 24. 在程序运行期间可以用（ ）函数把图形装入窗体、图像框或图像控件。 AutoSize B.Stretch C.Picture D.LoadPicture 【答案】D 【解析】LoadPicture 函数用于在程序运行期间把图形装入窗体、图像框或图片框控件；AutoSize 是控件的一个属性，用于自动调整控件大小以适应其内容；Stretch 是图像框的属性，用于指定图像是否拉伸以适应图像框的大小；Picture 是用于设置或获取控件中显示的图片的属性，不是函数。 25. Shape控件的 FillStyle 属性值为4时填充效果为（ ）。 A.垂直线 B.交叉线 C.左上对角线 D.右下对角线 【答案】C 【解析】 Shape 控件的 FillStyle属性值：为 0 表示实心；1 表示透明（默认值）；2 表示水平线；3 表示垂直线；4表示左上对角线；5 表示右下对角线；6 表示交叉线；7 表示对角交叉线。 二、判断题(本大题共10小题，每小题2分，共20分) 1.（ ）在Visual Basic 中整个应用程序是一个对象。 【答案】√ 【解析】在 Visual Basic 中，整个应用程序可以看作是一个对象，包含了各种其他对象，如窗体、控件等，这些对象相互协作来实现应用程序的功能。 2.（ ）Array 只适用于一维数组和二维数组赋值,不适合多维数组赋值。 【答案】× 【解析】Array 函数可以用于为一维数组赋值，但不能直接用于二维或多维数组赋值。 3.（ ）在赋值语句中,赋值号“=”与数学上的等号意义相同。 【答案】× 【解析】在赋值语句中，赋值号 “=” 的作用是将右边的值赋给左边的变量，与数学上的等号意义不同。数学上的等号表示两边的值相等，而在 VB 中，“=” 是一种赋值操作。 4.（ ）动态数组是指计算机在执行过程中才给数组开辟存储空间的数组。 【答案】√ 【解析】动态数组是在程序运行过程中根据需要才给数组开辟存储空间的数组，这样可以更灵活地使用内存，根据实际情况调整数组的大小。 5.（ ）在“窗体名.KeyPreview=Boolean”语句中,Boolean为True时,窗体先接收键盘事件,然后是活动控件接收事件;Boolean为False时,则活动控件接收键盘事件,而窗体不接收。 【答案】√ 【解析】当“窗体名.KeyPreview = True”时，窗体先接收键盘事件，然后才是活动控件接收事件；当“窗体名.KeyPreview = False”时，活动控件接收键盘事件，而窗体不接收键盘事件，这是 KeyPreview 属性的作用。 6.（ ）在设计 Windows 应用程序时,用户可以使用系统本身提供的某些对话框,这些对话框可以直接从系统调入而不必由用户用“自定义”的方式进行设计。 【答案】√ 【解析】设计 Windows 应用程序时，用户可以使用系统本身提供的一些标准对话框，如打开文件对话框、保存文件对话框、颜色对话框等，这些对话框可以直接通过相应的函数或方法从系统调入，不必由用户完全自定义设计。 7.（ ）因为程序代码中有If而无对应的End If或者括号不匹配等引起的错误是实时错误。 【答案】× 【解析】因为程序代码中有 If 而无对应的 End If 或者括号不匹配等引起的错误是编译错误，在程序编译阶段就会被发现，而不是实时错误。实时错误是在程序运行过程中由于某些运行时的条件不满足而引发的错误。 8.（ ）图像框控件可以接受和输出一般图形,还可以用于创建动态画图。 【答案】× 【解析】图像框控件主要用于显示图像，它可以接受和输出一般图形，但通常不用于创建动态画图。创建动态画图一般使用图形控件（如 PictureBox）或其他专门的绘图技术。 9.（ ）在画椭圆中,Circle 语句中使用了一个参数 Radius 对应的是椭圆的长轴。 【答案】× 【解析】在 Circle 语句中使用的参数 Radius 对应的是圆的半径。如果要画椭圆，Circle 语句需要使用额外的参数来指定椭圆的长轴和短轴比例等信息，不能简单地说 Radius 对应椭圆的长轴。 10.（ ）在创建MDI应用程序时,当子窗体为活动窗体的时候,MDIForm 子窗体上的菜单条将替换MDI对象上的菜单条。 【答案】√ 【解析】在 MDI 应用程序中，当子窗体为活动窗体时，MDI 子窗体上的菜单条会替换 MDI 父窗体上的菜单条，以提供与子窗体相关的操作选项。 三、名词解释题(本大题共4小题，每小题4分，共16分) 1. 事件 【答案】事件是指发生在对象上的动作或行为，这些动作或行为能够被程序识别并响应。 2. 窗体 【答案】是Visual Basic 应用程序的基本构造模块，是应用程序运行时与用户交互操作的实际窗口。 3. 运算符优先级 【答案】一个表达式可能含有多种运算，系统会按预先确定的顺序进行计算，此顺序称为运算符的优先级。 4. 工具栏控件 【答案】工具栏控件（Toolbar）是一种用户界面元素，为用户提供了便捷的操作方式，让用户能快速访问应用程序中的常用命令或功能。 五、简答题(本大题共4小题，每小题6分，共24分) 1. 简述窗体Load事件和 Activate事件的区别？ 【答案】执行顺序区别：Load 事件先于 Activate 事件执行。Load事件在看不到窗体的时候就已经发生了，一般是对窗体进行初始化，而Activate事件是看到窗体的时候才发生。-----------3分 触发时机区别：Load事件是窗体被载入时发生，Activate事件仅当一个对象可见时发生。当程序载入一个窗体的Visible属性为 Flase的窗体时不发生Activate事件，只有当使用Show方法将该窗体的Visible属性设置为True时才产生Activate事件。-------------3分 2. Visual Basic程序中的错误分为哪几种类型？ 【答案】（1）语法错误：该类错误由于编写代码时违反了 Visual Basic 的语法规则而引起。在输入代码时，编译器会立即检测到这类错误，并给出相应的错误提示，阻止程序运行。-----2分 （2）运行时错误：该类错误在程序运行过程中出现，通常由于程序执行了非法操作或遇到了意外情况。运行时错误会导致程序中断执行，并弹出错误信息对话框。-------------2分 （3）逻辑错误：该类错误是指程序的语法和运行都没有问题，但程序的执行结果不符合预期。逻辑错误不会导致程序崩溃，但会使程序无法正确完成预期的任务，需要通过调试和分析来找出问题所在。-------------2分 3. FSO对象模型包括哪些对象？ 【答案】FSO对象模型是 Visual Basic 中用于操作文件系统的一组对象。主要包括以下几个对象：-------------1分 FileSystemObject 对象： FSO 模型的核心对象，用于创建、删除、移动文件和文件夹，以及对驱动器进行操作等。-------------1分 Drive 对象：用于表示计算机上的物理或逻辑驱动器，可以获取驱动器的相关信息。--------1分 Folder 对象：表示文件系统中的文件夹。可以用于创建、删除、移动文件夹，以及获取文件夹的属性和子文件夹、文件列表等。-------------1分 File 对象：表示文件系统中的文件。可以进行文件的创建、删除、重命名、读取和写入等操作。-------------1分 TextStream 对象：用于读写文本文件。可以逐行或一次性读取文本文件的内容，也可以向文本文件中写入数据。-------------1分 4. Do循环结构的语法格式？ 【答案】（1）前测 试型 Do循环-------------3分 Do while/until<循环条件> [语句块] [Exit Do] Loop （2）后测试型 Do循环-------------3分 Do [语句块] [Exit Do] Loop while/until<循环条件> 六、综合题(本大题共1小题，每小题10分，共10分) 定义一个包含 10 个整数的数组arr，使用冒泡排序算法对数组元素进行升序排序，并输出排序后的数组。 【答案】Private Sub Form_Load() Dim arr(9) As Integer Dim i As Integer Dim j As Integer Dim temp As Integer ' 初始化数组 For i = 0 To 9 arr(i) = Int(Rnd * 100) ' 生成 0 到 99 的随机数 Next i ' 冒泡排序 For i = 0 To 8 For j = 0 To 8 - i If arr(j) > arr(j + 1) Then temp = arr(j) arr(j) = arr(j + 1) arr(j + 1) = temp End If Next j Next i ' 输出排序后的数组 Dim result As String result = "" For i = 0 To 9 result = result & arr(i) & " " Next i MsgBox "排序后的数组为：" & result End Sub 【解析】冒泡排序的基本思想是多次比较相邻的元素，如果顺序错误就把它们交换过来。 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$