visual_Basic程序设计教程_课后习题答案及练习 (2)

考后答案网 第 1 页 共 32 页 第一章第一章 Visual Basic 程序设计概述程序设计概述 一 填空题一 填空题 1 Visual Basic 是一种面向 的可视化程序设计语言 采取了 的编程机制 2 在 VB 中工程文件的扩展名是 窗体文件的扩展名是 标准模块文件的扩展 名是 3 执行 工程 菜单下的 命令 可选择并添加 ActiveX 控件 4 Visual Basic 6 0 用于开发 环境下的应用程序 二 选择题二 选择题 1 下面不是 VB 工作模式的是 A 设计模式B 运行模式C 汇编模式D 中断模式 2 可视化编程的最大优点是 A 具有标准工具箱 B 一个工程文件由若干个窗体文件组成 C 不需要编写大量代码来描述图形对象 D 所见即所得 3 下列不能打开属性窗口的操作是 A 执行 视图 菜单中的 属性窗口 命令 B 按 F4 键 C 按 Ctrl T D 单击工具栏上的 属性窗口 按钮 4 下列可以打开立即窗口的操作是 A Ctrl D B Ctrl E C Ctrl F D Ctrl G 5 Visual Basic 的编程机制是 A 可视化 B 面向对象 C 面向图形 D 事件驱动 三 简答题三 简答题 1 代码窗口主要包括哪几部分 2 在工程资源管理器窗口中 主要列出了哪三类文件 3 窗体布局窗口的主要用途是什么 4 VB 的基本特点是什么 5 怎样理解可视化设计 6 怎要理解事件驱动编程 考后答案网 第 2 页 共 32 页 第二章第二章 简单的简单的 VB 程序设计程序设计 一 填空题一 填空题 1 设置是否可以用 Tab 键来选取命令按钮 应该用 属性 2 一个控件在窗体的位置由 和 属性决定 其大小由 和 属性决定 3 利用对象的属性 setfocus 可获得焦点 对于一个对象 只有其 visible 属性和 属性为 true 才能接受焦点 4 设置控件背景颜色的属性名称是 5 所有控件都具有的共同属性是 属性 6 一般情况下 控件有两个属性项的缺省值是相同的 这两个属性项是 7 VB 中的每个对象 控件 都有一组特征 这组特征称为 我们通过修改它可以控制对象的 外观和操作 8 通常情况下 VB 中一个工程主要包括如下四个文件 窗体文件 工程文件 类模块文件和 文件 后者的扩展名为 Bas 通常由 Basic 语言编写 是一个可共用的子程序 9 VB 有三种工作模式 分别是设计 Design 模式 和中断 Break 模式 二 选择题二 选择题 1 以下能够触发文本框 Change 事件的操作是 A 文本框失去焦点B 文本框获得焦点 C 设置文本框的焦点D 改变文本框的内容 2 应用程序设计完成后 应将程序保存 保存的过程是 A 只保存窗体文件即可 B 只保存工程文件即可 C 先保存工程文件 之后保存窗体文件 D 先保存窗体文件 或标准模块文件 之后还要保存工程文件 3 VB 应用程序的运行模式是 A 解释运行模式B 编译运行模式C 两者都有D 汇编模式 4 任何控件都具有的属性是 A TEXTB CAPTIONC NAMED FORECOLOR 5 决定控件上文字的字体 字形 大小及效果的属性是 A TEXTB CAPTIONC NAMED FONT 6 在窗体上建立了多个控件 如 TEXT LABEL1 COMMAND1 若要使程序一运行焦点就定位在 COMMAND1 控件上 应将 COMMAND1 控件的 设置为 0 考后答案网 第 3 页 共 32 页 A INDEXB TABINDEXC TABSTOPD ENABLED 7 运行时 当用户向文本框输入新的内容 或在程序代码中对文本框的 TEXT 属性进行赋值从而改变了文 本框的 TEXT 属性值时 将触发文本框的 事件 A CLICKB DBLCLICKC GOTFOCUSD CHANGE 8 在运行时 按 TAB 键跳过了一个可以获得焦点的控件 如文本框 则可能是因为 A 该控件的 TABSTOP 属性值为 TRUE B 该控件的 TABINDEX 属性值为 FALSE C 该控件的 ENABLED 属性值为 TRUE D 该控件的 ENABLED 属性值为 FALSE 9 为了防止用户随意将光标置于控件上 应 A 将控件的 TABINDEX 属性设置为 0 B 将控件的 TABSTOP 属性设置为 TRUE C 将控件的 TABSTOP 属性设置为 FALSE D 将控件的 ENABLED 属性设置为 FALSE 10 若要使标签控件显示时 不覆盖其背景内容 应设置标签控件的 属性 A BACKCOLORB BORDERSTYLE C FORECOLORD BACKSTYLE 11 如果要在文本框中输入字符时 只显示某个字符 如星号 运行时 在文本框中输入的字符仍然显 示出来 而不显示星号 原因可能是 A 文本框的 MULTILINE 属性值为 TRUE B 文本框的 LOCKED 属性值为 TRUE C 文本框的 MULTILINE 属性值为 FALSE D 文本框的 LOCKED 属性为 FALSE 12 在运行阶段 要在文本框 TEXT1 获得焦点时选中文本框中所有内容 对应的事件过程是 A Private Sub Text1 GotFocus Text1 SelStart 0 Text1 Sellength Len Text1 Text End Sub B Private Sub Text1 LostFocus Text1 SelStart 0 Text1 Sellength Len Text1 Text End Sub C Private Sub Text1 Change Text1 SelStart 0 Text1 Sellength Len Text1 Text End Sub D Private Sub Text1 SetFocus Text1 SelStart 0 考后答案网 第 4 页 共 32 页 Text1 Sellength Len Text1 Text End Sub 13 Visual Basic 继承了 Basic 语言简单易用的语法特点 同时支持面向对象的编程机制 其中构成其控件 对象 的三要素是 A 属性 事件 事件过程 B 控件 窗体 事件 C 属性 过程 方法 D 属性 事件 方法 14 决定标签 Label 显示的属性是 A Text B Name C Caption D Alignment 15 命令按钮的标题文字由 属性来设置 A Text B Caption C Name D 名称 16 若要设置文本的显示颜色 则可用 属性来实现 A BackColor B Forecolor C FillColor D Backstyle 17 在运行时 若要调用某命令钮的 Click 事件过程 则可设置该命令钮对象的 属性为 Ture 来实现 A Enabled B Value C Default D Cancel 18 在运行时 若要获得用户在文本框中所选择的文本 可通过访问 属性来实现 A SelStart B SelLenght C Text D SelText 三 简答题三 简答题 1 事件驱动的含意是什么 举例说明 2 交互式开发方法和传统的应用程序开发过程有什么不同 3 文本框在什么情况下使用 4 什么是工程 5 结构化程序设计的三种基本结构是什么 6 对象的三要素是什么 并分别进行简单的解释 7 为什么要生成可执行文件和制作安装盘 8 使用变量前先声明有什么好处 9 如何使用帮助功能 10 结构化程序设计的特点是什么 11 为了把焦点移到某个指定的控件 在代码中应使用的方法是什么 12 启动 Visua Basic 后 只创建了一个窗体 若此时保存 需要保存几个文件 各是什么文件 先保存的 是哪一个 13 为了防止文本框中的信息运行后被用户修改 应设置什么属性 考后答案网 第 5 页 共 32 页 第三章第三章 VB 基本语言基本语言 一 填空题一 填空题 1 一般可以使用 关键字声明常量 2 类型也称变体类型 是一种通用的 可变的数据类型 它可表示或存储任何一种数据类型 3 变量的声明分为两种方法 和 4 在 VB 中 用 语句设定数组的下界 用 和 语句 分别返回数组的上 下界 5 在代码模块中加入 Option Explicit 的目的是 6 function aa a1 as date optional a2 as boolean as single 写出 optional 命令的作用 7 在 VB 中 我们用一个简单的 语句就能实现退出程序 8 生成消息框的命令是 生成输入框的命令是 9 通用对话框 commondialog 属 activex 控件 它可以显示多个标准对话框 包括打开 另存为 字体 打印等对话框 若要显示所有文件 则应设置其属性 filter 若要使它显示为打印对话框 则应 使用什么方法 10 从字符串中任意位置截取字符的函数是 11 语句 For j 3 To 20 Step 3 使循环体执行了 次 12 对于正在使用的动态数组 Arraya 要增加一个单元 但不能破坏数组内的数据 则应使用语句 13 在 Visual Basic 中声明静态变量的关键字是 14 表达式 10 Mod 6 4 的值为 15 表达式 chr Asc a 5 的值为 16 VB 中使用注释有 2 种方法 即 和 17 VB 中的数据以四种形式存储 常量 和记录 18 为了在 VB 中存储一个 4 行 5 列的二维矩阵 需要定义一个整型的数组 请把数组定义语句补充完整 Dim Juzhen as Integer 19 控件数组由一组相同类型的控件组成 这些控件共用一个相同的控件名 但是每个控件都有一个唯一的 下标来区分 我们使用属性 来设置下标 20 在过程调用中 实现调用过程的实参和被调用过程的形参之间的数据传递有两种方式 按值传递和 21 为了保证程序中必须对变量的强制性定义 需要在代码模块的声明部分加入 语句 22 分析 For Next 循环结构的实例 For i 5 To 30 Step 2 中 循环体一共执行了 次 考后答案网 第 6 页 共 32 页 23 表达式 Mid UniversityOfPetroleum 8 4 的值为 24 常量分为普通常量和 常量 25 要将大写字母转换为小写字母 可使用 函数 26 不管焦点在哪个控件上 按 键相当于按了取消按钮 27 执行 工程 菜单下的 命令 可选择并添加 ActiveX 控件 28 是程序中 VB 停止执行的地方 29 逻辑常量为 True 或 30 使用了 的声明后 当程序中使用未经声明的变量时 程序运行时会报错 31 要将小写字母转换为大写字母 可使用 函数 32 自字符串 N1 位开始向右取 N2 个字符 要使用 函数 33 日期常量表示时 用符号 将日期型数据括起来 34 局部变量只能在 中声明和使用 35 模块级变量的声明关键字是 Dim 或 36 函数 Abs x 的功能是 37 表达式 3 6 5 的值是 二 选择题二 选择题 1 以下哪个是合法的变量 A rightB abc 123C 123 abcD ab123c 2 下列说法错误的是 A 在同一模块不同过程中的变量可以同名 B 不同模块中定义的全局变量不可以同名 C 引用另一模块中的全局变量时 必须在变量名前加模块名 D 同一模块中不同级的变量可以同名 3 把 MsgBox 的返回值转换为数值应该使用的函数是 A Log B Str C Len D Val 4 语句 DIM AA 3 4 5 中定义的数组有 个元素 A 12 B 60 C 120 D 345 5 下面程序运行后输出的结果是 A CHINA B STRING 3 A PRINT B 考后答案网 第 7 页 共 32 页 END A CHI B CCC C INA D AAA 6 以下语句的输出结果是 Print Format 32548 5 000 000 00 A 32548 5 B 325 485 00 C 032 548 50 D 32 548 50 7 以下叙述中错误的是 A 如果过程被定义为 Static 类型 则该过程中的局部变量都是 Static 类型 B Sub 过程中不能嵌套定义 Sub 过程 C Sub 过程中可以嵌套调用 Sub 过程 D 事件过程可以像通用过程一样由用户定义过程名 8 Visual Basic 提供的 On Error Resume next 错误陷阱语句表示 A 当发生错误时 使程序转跳到语句标号为 0 的程序块 B 当发生错误时 不使用错误处理程序块 C 当发生错误时 忽略错误行 继续执行下一语句 D 当发生错误时 终止本过程执行 继续执行下一过程 9 在 Visual Basic 中 若要将控制权交给操作系统则通过 的语句 A End B Exit Do C Exit Sub D DoEvents 10 在 Visual Basic 中语句的续行号采用 A 空格与下划线 B 下划线与空格 C 空格与短线 D 短线与空格 11 假定有以下程序段 For i 1 to 3 For j 5 to 1 Step 1 Print i j Next j i 则语句 Print i j 的执行次数是 A 15 B 16 C 17 D 18 12 从键盘上输入两个字符串 分别保存在变量 str1 str2 中 确定第二个字符串在第一个字符串中起始位 置的函数是 A Left B Mid C String D Instr 13 如果将布尔常量值 TRUE 赋值给一个整型变量 则整型变量的值为 A 0B 1C TRUED FALSE 考后答案网 第 8 页 共 32 页 14 下列叙述不正确的是 A 注释语句是非执行语句 仅对程序的内容起注释作用 它不被解释和编译 B 注释语句可以放在代码中的任何位置 C 注释语句不能放在续行符的后面 D 代码中加入注释语句的目的是提高程序的可读性 15 语句 PRINT INT 13 2 INT 13 2 的输出结果为 A INT 13 2 13 2B INT 13 2 13 2 C INT 13 2 13D INT 13 2 14 16 如果 TAB 函数的参数小于 1 则打印位置在第 列 A 0B 1C 2D 3 17 变量未赋值时 数值型变量的值为 A 0B 空C 1D 无任何值 18 下列语句中正确的是 A txt1 text txt2 text txt3 textB command1 name cmdok C 12label caption 1234D a inputbox hello 19 假设变量 BOOLVAR 是一个布尔型变量 则下面正确的赋值语句是 A BOOLVAR TRUE B BOOLVAR TRUE C BOOLVAR TRUE D BOOLVAR 320 判断循环结构的类型和循环体的执行次数 正确的选项是 A 当型循环 20 次B 直到型循环 10 次 C 当型循环 10 次D 直到型循环 20 次 26 在程序中 使用 InputBox 函数可以接受用户的输入 如果要把它的返回值转换为数值型的数据 应该 使用的函数是 A ValB Len C Str D Log 27 动态数组因为在程序运行前无法确定数组的大小 所以经常根据程序的运行情况 对数组进行重新定义 以下关于 VB 中动态数组的叙述中不正确的是 A 可以用 ReDim 语句重新定义动态数组 并且可以进行多次重定义 B 首次用 Dim 进行动态数组声明的时候 必须指明它的类型和上下界 C Preserve 为 ReDim 语句的可选参数 用于保留动态数组原来的内容 D 当对动态数组使用 Erase 语句进行释放操作时 将释放其内存 28 VB 中的控件也叫做部件或组件 主要包括三类 以下哪一项不属于 VB 控件的分类 A 控件 B 可插入对象 C ADO 控件 D ActiveX 控件 29 表达式 4 5 6 7 8 Mod 9 的值是 A 4 B 5 C 6 D 7 30 可以同时删除字符串前导和尾部空白的函数是 A Ltrim B Rtrim C Trim D Mid 三 简答题三 简答题 1 全局变量声明有哪些限制 2 字符串是否可以自动转换为数字类型 3 用 Format 函数格式化后的字符格式在不同区域环境下的输出是否相同 为什么 4 在 InputBox 函数中 哪一个参数是必需的 5 在 MsgBox 函数中哪一个参数是必须的 6 在什么情况下使用过程 7 为什么要进行程序调试 8 调试程序有哪些手段 考后答案网 第 11 页 共 32 页 9 用语句 Dim A 3 To 5 As Integer 定义的数组的元素个数是多少 10 设有如下的 Visual Basic 表达式 5 x 2 3 x 2 Sin a 3 与它对应的数学式是什么 11 数学式对应的 VB 表达式是什么 3 2 byax 12 表达式 2 3 And 44 的值是什么 13 怎样在程序中设置断点 14 在什么情况下可以设置断点 15 程序出错的类型有哪几种 16 在同一模块 不同过程中声明的相同变量名 两者是否表示同一个变量 为什么 17 什么情况下会出现 数组下标越界错误 18 逐语句和逐过程有什么区别 19 表达式 2 75 2 3 45 的值是什么 20 在程序设计中为什么尽量不用 GoTo 语句 四 读程序题四 读程序题 1 分析以下程序 写出运行结果 Private Sub Form Click score Int Rnd 10 80 Select Case score Case Is 60 A F Case 60 To 69 A D Case 70 To 79 A C Case 80 To 89 A B Case Else A A End Select Print A End Sub 2 读下面的程序 分析其功能 写出运行结果 考后答案网 第 12 页 共 32 页 在窗体上有一个命令按钮 名称为 Command1 然后编写如下程序 Private Sub Command1 Click For I 1 To 4 For J 0 To I Print Chr 65 I Next J Print Next I End Sub 程序运行后 如果单击命令按钮 则在窗体上显示的内容是什么 3 阅读下面的程序 分析并写出其功能 Sub insert a As Single ByVal x As Single Dim m as integer n as integer n 1 Do While na n n n 1 Loop For m 20 1 To n Step 1 a m 1 a m Next m a n x End Sub 4 分析以下程序 写出运行结果 Sub subP b As Integer For i 1 To 4 b i 2 i Next i End Sub Private Sub Commandl Click Dim a 1 To 4 As Integer 考后答案网 第 13 页 共 32 页 a 1 5 a 2 6 a 3 7 a 4 8 subP a For i 1 To 4 Print a i Next i End Sub 运行上面的程序 单击命令按钮 输出结果是什么 5 分析以下程序 写出运行结果 Sub sele Dim n as Integer i 21 n 3 Do While i n i i n Loop Print i End Sub 6 分析以下程序 写出运行结果 Sub selectPrint Dim a as Integer Dim b as Integer Dim c as Integer a 2 b 5 c 2 If a b and a c or b c Then Print a a a 2 Else Print b EndIf 考后答案网 第 14 页 共 32 页 Print a b c End Sub 7 分析以下程序 写出运行结果 Sub swap Dim x as Integer Dim y as Integer Dim z as Integer x 1 y 2 z 0 Print x y z x x y x x z Print x y z End Sub 8 分析以下程序 写出运行结果 Sub selectPrint Dim a as Integer Dim b as Integer Dim c as Integer a 3 b 3 c 2 If a b and a c Then Print a Print a b c End Sub 五 编程题五 编程题 1 输入一年号 判断它是否是闰年 界面如下图所示 包括两个标签 一个文本框和一个命令按钮 提示提示 如果此年号能被 400 整除或者不能被 400 除尽 也不能被 100 除尽 但能被 4 整除 则它是闰年 否则 不是 闰年 2 输入两个正整数 m n 求 m 和 n 的最大公约数 要求建立如下图所示的窗体 其中主要的控件包括 两个标签 Lable1 Lable2 两个文本框 Text1 Text2 和一个按钮 Command1 考后答案网 第 15 页 共 32 页 3 输入某学生成绩 百分制 若是 100 成绩 90 输出优秀 若是 90 成绩 80 输出良好 若是 80 成 绩 70 输出中等 若是 70 成绩 60 输出及格 若是 60 成绩 0 输出不及格 若是其他数则输出 error 信 息 4 在窗体中显示从 9 号字型到 16 号字型 5 在有序序列中插入一个数 使插入后的数列仍然有序 设按由小到大排列 6 编程实现二维数组转置 7 随机输入 10 个 100 以内的整型数 计算其和及平均值 8 找出所有的水仙花数 水仙花数是个三位数 它的各位数字的立方和等于这个三位数本身 例如 371 33 73 13 则 371 是水仙花数 9 从键盘输入一个大于 2 的正整数 判断该数是否是素数 10 求二维数组中的最小值及其所在行号 列号 11 求一元二次方程 ax2 bx c 0 的根 包括实根和复根 12 输入一个正整数 n 计算出 n 并输出 13 Faibonacci 数列为 0 1 1 2 3 5 8 13 计算并输出第 20 项以及前 20 项的和 第四章第四章 常用控件与窗体常用控件与窗体 一 填空题一 填空题 1 向列表框控件添加新项目的方法是 2 在 VB 中 最主要的两种对象是 和 3 当窗体启动时可通过 属性控制窗体位于所有者的中心位置 4 若要将窗体 Form1 隐藏起来 则可通过执行代码 来实现 5 要使装入到列表框中的数据项能自动按字母顺序排序 应设置该控件的 属性为 6 窗体上放置了若干个文本框和命令按钮 当窗体装入后 要将焦点自动定位到文本框 Text1 上 则在设 计时需要将 控件的 属性设置为 7 在标签控件中通过编程使文字换行用的代码是 8 设置计时器控件只能触发 事件 9 设置计时器对象触发事件的时间间隔用 属性 10 滚动条控件主要支持两个事件 它们是 事件 考后答案网 第 16 页 共 32 页 11 要使鼠标停留在按钮上显示特殊的鼠标形状 应设置的属性值是 12 设某列表框共有 10 项 按题目要求补齐程序 完成相应的功能 1 按下命令按钮 Command1 时将列表框第 8 项的内容显示在窗体上 Private Sub Command1 Click List 7 True Print List1 End Sub 2 单击列表框某一项时立即将该项打印在窗体上 Private Sub List1 Click Print End Sub 3 按下命令按钮 Command1 时在窗体上删除第 1 3 5 7 9 项 Private Sub Command1 Click For I 1 To 5 List1 Next I End Sub 4 在列表框的每一项之后插入一个新的项 Private Sub Command1 Click For I 1 to 10 X InputBox 请输入插入的第 号字型 Next i End Sub 5 参考代码如下 Private Sub Command1 Click Dim a 1 To 11 As Single 定义静态数组 a 含 11 个元素 Dim i j As Integer Dim num As Single 给数组元素赋初值 即原始队列 a 1 3 a 2 5 a 3 7 a 4 8 a 5 9 a 6 13 a 7 16 a 8 19 a 9 33 a 10 38 考后答案网 第 34 页 共 32 页 输出原始队列 For i 1 To 10 Label2 Caption Label2 Caption Next j Print Next i 数组转置 For i 1 To N For 循环 i 从 1 变化到 N For j 1 To i 交换 Temp a i j a i j a j i a j i Temp Next j Next i 输出转置后的数组 Print 转置后的数组 For i 1 To N For 循环 i 从 1 变化到 N For j 1 To N Print a i j Next j Print Next i End Sub 7 参考代码如下 Private Sub Form Click Dim a 10 As Integer i As Integer Dim sum As Integer ave As Integer sum 0 考后答案网 第 36 页 共 32 页 For i 1 To 10 a i Int Rnd 101 sum sum a i Next i ave sum 10 Print sum ave End Sub 8 参考代码如下 Private Sub Form Load Dim i j k Flower As Integer Show For i 1 To 9 For j 0 To 9 For k 0 To 9 Flower i 100 j 10 k If Flower i 3 j 3 k 3 Then Print Flower 是水仙花数 Next k Next j Next i End Sub 9 程序参考代码如下 Private Sub Command1 Click Dim m i y As Integer m Val Text1 Text If m 2 Then Label2 Caption 输入数据有错 Else k Sqr m 1 For i 2 To k y m Mod i If y 0 Then Exit For 考后答案网 第 37 页 共 32 页 Next i If y 0 Then Label2 Caption m Next j Print 输完一行元素后输出一个换行 Next i 设定初始值 min a 1 1 row 1 line 1 寻找最小数 考后答案网 第 38 页 共 32 页 For i 1 To N For j 1 To N If a i j min Then min a i j row i line j End If Next j Next i 输出结果 Print 最小值是 min Print 在第 row 行第 line 列 End Sub 11 参考代码如下 Private Sub Command1 Click Dim a b c delt realpart imagpart As Single a Val Text1 Text b Val Text2 Text c Val Text3 Text delt b b 4 a c If a 0 Then Label2 Caption 是一元一次方程 If b0 then Text4 Text x1 c b Else If c 0 then Text4 Text 有无穷根 Else Text4 Text 无根 End if End if Else 下面嵌套块 If 语句 考后答案网 第 39 页 共 32 页 If delt 0 Then Label2 Caption 有两个相等的实根 Text4 Text x1 b 2 a Text5 Text x2 b 2 b ElseIf delt 0 Then Label2 Caption 有两个不等的实根 Text4 Text x1 b Sqr delt 2 a Text5 Text x2 b Sqr delt 2 a Else Label2 Caption 有两个共轭复根 realpart b 2 a imagpart Sqr delt 2 a Text4 Text x1 realpart imagpart i Text5 Text x2 realpart imagpart i End If 此行 End If 部分与内层的块 If 语句对应 End If 此行 End If 部分与外层的块 If 语句对应 End Sub 12 参考代码如下 Private Sub Command1 Click Dim n i t As Long n Val Text1 Text i 1 t 1 If n 0 Then Label2 Caption error ElseIf n 0 Then Label2 Caption 0 1 Else Do While i n t t i i i 1 Loop 考后答案网 第 40 页 共 32 页 Label2 Caption n t End If End Sub 13 参考代码如下 Private Sub Form Load Dim Prev Last NewOne sum As Long Dim i As Integer Prev 0 Last 1 sum Prev Last For i 3 To 20 NewOne Prev Last sum sum NewOne Prev Last Last NewOne Next i Label1 Caption 第 20 项为 NewOne Label2 Caption 前 20 项的和为 sum End Sub 第四章第四章 常用控件与窗体常用控件与窗体 一 填空题一 填空题 1 AddItem 2 窗体 控件 3 StartUpPostion 4 form1 hide 5 sorted ture 6 text1 tabindex 0 7 chr 10 8 timer 9 interval 10 scroll 和 change 事件 11 mousepointer 12 selected text list1 text removeitem 2 i 1 x 2 i 1 考后答案网 第 41 页 共 32 页 13 change value scrol value 14 List 15 Checked 16 keypress 17 组合框 18 Form2 Show 1 19 Click 或鼠标单击 二 选择题二 选择题 1 C 2 B 3 A 4 C 5 A 6 A 7 C 8 A 9 C 10 B 11 C 12 C 13 A 14 D 15 A 16 A 17 D 18 D 19 D 20 A 21 C 22 B 三三 简答题简答题 考后答案网 第 42 页 共 32 页 1 单选按钮用来显示一个可以打开或关闭 选项 而且在同一组中的单选按钮控件 用户只能选择其中的一 项 2 主要是用鼠标拖动滑块时对 Value 属性的影响不同 3 快捷键是执行某一个菜单项的键盘命令 常用形式 Ctrl 字母 访问键是打开一个菜单的键盘命令 常用 形式 Alt 字母 4 Scroll 事件 5 MenuItem Enabled False 6 Interval 属性 7 单选按钮用于只能选择一个的情况下 复选框 即检查框 用于可以选择多个的情况下 8 为一个菜单项设置热键时需要在相应字符前面加 设置快捷键需要在菜单编辑器中选择 9 菜单的形式有两种 下拉式菜单和弹出式菜单 10 在 KeyPress 事件中 若想取消用户刚输入的字符 只要将该事件的参数设置为 0 即可 11 框架主要是用作容器 可以实现多组单选按钮 并且可以美化界面 12 250 13 在一个窗体的程序代码中可以访问另一个窗体上控件的属性 在访问时只要写上窗体名称即可 14 先建立框架 然后再在其中建立控件 15 下拉式组合框 简单组合框 下拉式列表框 四 读程序题四 读程序题 1 输出结果为 498 5 2 结果如下 14 五 编程题五 编程题 1 参考代码如下 Private Sub Form Load Timer1 Interval 1000 End Sub Private Sub Timer1 Timer Txttime text Time End Sub 考后答案网 第 43 页 共 32 页 2 参考代码如下 Private Sub Command1 Click Dim Char As String 1 Char Trim Text1 Text Text2 Text Text2 Text Spc 5 Char Spc 10 Str Asc Char chr 13 chr 10 Text1 SetFocus Text1 SelStart 0 Text1 SelLength Len Text1 Text End Sub 3 具体代码略 4 具体代码略 5 具体代码略 6 具体代码略 7 具体代码略 六 程序分析填空题六 程序分析填空题 1 结果如下 Private Sub btnCut Click 请补充 Str1 text1 selText text1 selText End Sub 2 结果如下 Private Sub Form Load Dim sum count as Integer 请补充 Sum 0 Count 0 Do while count 100 请补充 Count count 1 考后答案网 第 44 页 共 32 页 Sum sum count Loop Text1 Text sum End Sub 3 结果如下 Private Sub Command1 Click Dim i As Integer Dim s As String s txtname Text 爱好 For i 0 To List1 ListCount 1 请补充 If List1 Selected i Then S s List1 List i End If Next Label3 Caption s End Sub 4 结果如下 Private Sub Form Load Show 请补充 Timer1 Interval 1000 End Sub Private Sub Timer1 Timer 请补充 Form1 Print Int Rnd 10 1 End Sub 第五章第五章 文件文件 一 填空题一 填空题 1 顺序 随机 二进制 2 dir1 的 chang list1 path dir1 path 考后答案网 第 45 页 共 32 页 3 目录列表框 二 选择题二 选择题 1 C 2 C 三三 简答题简答题 1 存放在外部存储介质上的数据和程序等 2 文件的存取分为顺序型 随机型 二进制型 其编码方式分为 ASC 码文件和二进制文件 3 顺序文件 文件中每一个字符都被假设为代表一个文本字符或者文本格式序列 数据被存储 ANSI 字符 这类文件的信息按照顺序从头到尾排列 只提供第一条记录的存储位置 因而顺序文件只用于要求少量空间 不经常进行数据修改的有规律的文件 随机文件 随机文件由记录组成 能够随机存取相同长度的数据记录 每一数据记录内可以设计各种栏位 以容纳不同的数据 各数据记录长度相同 数据类型可以不同 随机文件有一定的磁盘空间的浪费 二进制文件 二进制文件与随机文件类似 但不必限制记录的长度 可以用喜欢的方式存取文件 二进制 访问能提供对文件的完全控制 通过使用二进制型访问可使磁盘空间的使用降到最小 4 参见教材 5 Print 语句用来将一个或多个格式化的数据写入顺序文件 Write 语句的用法和 Print 语句相似 不同 的是 输出的数据采用紧凑格式存放 数据项之间自动用逗号分开 输出的字符串自动用引号扩起来 6 在读取数据时 如果已到达文件结尾 继续读会被终止并产生一个错误 为了避免出错 常在读操作前 用 EOF 函数检测是否已经达到文件末尾 四 编程题四 编程题 1 参考代码如下 Private Sub Command1 Click Dim if1 As Integer if2 As Integer Dim sf1 As String sf2 As String Dim buffer As Byte 使用动态数组 sf1 InputBox 请输入源文件名 源文件 sf2 InputBox 请输入目标文件名 目标文件 If sf1 Or sf2 Then Exit Sub if1 FreeFile 考后答案网 第 46 页 共 32 页 Open sf1 For Binary As if1 打开源文件 if2 FreeFile Open sf2 For Binary As if2 创建目标文件 ReDim buffer 1 To LOF if1 分配内存 Get if1 buffer 读源文件 Put if2 buffer 写目标文件 Close 关闭所有打开的文件 MsgBox 完成复制 End Sub 2 参考代码如下 Private Sub cmdCopy Click Dim destFile As String If fSource FileName Then Exit Sub 先选定文件 destFile InputBox 输入目标文件名 If destFile Then 不为空 FileCopy fSource FileName destFile 复制文件 End If End Sub Private Sub cmdExit Click End End Sub Private Sub cmdKill Click Dim res If fSource FileName Then Exit Su