《Visual-Basic程序设计教程》自学指导书

1 Visual Basic 程序设计教程 自学指导书自学指导书 作业及答案 一 选择题 1 为了使文本框显示滚动条 必须首先设置的属性是 A AutoSize B Alignment C Multiline D ScrollBars 2 改变控件在窗体中的上下位置应修改控件的 属性 A Top B Left C Width D Height 3 在 form1 窗体启动时 为使 form1 text1 文本框首先获得焦点 可以在窗体的 form1 Load 事件过程中加入 语句 A text1 Index 0 B text1 TabIndex 0 C text1 Appearance D text1 tag 0 4 将命令按纽 Command1 设置为不可见 应修改该命令按纽的 属性 A Visible B Value C Caption D Enabled 5 摇改变 Label 控件中文字的颜色 可以设置 Label 控件的 属性 A FontColor B FillColor C ForeColor D BackColor 6 执行后将会删除文本框 Text1 中选中的文本的语句是 A Text1 Text B Text1 SelText C Text1 Clear D Text1 SelText Clear 7 以下控件中没有 Caption 属性的是 A 标签框 B 文本框 C 框架 D 命令按纽 8 复选框对象是否被选中 是由其 属性决定的 A Checked B Value C Enabled D Selected 9 要使 ListBox 可以单击或按空格键来实现复选 则属性 MultSelect 的值应设为 A 1 B 2 C 3 10 以下不允许用户在程序运行时输入文字的控件是 A 文本框 B 下拉式组合框 C 简单组合框 D 下拉式列表框 11 不能通过 来删除列表框中的选择项 A List 属性 B RemoveItem 方法 C Clear 方法 D Text 属性 12 组合框的 3 中不同风格 下拉组合框 简单组合框和下拉列表框由 属性决定 A Style B BoderStyle C FillStyle D DrawStyle 13 单击滚动条两端的任意一个滚动箭头 将触发该滚动条的 事件 A Scroll B KeyDown C Change D DragOver 14 要将定时器控件的宽度设置增大一些 以下叙述正确的是 A 设置定时器的 Width 属性 B 设置定时器的 Left 属性 C 设置定时器的 Height 属性 D 无法对定时器的宽度进行设置 15 设计动画时通常使用时钟控件 来控制动画速度 A Enabled B Interval C Timer D Move 16 可以使用 SetFocus 方法的控件是 A Frame B Label C Form D Timer 17 不能响应 Click 事件的控件是 A 列表框 B 图片框 C 窗体 D 计时器 18 定时器的 Interval 属性以 为单位指定 Timer 事件之间的时间间隔 A 分 B 秒 C 毫秒 D 微秒二 问答题 二 填空题 2 1 函数过程 Function Pocedure 用来完成特定的功能并 2 子过程是 的函数 又常被称为 Sub 过程 在事件过程或其它子过程中可以 调 用过程 3 在事件过程或其它过程中可以 调用函数过程 4 函数过程 返回一个值 5 VB 的代码存储在模块中 在 VB 中提供了三种类型的模块 和 6 菜单控件只包一个事件 当用鼠标单击或键盘选中后按 回车 键时触发该事件 除 分隔条以外的所有菜单控件都能识别该事件 7 使用菜单编辑器创建弹出菜单时 为不可见 Visible 属性设置为 False 8 Sub 过程与 Function 过程最根本的区别是 9 通用过程可以通过执行 工具 菜单中的 命令来建立 10 使用 Public Const 语句声明一个全局的符号常量时 该语句应放在 三 问答题 1 什么是多文挡界面 MDI 2 什么是文件 3 文件管理系统有什么作用 4 文件系统有哪些控件 5 磁盘驱动器列表发生变动后 如何通知目录列表 6 目录列表发生变动后 如何通知文件列表 7 文件按照其数据存放的方式 分为几种类型 8 如何打开顺序文件 9 如何关闭顺序文件 10 如何向磁盘中读写数据 11 讨论一下 PathName 属性 12 顺序文件 随机文件和二进制文件各有什么特点和用途 13 什么是工程 14 什么是过程 15 选中一个窗体 启动菜单编辑器的方法有哪三种 16 什么是动态菜单 17 已知弹出菜单的名是 aa 填补弹出菜单的代码 18 现使用菜单编辑器设计弹出菜单 菜单第一项 使顶级菜单项目 的 Caption 为 弹出 菜单 Name aa Visible 没有选中 填补弹出菜单的代码 四 编程题四 编程题 1 编写程序 计算 1 2 3 4 100 2 我国现有人口为 12 亿 设年增长率为 1 编写程序 计算多少年后增加到 16 亿 3 给定三角形的三条边长 计算三角形的面积 编写程序 首先判断给出的三条边能否构 成三角形 如可以构成 则计算并输出该三角形的面积 否则要求重新输入 当输入 1 时 结束程序 4 税务部门征收所得税 规定如下 1 收入在 200 元以内 免征 2 收入在 200 400 内 超过 200 元的部分纳税 3 3 收入超过 400 元的部分 纳税 4 4 当收入达到 5000 元或超过时 将 4 税金改为 5 编程序实现上述操作 3 5 编写程序 打印如下所示的 数字金字塔 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 6 从键盘上输入两个正整数 M 和 N 求最大公因子 7 从键盘上输入一个学生的学号和考试成绩 然后输出该学生的学号 成绩 并根据成绩 按下面的规定输出对该学生的评语 成绩 80 100 60 79 50 59 40 49 0 39 评语 Very good Good Fair Poor Fail 一 选择题 1 C 2 A 3 B 4 A 5 C 6 B 7 B 8 B 9 1 10 D 11 D 12 A 13 C 14 D 15 B 16 C 17 D 18 C 一 填空题 1 返回相应的结果 2 没有返回值 按名称 3 按名称 4 以该函数名 5 窗体模块 标准模块 类模块 6 Click 7 顶级菜单项目 8 Sub 过程的过程名不能返回值 而 Function 过程能通过过程名返回值 9 添加过程 10 标准模块的通用声明段 1 什么是多文挡界面 MDI 解答 多文挡界面 Mu1tiple Document Interface 是指在一个父窗口下面可以同时打开 多个子窗口 子窗口归属于父窗口 如果父窗口关闭 则所有子窗口全部关闭 2 什么是文件 解答 所谓文件是指存放在外部存储介质上的数据和程序等 3 文件管理系统有什么作用 解答 为了方便用户存取 在现代的计算机系统中 都包含有文件管理系统 用户可以对 文件进行各种各样的处理和操作 如选择 打开和删除等 4 文件系统有哪些控件 解答 在 VB6 0 中包括四个文件类控件 它们分别是 DriveListSox 控件 DirListBox 控件 FileListBox 控件和 CommDialog 控件 5 磁盘驱动器列表发生变动后 如何通知目录列表 解答 Private Sub Drive1 Change Dir1 Path Drive1 Drive 设置 DirListBox 控件的路径与 DriveListBox 控件同步 End Sub 6 目录列表发生变动后 如何通知文件列表 解答 Private Sub Dir1 Change File1 Path Dir1 Path End Sub 7 文件按照其数据存放的方式 分为几种类型 解答 按照文件的存取方式及其组成结构可以分为两种类型 顺序文件和随机文件 8 如何打开顺序文件 解答 打开顺序文件的语法结构如下 4 Open pathname For mode Access access lock As filenumber Len reclength Open 语句的语法参数及其说明如下所示 参数 说明 Pathname 指定文件路径和文件名 Mode 指定文件方式 有 Append Binary Input Output 或 Random 方式 Access 说明打开的文件可以进行的操作 有 Read Write 或 Read Write 操作 Lock 说明其它进程能够对打开的文件进行的操作 有 Shared Lock Read Lock Write 和 Lock Read Write 操作 Filenumber 一个有效的文件号 范围在 1 到 511 之间 Reclength 小于或等于 32 767 字节 的一个数 对于用随机访问方式打开的文件 该值就是记录长度 对于顺序文件 该值就是缓冲字符数 9 如何关闭顺序文件 解答 Close 10 如何向磁盘中读写数据 解答 从顺序文件中读取数据的语法结构如下 Input filenumber varlist Input 语句的语法参数及其说明如下 Filenumber 有效的文件号 Varlist 用逗号分界的变量表 将文件中读出的值分配给这些变量 向顺序文件中写入数据的语法结构如下 Write filenumber output1ist Write 语句的语法具有以下几个部分 它的参数及说明如下 Filenumber 一个有效的文件号 Outputlist 要写入文件的表达式 用逗号将这些表达式分界 11 讨论一下 PathName 属性 解答 pathname 为所要执行的应用程序的名称及其路径和必要的参数 12 顺序文件 随机文件和二进制文件各有什么特点和用途 解答 所谓顺序文件 通常指的是普通的文本文件 文件中的字符包括文本字符及控制字 符 如 Chr 14 换行符 GR LF Chr 13 Chr 10 等 由于这类文件的信息是按照顺序从头到尾按顺序排列 而且只提供第一条记录的存储位置 所以对其中的数据信息进行处理是相当困难的 随机文件由记录组成 能够随机存取其相同长度的数据记录 每一数据记录内可以设计各 种栏位以容纳不同的数据 此种文件数据是以二进制的位的形式保存在磁盘上 随机文件 比顺序文件占用内存多 二进制文件的数据是以二进制格式保存的 能用来存储任何数据 这种文件的灵活性最大 但程序的工作量大 二进制访问能够提供对文件的完全控制 因为文件中的字节可以代表 任何东西 13 什么是工程 解答 工程是构成应用程序文件的集合 工程文件是与工程相关联的所有文件和对象以及 所设置的环境信息的一个简单的列表 所有文件和对象也可以被其它的工程所共享 14 什么是过程 解答 一个应用程序是由若干个模块组成的 而每个模块又是由若干个更小的代码片段组 成 将组成这些模块的代码片段称为过程 通过过程 可以将整个程序按功能进行分块 每个过程用来完成一项特定的功能 5 15 选中一个窗体 启动菜单编辑器的方法有哪三种 解答 1 使用菜单 工具 菜单编辑器 2 使用工具栏按钮工具栏快捷键 3 键盘快捷键 CTRL E 16 什么是动态菜单 解答 动态菜单 就是菜单中列出了最近使用过的文件名 这部分内容是随着应用程序的 运行而不断改变着的 在运行时使菜单可以增长 17 已知弹出菜单的名是 aa 填补弹出菜单的代码 解答 Private Sub Form MouseDown Button As Integer Shift As Integer X As Single Y As Single 在窗体上按下鼠标 If Btton 2 Then 如果是右键 PopupMenu aa 弹出菜单 End If End Sub 18 现使用菜单编辑器设计弹出菜单 菜单第一项 使顶级菜单项目 的 Caption 为 弹出 菜单 Name aa Visible 没有选中 填补弹出菜单的代码 解答 Private Sub Form MouseDown Button As Integer Shift As Integer X As Single Y As Single 在窗体上按下鼠标 If Btton 2 Then 如果是右键 PopupMenu aa 弹出菜单 End If End Sub 四 程序题 1 编写程序 计算 1 2 3 4 100 解答 使用 For 循环语句 程序如下 Private Sub Form Click Static Sum As Integer For I 1 To 100 Sum Sum I Next I Print Sum End Sub 程序运行后 单击窗体 输出结果为 5050 如果使用当循环语句 则程序如下 Private Sub Form Click Static Sum As Integer I 1 While i 100 Sum Sum I I I 1 Wend 6 Print Sum End Sub 2 我国现有人口为 12 亿 设年增长率为 1 编写程序 计算多少年后增加到 16 亿 解答 程序如下 Private Sub Form Click Dim p As Double Dim r As Single Dim n As Integer P r 0 01 While p P P P r N N 1 Wend P Int P Print N 年后 全国人口为 P End Sub 运行程序 单击窗体 输出结果为 29 年后 全国人口为 3 给定三角形的三条边长 计算三角形的面积 编写程序 首先判断给出的三条边能否构 成三角形 如可以构成 则计算并输出该三角形的面积 否则要求重新输入 当输入 1 时 结束程序 解答 从几何学可知 三角形的 两边之和大于第三边 因此 如果输入的三角形的三条边 中两边之和小于或等于另一边长 则不能构成三角形 在这种情况下 给出适当的信息 并要求重新输入 如果能构成三角形 则输出该三角形的面积 程序如下 Private Sub Form Click Dim a b c s t As Single Start A InputBox 请输入 A 边的边长 A Val a If a 1 Then End B InputBox 请输入 B 边的边长 B Val b C InputBox 请输入 C 边的边长 C Val c If a b c Or b c a Or c a b Then MsgBox 所输入的值不能构成三角形 请重新输入 GoTo Start End If S a b c 2 T Spr s s a s b s c Print 三角形的面积为 T 7 End Sub 程序运行后 单击窗体 先后显示三个输入对话框 在三个对话框中分别输入三角形的三 条边长 程序先判断输入的边长是否能构成三角形 然后决定之后的操作 用信息框显示 信息或者输出三角形的面积 当输入 1 2 3 时 将显示信息框 要求重新输入 如果输 入 8 7 6 则输出结果为 三角形的面积为 20 33316 4 税务部门征收所得税 规定如下 1 收入在 200 元以内 免征 2 收入在 200 400 内 超过 200 元的部分纳税 3 3 收入超过 400 元的部分 纳税 4 4 当收入达到 5000 元或超过时 将 4 税金改为 5 编程序实现上述操作 解答 程序如下 Private Sub Form Click R InputBox 请输入您的收入 R Val r If r 200 And r 400 And r 5000 Then tax r 400 0 05 End If Print 收入 r 应纳税 tax End Sub 程序运行后 单击窗体 在输入对话框中输入收入数 程序将输出纳税金额 5 编写程序 打印如下所示的 数字金字塔 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 解答 程序如下 Private Sub Form Click For I 1 To 9 For j 1 To 30 3