VB_程序设计习题.pdf

第二章第二章 对象及其操作对象及其操作 Visual Basic 程序设计习题 第一章第一章 VisualVisual BasicBasic 程序开发环境程序开发环境 一 选择题一 选择题 1 VB6 0 共有三个版本 按功能从弱到强的顺序排列应是 A 学习版 专业版和工程版B 学习版 工程版和专业版 C 学习版 专业版和企业版D 学习版 企业版和专业版 2 刚建立一个新的标准 EXE 工程后 不在工具箱中出现的控件是 A 单选按钮B 图片框C 通用对话框D 文本框 3 以下可激活菜单栏的快捷键为 A F10B F4C F5D Ctrl 4 英文缩写 OOP 的含义是 A 事件驱动的编程机制B 结构化程序设计语言 C 面向对象的程序设计D 可视化程序设计 5 下列不能打开属性窗口的操作是 A 执行 视图 菜单中的 属性窗口 命令B 按 F4 键 C 单击工具栏上的 属性窗体 按钮D 按 Ctrl T 6 下列可以打开立即窗口的操作是 A Ctrl DB Ctrl EC Ctrl FD Ctrl G 7 利用 开始 菜单中的 程序 里的 VB 中文版 可启动 Visual Basic 下面是可以 启动 Visual Basic 的方法是 A 打开 我的电脑 找到存放 Visual Basic 系统文件的硬盘及文件夹 双击 VB6 EXE 图标 B 执行 开始 菜单下的 运行 命令 输入 Visual Basic 可执行文件的路径及文件名 C 在 DOS 窗口下 键入 Visual Basic 的路径 执行 Visual Basic 可执行文件 D A 和 B 8 在 Visual Basic 中 被称为对象 A 窗体B 控件C 窗体和控件D 窗体 控件 属性 9 窗体文件的扩展名是 A clsB frmC basD vbp 10 以下关于保存工程的说法正确的是 A 保存工程时只保存窗体文件即可B 保存工程时只保存工程文件即可 C 先保存窗体文件 再保存工程文件D 先保存工程文件 再保存窗体文件 11 以下不能运行工程的操作是 A 执行 运行 菜单中的 启动 命令B 单击工具栏中的 启动 命令 C 按下 F5 键D 按下 Ctrl F5 键 12 用 个程序段对一对象被单击 或双击 做出响应 从而实现指定的操作 称为 A 可视化程序设计B 事件驱动编程机制 C 过程化程序实际方法D 非过程化程序设计语言 13 以下为纯代码文件的是 A 工程文件B 窗体文件C 标准模块文件D 资源文件 14 以下说法错误的是 A 工程资源管理窗口包括工程文件 工程组文件 窗体文件 标准模块文件 类模块 文件 资源文件 B 工程资源管理窗口顶部还有 3 个按钮 分别为 查看代码 查看对象 和 切 换文件夹 C 用 Visual Basic 设计应用程序时 必须先设计窗体 再编写程序 D 资源文件中存放的各种 资源 是一种可以同时存放文本 图片 声音等多种资源 的文件 其扩展名为 res 是一个纯文本文件 15 下述选项中 属于 VB 程序设计的方法是 A 面向对象 顺序驱动B 工程窗口 C 面向过程 事件驱动D 面向过程 顺序驱动 16 VisualBasic一共有设计 运行和中断三种模式 要使用调试工具应该 A 进入设计模式B 进入运行模式 C 进入中断模式D 不用进入任何模式 17 以下叙述中错误的是 A Visual Basic 是事件驱动型可视化编程工具 B Visual Basic 应用程序不具有明显的开始和结束语句 C Visual Basic 工具箱中的所有控件都具有宽度 Width 和高度 Height 属性 D Visual Basic 中控件的某些属性只能在运行时设置 18 以下方法中不能退出 Visual Basic 属性的是 A 按 Alt Q 组合键 B 按下 Alt F 组合键 然后按 Esc 键 C 打开 文件 菜单 执行 退出 命令 D 按 F10 键 然后按 F 键 再按 X 键 第二章第二章 对象及其操作对象及其操作 三 参考答案 1 选择题 1 C 2 C 3 A 4 C 5 D 6 D 7 D 8 C 9 B 10 C 11 D 12 B 13 C 14 C15 C16 C17 C 18 B 第二章 对象及其操作 一 选择题 1 在设计阶段 当双击窗体上的某个控件时 所打开的窗口是 A 工程资源管理器窗口B 工具箱窗口C 代码窗口D 属性窗口 2 以下叙述中错误的是 A 一个工程中只能有一个 Sub Main 过程 B 窗体的 Show 方法的作用是将指定的窗体装入内存并显示该窗体 C 窗体的 Hide 方法和 Unload 方法的作用完全相同 D 若工程文件中有多个窗体 可以根据需要指定一个窗体为启动窗体 3 以下叙述中正确的是 A 窗体的 Name 属性指定窗体的名称 用来标识一个窗体 B 窗体的 Name 属性的值是显示在窗体标题栏中的文本 C 可以在运行期间改变对象的 Name 属性的值 D 对象的 Name 属性值可以为空 4 针对下列程序代码 说法正确的是 Text1 Left 400 Text1 Top 1000 A Text1 对象左边界距窗体的左边界 400twip 上边界距窗体的上边界 1000twip B Text1 对象左边界距窗体的左边界 400twip 上边界距屏幕的上边界 1000twip C Text1 对象的高度为 400twip 宽度为 1000twip D Text1 对象的高度为 400 点 宽度为 1000 点 5 当运行程序时 系统自动执行启动窗体的某个事件过程 这个事件过程是 A LoadB ClickC UnloadD GotFocus 6 以下说法正确的是 A 默认情况下控件的 Visible 属性的值是 True B 如果设置控件的 Visible 属性值为 False 则该控件从内存中卸载 C Visible 的值可设为 0 或 1 B 设置 Visible 属性同设置 Enabled 属性的功能是相同的 7 VisualBasic 是一种面向对象的程序设计语言 构成对象的三要素是 A 属性 控件和方法B 属性 事件和方法 C 窗体 控件和过程D 控件 过程和模块 8 要使文本框获得输入焦点 则应采用文本框控件的 方法 A GotFocusB LostFocusC KeyPressD SetFocus 9 能够获得一个文本框中被选取文本的内容的属性是 A TextB LengthC SelTextD SelStart 10 一个命令按钮成为图形命令按钮 则应设置其 属性值 A PictureB StyleC DownPictumD DisabledPicture 11 使标签中的文本靠右显示 则应将其 Alignment 属性设置为 A 0B 1C 2D 3 12 为了在按下回车键时执行某个命令按钮的事件过程需要把该命令按钮的一个属性设置 为 True 这个属性是 A ValueB CancelC EnabledD Default 13 若要实现当鼠标暂时停留在一命令按钮上时 则显示提示信息 应设置此命令按钮的 属性 A TextB ToolTipTextC WhatThisHelpID HelpContextId 14 下面四个选项中 不是窗体属性是 A MinButtonB MaxButtonC CaptionD Load 15 为了在运行时能显示窗体左上角的控制框 系统菜单 必须 A 把窗体的 ControlBox 属性设置为 False 其他属性任意 B 把窗体的 ControlBox 属性设置为 True 并且把 BoderStyle 属性设置为 1 5 C 把窗体的 ControlBox 属性设置为 False 同时把 BoderStyle 属性设置为非 0 值 D 把窗体的 ControlBox 属性设置为 True 同时把 BoderStyle 属性设置为 0 值 16 不能打开代码窗口的操作是 A 双击窗体设计器的任何地方B 按下 F4 键 C 单击工程窗口中的 查看代码 按钮D 选择 视图 下拉菜单中的 代码窗口 17 若要将窗体从内存卸载 其实现的方法是 A ShowB UnLoadC LoadD Hide 18 若要设置文本框中所显示的文本颜色 应设置的属性是 A FillColorB BackColorC ForeColorD BackStyle 19 如果按下 ESC 键就执行某个命令按钮中的命令 则应将此命令按钮的 属性设置为 True A EnalbedB CancelC DefaultD Value 20 命令按钮不能响应的事件是 A DblClickB ClickC MouseDownD MouseUp 21 若要使标签控件显示时不覆盖其背景内容 要进行设置的属性是 A BackColorB BorderStyleC ForeColorD BackStyle 22 要使 Form1 窗体的标题栏显示 欢迎使用 VB 以下语句正确的是 A Form1 Text 欢迎使用 VB B Form1 Caption 欢迎使用 VB 第二章第二章 对象及其操作对象及其操作 C Form1 Caption 欢迎使用 VBD Form1 Caption 欢迎使用 VB 23 不论什么控件 共同具有的属性是 A TextB NameC ForeColorD Caption 24 当文本框的 ScrollBars 属性设置成了非零值 但没有效果 其原因是 A 文本框没有内容B 文本框 MultiLine 属性为 False C 文本框的 MultiLine 属性为 TrueD 文本框的 Locked 属性为 False 25 确定一个窗体或控件的大小的属性是 A Width 或 HeightB Width 和 HeightC Top 或 LeftD Top 和 Left 26 为了使某个文件框架不能接收焦点 应将此控件的 A TabIndex 属性设置为 TrueB TabStop 属性设置为 True C TabStop 属性设置为 FalseD Enabled 属性设置为 True 27 下列属性值为字符串属性的是 A CaptionB ValueC WidthD Height 28 若使用 Textbox 控件时 为对用户输入内容进行立即检查 应对 Textbox 控件的哪个 事件编程 A ChangeB IntervalC LeftD Top 29 窗体的隐藏和删除 分别用在不同的场合 隐藏 Forml 和删除 Forml 的命令是 A HideFormlUnloadFormlB Forml HideForml Unload C Forml HideUnloadFormlD HideFormlForml Unload 30 在窗体上画一个名称为 textl 的文本框和一个名称为 labell 的标签 要求如下程序运 行时 在文本框中输入的内容立即在标签中显示 PrivateSubTextl Labell Caption Textl Text EndSub 在下划线上填入的内容是 A FocusB ClickC ChangD LostFocus 三 参考三 参考答案答案 1 1 选择题 选择题 1 C 2 C 3 A 4 A 5 A 6 A 7 B 8 D 9 C 10 B 11 B 12 D 13 B 14 D 15 B 16 B 17 B 18 C 19 B 20 A 21 D 22 D 23 B 24 B 25 B26 C 27 A 28 A 29 C 30 C 第三章第三章 数据类型及其运算数据类型及其运算 一 填空题一 填空题 1 在 VB6 0 中 合法的长整型常量是 A 123456B 0 X Y A A 16 FalseB A 16 0 C A 1 5 3 FalseD A16True 32 设 a Visual Basic 下面使 b Basic 的语句是 A b Left a 8 12 B b Mid a 8 5 C b Rigth a 5 5 D b Left a 8 5 33 当用 ConstAAsInteger 9 8 定义后 下列叙述正确的是 A A 是整型常数B A 是整型变量C A 是字符型常数 D A 是变体类型的常数 34 表达式 InStr ABCDEFG DE 100 的值是 A 4100B 1004C 104D 出错 35 将数学表达式 Cos 2 a b 5e2 写成 Visual Basic 的表达式 其正确的形式是 A Cos a b 2 十 5 Exp 2 B Cos 2 a b 5 Exp 2 C Cos a b 2 十 5 Ln 2 D Cos 2 a b 5 Ln 2 36 在代码编辑器中 若一条语句过长需要执行书写语句时 可用 作为续行符 A 一个下划线 B 一个空格加一个下划线 C 一个减号 D 一个空格加一个减号 37 可以在常量的后面加上类型说明符以显示常量的类型 可以用表示字符串型常量 D A B C D 38 符号 是声明类型变量的类型定义符 A IntegerB VariantC SingleD String 39 在 Visual Basic 中 可以在中检测函数或表达的值 第三章第三章数据类型及其运算数据类型及其运算 A 设计窗口B 对象游览器C 立即窗口D 属性窗口 40 执行以下程序段后 变量 c 的值为 a VisualBasicPrograming b Quick c b c c EndSub A b 2c 2B b 2c 2 b 2c 2b 4c 4 C b 2c 2D b 2c 2 b 2c 4b 4c 2 9 有下列程序 Private Sub Command1 Click x1 InputBox 请输入 Print x1 111 x1 111 End Sub 运行程序 单击命令按钮并输入 123 则在窗体上输出结果是 A 123111234B 234 123111C 123111 123111D 显示出错信息 10 如果在立即窗口中执行以下操作 a 8 是回车键 下同 b 9 Printa b 则输出结果是 C A 1B 0C FalseD True 11 运行下面的程序后 单击窗体 则在窗体上输出 b 的值为 PrivateSubForm Click a 800 b 30 a a b b a b a a b printb End sub A 30B 800C 770D 830e 12 下列事件过程 Private Sub Command1 Click N AAAAA Mid N 2 3 BBB Print N End Sub 运行程序后 单击命令按钮输出的结果是 A ABBBA B AABBB C ABBBAD AABBB 13 在窗体 Name 属性为 Forml 上画两个文本框 其 Name 属性分别为 Textl 和 Text2 和一个命令按钮 Name 属性为 Commandl 然后编写如下两个事件过程 PrivateSubCommandl Click a Textl Text Text2 Text Printa EndSub PrivateSubForm Load Textl Text Text2 Text EndSub 程序运行后 在第一个文本框 Textl 和第二个文本框 Text2 中分别输入 78 和 87 然后单击命令按钮 则输出结果为 A 165B 8778C 7788D 7887 14 运行下面的程序后 单击命令按钮 则在窗体上输出 Private Sub Command1 Click Print Format 4123 479 End Sub A 412347 9B 412347 9 C 4123 48 D 4123 47 15 下面四个语句中 能打印显示 20 30 字样的是 A Print 20 30 B Print 20 30 C Pnnt Chr 20 chr 30 D Print val 20 val 20 16 执行如下语句 Private Sub Command1 Click a InputBox Today TomorroW Yesterday Day before yesterday 5 End Sub 将显示一个输入对话框 在对话框的输入区中显示的信息是 A TodayB TomorrowC YesterdayD Day before yesterday 第四章第四章数据输入与输出数据输入与输出 17 要使 Print 方法在 Form Load 事件中起作用 应将窗体的 属性设置为 True A BackColorB ForeColorC AutoRedrawD Caption 18 执行下列程序 单击命令按钮 则在窗体上输出 Private Sub Command1 Click a 43 b 21 c a Print a b C End Sub A FalseFalseB TrueFalseC TrueTrueD 10 22 执行下列程序 单击命令按钮后在窗体上输出结果是 Private Sub Command1 Click Dim A As Integer A 456 A 232 45 B 23 5 Print A A End Sub A 456232 45B 232 32232 32C 232232D 显示出错信息 23 执行下列程序 单击命令按钮后在窗体上输出结果是 Private Sub Command1 Click Const PI 3 14 PI 3 1415 PI 3 1415926 Print PI End Sub A 3 14B 3 1415C 3 1415926D 显示出错信息 24 在窗体上画一个命令按钮 名称为 Commandl 单击命令按钮时 执行如下事件过程 PriVate Sub Commandl C1ick a software and hardware b Right a 8 c Mid a 1 8 Msgbox a b c 1 End Sub 运行程序后 单击命令按钮 则在弹出的消息框的标题栏中显示的信息是 A softWare and hardwareB softwareC hardwafeD 1 三 参考三 参考答案答案 1 1 选择题 选择题 1 C 2 D 3 B 4 D 5 B 6 B 7 B 8 C 9 B 10 C 11 B 12 C 13 D 14 B 15 A 16 C 17 C 18 A 19 C 20 B 21 B 22 C 23 D 24 C 第五章第五章 常用标准控件常用标准控件 一 选择题一 选择题 1 在窗体上有一个文本框控件 名称为 TxtTime 一个计时器控件 名称为 Timerl 要求 每一秒钟在文本框中显示一次当前的时间 程序为 Private Sub Timer1 TxtTime text Time End Sub 在下划线上应填入的内容是 A EnabledB VisibleC IntervalD Timer 2 滚动条的默认属性是 A MinB MaxC ValueD Name 3 计时器控件 如果希望每秒产生 10 个事件 则要将 Interval 属性的值设置为 A 100B 200C 300D 400 4 Check1 为复选框 Dir1 为目录列表框 Text1 为文本框 Option1 为单选框 则以下赋 值语句错误的是 第六章第六章控制结构控制结构 A Check1 Caption grayed B Dir1 C windows C Text1 我的文档 D Option1 Value grayed 5 下列说法中 正确的是 A 默认情况下 计时器控件在程序运行期间显示在窗体上 B 列表框中的项目不管怎么设置也不能进行多项选择 C 列表框能够将项目自动按字母顺序由大到小排列 D 框架控件有 Click 和 DblClick 事件 6 要使计时器控件 Timer1 的 Timer 事件不起作用 以下正确的语句是 A Timer1 Visible FalseB Timer1 Enabled False C Timer1 Inerval 1000D Timer1 Index 0 7 将数据项 China 添加到列表框 List1 中成为第一项应使用的语句是 A List1 AddItem China 0B List1 AddItem China 1 C List1 AddItem 0 China D List1 AddItem 1 China 8 引用列表框 List1 最后一个数据项应使用的语句是 A List1 List List1 ListCount B List1 List List1 ListCount 1 C List1 List ListCount D List1 List ListCount 1 9 若想使时钟控制每隔 0 25 秒触发一次 Timer 事件 则可将 Interval 属性值设为 A Interval 0 25B Interval 25C Interval 250D Interv al 2500 10 若希望分成两组使用多个 OptionButtion控件 能完成这一功能的控件是 A PictureBoxB ImageBoxC FrameD Shape 11 下列叙述不正确的是 A 命令按钮的默认属性为 CaptionB 标签的默主属性为 Caption C 复选框的默认属性为 valueD 滚动条的默认属性为 value 12 如果列表框 List 中没有被选择的项目 则执行 List1 RemoveItemList1 ListIndex 语句的结果是 A 移去第一项B 移去最后一项C 移去最后加入列表的一项D 发生错误 13 下面说法不正确的是 A 滚动条的重要事件是 Change 和 Scroll B 框架的主要作用是将控件进行分组 以完成各自相对独立的功能 C 组合框是组合了文本框和列表框的特性而形成的一种控件 D 计时器控件可以通过对 Visible 属性的设置 在程序运行期间显示在窗体上 14 在窗体上画一个名称为 Check1 复选框 在程序运行的过程中 若选中复选框 则 Check1 value 的值是 A TrueB 2C 0D 1 15 在窗体上画一个水平滚动条 名称为 HScroll1 再画一个文本框 名称为 Text1 要想使用滚动条滑块的变化量来调用文本框中文字的大小 则可满足的语句是 A Text1 FontName HScroll1 MaxB Text1 FontSize HScroll1 Min C Text1 FontSize HScroll1 valueD Text1 FontBold HScroll1 value 16 对象 cls 方法对 控件有效 A 窗体 图像框B 窗体 图片框C 屏幕 窗体D 图像框 图片框 17 下列控件中 没有 Caption 属性的是 A 框架B 列表框C 复选框D 单选按钮 18 为组合框 Combol 增加一个数据项 计算机 下列哪个命令是正确的 A Combol Text 计算机 B Combol ListIndex 计算机 C Combol AddItem 计算机 D Combol AddItem 计算机 19 如果要在程序代码中为图片框动态加载和清除图像 可以利用 A InputBoxB InputC LoadPictureD PaintPicture 20 若要清除列表框的所有内容 可用来实现的方法是 A RemoveitemB ClsC ClearD 以上均不可以 21 当组合框的 属性值为 2 时 不允许用户在组合框中输入任何文本 A ListB TestC ListCountD Style 22 每次单击滚动条两端箭头时 滚动条输出的变化值是 5 应设置它的 属性 A SmallchangeB LargechangeC valueD Fast 23 在程序代码中清除图片框 Picture1 中的图形的正确语句是 A Picturel PictureB Picturel Picture LoadPicture C Picture Image D Picture Picture null 一个名为 pic2 gif 的图形文件 要在运行期间把该文件装入一个图片框 Picturel 应 执行的语句是 三 参考三 参考答案答案 1 1 选择题 选择题 1 D 2 C 3 A 4 D 5 C 6 B 7 A 8 B 9 C10 C11 A12 D13 D14 D15 C16 B 17 B 18 C 19 C 20 C 21 D 22 A 23 B 第七章第七章 数数组组 一 选择题一 选择题 1 下面的数组声明语句中 正确的是 A Dim a 1 2 As IntegerB Dim a 1 2 As Integer C Dim a 1 2 As IntegerD Dim a 1to0 2to0 As Integer 2 Dim a 2 4 所定义的数组元素个数是 第七章第七章数数组组 A 8B 15C 6D 10 3 要存放如下方阵的数据 在不浪费存储空间的基础上 能实现声明的语句是 123 246 369 A DimA 9 AsIntegerB DimA 3 3 AsInteger C DimA 1to1 3to 1 AsSingleD DimA 3to 1 1to3 AsInteger 1 以 Dimx 6 2to5 来声明一个二维数组 错误的选项是 A Lbound x 2 的返回值是 1B Ubound x 2 的返回值是 5 C Ubound x 1 的返回值是 6D Lbound x 1 的返回值是 0 5 以下说法不正确的是 A 使用 ReDim 语句可以改变数组的维数 B 使用 ReDim 语句可以改变数组的类型 C 使用 ReDim 语句可以改变数组的每一维的大小 D 使用 ReDim 语句可以对数组中的所有元素重新进行初始化 6 下列程序段错误的是 A DimaAsIntegerB Dima b a array 1 2 3 4 a array 1 2 3 4 b a C DimaAsVariantD Dima AsVariant a array 1 asd true a array 1 2 3 4 7 下列数组声明正确的是 A n 5B Dima 10 AsInteger Dima 1ton AsIntegerReDima 1to12 C Dima AsSingleD Dima AsInteger ReDima 3 4 AsIntegern 5 ReDima 1ton AsIntege r 8 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮 然后编写 如下事件过程 Private Sub Command1 Click Dim array1 10 10 As Integer Dim i j As Integer For i 1 To 3 For j 2 To 4 array1 i j i j Next j Next i Text1 Text array1 2 3 array1 3 4 End Sub 程序运行后 单击命令按钮 在文本框中显示的值是 A 12B 13C 14D 15 9 有如下程序 Private Sub Command1 Click Dim a a Array 1 2 3 4 5 For I LBound a To UBound a a I I a I Next I Print I LBound a UBound a a I End Sub 程序运行后 单击命令按钮 输出结果 A 40425B 50425C 不确 定D 程序出错 10 下列程序段的执行结果为 DimM 10 N 10 I 3 Fort 1to5 M t t N I 2 I t Nextt Printn I m I A 311B 315C 113D 153 11 有如下的程序 PrivateSubCommand1 Click Dim a 4 For i 0 To 4 a i i 1 t t 1 If t 3 Then a t 1 a i 2 Else a t a i End If If i 3 Then a i 1 a t 4 a 4 1 第七章第七章数数组组 Print a i Next i End Sub 程序运行后 单击命令按钮 则输出的结果是 A 11141B 12141 C 12142D 12121 12 在窗体上画一个命令按钮 然后编写如下事件过程 OptionBase1 PrivateSubCommand1 Click Dima a Array 1 3 5 7 9 j 1 Fori 5to1Step 1 s s a i j j j 10 Nexti Prints EndSub 运行上面的程序 单击命令按钮 其输出结果是 A 97531B 135C 957D 13579 13 有如下的事件过程 Private Sub Command1 Click Dim a 4 As Integer b 4 As Integer For k 0 To 2 a k 1 Val InputBox 请输入数据 b 3 k a k 1 Next k Print b k End Sub 运行程序后 依次输入 1 3 5 则执行的结果为 A 5B 3C 1D 0 14 有如下的事件过程 Private Sub Command1 Click Dim a 3 4 For i 1 To 3 For j 1 To 4 a i j i 1 2 j Print a i j Next j Print Next i End Sub 运行程序后 单击命令按钮 则执行的结果为 A 1234B 8765 34566543 56784321 C 5678D 4321 34566543 12348765 15 有如下的事件过程 Private Sub Command1 Click Dim A 1 To 4 For I 1 To 4 A I I Next I X 1 For Each X In A Print2 X Next X End Sub 运行程序后 单击命令按钮 则执行的结果为 A 1234B 2468 C 0000D 2222 16 下列程序 Dim a As Integer Private Sub Form Click N 5 m 6 ReDim a n To m For j Lbound a 1 To Ubound a 1 A j 1 Next j Print Lbound a 1 Ubound a 1 End Sub 运行后 单击窗体 则输出的结果是 A 00B 50C 56D 06 17 下列程序 Option Base 1 Const up1 10 第七章第七章数数组组 Private Sub Form Click Dim a up1 As Integer k 1 For j 1 To up1 a j j k k 1 k Next j For j 1 To 10 Print a j Next j End Sub 运行后 单击命令按钮 则输出的结果是 A 135910 B 1 3 5 7 9 C 12 34 56 78 910 D 1 23 45 67 89 10 18 下列程序 Option Base 1 Dim a As Integer Private Sub Form Click Dim i As Integer j As Integer ReDim a 3 2 For i 1 To 3 For j 1 To 2 a i j i 2 j Next j Next i ReDim Preserve a 3 4 For j 3 To 4 a 3 j j 9 Next j Print a 3 2 a 3 4 End Sub 运行后 单击窗体 则输出的结果是 A 013B 813C 712D 00 注 语句 ReDim Preserve a 3 4 表示重新定义数组 但不释放原来的数组元素的值 故 选择 B 若改为 ReDim a 3 4 表示重新定义数组 且释放原来的数组元素的值 置初 值为 0 则输出结果为 A 19 在窗体上用复制 粘贴的方法建立了一个命令按钮数组 数组名为 M1 设窗体 Form1 的标题为 hello 双击控件数组的第三个按钮 打开代码编辑器 编写如下代码 Private Sub Command1 Click Index As Integer Form1 Caption ok End Sub 运行后 单击按钮数组中的第一个按钮 窗体标题为 A helloB okC form1D Me 20 下列程序段的执行结果是 Dim m 5 6 s 5 For i 1 To 5 s i 0 For j 1 To 5 m i j i j Next j Next i For Each x In s Print x Next x A 2025303540B 4035302520 C 2030102535D 00000 21 下列程序的执行结果是 Private Sub Command1 Click Dim score 3 As Integer total As Integer Dim aa As Variant score 1 50 score 2 14 score 3 36 total 0 I 0 For Each aa In score I I 1 total total aa Print I aa total Next End Sub A 100B 000C 100D 出错 250501505025050 314642146421414 43610033610033636 运行程序后 单击命令按钮 则执行的结果为 22 编写如下事件过程 Private Sub Command1 Click Dim score 1 To 3 As Integer 第七章第七章数数组组 Dim i As Integer t As Variant For i 3 To 1 Step 1 score i 2 i Next i For Each t In score Print t Next End Sub 程序运行后 单击命令按钮 窗体上显示的值是 A 642B 246C 2D 6 23 有如下程序 OptionBase1 PrivateSubCommand1 Click Dimx y 3 3 x Array 1 2 3 4 5 6 7 8 9 Fori 1To3 Forj 1To3 y i j x i j If j i ThenPrinty i j Nextj Print Nexti EndSub 运行时 单击命令按钮 输出的结果是 A 123B 123C 1D 123 2462462446 4683693699 24 设有如下的记录类型 Type Student Number As string name As String age As Integer End Type 则正确引用该记录类型变量的代码是 A Student name 张红 B Dim s As Student s name 张红 C Dim s As Type StudentD Dim s As Type s name 张红 s name 张红 25 下列程序段的执行结果是 Dim a 3 3 For m 1 To 3 For n 1 to 3 If n m Or n 3 m 1 Then a m n 1 Else a m n 0 Next n Next m For m 1 To 3 For n 1 To 3 Print a m n Next n Print Next m A 100B 111C 000D 101 010111000010 001111000101 26 有如下的程序代码 Option Base 1 Private Sub Command1 Click Dim t As Integer Dim a As Variant a Array 2 4 6 8 10 1 3 5 7 9 For I 1 To 10 2 t a I a I a 10 I 1 a 10 I 1 t Next I For j 1 To 10 Print a j Next j End Sub 运行程序后 单击命令按钮 显示的结果是 A 24681013579B 13579246 810 C 97531108642D 108642975 31 27 有如下程序 Private Sub Form Click Static x 4 As Integer For i 1 To 4 第七章第七章数数组组 x i x i i 3 Next i Print For i 1 To 4 Print x i x i Next i End Sub 程序运行后 单击窗体三次 其最终结果是 A x 1 3x 2 6x 3 9x 4 12B x 1 9x 2 18x 3 27 x 4 36 C x 1 6x 2 12x 3 18x 4 24D x 1 12x 2 24x 3 3 6x 4 48 28 有如下程序 Private x 4 As Integer Private Sub Form Click For i 1 To 4 x i x i i 3 Next i Print For i 1 To 4 Print x i x i Next i End Sub 程序运行后 单击窗体二次 其最终结果是 A x 1 3x 2 6x 3 9x 4 12B x 1 9x 2 18x 3 27x 4 36 C x 1 6x 2 12x 3 18x 4 24D x 1 12x 2 24x 3 36x 4 48 注 上面两个题是静态局部数组与模块级数组的应用 29 如下程序段定义了学生成绩的记录类型 由学号 姓名 三门课程成绩 百分制 组成 TypeStud noAsInteger nameAsString 10 score 1to3 AsSingle EndType 若对某个学生的各数据项进行赋值 下列程序段正确的是 A DimSAsStudB DimSAsStud Stud no 0201S no 0201 Stud name 李平 S name 李平 Stud score 78 88 96S score 78 88 96 C DimSAsStudD DimSAsStud S no 0201Stud no 0201 S name 李平 Stud name 李平 S score 1 78Stud score 1 78 S score 2 88Stud score 2 88 S score 3 96Stud score 3 96 30 在窗体上画三个单选按钮 组成一个名为 chkOption 的控件数组 用于标识各个控件数 组元素的参数是 A TagB IndexC ListIndexD Name 31 在窗体上画一个命令按钮 名称为 Command1 然后编写如下事件过程 Option Base 0 Private Sub Command1 Click Dim city As Variant city Array 北京 上海 天津 重庆 Print city 1 End Sub 程序运行后 如果单击命令按钮 则在窗体上显示的内容是 A 空白B 错误提示C 北京D 上海 三 参考三 参考答案答案 1 1 选择题 选择题 1 B 2 B 3 D 4 A 5 B 6 A 7 D 8 A 9 D 10 C 11 B 12 D 13 C 14 A 15 B 16 C 17 C 18 B 19 B 20 D 21 A 22 B 23 D 24 B 25 D 26 C 27 B 28 C 29 C 30 B 31 D 第八章第八章 过过程程 一 选择题一 选择题 1 下面子过程语句说明合法的是 A Subf1 ByValn AsInteger B Subf1 n AsInteger AsInteger C Functionf1 f1AsInteger AsInteger D Finctionf1 ByValnAsInteger 2 要想在过程调用时对两个参数都设置为地址传递 下面的过程定义语句合法的是 A Sub Proc1 Byval n Byval m B Sub Proc1 ByRef n Byval m C Sub Proc1 n m D Sub Proc1 Byval n m 第十章第十章菜单与对话框菜单与对话框 3 下列关于过程叙述不正确的是 A 过程的传值调用是将实参的具体值传值递给形参 B 过程的传址调用是将实参在内存的地址传递给形参 C 过程的传值调用参数是单向传递的 过程的传址调用参数是双向传递的 D 无论过程传值调用还是过程传址调用 参数传递都是双向的 4 在通用过程中 要定义某参数是可变参数 在虚拟参数前要加的关键字是 A OptionalB ByvalC ByRefD ParamArray 5 子过程 Sub EndSub的形式参数可以是 A 常数 简单变量 数组变量和运算式B 简单变量 数组变量和数组元素 C 常数 简单变量 数组变量D 简单变量 数组变量和运算式 6 函数过程 用 Function 定义 与子程序过程 用 Sub定义 的最大区别是 A 函数过程有返回值B 子过程有返回值 C 函数过程可以带参数D 子过程可以带参数 7 以下描述正确的是 A 过程的定义可以嵌套 但过程的调用不能嵌套 B 过程的定义不可以嵌套 但过程的调用可以嵌套 C 过程的定义和过程的调用均可以嵌套 D 过程的定义和过程的调用均不能嵌套 8 以下关于过程及过程参数的描述中 错误的是 A 过程的参数可以是控件名称 B 用数组作为过程的参数时 使用的是 传地址 方式 C 只有函数过程能够将过程中处理的信息传回到调用的程序中 D 窗体可以作为过程的参数 9 以下叙述中错误的是 A 如果过程被定义为 Static 类型 则该过程中的局部变量都是 Static 类型 B Sub 过程中不能嵌套定义 Sub 过程 C Sub 过程中可以嵌套调用 Sub 过程 D 事件过程可以像通用过程一样由用户定义过程名 10 假定有如下的 Sub过程 SubS xAsSingle yAsSingle t x x t y y tMody EndSub 在窗体上画一个命令按钮 然后编写如下事件过程 PrivateSubCommand1 Click DimaAsSingle DimbAsSingle a 5 b 2 Sa b Printa b EndSub 程序运行后 单击命令按钮 输出结果是 A 52B