VB程序设计课程教案2

VB 程序设计 课程教案 第一章 Visual Basic 概述 教学目的 1 通过教学 使学生明确 Visual Basic 编程基础 课程教学内容和要求 掌握学习 本课程的方法 2 通过教学 使学生掌握 VB 的基本特点 了解可视化编程 事件驱动等概念 3 通过教学 使学生掌握 VB 的启动方法和退出方法 初步了解和使用 VB 6 0 的集成开 发环境编制 运行程序 教材分析 1 教学重点 VB 的基本特点 VB 的启动方法和退出方法 VB 6 0 的集成开发环境构 成 2 教学难点 初步接触 VB 编程 与 QB 有很大差别 教学时间 三课时 一节教室 二节机房 学习过程 一 关于 Visual Basic Visual Basic 是在 Windows 平台上广泛使用的可视化的高级程序设计语言和开发工 具 现在应用较多的版本是 Visual Basic 6 0 Visual 可视化 Basic BASIC Beginners All Purpose Symbolit Instruction Code 通用语言代 码 二 Visual Basic 6 0 的特点 可视化的编程方法 程序的用户界面通过鼠标操作绘制 所见即所得 简化了应用程 序的开发工作量 在可视化环境下创作前端界面也就如同摆放积木 面向对象编程 面向对象编程是建立在类的基础上的 其通过类的封装而使源程序更 加便于维护 丰富的数据访问 既可访问 SQL Server 等大型数据库中的数据 也能访问 Visual FoxPro Access 等个人数据库中的数据 以及 Excel 等电子表格 集成化的开发环境 通过 ActiveX 技术 可以将其它应用程序的功能集成为一体 实现特定的功能 Internet 的直接访问 可以动态地创建和编辑页面 在应用程序内部直接访问 Internet 三 Visual Basic 6 0 的学习要求 本课程期终成线 学案报告书成绩汇总 上机程序成线评定汇总 期中上机考试 理论 考试 期末上机考试 理论考试 学案报告书 每周一份 每星期五上交 由导师评定等级 获 8 次以上优秀者 汇总 成绩得满分 上机程序评定 课堂上通过电子教室上交作业 课后一天内通过电子邮箱上交 获 8 次以上优秀者 上机程序成线评定汇总得满分 四 启动 VB 6 0 的 3 种方法 在 开始 菜单中选择 程序 Microsoft Visual Basic6 0 中文版 Microsoft Visual Basic6 0 中文版 选项 在桌面上建立快捷方式 双击该图标 五 VB 6 0 的集成开发环境 启动后 屏幕显示集成开发环境界面 P3 三个工作栏 标题栏 菜单栏 工具栏 双击已建立的 VB 应用程序图标 六个基本窗口 主窗口 Main 窗体窗口 Form 工具箱窗口 Tool Box 工程窗口 Project 属性窗口 Properties 窗体布局窗口 Form Layout 六 VB6 0 的窗口的操作初步 1 窗体窗口 窗体 是建立 VB 应用程序的主体部分 2 利用工具箱在窗体设置控件 3 利用属性窗口设置窗体和控件的属性 4 工程窗口的工具按钮 注 带有控件的窗体将成为应用程序的界面 通过窗体上的控件可得到程序的运行结 果 例 1 完成下列操作 1 启动 Visual Basic 6 0 集成环境 说出集成环境各组成部分的名称 2 分别关闭工具栏 属性窗口 工程窗口 工程资源管理器窗口 工具箱窗口 窗 体布局窗口 3 分别打开工具栏 属性窗口 工程窗口 工程资源管理器窗口 工具箱窗口 窗 体布局窗口 4 在窗体中设置一个命令按钮控件 名称为 Command1 显示文本为 确定 5 在窗体中设置一个文本框控件 名称为 Text1 显示文本为 我的文本 6 在窗体中设置一个标签控件 名称为 Label1 显示文本为 我的标签 7 在窗体中设置一个图形框控件 名称为 Picture1 显示图形为 D VBIMG 2312 jpg 8 把此窗体以 form1 为名保存到 D 1 文件夹 把此工程以 工程 1 为名保存 到 D 1 文件夹 9 退出 Visual Basic 6 0 集成环境 七 创建 VB 应用程序的基本步骤 1 设计应用程序界面 界面由窗体和控件组成 控件放在窗体上 2 设置对象属性 在属性窗口设置对象 窗体和控件 的属性 3 编写程序代码 在代码编辑器窗口中进行 代码由语句 常数和声明部分组成 4 调试运行程序 5 保存工程 把窗体文件和工程文件保存在磁盘上 窗体文件的扩展名为 frm 工 程文件的扩展名为 vbp 例 2 编程上机 设计一个开学致词窗体 由一个文本框控件和两个命令按钮组成 运行程序时 若单击 显示 按钮 则文本框显示 满怀豪情投入新的学习生活 若单击结束按钮 则退出程序运行 第一步 创建新窗体 在新窗体 Form1 上创建 3 个控件 命令按扭 Command1 命令按扭 Command2 文本框 Text1 第二步 设置对象的属性 对象类型对象名属性设置 窗体 Form1Caption 开学致词 命令按键 Command1Caption 显示 命令按键 Command2Caption 结束 文本框 Text1text 无 第三步 补充完成代码编写 Private Sub Command1 Click Text1 text 满怀豪情投入新的学习生活 End Sub Private Sub Command2 Click end End Sub 第四步 调试运行程 第五步 保存工程 把此窗体以 form2 为名保存到 D 1 文件夹 把此工程以 工程 2 为名 保存到 D 1 文件夹 八 第一章小结 本章主要内容 VB6 的特点 安装和启动过程 帮助系统的使用方法 VB6 的集成开发环境 VB6 应用程序的开发步骤 本章学习要求 熟悉 VB6 的集成开发环境 熟练掌握菜单栏 工具栏 工程资源管理器 属性窗口等的使用方法 熟练创建简单的 VB 的应用程序 第二章 Visual Basic 程序设计基础 窗体和常用控件属性 教学目的 通过教学 使学生熟悉 Visual Basic 程序设计的基本方法 掌握窗体和常用控件 如文本框 命令按钮 标签 图形框等 的属性 方法和事件过程的使用 并能应用 于 Visual Basic 程序设计 教材分析 1 教学重点 掌握窗体和常用控件 如文本框 命令按钮 标签 图形框等 的属性 方法和事件过程的使用 2 教学难点 对象 属性 方法和事件过程等概念的理解 教学时间 三课时 一节教室 二节机房 学习过程 一 复习 创建 VB 应用程序的基本步骤 1 设计应用程序界面 界面由窗体和控件组成 控件放在窗体上 2 设置对象属性 在属性窗口设置对象 窗体和控件 的属性 3 编写程序代码 在代码编辑器窗口中进行 代码由语句 常数和声明部分组成 4 调试运行程序 5 保存工程 把窗体文件和工程文件保存在磁盘上 窗体文件的扩展名为 frm 工 程文件的扩展名为 vbp 二 对象 属性 方法和事件过程的概念 1 对象 Visual Basic 把窗体和控件等叫作对象 对象是程序设计的核心 对象举例 窗体 文本框 命令按钮 标签 图形框等 2 对象的属性 1 定义 对象的特性和性能叫对象的属性 它反映了对象的外观和功能 如命令按钮 的标题 文本框中文字的内容和字形 字体 颜色等 2 设置对象属性的方法 1 在属性窗口设置 2 在程序代码中设置 格式 对象名 属性 设置值 3 基本属性 窗体和控件的通用属性 1 Name 属性 表示识别一个窗体或控件的名字 Name 属性必需英文字母或汉字 开头 一般都是采用默认值 如窗体 Form1 文本框 Text1 命令按钮 Command1 标签 Label1 图形框 Picture1 2 BackColor 属性 设置背景颜色 3 ForeColor 属性 设置前景颜色 4 Caption 属性 设置对象的标题内容 例 2 1 设置一个标题为 Caption 属性例题 的窗体 在窗体中设置一个命令按钮 其背景色为黄色 前景色为红色 且每次单击按钮 显示内容在 确定 和 输入 之间变 换 完成后把此窗体以 form3 为名保存到 D 自己学号姓名 3 文件夹 把此工程以 工 程 3 为名保存到 D 自己学号姓名 3 文件夹 第一步 创建新窗体 Form1 在新窗体上创建一个命令按扭 Command1 第二步 设置对象的属性 第三步 补充完成代码编写 Private Sub Command1 Click If Command1 Caption 确定 Then Command1 Caption 输入 Else Command1 Caption 确定 Endif End Sub 5 Visible 属性 表示一个控件是否可见 值为 true 可以看见 值为 false 隐藏 不可见 6 Font 属性 设置字体 字形 字号 字体样式等 7 Enabled 属性 表示一个控件是否可对用户的事件作出反应 即该控件可不可用 Enabled 属性值为 true 可以作出反应 值为 false 则不可以作出反应 以上属性不宜抽象讲解 应该用实例说明 4 方法 指对象可以进行的操作 VB 常用的方法有 Print Cls Move Setfocus Show 等 1 Print 方法 在指定在窗体 图片框或打印机上输出表达式的值 格式与 QB 相同 对象类型对象名属性设置 Caption Caption 属性例题 ForeColor 红色窗体 Form1 BackColor 黄色 命令按钮 Command1 Caption 确定 2 Move 方法 移动窗体或控件 并改变其大小 3 Cls 方法 清除运行时窗体 图片框显示的内容 5 事件 在对象上发生的事情 如单击 双击等 1 Click 事件 鼠标单击窗体或控件时触发此事件 2 DblClick 事件 鼠标双击窗体或控件时时 将触发此事件 3 Load 事件 把窗体装入内存 三 应用举例 例 2 2 设置一个标题为 字体设置 的窗体 窗体的背景色为黄色 在窗体中设 置二个命令按钮和一个文本框 每次单击 确定 按钮 在文本框中显示红色三号隶书字 体 内容为 开学了 欢迎你来校报到 并使文本能自动换行显示 单击 结束 按钮 则退出程序运行 完成后把窗体和工程以默认名保存到 D 自己学号姓名 4 文件夹 说 明 能使文本能自动换行显示的属性为 MultiLine 其值为 True 时文本可以显示在多 行 其值为 False 时文本只能显示在一行 解 第一步 创建新窗体 Form1 在新窗体上创建二个命令按扭 Command1 Command2 和一个文本框 Text1 第二步 设置对象的属性 对象类型对象名属性设置 Caption 字体设置 窗体 Form1 BackColor 黄色 命令按钮 Command1 Caption 确定 命令按钮 Command2 Caption 结束 文本框 Text1 Text 空白 Font 三号隶书 MultiLine True 第三步 补充完成代码编写 Private Sub Command1 Click Text1 ForeColor vbred Text1 Text 开学了 欢迎你来校报到 End Sub Private Sub Command2 Click End End Sub 例 2 3 设计一个名为 图片 窗体界面 该窗体包含 3 个命令按钮和一个图片框 开始运行时 图形框被隐藏 单击 显示 按钮 图形框显示 D VBIMG 6722 JPG 图片 单击 清除 按钮 图形框变空白 若单击 结束 按钮 程序结束运行 完成后把窗体和工程以默认名保存到 D 自己学号姓名 5 文 件夹 解 第一步 创建新窗体 Form1 在新窗体上创建三个命令按扭 Command1 Command2 Command3 和一个图片框 Picture1 第二步 设置对象的属性 对象类型对象名属性设置 窗体 Form1 Caption 图片 命令按钮 Command1 Caption 显示 命令按钮 Command2 Caption 清除 命令按钮 Command3 Caption 结束 Picture D VBIMG 6722 JPG 图片框 Picture1 Visible False 第三步 补充完成代码编写 Private Sub Command1 Click Picture1 Visible True End Sub Private Sub Command2 Click Picture1 Visible False End Sub Private Sub Command3 Click End End Sub 例 2 4 设计一个名为 图片的显示与隐藏 窗体界面 该窗体包含 3 个命令按钮 和一个图片框 开始运行时 图形框被隐藏 单击 显示 按钮 图形框及所装的 D VBIMG 1123 JPG 显示出来 且 显示 按钮显示灰色 单击 隐藏 按钮 图形框再次被隐藏 且 隐藏 按钮显示灰色 显示 按钮激活 若单击 结 束 按钮 程序结束运行 完成后把窗体和工程以默认名保存到 D 自己学号姓名 6 文件夹 解 第一步 创建新窗体 Form1 在新窗体上创建三个命令按扭 Command1 Command2 和一个图片框 Picture1 第二步 设置对象的属性 对象类型对象名属性设置 窗体 Form1 Caption 图片的显示与隐藏 命令按钮 Command1 Caption 显示 命令按钮 Command2 Caption 隐藏 命令按钮 Command3 Caption 结束 Picture D VBIMG 1123 JPG 图片框 Picture1 Visible False 第三步 补充完成代码编写 Private Sub Command1 Click Picture1 Visible True Command2 Enabled True Command1 Enabled False End Sub Private Sub Command2 Click Picture1 Visible False Command1 Enabled True Command2 Enabled False End Sub Private Sub Command3 Click End End Sub 窗体和常用控件属性 教学目的 通过教学 使学生进一步熟练窗体和常用控件的属性 并在编程中加以应用 教材分析 1 教学重点 窗体和常用控件的属性在编程中加以应用 2 教学难点 如何提高学生解决实际问题的能力 教学时间 三课时 一节在多媒体阶梯教室 二节在第七机房 学习过程 一 复习 1 选择题 1 要把一个命令按钮设置为无效 应设置 属性的值 A Visible B Enabled C Default D Cancel 2 要把一个图形框设置为不可见 应设置 属性的值 A Visible B Enabled C Default D Cancel 2 上节例 2 4 设计一个名为 图片的显示与隐藏 窗体界面 该窗体包含 3 个命 令按钮和一个图片框 开始运行时 图形框被隐藏 单击 显示 按钮 图形框及所 装的 D VBIMG 1123 JPG 显示出来 且 显示 按钮显示灰色 单击 隐藏 按 钮 图形框再次被隐藏 且 隐藏 按钮显示灰色 显示 按钮激活 若单击 结束 按钮 程序结束运行 完成后把窗体和工程以默认名保存到 D 自己学号姓 名 6 文件夹 解 第一步 创建新窗体 Form1 在新窗体上创建三个命令按扭 Command1 Command2 和一个图片框 Picture1 第二步 设置对象的属性 对象类型对象名属性设置 窗体 Form1 Caption 图片的显示与隐藏 命令按钮 Command1 Caption 显示 命令按钮 Command2 Caption 隐藏 命令按钮 Command3 Caption 结束 Picture D VBIMG 1123 JPG 图片框 Picture1 VisibleFalse 第三步 补充完成代码编写 Private Sub Command1 Click Picture1 Visible True Command2 Enabled True Command1 Enabled False End Sub Private Sub Command2 Click Picture1 Visible False Command1 Enabled True Command2 Enabled False End Sub Private Sub Command3 Click End End Sub 二 介绍窗体和控件的几个属性 方法 1 文本框的属性和事件 P22 24 1 PasswordChar 属性 密码替换符 2 MaxLength 属性 设置文本框内文本的最大长度 3 SelText 属性 文本框内补选定的文本 4 SetFocus 事件 使文本框获得焦点 2 窗体的事件 P19 1 Hide 事件 使窗体隐藏 2 Show 事件 使窗体显示出来 3 Msgbox 函数 P57 功能 在对话框中显示提示信息 等待用户单击后返回 格式 1 Msgbox 提示信息 按钮数 标题 格式 2 字符串变量 Msgbox 提示信息 按钮数 标题 例 3 1 在名为 复制文本 的窗体中设置 2 个文本框和 2 个命令按钮 我们在第 一个文本框中输入一段文字 显示蓝色三号楷体字体 当单击 复制 命令按钮时 刚才输入的文字在第二个文本框中全部复制出来 显示红色三号楷体字体 当单击 结束 命令按钮时 结束程序运行 解 第一步 创建新窗体 Form1 在新窗体上创建二个命令按扭 Command1 Command2 创建二个文本框 Text1 和 Text1 第二步 设置对象的属性 对象类型对象名属性设置 窗体 Form1 Caption 复制文本 命令按钮 Command1 Caption 复制 命令按钮 Command2 Caption 结束 Text 空白 ForeColor 蓝色 Font 三号楷体 文本框 Text1 MultiLineTrue Text 空白 ForeColor 红色 Font 三号楷体 文本框 Text1 MultiLineTrue 第三步 补充完成代码编写 Private Sub Command1 Click Text2 Text Text1 Text End Sub Private Sub Command2 Click End End Sub 例 3 2 在名为 复制文本 的窗体中设置 2 个文本框和 2 个命令按钮 我们在第 一个文本框中输入一段文字 显示蓝色三号楷体字体 当单击 复制 命令按钮时 刚才输入的文字前 6 个字在第二个文本框中复制出来 显示红色三号楷体字体 当 单击 结束 命令按钮时 结束程序运行 解 把代码增加一句 Text2 的 MaxLength 属性设置为 6 其余与例 3 1 相同 思 考 如何把例 3 1 的工程复制过来 加以修改 Private Sub Command1 Click Text2 MaxLength 6 Text2 Text Text1 Text End Sub Private Sub Command2 Click End End Sub 例 3 3 在名为 复制文本 的窗体中设置 2 个文本框和 2 个命令按钮 我们在第 一个文本框中输入一段文字 显示蓝色三号楷体字体 然后选中其中的一段文字 当单击 复制 命令按钮时 刚才选中的文字在第二个文本框中复制出来 显示红色 三号楷体字体 当单击 结束 命令按钮时 结束程序运行 解 把 Text2 文本框设置为 SelText 属性 其余与例 3 1 相同 把代码修改如下 Private Sub Command1 Click Text2 Text Text1 SelText End Sub Private Sub Command2 Click End End Sub 例 3 4 分别创建名为 登录窗口 和 系统窗口 的 2 个窗体 登录窗口有 1 个 文本框 一个标签 2 个命令按钮 程序运行时 在文本框中输入用户名称和密码 密 码的长度为 7 位 用 号代表 若密码正确 密码预设为 abcd789 单击 确定 按 钮后 打开一个 系统窗口 窗体 若密码错误 则清除密码 利用 Msgbox 函数提示 重新输入密码 若单击 取消 按钮 则清除密码 单击 结束 命令按钮时 结束 程序运行 程序运行界面如下图所示 解 第一步 创建新窗体 Form1 在此窗体上创建三个命令按扭 Command1 Command2 Command3 创建一个标签 Label1 和一个文本框 Text1 创建新窗体 Form2 在此窗体上创建一个标签 Label2 第二步 设置对象的属性 对象类型对象名属性设置 窗体 Form1 Caption 录入窗口 命令按钮 Command1 Caption 确定 黄色背景 命令按钮 Command2 Caption 取消 黄色背景 命令按钮 Command3 Caption 退出 黄色背景 标签 Label1 Caption 请输入密码 三号隶书 文本框 Text1 Text 空白 PasswordChar 窗体 Form2 Caption 系统界面 绿色背景 标签 Label2 Caption 绍兴市职教中心校园管 理系统欢迎你 黄色背 景 红色前景 第三步 补充完成代码编写 Private Sub Command1 Click If Text1 Text abcd789 Then Form1 Hide Form2 Show Else MsgBox 密码输入出错 请重新输入密码 0 密码校验 Text1 SetFocus Text1 Text End If End Sub Private Sub Command2 Click Text1 SetFocus Text1 Text End Sub Private Sub Command3 Click End End Sub Private Sub Form Load Text1 Text End Sub 作业 完成学案报告 三 第三章 Visual Basic 语言基础 教学目的 通过教学 使学生了解 Visual Basic 语言中的数据类型 常量 变量 数组 函 数 运算符与表达式的概念 理解输入输出函数 MsgBox 和 InputBox 函数的功能 并能在编程中加以应用 教材分析 1 教学重点 Visual Basic 语言中的数据类型 常量 变量 数组 函数 运算符与 表达式的概念 并在编程中加以应用 2 教学难点 Visual Basic 语言中的数据类型 常量 变量 数组 函数 运算符与 表达式与 QB 语言有很大的不同 应提醒学生注意 教学时间 三课时 一节在多媒体阶梯教室 二节在第七机房 学习过程 引入 解如下问题 输入一个圆半径 求它的周长和面积 分析说明 回忆 QB 中的程序 INPUT R R L 2 3 1416 R S 3 1416 R R PRINT L L S S END 在 Visual Basic 中 对每个变量必须先定义 后使用 如果要把结果显示在文本框对象中 还必须把数字转变 为字符 一 理论知识 Visual Basic 语言中的数据类型 常量 变量 函数 1 数据类型 类型名称 关键字 P46 47 字节型 Byte 整数 Integer 长整型 Long 单精度实数 Single 双精度型 Double 字符串 String 2 变量的定义 格式 Dim 变量名 As 类型名 P50 51 练习 说出下列变量定义语句的意义 1 Dim A As Integer 2 Dim XANAME As String 3 Dim S 4 Dim B As String 20 3 字符串与数值转换函数 P59 61 1 VAL X 把字符串 X 的值转换为数值型 如 VAL 123 123 VAL 4 5AB 4 5 2 STR X 把数值 X 转换成字符串 如 STR 123 123 STR 5 8 5 8 3 输入输出函数 P57 59 1 Msgbox 函数 P57 功能 在对话框中显示提示信息 等待用户单击后返回 格式 1 Msgbox 提示信息 按钮数 标题 格式 2 字符串变量 Msgbox 提示信息 按钮数 标题 2 InputBox 函数 功能 显示一个带提示信息的输入对话框 接收用户输入的字符串 格式 字符串变量 InputBox 提示信息 标题 缺省值 4 数学函数 P59 60 1 Int x 函数 功能 得到不大于 X 的最大整数 如 Int 3 9 3 Int 5 1 6 2 Fix X 函数 功能 取 X 的整数部分 直接去掉小数 如 Fix 3 9 3 Fix 5 1 5 3 Sqr N 函数 N 0 功能 得到 N 的平方根 如 Sqr 9 3 Sqr 10 3 4 Rnd N 函数 功能 产生随机数 如 Rnd 产生 0 1 之间的一个随机数 Int 100 50 1 Rnd 9 50 产生一个 50 100 之间的随 机整数 Int 1000 0 1 Rnd 9 0 产生一个 0 1000 之间的随 机整数 Int Y X 1 Rnd 9 X 产生一个 X Y 之间的随机整数 思考 如何产生 38 98 之间的一个随机整数 说明 如果要使产生的随机数每次不同 应先运行 Randomize 语句 例 4 1 输入一个圆半径 求它的周长和面积 解 第一步 创建新窗体 Form1 在此窗体上创建二个命令按扭 Command1 Command2 创建三个标签 Label1 Label2 Label3 和三个文本框 Text1 Text2 Text3 定义三个变量 R P A 分别代表半径 周长和面积 第二步 设置对象的属性 对象类型对象名属性设置 窗体 Form1 Caption 求圆周长和面积 命令按钮 Command1 Caption 计算 命令按钮 Command2 Caption 退出 标签 Label1 Caption 半径 标签 Label2 Caption 周长 标签 Label3 Caption 面积 文本框 Text1 Text 空白 文本框 Text2 Text 空白 文本框 Text3 Text 空白 第三步 补充完成代码编写 Private Sub Command1 Click Dim R As Single Dim P As Single Dim A As Single R Val Text1 Text P 2 3 14159 R A 3 14159 R R Text2 Text Str P Text3 Text Str A End Sub Private Sub Command2 Click End End Sub 例 4 2 输入任意一个整数 输出这个数的平方值 立方值和平方根值 解 第一步 创建新窗体 Form1 在此窗体上创建二个命令按扭 Command1 Command2 创建四个标签 Label1 Label2 Label3 Label4 和四个文本框 Text1 Text2 Text3 Text4 定义四个变量 X A B C 分别代表平方值 立方值和 平方根值 第二步 设置对象的属性 对象类型对象名属性设置 窗体 Form1 Caption 求圆周长和面积 命令按钮 Command1 Caption 计算 命令按钮 Command2 Caption 退出 标签 Label1 Caption 输入 标签 Label2 Caption 平方 标签 Label3 Caption 立方 标签 Label4 Caption 平方根 文本框 Text1 Text 空白 文本框 Text2 Text 空白 文本框 Text3 Text 空白 文本框 Text4 Text 空白 第三步 补充完成代码编写 Private Sub Command1 Click Dim X Dim A Dim B Dim C X VAL Text1 Text A X X B X X X C Sqr X Text2 Text Str A Text3 Text Str B Text4 Text Str C End Sub Private Sub Command2 Click End End Sub 例 4 3 用 InputBox 函数输入一个人的身高 H 厘米 和体重 W 公斤 如果 H W 的值大于等于 110 则打印 你太瘦了 如果 H W 的值小于等于 110 则打印 你太胖了 如果 H W 的值在 100 110 之间 110 则打印 你的身材真好 解 第一步 创建新窗体 Form1 定义四个变量 H 身高 字符串型 W 体重 字符串型 Ha 身高 数值型 Wa 体重 数值型 C C ha wa 数值型 第二步 设置对象的属性 对象类型对象名属性设置 窗体 Form1 Caption 根据身高和体重判断胖 瘦 第三步 补充完成代码编写 Private Sub Form Click Dim h Dim w Dim ha Dim wa Dim c h InputBox 请输入身高 厘米 输入身高 0 w InputBox 请输入体重 公斤 输入体重 0 Print 身高为 h 厘米 Print 体重为 w 公斤 ha Val x wa Val y c ha wa If c 110 Then Print 你太瘦了 If c 100 And c 110 Then Text3 Text 你太瘦了 If c 100 And c 110 Then Text3 Text 你的身材真好 End Sub Private Sub Command2 Click End End Sub 第四章 Visual Basic 程序设计基础 1 教学目的 通过教学 使学生了解 Visual Basic 程序设计的基础知识 如 VB 程序的构成 过程和调用 VB 的赋值语句 条件语句等 并能在编程中熟练应用 教材分析 1 教学重点 VB 程序的构成 过程和调用 VB 的赋值语句 条件语句等 并在编 程中熟练应用 2 教学难点 过程和调用是一种与 QB 语言不同的概念 应提醒学生注意 教学时间 三课时 一节在多媒体阶梯教室 二节在第七机房 学习过程 导入 我们已经上机完成了 14 个练习题 那个同学能能归纳出 VB 的程序代码的结构 吗 一 VB 的程序代码的结构 打开一个例题的代码分析 1 VB 程序中代码由若干个过程构成 事件过程 通用过程 2 过程的定义格式 Private Sub 过程名 参数 语句 1 语句 n End Sub 注 过程名一般由对象名和事件名两部分组成 如 Command1 Click Private 表示这个过程是非通用的 二 VB 的赋值语句 格式 Let 变量 表达式 Let 可省略不写 例 Dim a As Integer a 100 20 Text1 text str a 三 VB 的条件语句 三种 1 If Then 格式一 If 条件 Then 语句 格式二 If 条件 Then 语句块 End If 2 If Then Else 格式一 If 条件 Then 语句 1 Else 语句 2 格式二 If 条件 Then Else End If 例 分析下列程序的功能 If Text1 Text abcd789 Then Form1 Hide Form2 Show Else MsgBox 密码输入出错 请重新输入密码 0 密码校验 Text1 SetFocus Text1 Text End If 3 Select Case 语句 用于对某一表达式的值进行多种处理 格式如下 Select Case 表达式 Case 值 1 Case 值 2 Case Else End Select 例 分析下列程序的功能 Select Case Text1 Text Case 1 Text2 Text 星期一 Case 2 Text2 Text 星期二 Case 3 Text2 Text 星期三 Case 4 Text2 Text 星期四 Case 5 Text2 Text 星期五 Case 6 Text2 Text 星期六 Case 7 Text2 Text 星期天 Case Else Text2 Text 非法数值 无法转换 End Select 例 5 1 在窗体中设置 2 个标签 2 个命令按钮 2 个文本框 当我们在文本框 1 中 输入 1 7 的数字时 点击 转换 命令按钮 在文本框 2 中就会转换成与数字相对 应的星期序列 如输入的数字不是 1 7 则显示 非法数值 无法转换 点击 结束 命令按钮 则程序结束运行 解 第一步 创建新窗体 Form1 在此窗体上创建二个命令按扭 Command1 Command2 创建二个标签 Label1 Label2 和二个文本框 Text1 Text2 第二步 设置对象的属性 对象类型对象名属性设置 窗体 Form1Caption 转换星期序列 命令按钮 Command1 Caption 转换 命令按钮 Command2 Caption 结束 标签 Label1 Caption 输入数字 1 7 标签 Label2 Caption 转换结果 文本框 Text1 Text 空白 文本框 Text2 Text 空白 第三步 补充完成代码编写 Private Sub Command1 Click Select Case Text1 Text Case 1 Text2 Text 星期一 Case 2 Text2 Text 星期二 Case 3 Text2 Text 星期三 Case 4 Text2 Text 星期四 Case 5 Text2 Text 星期五 Case 6 Text2 Text 星期六 Case 7 Text2 Text 星期天 Case Else Text2 Text 非法数值 无法转换 End Select End Sub Private Sub Command2 Click End End Sub 例 5 2 在窗体中设置 2 个标签 2 个命令按钮 2 个文本框 当我们在文本框 1 中 输入 0 10 的数字时 点击 转换 命令按钮 在文本框 2 中就会转换成与数字相 对应的大写数字序列 如输入的数字不是 0 10 则显示 数值超出东范围 无法转 换 点击 结束 命令按钮 则程序结束运行 解 第一步 创建新窗体 Form1 在此窗体上创建二个命令按扭 Command1 Command2 创建二个标签 Label1 Label2 和二个文本框 Text1 Text2 第二步 设置对象的属性 对象类型对象名属性设置 窗体 Form1Caption 转换大写数字 命令按钮 Command1 Caption 转换 命令按钮 Command2 Caption 结束 标签 Label1 Caption 输入数字 0 10 标签 Label2 Caption 转换结果 文本框 Text1 Text 空白 文本框 Text2 Text 空白 第三步 补充完成代码编写 Private Sub Command1 Click Select Case Text1 Text Case 0 Text2 Text 零 Case 1 Text2 Text 壹 Case 2 Text2 Text 贰 Case 3 Text2 Text 叁 Case 4 Text2 Text 肆 Case 5 Text2 Text 伍 Case 6 Text2 Text 陆 Case 7 Text2 Text 柒 Case 8 Text2 Text 捌 Case 9 Text2 Text 玖 Case 10 Text2 Text 拾 Case Else Text2 Text 数值超出东范围 无法转换 End Select End Sub Private Sub Command2 Click End End Sub 例 5 3 在火车站托运行李 需要根据行李的重量按不同标准收费 若重量不超过 50KG 则每公斤收运费 0 3 元 若重量超过 50KG 则期中的 50 公斤仍按每公斤 0 3 元 收费 超出 50 公斤的部分按每公斤 0 6 元收费 请你编制一个收费程序 行李的重 量 W 公斤 用 InputBox 函数输入 行李托运费在窗体上显示出来 分析 高行李的重量为 W 公斤 行李托运费的金额为 P 元 则 0 3 W 0 W 50 P 0 3 50 0 6 W 50 W 50 解 第一步 创建新窗体 Form1 第二步 设置对象的属性 对象类型对象名属性设置 窗体 Form1Caption 计算行李托运费 第三步 补充完成代码编写 Private Sub Form Click Dim p w w InputBox 请输入行李的重量 W 公斤 输入数据 0 If w 50 Then p 0 3 w Else p 0 3 50 0 6 w 50 End If Print 行李的重量为 w 公斤 Print 应付的行李托运费为 p 元 Print End Sub 例 5 4 在火车站托运行李 需要根据行李的重量按不同标准收费 若重量不超过 50KG 则每公斤收运费 0 3 元 若重量超过 50KG 则期中的 50 公斤仍按每公斤 0 3 元 收费 超出 50 公斤的部分按每公斤 0 6 元收费 请你编制一个收费程序 行李的重 量 W 公斤 用一个文本框 行李托运费在另一个文本框中显示出来 解 第一步 创建新窗体 Form1 在此窗体上创建三个命令按扭 Command1 Command2 Command3 创建二个标签 Label1 Label2 和二个文本框 Text1 Text2 第二步 设置对象的属性 对象类型对象名属性设置 窗体 Form1Caption 计算行李托运费 命令按钮 Command1 Caption 计算 命令按钮 Command2 Caption 重新输入 命令按钮 Command3 Caption 结束 标签 Label1 Caption 输入行李的重量 W 公斤 标签 Label2 Caption 应付的行李托运费 元 文本框 Text1 Text 空白 文本框 Text2 Text 空白 第三步 补充完成代码编写 Private Sub Command1 Click Dim p w a w Val Text1 Text If w 50 Then p 0 3 w Else p 0 3 50 0 6 w 50 End If Text2 Text Str p End Sub Private Sub Command2 Click Text1 SetFocus Text1 Text Text2 Text End Sub Private Sub Command3 Click End End Sub 例 5 5 设计一个应用程序 由用户从键盘输入两个数 然后求这两个数的和 并将 结果显示出来 用户界面如下图 解 第一步 创建新窗体 Form1 在此窗体上创建三个命令按扭 Command1 Command2 Command3 和五个文本框 Text1 Text2 Text3 Text4 Text5 第二步 设置对象的属性 对象类型对象名属性设置 窗体 Form1Caption 加法计算器 命令按钮 Command1 Caption 清除数据 命令按钮 Command2 Caption 运算 命令按钮 Command3 Caption 退出 文本框 Text1 Text 文本框 Text2 Text 文本框 Text3 Text 文本框 Text4 Text 文本框 Text5 Text 第三步 补充完成代码编写 Private Sub Command1 Click Text1 SetFocus Text1 Text Text3 Text Text5 Text End Sub Private Sub Command2 Click Text5 Text Str Val Text1 Text Val Text3 Text End Sub Private Sub Command3 Click End End Sub 例 5 6 修改例 5 5 使其能做加 减 乘 除的运算 解 第一步 创建新窗体 Form1 在此窗体上创建三个命令按扭 Command1 Command2 Command3 和五个文本框 Text1 Text2 Text3 Text4 Text5 第二步 设置对象的属性 对象类型对象名属性设置 窗体 Form1Caption 四则运算计算器 命令按钮 Command1 Caption 清除数据 命令按钮 Command2 Caption 运算 命令按钮 Command3 Caption 退出 文本框 Text1 Text 文本框 Text2 Text 运算符 文本框 Text3 Text 文本框 Text4 Text 文本框 Text5 Text 第三步 补充完成代码编写 Private Sub Command1 Click Text1 SetFocus Text1 Text Text2 Text Text3 Text Text5 Text End Sub Private Sub Command2 Click Select Case Text2 Text Case Text5 Text Str Val Text1 Text Val Text3 Text Case Text5 Text Str Val Text1 Text Val Text3 Text Case Text5 Text Str Val Text1 Text Val Text3 Text Case Text5 Text Str Val Text1 Text Val Text3 Text Case Else Text5 Text 运算符错误 End Select End Sub Private Sub Command3 Click End End Sub 第四章 Visual Basic 程序设计基础 2 教学目的 通过教学 使学生熟练掌握 Visual Basic 程序设计的循环语句 并能在编程中加 以应用 教材分析 1 教学重点 Visual Basic 程序设计的循环语句及其编程应用 2 教学难点 Do 语句与 With 语句 QB 语言不同 应提醒学生注意 教学时间 三课时 一节在多媒体阶梯教室 二节在第七机房 学习过程 导入 说出下列程序的运行结果