内容简介本书是 Visual Basic 程序设计 ( 曲宏山饶拱维主编, 科学出版社 ) 或其他同类 Visual Basic 程序设计教材配套使用的上机实验指导用书, 是编者多年教学和软件开发实践经验的总结全书共 14 个实验, 在每个实验前都列出了相关章节的知识点, 以方便读者对所学内容加

Size: px

Start display at page:

Download "内容简介本书是 Visual Basic 程序设计 ( 曲宏山饶拱维主编, 科学出版社 ) 或其他同类 Visual Basic 程序设计教材配套使用的上机实验指导用书, 是编者多年教学和软件开发实践经验的总结全书共 14 个实验, 在每个实验前都列出了相关章节的知识点, 以方便读者对所学内容加"

伟慎焦
5 years ago
Views:

1 普通高等教育十二五重点规划教材公共课系列普通高等教育十二五规划教材 Visual Basic 程序设计上机指导曲宏山饶拱维主编张帆杨贵茂王楠副主编北京

2 内容简介本书是 Visual Basic 程序设计 ( 曲宏山饶拱维主编, 科学出版社 ) 或其他同类 Visual Basic 程序设计教材配套使用的上机实验指导用书, 是编者多年教学和软件开发实践经验的总结全书共 14 个实验, 在每个实验前都列出了相关章节的知识点, 以方便读者对所学内容加深理解和巩固本书可作为高等院校程序设计课程的教材使用, 也可作为 VB 相关课程设计的参考用书, 还可以作为广大自学者和软件开发人员的辅助教材, 以及计算机培训班的培训教材图书在版编目 (CIP) 数据 Visual Basic 程序设计上机指导 / 曲宏山, 饶拱维主编. 北京 : 科学出版社,2012 ( 普通高等教育十二五规划教材 ) ISBN Ⅰ. 1V Ⅱ. 1 曲 2 饶 Ⅲ. 1BASIC- 程序设计 - 高等学校 - 教学参考资料 Ⅳ. 1TP312 中国版本图书馆 CIP 数据核字 (2012) 第号责任编辑 : 王君博李瑜 / 责任校对 : 王万红责任印制 : 吕春珉 / 封面设计 : 东方人华出版北京东黄城根北街 16 号邮政编码 : 北京双清印刷厂印刷科学出版社发行各地新华书店经销 * 年 4 月第一版开本 : / 年 4 月第一次印刷印张 :8 1/2 字数 : 定价 :49.00 元 ( 配上机指导 ) ( 如有印装质量问题, 我社负责调换 < 环伟 >) 销售部电话编辑部电话版权所有, 侵权必究举报电话 : ; ;

3 前言 Visual Basic( 简称 VB) 程序设计语言提供了开发 Windows 应用程序最迅速最简捷的方法, 因其灵活的数据库访问 ActiveX 技术 Internet 编程能力等特性, 在实际系统开发中得到广泛应用另外, 它提供了可视化开发方法, 用户在创建应用程序时不需要编写大量代码来描述界面元素的外观和位置, 只要把预先建立的对象拖拽到屏幕上的合适位置即可与其他高级语言相比,VB 的语法规则相对简单, 容易理解和掌握, 所以广大学生应用程序开发人员把它作为学习掌握和使用 Windows 应用程序开发工具的入门语言为加强初学者综合系统开发能力的培养和对应用系统开发思路技巧的掌握, 在总结多年教学实践经验的基础上, 我们编写了本书本书是 Visual Basic 程序设计 ( 曲宏山饶拱维主编, 科学出版社 ) 的配套实验教材, 也可以与其他相关教材配合使用本书中实验内容设计的出发点是, 初学者通过上机实践, 可以全面地复习掌握 VB 内容体系中的各知识点, 大量的实例和习题可以使读者充分体会各知识点间的相互衔接并综合应用本书共安排 14 个实验, 每个实验均包括实验目的相关知识实验举例实验题目等内容实验一介绍了 VB 的环境, 并简要介绍了上机操作的步骤 ; 实验二至实验八涵盖了 VB 的数据类型程序的基本结构与流程控制语句数组过程与函数等基本操作, 这些内容是构成 VB 程序设计的基础知识 ; 实验九至实验十二介绍了 VB 可视化编程方面的知识, 包括窗体常用控件 ActiveX 控件对话框及菜单的编程方法 ; 实验十三和实验十四介绍了 VB 的应用, 包括文件的操作与管理绘图及数据库的应用等编程方法本书由曲宏山谷春英文政颖郑伟勇冯广丽张帆王楠饶拱维杨贵茂冯斯苑共同编写本书的出版得到了科学出版社的大力支持和帮助, 在此表示感谢由于编者水平有限, 书中难免有不妥之处, 敬请各位专家同仁和读者不吝批评指正编者 2012 年 3 月

4 目录实验一 Visual Basic 程序设计概述... 1 实验二 Visual Basic 可视化语言编程基础... 6 实验三 Visual Basic 程序设计基础实验四选择结构程序设计实验五循环结构程序设计实验六数组的定义及简单应用实验七控件数组的应用实验八子过程与函数过程的定义和调用实验九参数传递过程与变量的作用域实验十 Visual Basic 控件的应用实验十一可视界面程序设计实验十二图形操作实验十三文件实验十四数据库技术简介参考文献...130

5 实验一 Visual Basic 程序设计概述 1) 掌握 Visual Basic 6.0 版本和编程特点 2) 掌握 Visual Basic 6.0 的启动和退出 3) 熟悉 Visual Basic 6.0 的工作环境 1.Visual Basic 6.0 的 3 种版本 Visual Basic 6.0 包括 3 种版本, 分别为学习版专业版和企业版 1) 学习版 : 它是 Visual Basic 6.0 的基础版本, 它可使编程人员轻松开发 Windows 应用程序此版本包含所有内部控件以及网格和数据绑定控件 2) 专业版 : 它为专业编程人员提供了一整套功能完备的软件开发工具, 使用此套工具能进行各种解决方案的开发工作该版本包含学习版的所有工具和全部功能, 以及附加的应用程序设计器 AxtiveX 控件 Internet 信息服务器集成数据工具和数据环境活动数据对象以及动态 HTML 页面设计器等功能强大的辅助工具 3) 企业版 : 专业编程人员能够使用它开发功能强大的分布式应用程序, 该版本包含专业版的全部功能此外, 它还包含 Back Office 工具, 如 SQL Server 以及其他辅助工具等 2.Visual Basic 6.0 主要编程特点 1) 面向对象的可视化程序设计方法 2) 事件驱动的编程机制 3) 提供了易学易用的应用程序集成开发环境 4) 具有很强的数据管理功能 5) 支持对象链接与嵌入 (OLE) 技术 3.Visual Basic 6.0 的启动和退出 (1)Visual Basic 6.0 的启动与一般 Windows 应用程序的启动一样, 可以通过开始菜单启动 Visual Basic 6.0 在 Windows 系统中, 依次执行开始程序 Microsoft Visual Basic 6.0 中文版 Microsoft Visual Basic 6.0 中文版命令即可也可以在桌面上创建 Visual Basic 6.0 程序的快捷方式, 然后双击该图标即可启动 (2)Visual Basic 6.0 的退出执行文件退出命令, 或双击窗口控制菜单图标, 也可以单击窗口标题栏中

Visual Basic 程序设计上机指导的关闭按钮 4.Visual Basic 6.0 集成开发环境 Visual Basic 6.0 的集成开发环境 (IDE), 包含标题栏菜单栏工具栏, 工具箱窗口窗体设计器窗口代码窗口工程资源管理器窗口属性窗口和窗体布局窗口等 (1)Visual Basic 6.0 系统的 3 种工作状态 Visual Basic 6.

6 Visual Basic 程序设计上机指导的关闭按钮 4.Visual Basic 6.0 集成开发环境 Visual Basic 6.0 的集成开发环境 (IDE), 包含标题栏菜单栏工具栏, 工具箱窗口窗体设计器窗口代码窗口工程资源管理器窗口属性窗口和窗体布局窗口等 (1)Visual Basic 6.0 系统的 3 种工作状态 Visual Basic 6.0 系统的 3 种工作状态如图 1-1 所示图 1-1 Visual Basic 6.0 的 3 种工作状态启动 Visual Basic 6.0 后, 标题栏显示工程 1-Microsoft Visual Basic[ 设计 ], 表明当前的工作状态是设计, 可以进行程序的设计 ; 当工作状态是运行时, 标题栏显示工程 1-Microsoft Visual Basic[ 运行 ], 用户可以看到程序运行的结果 ; 当工作状态是中断时, 标题栏显示工程 1-Microsoft Visual Basic[break], 用户可以查看程序运行的中间结果 (2) 主要窗口及其功能在 Visual Basic 6.0 集成开发环境中显示的主要窗口如图 1-2 所示, 通常包含工具箱窗口窗体设计器窗口代码窗口工程资源管理器窗口属性窗口和窗体布局窗口工具箱窗口工程资源管理器窗口窗体设计器窗口属性窗口代码窗口窗体布局窗口图 1-2 Visual Basic 6.0 集成开发环境 2

7 实验一 Visual Basic 程序设计概述 1) 工具箱窗口工具箱中提供了一组图标, 用于设计应用程序的界面, 这些图标是 Visual Basic 应用程序的组件, 称为图形对象或控件每个控件的功能都不相同 2) 窗体设计器窗口窗体设计器窗口简称为窗体 (Form) 窗口, 是用来设计应用程序界面的, 用户可以在窗体中添加各种控件对象并直接观察到程序运行时的界面 3) 工程资源管理器窗口工程是指用于创建一个应用程序的文件集合工程资源管理器窗口用于管理当前工程中所包含的各类文件, 其显示各类文件的方式和 Windows 资源管理器显示文件夹的方式相似 4) 属性窗口属性窗口用于列出当前选定的窗体或控件的属性名及属性值, 用户可以对这些属性值进行设置可以用下面 4 种方法激活属性窗口 : 1 执行视图属性窗口命令 2 按 F4 键 3 单击工具栏上的属性窗口按钮 4 按 Ctrl+PageDown 或 Ctrl+PageUp 组合键 5) 代码窗口代码窗口用于显示和编辑程序代码应用程序的每个窗体或标准模块都有一个单独的代码编辑窗口在设计模式状态中, 可以用以下 4 种方法打开代码窗口 : 1 双击窗体或窗体上已创建好的控件 2 执行视图代码窗口命令 3 按 F7 键 4 单击工程资源管理器窗口中的查看代码按钮 6) 窗体布局窗口窗体布局窗口用于调整窗体在屏幕上显示的位置在此窗口中, 有一个表示当前窗体的图标, 可以通过鼠标拖动该图标来调整程序运行时窗体的位置 5.Visual Basic 6.0 应用程序中可以包含的文件类型 1) 工程文件和工程组文件工程文件的扩展名为.vbp, 每个工程对应一个工程文件当一个工程包含两个以上的工程时, 这些工程构成一个工程组, 工程组文件的扩展名为.vbg 2) 窗体文件每个窗体对应一个窗体文件, 窗体及其控件的属性和其他信息 ( 包括代码 ) 都存放在该窗体文件中, 其扩展名为.frm 一个应用程序可以有多个 ( 最多可达 255 个 ) 窗体, 因此可以有多个以.frm 为扩展名的窗体文件 3) 标准模块文件它是一个纯代码性质的文件, 不属于任何一个窗体, 主要在大型应用程序中使用, 其扩展名为.bas 4) 类模块文件 : 用户可以通过类模块来定义自己的类, 每个类都用一个文件来保存, 其扩展名为.cls 5) 资源文件 : 资源文件中存放的是各种资源, 是一种可以同时存放文本图片声音等多种资源的文件, 其扩展名为.res 3

8 Visual Basic 程序设计上机指导实例 1.1 启动和退出 Visual Basic 6.0 系统 1) 可以通过以下 3 种方法启动 Visual Basic 6.0: 1 执行开始菜单启动中的相应命令 2 执行开始运行命令, 然后在打开的运行对话框中输入 Visual Basic 6.0 系统主程序文件名 ( 包括路径 ), 或者单击浏览按钮, 在打开的浏览对话框中查找并选择 Visual Basic 6.0 系统主程序文件所在位置及文件名, 最后单击运行对话框中的确定按钮即可启动 3 若桌面上存在 Visual Basic 6.0 快捷方式, 则双击该快捷方式图标 2) 可以通过以下 4 种方法退出 Visual Basic 6.0: 1 单击主窗口右上角的关闭按钮 2 执行文件退出命令 3 按 Alt+Q 快捷键 4 双击窗口控制菜单图标实例 1.2 新建工程对话框的设置 1) 要想启动 Visual Basic 6.0 时不显示新建工程对话框, 直接进入集成开发环境, 有以下两种方法方法 1: 1 执行工具选项命令, 弹出选项对话框 2 单击该对话框的环境选项卡, 点选创建缺省工程单选按钮, 单击确定按钮即可方法 2: 在新建工程对话框的下方有一个复选框不再显示这个对话框, 勾选该复选框 ( 即单击方框, 方框中出现 ), 再单击打开按钮即可 2) 要想启动 Visual Basic 6.0 时显示新建工程对话框, 具体步骤如下 : 1 执行工具选项命令, 弹出选项对话框 2 单击该对话框中的环境选项卡, 点选提示创建工程单选按钮, 单击确定按钮即可实例 1.3 Visual Basic 6.0 工作环境的选项设置在 Visual Basic 6.0 中, 允许用户根据个人喜好和要求对其进行选项设置, 可按如下步骤进行操作 : 1) 执行工具选项命令, 弹出选项对话框 2) 通过选项对话框的 6 个选项卡, 对集成开发环境进行个性化设置题目 1.1 Visual Basic 6.0 集成开发环境中有多个窗口, 若想在设计时看到代码窗口, 应怎样操作? 4

9 实验一 Visual Basic 程序设计概述题目 1.2 如何关闭和显示 Visual Basic 6.0 集成开发环境中的各窗口? 题目 1.3 用鼠标指向标准工具栏中的各图标按钮, 查看各按钮的功能题目 1.4 新建一个 Visual Basic 6.0 工程, 添加两个窗体文件一个标准模块文件和一个类模块文件, 然后查看工程资源管理器窗口中文件列表 5

10 实验二 Visual Basic 可视化语言编程基础 1) 掌握 Visual Basic 开发应用程序的一般步骤 2) 掌握窗体的用法 3) 掌握控件的基本操作 4) 掌握标签文本框及按钮控件的用法 1.Visual Basic 开发应用程序的一般步骤一般来说, 在用 Visual Basic 开发应用程序时, 需要以下 6 个步骤 : 1) 创建用户界面 2) 设置窗体和控件的属性 3) 编写事件过程代码 4) 保存程序文件 5) 运行程序 6) 生成可执行文件 2. 在窗体上放置控件及控件的基本操作在窗体上放置控件有以下两种方法方法 1: 双击工具箱中某个所需要的控件图标, 就可以在窗体中央绘制出该控件方法 2: 单击工具箱中某个所需要的控件图标, 把光标移到窗体上的适当位置, 此时光标变为 + ( + 的中心就是控件左上角的位置 ), 然后按下鼠标左键并向右下方拖动鼠标, 可以手工绘制一个该控件对于窗体上的控件, 可以调整控件的大小移动控件的位置 ; 对于多个控件, 还可以对它们进行排列对齐及调整大小等操作 3. 窗体和控件的通用属性通用属性包括 Name Caption Font Left Top Height Width 等 4. 窗体窗体是 Visual Basic 中的对象, 具有自己的属性事件和方法 1) 常用属性 : 包括 Name Caption BackColor BorderStyle Height Width Picture Top Left WindowState 等

11 实验二 Visual Basic 可视化语言编程基础 2) 常用事件 : 包括 Load Click DblClick 等 3) 常用方法 : 包括 Print Cls Show Move 和 Hide 其中,Print 方法用于直接在窗体上输出文字 ;Cls 方法用于清除程序运行时由 Print 方法在窗体上输出的内容 ;Show 方法用于使一个窗体可见 ;Hide 方法用于隐藏一个窗体 5. 标签和文本框控件在运行期间, 在标签中只能显示文本, 不能进行编辑 ; 而在文本框中既可显示文本, 又可输入文本标签的默认名称 (Name) 和标题 (Caption) 为 Label x(x 为 1,2,3, ), 可触发 Click 和 DblClick 事件 ; 文本框的默认名称和标题为 Text x(x 为 1,2,3, ), 具有 Click DblClick 等鼠标事件, 同时支持 Change GotFocus 及 LostFocus 等事件 6. 按钮控件 Visual Basic 中的按钮控件是命令按钮, 它提供了用户与应用程序交互最简单的方法命令按钮的默认名称 (Name) 和标题 (Caption) 属性均为 Command x(x 为 1,2,3, ), 其最常用的事件是 Click 事件, 当单击一个命令按钮时, 即可触发 Click 事件 ; 不支持 DblClick 事件讲解 7.Visual Basic 工程的管理工程的添加删除和启动工程的设置, 窗体的添加删除和启动窗体的设置等见文中实例 2.1 窗体的常用事件练习创建一个新的工程, 窗体使用默认名称 Form1 程序运行时, 要求如下 : 1) 启动程序时, 窗体的背景色变为红色 2) 当单击窗体时, 窗体的背景色变为绿色 3) 当双击窗体时, 窗体的背景色变为蓝色窗体文件保存为 f1.frm, 工程文件保存为 l1.vbp 程序分析如下 1)Load 事件 : 当窗体装入内存时被触发, 该事件是由操作系统激发的在 Load 事件过程中编写程序代码如下 (Me 指当前窗体, 即代码所在的窗体 ): Private Sub Form_Load () Me.backcolor=vbred 2)Click 事件 : 该事件通常在单击鼠标时被触发在窗体的 Click 事件过程编写程序代码如下 : Private Sub Form_Click() Me.backcolor=vbgreen 7

Visual Basic 程序设计上机指导 3)DblClick 事件 : 该事件通常在单击鼠标时被触发在窗体的 DblClick 事件过程编写程序代码如下 : Private Sub Form_DblClick() Me.backcolor=vbblue 4) 保存工程文件和窗体文件 5) 运行程序实例 2.

12 Visual Basic 程序设计上机指导 3)DblClick 事件 : 该事件通常在单击鼠标时被触发在窗体的 DblClick 事件过程编写程序代码如下 : Private Sub Form_DblClick() Me.backcolor=vbblue 4) 保存工程文件和窗体文件 5) 运行程序实例 2.2 新建工程, 在窗体上放置 4 个命令按钮 Command1 Command2 Command3 Command4, 要求如下 : 1) 在属性窗口中设置 4 个命令按钮上的文字分别为向上移动向下移动向左移动和向右移动 2) 编写事件过程, 运行程序后, 每次单击向上移动命令按钮, 则窗体向上移动 100twip; 每次单击向下移动命令按钮, 则窗体向下移动 100twip; 每次单击向左移动命令按钮, 则窗体向左移动 50twip; 每次单击向右移动命令按钮, 则窗体向右移动 50twip 窗体文件保存为 f2.frm, 工程文件保存为 l2.vbp 程序分析如下 : 1) 根据题意创建一个新工程, 在窗体放置 4 个命令按钮对象 2) 根据题意在属性窗口设置对象属性, 如表 2-1 所示表 2-1 实例 2.2 对象属性设置对象名称属性名属性值 Command1( 上边的命令按钮 ) Caption 向上移动 Command2( 下边的命令按钮 ) Caption 向下移动 Command3( 左边的命令按钮 ) Caption 向左移动 Command4( 右边的命令按钮 ) Caption 向右移动设置属性后的用户界面如图 2-1 所示图 2-1 设置属性后的用户界面 3) 可以编写两种代码形式来实现该程序功能方法 1: 通过改变窗体的 Top 属性值和 Left 属性值实现, 各命令按钮的单击事件过程代码如下 8

13 实验二 Visual Basic 可视化语言编程基础 Private Sub Command1_Click() Me.Top=Me.Top-100 Private Sub Command2_Click() Me.Top=Me.Top+100 Private Sub Command3_Click() Me.Left=Me.Left-50 Private Sub Command4_Click() Me.Left=Me.Left+50 方法 2: 通过调用窗体的 Move 方法来实现, 各命令按钮的单击事件过程代码如下 (Me 指当前窗体 ) Private Sub Command1_Click() Move Me.Left,Me.Top-100 Private Sub Command2_Click() Move Me.Left,Me.Top+ 100 Private Sub Command3_Click() Move Me.Left-50 Private Sub Command4_Click() Move Me.Left+50 4) 保存工程文件和窗体文件 5) 运行程序实例 2.3 新建工程, 在窗体上放置两个命令按钮 Command1 Command2 和一个标签 Label1, 要求如下 : 1) 在属性窗口中设置两个命令按钮上的文字分别为隐藏和显示, 标签上文字为可以隐藏的控件 2) 编写事件过程, 运行程序后, 单击隐藏按钮, 标签不可见 ; 单击显示按钮, 标签重新可见 3) 编写事件过程, 运行程序后, 单击窗体, 窗体的标题栏上显示隐藏 / 显示控件窗体文件保存为 f3.frm, 工程文件保存为 l3.vbp 程序分析如下 : 1) 根据题意创建一个新工程, 在窗体上放置两个命令按钮 Command1 Command2, 一个标签 Label1 9

14 Visual Basic 程序设计上机指导 2) 根据题意在属性窗口设置对象属性, 如表 2-2 所示表 2-2 实例 2.3 对象属性设置对象名称属性名属性值 Label1( 标签 ) Caption 可以隐藏的控件 Command1( 左边的命令按钮 ) Caption 显示 Command2( 右边的命令按钮 ) Caption 隐藏设置属性后的用户界面如图 2-2 所示 3) 各对象单击事件过程程序代码如下 : 10 Private Sub Command1_Click() Label1.Visible=False Private Sub Command2_Click() Label1.Visible=True 图 2-2 设置属性后的用户界面 Private Sub Form_Click() Form1.Caption=" 隐藏 / 显示控件 " 4) 保存工程文件和窗体文件 5) 运行程序实例 2.4 创建一个新工程, 窗体名称为 Form1, 其 Caption 属性设置为 Move 方法练习单击窗体时, 窗体向屏幕的右下角移动, 同时窗体的长宽也缩小为原来的一半窗体文件保存为 f4.frm, 工程文件保存为 l4.vbp 程序分析如下 1) 程序代码 (Me 指当前窗体 ) 如下 : Private Sub Form_Click () Move me.left+100,me.top+100,me.width/2,me.height/2 2) 保存工程文件和窗体文件 3) 运行程序实例 2.5 设计一个如图 2-3 所示的窗体, 单击确定按钮时, 在窗体的标题栏

实验二 Visual Basic 可视化语言编程基础显示用户输入的各项数据窗体文件保存为 f5.frm, 工程文件保存为 l5.vbp 程序分析如下 : 1) 根据题意, 创建新工程, 在窗体上放置 3 个标签对象,3 个文本框对象和 1 个命令按钮对象 2) 根据题意在属性窗口设置对象属性, 如表 2-3 所示表 2-3 实例 2.

Caption 显示设置属性后的用户界面如图 2-3 所示 3) 程序代码如下 : Private Sub Command1_Click() Me.Caption=Text1.Text+"-"+Text2.Text+"-"+Text3.

15 实验二 Visual Basic 可视化语言编程基础显示用户输入的各项数据窗体文件保存为 f5.frm, 工程文件保存为 l5.vbp 程序分析如下 : 1) 根据题意, 创建新工程, 在窗体上放置 3 个标签对象,3 个文本框对象和 1 个命令按钮对象 2) 根据题意在属性窗口设置对象属性, 如表 2-3 所示表 2-3 实例 2.5 对象属性设置对象名称属性名属性值 Label1( 标签 ) Caption 学号 : Label2( 标签 ) Caption 姓名 : Label3( 标签 ) Caption 座位号 : Text1( 文本框 ) Text 空白 Text2( 文本框 ) Text 空白 Text3( 文本框 ) Text 空白 Command1( 左边的命令按钮 ) Caption 显示设置属性后的用户界面如图 2-3 所示 3) 程序代码如下 : Private Sub Command1_Click() Me.Caption=Text1.Text+"-"+Text2.Text+"-"+Text3.Text 4) 保存并运行程序, 在界面中输入如图 2-4 所示的数据, 在窗体的标题栏显示结果, 如图中所示图 2-3 设置属性后的用户界面图 2-4 实例 2.5 程序运行界面题目 2.1 练习在窗体上添加删除多个控件对象, 并调整控件的位置大小, 执行格式菜单中的命令对齐控件题目 2.2 新建工程, 在窗体上放置两个命令按钮 Command1 Command2 和一个标签 Label1, 界面如图 2-5 所示, 程序运行要求如下 : 1) 单击改变颜色按钮, 标签上的文字内容改为颜色已经改变, 文字颜色改为红色 11

Visual Basic 程序设计上机指导 2) 单击改变字体按钮, 标签上的字体改为黑体题目 2.

Picture 和 WindowState 属性进行设置, 查看设置窗体属性后的状态或效果题目 2.

复制到下面的文本框中, 且下面文本框中的内容不能修改 ; 单击清除按钮, 则清除两个文本框中的内容图 2-5 题目 2.

16 Visual Basic 程序设计上机指导 2) 单击改变字体按钮, 标签上的字体改为黑体题目 2.3 新建一个工程, 然后分别对窗体的 Caption MaxButton MinButton ControlBox BorderStyle Icon Picture 和 WindowState 属性进行设置, 查看设置窗体属性后的状态或效果题目 2.4 设计一个留言簿新建一个工程, 在窗体上放置两个标签两个文本框和一个命令按钮, 属性设置如图 2-6 所示要求单击提交按钮后, 上面的文本框内容复制到下面的文本框中, 且下面文本框中的内容不能修改 ; 单击清除按钮, 则清除两个文本框中的内容图 2-5 题目 2.2 程序运行界面图 2-6 题目 2.4 程序运行界面题目 2.5 设计一个程序, 程序界面如图 2-7 所示当单击显示按钮时, 在文本框中显示欢迎使用 Visual Basic 系统! ; 当单击清除按钮时, 清除文本框内的文本 ; 当单击退出按钮时, 结束程序运行图 2-7 题目 2.5 程序运行界面 12

17 实验三 Visual Basic 程序设计基础 1) 掌握 Visual Basic 中的基本数据类型的种类及其关键字和类型符 2) 掌握 Visual Basic 中常量的表示形式及符号常量的定义 3) 掌握 Visual Basic 中各种运算符的功能表达式的构成及运算符的运算顺序 4) 掌握 Visual Basic 中常用函数的用法 1.Visual Basic 编码规则 (1) 语句书写规则 1) 语句中的字母不区分大小写, 一条语句通常写在一行中, 语句以换行符结束 2) 允许在同一行上书写多条语句, 但语句间要用冒号 (:) 隔开例如,t=a:a=b:b=t 表示本行中书写了 3 条语句 3) 一个语句太长时, 允许分成多行书写, 但要在每行的末尾加续行符 _ ( 空格后加下画线 ) 标志, 表示下一行与本行是同一条语句 4) 一行最多允许 255 个字符 (2) 标识符命名规则 Visual Basic 中标识符的命名规则如下 : 1) 标识符通常由字母汉字数字或下画线组成, 但是标识符的第一个字符必须是字母或汉字 2) 标识符不能与 Visual Basic 中的关键字同名, 以免造成不必要的麻烦 3) 标识符的长度不能超过 255 个字符 (3) 本书的约定 1) [ ] 中的参数是可选参数, 可以根据情况省略, 不影响语句本身的功能若省略则为默认值 2) 分隔多个选项, 表示从多个选项中选择一项 3), 表示同类的项目重复多项 4) 表示省略了在当时叙述中涉及的语句部分 2. 数据类型 Visual Basic 提供了丰富的数据类型, 标准数据类型包括数值非数值和变体数据类型其中, 数值类型包括字节型整型长整型单精度型和双精度型 ; 非数值类型包括日期型逻辑型字符型货币型和对象数据类型除此之外, 用户还可以根据自己的需要自

18 Visual Basic 程序设计上机指导定义数据类型, 称为自定义类型用户自定义数据类型一般放在窗体模块标准模块的 ( 通用 ) 声明部分, 可使用 Type 关键字来定义, 其格式如下 : [Private Public] Type 自定义类型名成员元素名 1 as 基本数据类型名成员元素名 2 as 基本数据类型名成员元素名 3 as 基本数据类型名成员元素名 n as 基本数据类型名 End Type 3. 变量符号常量的声明一般地说, 良好的编程习惯应该是先声明变量, 后使用变量, 这样可以提高编写程序的效率, 同时也使程序易于调试声明变量就是声明变量名和变量类型, 以决定系统为它分配存储单元变量的显示声明有以下两种方法 (1) 通过类型符直接在变量名的后面加上类型符, 可用标识不同的变量类型, 类型符如表 2-1 所示这种声明方法无需专门的语句例如,x%=100 表示 x 为整型变量 (2) 使用声明语句通常使用 Dim 语句进行变量的声明, 其格式如下 : Dim 变量名 [As 数据类型 ] 或 Dim 变量名 [ 类型符 ] 符号常量的定义形式如下 : [Private Public]Const 符号常量名 [ As 数据类型类型符 ]= 常数表达式 4. 表达式表达式是指由运算符运算量和圆括号组成的有一定意义的式子单个常量或者变量可以看成是最简单的表达式根据表达式的计算结果, 可以把 Visual Basic 表达式分为算术表达式字符串表达式关系表达式和逻辑表达式 5. 赋值语句赋值语句是 Visual Basic 中使用频率最高的语句, 含义是将等号右边表达式的值传送给等号左边的对象属性或变量, 使其可以在程序运行中改变 6. 内部函数 Visual Basic 提供了大量的内部函数供用户编程时使用, 内部函数也称标准函数, 它们 14

实验三 Visual Basic 程序设计基础是 Visual Basic 系统为实现一些特定功能而设置的内部程序在这些函数中, 有些是通用的, 有些则与某种操作有关按内部函数的功能和用途, 大体上可将其分为数学函数字符串函数日期时间函数转换函数和输入 / 输出函数等 (1) 函数 InputBox( ) 执行该函数可以弹出一个对话框, 作为输入数据的界面,

告诉用户单击了哪个按钮 ; 该对话框中作为消息显示的字符串用于提示信息, 其规则与函数 InputBox( ) 相同函数 MsgBox( ) 根据所选定参数的不同, 可以弹出不同形式的消息框供用户使用 (3)MsgBox 语句该语句中各参数的含义及作用与函数 MsgBox( ) 相同由于不需要 MsgBox 语句的返回值, 则可直接使用该语句, 而不用给某个变量赋值

19 实验三 Visual Basic 程序设计基础是 Visual Basic 系统为实现一些特定功能而设置的内部程序在这些函数中, 有些是通用的, 有些则与某种操作有关按内部函数的功能和用途, 大体上可将其分为数学函数字符串函数日期时间函数转换函数和输入 / 输出函数等 (1) 函数 InputBox( ) 执行该函数可以弹出一个对话框, 作为输入数据的界面, 这个对话框会等待用户输入数据, 并返回所输入的内容输入字符串的最大长度是 1024 个字符, 由所用字符的宽度决定在对话框内显示的字符串可以自动换行如果想按自己的要求换行, 则需插入回车换行操作, 即 Chr$(13)+Chr$(10) 或 vbcrlf (2) 函数 MsgBox( ) 执行该函数会弹出一个消息对话框, 等待用户单击按钮, 并返回一个 Integer 型数据, 告诉用户单击了哪个按钮 ; 该对话框中作为消息显示的字符串用于提示信息, 其规则与函数 InputBox( ) 相同函数 MsgBox( ) 根据所选定参数的不同, 可以弹出不同形式的消息框供用户使用 (3)MsgBox 语句该语句中各参数的含义及作用与函数 MsgBox( ) 相同由于不需要 MsgBox 语句的返回值, 则可直接使用该语句, 而不用给某个变量赋值该语句常用于较简单的信息显示实例 3.1 设计一个程序, 单击输入按钮可弹出一个输入对话框, 提示用户输入带区号的电话号码, 区号为 4 位, 号码为 8 位例如, 输入 , 然后将区号和电话号码在消息对话框中显示出来运行界面如图 3-1 所示图 3-1 实例 3.1 程序运行结果程序分析如下 : 1) 根据题意, 新建工程, 在窗体上放置一个命令按钮, 默认名称为 Command1, 并在属性窗口设置其 Captiom 属性为输入电话号码 2) 在命令按钮的单击事件中输入以下代码 : Private Sub Command1_Click() Dim tel$,qh$,hm$ tel=inputbox(" 请输入电话号码 :"," 输入数据 "," ") qh=left(tel,4) hm=right(tel,8) MsgBox" 区号 :"&qh&chr(10)&" 号码 :"&hm 15

实例 3.3 设计一个程序, 在文本框中输入一个 3 位整数, 单击拆分数据按钮后, 在标签上输出该数的百位数十位数和个位数, 运行界面如图 3-3 所示图 3-2 实例 3.2 程序运行结果图 3-3 实例 3.

20 Visual Basic 程序设计上机指导实例 3.2 在窗体的单击事件中输入以下代码, 程序运行时单击窗体, 程序运行结果如图 3-2 所示 Private Sub Form_CliCk() cls Dim a AS Boolean,b AS Boolean Dim X%,y% Me.fontsize=20 X=0 y=-2 a=x b=y Print a,b,x;y a=true b=false X=a y=b Print a,b,x;y 思考 : 将正数负数零赋值给逻辑型 (Boolean) 变量后, 逻辑型变量的值分别是什么? 反之, 将逻辑型变量的值 True False 赋给数值型变量后, 数值型变量的值分别是什么? 实例 3.3 设计一个程序, 在文本框中输入一个 3 位整数, 单击拆分数据按钮后, 在标签上输出该数的百位数十位数和个位数, 运行界面如图 3-3 所示图 3-2 实例 3.2 程序运行结果图 3-3 实例 3.3 程序运行界面程序分析如下 : 1) 新建一个工程, 在窗体上放置一个文本框 Text1, 两个标签 Label1 Label2 和一个命令按钮 Command1 2) 根据题意, 在命令按钮的单击事件中编写如下程序代码 : 16 Private Sub Command1_Click() Dim n%,a%,b%,c% 'a 为百位数,b 为十位数,c 为个位数 n=val(text1.text) a=n \ 100 b=(n-a*100)\10 c=n Mod 10 Label2.Caption=" 百位数 :"&a&", 十位数 :"&b&" 个位数 :"&c

4 输出结果根据题意, 在窗体的单击事件中编写程序代码如下 : Private Sub Form_Click() Me.FontName=" 仿宋 _GB2312" Me.

FontSize=14 Print " 姓名 ";Tab(10);" 性别 ";Tab(20);" 电话 " Print " 李红 ";Tab(10);" 女

";Tab(10);" 男 ";Tab(20);"13933665640" Print " 张丽 ";Tab(10);" 女 ";Tab(20);"13166236540" 思考

21 实验三 Visual Basic 程序设计基础实例 3.4 利用 Print 方法和函数 Tab( ) 在窗体上输出格式编写适当的程序, 当程序运行时单击窗体, 在窗体上输出如图 3-4 所示的结果图 3-4 实例 3.4 输出结果根据题意, 在窗体的单击事件中编写程序代码如下 : Private Sub Form_Click() Me.FontName=" 仿宋 _GB2312" Me.FontBold=True Me.FontSize=14 Print " 姓名 ";Tab(10);" 性别 ";Tab(20);" 电话 " Print " 李红 ";Tab(10);" 女 ";Tab(20);" " Print " 王林 ";Tab(10);" 男 ";Tab(20);" " Print " 刘明 ";Tab(10);" 男 ";Tab(20);" " Print " 张丽 ";Tab(10);" 女 ";Tab(20);" " 思考 : 如何用函数 spc( ) 编写程序代码, 使得运行结果和图 3-3 中的结果相同实例 3.5 Inputbox 和 Msgbox 的练习新建一个工程, 在窗体上放置两个标签程序运行时, 单击窗体, 利用输入数据对话框分别输入一个学生的姓名和电话, 然后以信息框的形式给出提示, 最后在窗体的两个标签上显示程序运行界面如图 3-5 所示, 输入数据对话框和信息框显示效果如图 3-6 所示图 3-5 实例 3.5 程序运行界面图 3-6 实例 3.5 的输入数据对话框和信息框显示效果 17

22 Visual Basic 程序设计上机指导程序分析如下 : 1) 新建一个工程, 在窗体上放置两个标签, 在属性窗口分别设置两个标签的 Caption 属性为空白 2) 窗体的单击事件过程代码如下 : Private Sub Form_Click() Dim name$,tel$ name=inputbox(" 请输入姓名 :"," 姓名 "," 张明 ") tel=inputbox(" 请输入电话号码 :"," 电话号码 ") MsgBox " 你的输入为 "&name&" 和 "&tel Label1.Caption=" 姓名 :"&name Label2.Caption=" 电话 :"&tel 题目 3.1 在窗体的单击事件中编写如下代码, 利用下列表达式测试运算符的功能 1)20\4.5 2)55 mod 2 3)6^3 4)not 3>2 and 9<10 or true 5)3<5 and 6>3 or 7>4 6)true>false 7)"ag">"ab" 题目 3.2 在窗体的单击事件中编写如下代码, 利用下列函数测试常用标准函数的功能 1)len("hello!"+space(2)+mid("shanghi",4)) 2)val(".1415e2")+sgn(100) 3)sgn(-345) 4)sqr(sqr(8)) 5)mid("how"&"are you",3,2) 6)instr(1,"how are you","are") 7)string(5,97) 8)int(200*rnd+1) 9)weekday(now) 题目 3.3 设计一个程序, 实现简单计算的功能, 运行界面如图 3-7 所示题目 3.4 设计一个程序, 使用函数 Inputbox( ) 输入某品牌电脑的单价和购买的数量, 计算并用函数 Msgbox( ) 输出需付款金额 18

23 实验三 Visual Basic 程序设计基础图 3-7 题目 3.3 程序运行界面题目 3.5 函数 Rnd( ) 产生一个 [0,1) 的单精度随机数, 用此函数产生一个两位的随机整数并用函数 Msgbox( ) 输出该整数值 19

FJXBQ

FJXBQ 高等医学院校选用教材 ( 供成人教育中医药专业中西医结合专业使用 ) 方剂学闫润红主编 2 0 0 1 内容简介本书是供成人教育中医药专业中西医结合专业使用的教材全书分总论和各论两部分, 总论部分对中医方剂的基本理论, 如治法君臣佐使剂型剂量等及其现代研究进展进行了介绍各论部分对常用方剂的主治病证配伍意义临床应用加减变化规律及现代研究概况等内容, 按分类进行了系统阐述在保证方剂学学科知识结构完整性的前提下,