VB程序设计与应用案例教案.ppt

《VB程序设计与应用案例教案.ppt》由会员分享，可在线阅读，更多相关《VB程序设计与应用案例教案.ppt（318页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB程序设计与应用案例 Still waters run deep.流静水深流静水深,人静心深人静心深 Where there is life,there is hope。有生命必有希望。有生命必有希望第第1章章 走进走进Visual Basic 学习目标：学习目标：u 认识认识Visual Basic 6.0的集成开发环境的集成开发环境u 理解对象、属性、事件和方法的概念理解对象、属性、事件和方法的概念u 了解了解Visual Basic事件驱动的编程特点事件驱动的编程特点u 了解了解VB程序的组成程序的组成u 学会使用学会使用Visual Basic的帮助系统的帮助系统第第1章章 走进走进

2、Visual Basic 教学内容：教学内容：1.1 Visual Basic编程入门编程入门 1.2 VB的对象与编程特点的对象与编程特点 1.3 VB的程序组成与代码窗口的程序组成与代码窗口 1.4 使用使用VB的帮助系统的帮助系统 1.1 Visual Basic编程入门编程入门 VB程序示例：程序示例：模拟彩票开奖器模拟彩票开奖器 简易编辑器简易编辑器 返回目录返回目录1.1 Visual Basic编程入门编程入门集成开发环境集成开发环境集成开发环境集成开发环境1.进入进入VB集成环境集成环境 返回目录返回目录1.1 Visual Basic编程入门编程入门集成开发环境集成开发环境集

3、成开发环境集成开发环境2.VB集成环境中的窗口集成环境中的窗口 属性窗口属性窗口窗体设计器窗体设计器工程资源工程资源管理器管理器窗体布局窗体布局窗口窗口工具箱工具箱返回目录返回目录1.1 Visual Basic编程入门编程入门创建创建创建创建VBVB程序的步骤程序的步骤程序的步骤程序的步骤 一般步骤一般步骤：建立工程：建立工程设计界面设计界面设置对象设置对象属性属性编写代码编写代码保存程序保存程序运行程序运行程序生成生成可执行文件可执行文件 例例1.1返回目录返回目录1.1 Visual Basic编程入门编程入门创建创建创建创建VBVB程序的步骤程序的步骤程序的步骤程序的步骤 1.建立工程

4、建立工程 工程是组成一个应用程序的文件集合工程是组成一个应用程序的文件集合(.vbp)，最常用，最常用的是标准的是标准EXE类型的工程。类型的工程。2.设计应用程序界面设计应用程序界面 使用工具箱中的各使用工具箱中的各种控件，在窗体设计种控件，在窗体设计器上器上“画画”界面。界面。返回目录返回目录1.1 Visual Basic编程入门编程入门创建创建创建创建VBVB程序的步骤程序的步骤程序的步骤程序的步骤 3.设置对象属性设置对象属性 通过属性窗口通过属性窗口通过程序代码通过程序代码 对象名对象名.属性名称属性名称=属性值属性值例如，例如，Label1.Caption=VB程序设计示例程序设

5、计示例 返回目录返回目录1.1 Visual Basic编程入门编程入门创建创建创建创建VBVB程序的步骤程序的步骤程序的步骤程序的步骤返回目录返回目录对象名称属性名称设置值Label1CaptionFont宋体、四号Command1Caption白色窗体Font楷体、小四Command2Caption红色文本Font楷体、小四Command3Caption退出程序Font楷体、小四1.1 Visual Basic编程入门编程入门创建创建创建创建VBVB程序的步骤程序的步骤程序的步骤程序的步骤 4.编写程序代码编写程序代码(事件响应代码事件响应代码)对象名称事件响应Command1单击(Cli

6、ck)将窗体的背景设置为白色Command2单击(Click)将窗体中文本的颜色设置为红色Command3单击(Click)结束程序运行Form装入(Load)显示“VB程序设计示例”返回目录返回目录双击双击1.1 Visual Basic编程入门编程入门创建创建创建创建VBVB程序的步骤程序的步骤程序的步骤程序的步骤返回目录返回目录1.1 Visual Basic编程入门编程入门创建创建创建创建VBVB程序的步骤程序的步骤程序的步骤程序的步骤 5.保存程序保存程序 返回目录返回目录6.运行程序运行程序“运行运行启动启动”或或7.生成可执行文件生成可执行文件 生成能够脱离生成能够脱离VB集成环

7、境运行的集成环境运行的exe文件文件 1.1 Visual Basic编程入门编程入门创建创建创建创建VBVB程序的步骤程序的步骤程序的步骤程序的步骤返回目录返回目录 上述步骤中最主要的是：上述步骤中最主要的是：设计应用程序的界面设计应用程序的界面 设置界面对象的属性设置界面对象的属性 编写程序代码编写程序代码1.2 VB的对象与编程特点的对象与编程特点VBVB的对象的对象的对象的对象VB编程的核心是针对对象所响应的事件编写代码。编程的核心是针对对象所响应的事件编写代码。1.对象和类对象和类对象是代码和数据的组合，可作为一个整体来处理。对象是代码和数据的组合，可作为一个整体来处理。VB中的对象

8、是由类创建的，对象是类的一个实例。中的对象是由类创建的，对象是类的一个实例。2.对象的属性对象的属性属性是描述对象特征的数据属性是描述对象特征的数据属性值的设置或修改可通过属性窗口和程序代码实现属性值的设置或修改可通过属性窗口和程序代码实现对象的属性有两类：读写属性、只读属性对象的属性有两类：读写属性、只读属性 返回目录返回目录1.2 VB的对象与编程特点的对象与编程特点VBVB的对象的对象的对象的对象3.对象的事件与事件过程对象的事件与事件过程 事件是预先设置好的、能够被对象识别和响应的动作事件是预先设置好的、能够被对象识别和响应的动作事件过程：对象对事件响应的程序代码事件过程：对象对事件响

9、应的程序代码 事件过程的一般格式：事件过程的一般格式：Private Sub对象名称对象名称_事件事件()事件过程代码事件过程代码End Sub例如：例如：Private Sub Command1_Click()Form1.BackColor=vbWhiteEnd Sub返回目录返回目录1.2 VB的对象与编程特点的对象与编程特点VBVB的对象的对象的对象的对象4.对象的方法对象的方法 方法告诉对象应做的事情，即对象的动作。方法告诉对象应做的事情，即对象的动作。调用格式：调用格式：对象名称对象名称.方法名称方法名称 例如：例如：Private Sub Form_Click()Debug.Pri

10、nt 你好你好!End Sub返回目录返回目录单击窗体1.2 VB的对象与编程特点的对象与编程特点VBVB的编程特点的编程特点的编程特点的编程特点u 面向对象的可视化的程序设计方法面向对象的可视化的程序设计方法 u 事件驱动的程序设计机制事件驱动的程序设计机制u 简单易学的程序设计语言简单易学的程序设计语言u 交互式的集成开发环境交互式的集成开发环境返回目录返回目录1.3 VB的程序组成与代码窗口的程序组成与代码窗口VBVB程序组成程序组成程序组成程序组成u一个一个VB应用程序应用程序(工程工程)可由多种类型的文件模块组成的，可由多种类型的文件模块组成的，最常用的是窗体模块和标准模块。最常用的

11、是窗体模块和标准模块。u与工程有关的全部文件和对象的清单，以及所设置的环与工程有关的全部文件和对象的清单，以及所设置的环境选项信息都保存在工程文件中境选项信息都保存在工程文件中(.vbp)。1.窗体模块窗体模块 界面和代码界面和代码 返回目录返回目录1.3 VB的程序组成与代码窗口的程序组成与代码窗口VBVB程序组成程序组成程序组成程序组成2.标准模块标准模块没有窗体，扩展名为没有窗体，扩展名为.bas通常声明其他模块共同使用的全局变量或通用过程通常声明其他模块共同使用的全局变量或通用过程 返回目录返回目录1.3 VB的程序组成与代码窗口的程序组成与代码窗口代码窗口代码窗口代码窗口代码窗口返回

12、目录返回目录过程查看 全模块查看 1.3 VB的程序组成与代码窗口的程序组成与代码窗口选项设置选项设置选项设置选项设置“工具工具选项选项”返回目录返回目录1.4 使用使用VB的帮助系统的帮助系统 注：系统中需安装帮助文档注：系统中需安装帮助文档MSDN 1.通过通过“帮助帮助”菜单菜单 返回目录返回目录1.4 使用使用VB的帮助系统的帮助系统2.通过通过F1键键 返回目录返回目录F1F1第第2章章 Visual Basic语言基础语言基础 学习目标：学习目标：u 掌握掌握VB的编码规则的编码规则u 了解了解VB的数据类型的数据类型u 掌握变量、常量的声明和使用掌握变量、常量的声明和使用u 掌握

13、运算符和表达式的使用掌握运算符和表达式的使用u 掌握掌握VB数据的输入与输出数据的输入与输出u 了解了解VB的内部函数的内部函数第第2章章 Visual Basic语言基础语言基础 教学内容：教学内容：2.1 VB编码编码规则规则 2.2 VB的数据类型的数据类型 2.3 变量与常量变量与常量 2.4 运算符与表达式运算符与表达式 2.5 数据的输入输出数据的输入输出 2.6 VB的常用内部函数的常用内部函数 2.1 VB编码规则编码规则 例例2.1 单击窗体可输出内容交换后的单击窗体可输出内容交换后的a变量和变量和b变量的值。变量的值。Private Sub Form_Click()Dim

14、a As Integer,b As Integer,intTemp As Integer 声明变量声明变量 a=10 变量赋值变量赋值 b=20 Print a变量和变量和b变量内容交换前：变量内容交换前：;a;b 变变量交量交换换 intTemp=a a=b b=intTemp Print a变变量和量和b变变量内容交量内容交换换后：后：;a;b End Sub 返回目录返回目录2.1 VB编码规则编码规则语句书写规则语句书写规则语句书写规则语句书写规则u语句输入时不区分大小写，一条语句通常写在一行中。语句输入时不区分大小写，一条语句通常写在一行中。u一行中若输入多条语句，需用一行中若输入多

15、条语句，需用“:”“:”分隔。例如，分隔。例如，intTemp=a:a=b:b=intTemp u长语句可通过续行符长语句可通过续行符“_”(“_”(空格后加下划线空格后加下划线)分行。分行。例如，例如，Print a变量和变量和b变量内容交换前：变量内容交换前：;a;b 可分成以下两行输入：可分成以下两行输入：Print a变量和变量和b变量内容交换前：变量内容交换前：;_ a;bu单单引引号号后后面面的的内内容容为为注注释释，可可放放在在一一行行语语句句的的最最后后，或或单单独占据一行。独占据一行。u数值前加上前缀数值前加上前缀&H和和&0分别表示十六进制和八进制数。分别表示十六进制和八进

16、制数。返回目录返回目录2.1 VB编码规则编码规则标识符命名规则标识符命名规则标识符命名规则标识符命名规则 标标识识符符：变变量量、常常量量、类类型型、过过程程、函函数数、以以及及其其它它对对象的名字。象的名字。命名规则命名规则：由由字字母母、汉汉字字、数数字字或或下下划划线线组组成成，第第一一个个字字符符必必须须是字母或汉字。是字母或汉字。长长度度不不超超过过255个个字字符符。其其中中，窗窗体体、控控件件和和模模块块的的标标识符长度不能超过识符长度不能超过40个字符。个字符。不要与不要与VB中的关键字同名中的关键字同名最好能最好能“见名知义见名知义”返回目录返回目录2.1 VB编码规则编码

17、规则赋值语句赋值语句赋值语句赋值语句 语法格式：语法格式：Let 变量名变量名=表达式表达式 作用：变量赋值或属性设置。例如：作用：变量赋值或属性设置。例如：Pi=3.14159strTemp=“Hello!”Label1.Caption=“VB程序设计示例程序设计示例”Form1.BackColor=vbWhite 说明：说明：只只有有当当表表达达式式的的类类型型与与变变量量的的数数据据类类型型兼兼容容时时，该该表表达达式式的的值值才才可以赋给相应的变量或属性。可以赋给相应的变量或属性。不管表达式是什么类型，都可以赋给不管表达式是什么类型，都可以赋给Variant(变体类型变体类型)变量。变

18、量。返回目录返回目录2.2 VB的数据类型的数据类型基本数据类型基本数据类型基本数据类型基本数据类型 VB提供的基本数据类型见教材表提供的基本数据类型见教材表2.1。1.数值型数值型 字节型字节型(Byte)：存：存放放无符号整数，取值范围无符号整数，取值范围0 255整型：整型：Integer和和Long，存放整数，存放整数浮浮 点点 型型(实实 型型)：单单 精精 度度 型型(Single)和和 双双 精精 度度 型型(Double)存放带小数的数值存放带小数的数值 例：例：单精度数单精度数 -6.25E8表示表示-6.25108 双精度数双精度数 7.878D-6表示表示 7.87810

19、6 货币型货币型(Currency)：一种精确的定点类型数据：一种精确的定点类型数据 支持支持15位整数和位整数和4位小数位小数 返回目录返回目录2.2 VB的数据类型的数据类型基本数据类型基本数据类型基本数据类型基本数据类型 2.字符串型字符串型(String)VB字符串是由字符串是由双引号双引号括起来的一串字符括起来的一串字符不含任何字符不含任何字符(长度为长度为0)的字符串称为空串的字符串称为空串String型变量型变量有变长和定长之分，例：有变长和定长之分，例：Dim NameA As String 声明变长字符串变量声明变长字符串变量 Dim NameB As String*20 声

20、明定长字符串变量声明定长字符串变量 3.逻辑型逻辑型(Boolean)逻辑型逻辑型数据的取值：数据的取值：True或或False，例：，例：Dim BoolR As Boolean BoolR=68 Print BoolR 输输出出：False 返回目录返回目录2.2 VB的数据类型的数据类型基本数据类型基本数据类型基本数据类型基本数据类型 4.日期型日期型(Date)日期型变量可存放日期和时间日期型变量可存放日期和时间日期型常数的表现形式：日期型常数的表现形式：#mm/dd/yyyy hh:mm:ss#mm/dd/yyyy hh:mm:ss 日期型数据的输出格式取决于系统的区域设置日期型数据

21、的输出格式取决于系统的区域设置 例例：Dim d As Date 声明日期型变量声明日期型变量D D=#10/5/2002#日期型变量赋值日期型变量赋值 Print D 输出日期型变量的值输出日期型变量的值返回目录返回目录2.2 VB的数据类型的数据类型基本数据类型基本数据类型基本数据类型基本数据类型 5.对象型对象型(Object)声明声明对象对象变量后，用变量后，用Set语句指定实际引用的对象语句指定实际引用的对象 例，窗体上有命令按钮例，窗体上有命令按钮Command1，执行如下语句，执行如下语句，可将该按钮的显示文字改为可将该按钮的显示文字改为OK Dim a As Object 声明

22、声明a为对象型变量为对象型变量 Set a=Command1 指定指定a引用引用Command1命令按钮命令按钮 a.Caption=“OK”与与Command1.Caption等价等价6.变体型变体型(Variant)变体变体：在程序运行期间可存放不同类型的数据。：在程序运行期间可存放不同类型的数据。例：例：Dim X X缺省缺省为为 Variant类类型型 X=17 X被被赋赋予字符串予字符串 17 X=X 2 X被被赋赋予数予数值值15 X=A&X X被被赋赋予字符串予字符串 A15 返回目录返回目录2.2 VB的数据类型的数据类型自定义数据类型自定义数据类型自定义数据类型自定义数据类型

23、 u在模块的在模块的“通用通用”声明段声明声明段声明 Private|Public Type 数据类型名数据类型名 元素名元素名1 As 类型名类型名 元素名元素名2 As 类型名类型名 End Type Public：声明的类型在工程中所有模块的任何过程中可用：声明的类型在工程中所有模块的任何过程中可用Private：声明的类型只能在当前模块中使用：声明的类型只能在当前模块中使用 u声明自定义数据类型后，可使用该类型。例声明自定义数据类型后，可使用该类型。例 Dim studTemp As student 声明为声明为student类型变量类型变量u访问自定义数据类型的变量：访问自定义数据类

24、型的变量：变量名变量名.成员名成员名，如：，如：studTemp.id=“030005”studTemp.xm=“李斌李斌”返回目录返回目录2.3 变量与常量变量与常量变量变量变量变量 1.变量的声明变量的声明通过类型符号：直接在变量名后面加上类型符号通过类型符号：直接在变量名后面加上类型符号 S&=10 声明声明S为长整型变量为长整型变量 使用声明语句使用声明语句 Dim 变量名变量名 As 类型类型 Dim 变量名变量名 类型符类型符 例如，下面两条声明语句的效果相同：例如，下面两条声明语句的效果相同：Dim a As Integer,b As Long,c As Single,d As

25、Double Dim a%,b&,c！,d#若省略类型说明，被声明的变量为若省略类型说明，被声明的变量为Variant型。例如：型。例如：Dim a,b a和和b均均为变为变体型体型变变量量 Dim S1,S2 As String*6 S1为变为变体型体型变变量量,S2为为定定长长字符串字符串 返回目录返回目录见表见表2.22.3 变量与常量变量与常量变量变量变量变量 2.变量的隐式及显式声明变量的隐式及显式声明不声明就用的变量被隐式声明为不声明就用的变量被隐式声明为Variant，初值，初值Empty 强制进行变量的显式声明强制进行变量的显式声明v“通用通用”声明段中加上语句：声明段中加上语

26、句：Option Explicit v“工具工具选项选项”“”“编辑器编辑器”返回目录返回目录对新模块起作用对新模块起作用遇到未经声明的变遇到未经声明的变量包括输错的变量，量包括输错的变量，系统会发出错误警系统会发出错误警告告 2.3 变量与常量变量与常量变量变量变量变量 3.变量的有效范围变量的有效范围 (1)局部变量：在一个局部变量：在一个过程内部声明过程内部声明的变量的变量 有效范围限于声明它的过程有效范围限于声明它的过程 自动变量：自动变量：用用Dim声明，声明，变量值只在过程执行期间才存在变量值只在过程执行期间才存在 静态变量：用静态变量：用Static声明，声明，变量值在程序运行期

27、间一直存在变量值在程序运行期间一直存在 例例2.2 统计单击窗体的次数统计单击窗体的次数 Private Sub Form_Click()Static intCount As Integer intCount=intCount+1 Print intCount End Sub 返回目录返回目录单击窗体单击窗体3 次次 将将Static改为改为Dim 2.3 变量与常量变量与常量变量变量变量变量 (2)模块变量：模块变量：“通用通用”声明段用声明段用Private或或Dim语句声明语句声明 可被该模块中的任何过程所访问可被该模块中的任何过程所访问 例例2.3 Private a As Integ

28、er,b As Integer 声明模块变量声明模块变量 Private Sub Command1_Click()Dim intTemp As Integer 声明局部变量声明局部变量 a=10:b=20 Print a和和b内容交换前：内容交换前：;a;b intTemp=a:a=b:b=intTemp 变量交换变量交换 End Sub Private Sub Command2_Click()Print:Print a和和b内容交换后：内容交换后：;a;b End Sub返回目录返回目录2.3 变量与常量变量与常量变量变量变量变量 (3)全局变量：全局变量：标准模块的声明段用标准模块的声明段

29、用Public或或Global声明声明 有效范围是整个工程的所有模块有效范围是整个工程的所有模块 说明：说明：标准模块：只含有程序代码的文件，扩展名为标准模块：只含有程序代码的文件，扩展名为.bas添加标准模块：添加标准模块：“工程工程添加模块添加模块”如果在窗体模块的如果在窗体模块的“通用通用”返回目录返回目录声声明明段段用用Public声声明明变变量量，其其它它模模块块可可通通过过如如下下方方式式引用该变量：引用该变量：窗体模块名窗体模块名.变量名变量名2.3 变量与常量变量与常量常量常量常量常量 1.内部常量内部常量 由应用程序和控件提供。例如：由应用程序和控件提供。例如：Form1.B

30、ackColor=vbBlue vbBlue是表示蓝色的内部常量是表示蓝色的内部常量 查看系统预定义常量：查看系统预定义常量：“视图视图对象浏览器对象浏览器”返回目录返回目录2.3 变量与常量变量与常量常量常量常量常量 2.符号常量符号常量(自定义常量自定义常量)命名：遵循标识符命名的规则命名：遵循标识符命名的规则声明格式：声明格式：Public|Private Const 常量名常量名As 类型类型=表达式表达式 例：例：Const conMax As Integer=9 声明声明Integer型常量型常量 Const conDate=#10/5/2002#声明声明Date型常量型常量 Co

31、nst CodeName=ASCII 声明声明String型常量型常量有效范围：局部常量、模块常量、全局常量有效范围：局部常量、模块常量、全局常量声明常量的表达式中不能出现函数调用和循环引用声明常量的表达式中不能出现函数调用和循环引用 例：错误的常量声明例：错误的常量声明 Const conS=Sqr(10)Const conA=conB+10,conB=conA+1返回目录返回目录2.4 运算符与表达式运算符与表达式运算符运算符运算符运算符 1.算术运算符算术运算符 返回目录返回目录优先级运算运算符举例结果高低乘方238取负-23-8乘、除*/5*3/27.5整除5*327求余Mod5*3M

32、od21加、减+-10-3+(-2)52.4 运算符与表达式运算符与表达式运算符运算符运算符运算符 2.字符串运算符字符串运算符运算符：运算符：&和和+例：例：VB=“Visual”+“Basic”连接为字符串连接为字符串“Visual Basic”label1.Caption=第第&Str(N)&条条记录记录 Str为为数数值值型型转转字字符符型型函函数数。若若N为为1，标标签签上上显显示示“第第1条条记记录录”说明：说明：v使用使用+号号，要求连接的两个表达式均为字符串型，要求连接的两个表达式均为字符串型v使使用用&号号，连连接接的的两两个个表表达达式式可可以以为为任任何何类类型型，但但结

33、结果果为为字字符串型符串型，如如 “当前日期当前日期” /8/2002#返回目录返回目录2.4 运算符与表达式运算符与表达式运算符运算符运算符运算符 3.关系运算符关系运算符返回目录返回目录运 算运算符举 例结 果 等于=Hello=helloFalse 不等于HellohelloTrue 大于HellohelloFalse 大于等于=45+10=55True 小于aabTrue 小于等于=45+10 5)，结果为，结果为True And：两个表达式均为：两个表达式均为True时，结果为时，结果为True 例如，例如，(4 5)And(8 7)，结果为，结果为False Or：两个表达式

34、均为：两个表达式均为False时，结果为时，结果为False 例如，例如，(4 5)Or(8 7)，结果为，结果为True 返回目录返回目录XYNotYXAndYXOrYFalse False TrueFalseFalseFalse TrueFalseFalseTrueTrue False TrueFalseTrueTrue TrueFalseTrueTrue2.4 运算符与表达式运算符与表达式表达式表达式表达式表达式 u表表达达式式：用用运运算算符符和和圆圆括括号号将将常常量量、变变量量、函函数数和和常常数数连接起来组成的有意义的式子。连接起来组成的有意义的式子。如，如，数值表达式数值表达式

35、 Cos(180*Pi/180)*100 逻辑表达式逻辑表达式 (N=0)And(N Mod 2 0)u运算优先顺序运算优先顺序(从高到低从高到低)：函数函数算术运算算术运算(乘方乘方取负取负乘乘/除除整除整除求余求余加加/减减)字符串运算符字符串运算符关系运算符关系运算符逻辑运算符逻辑运算符(NotAndOr)u用括号可以改变运算顺序用括号可以改变运算顺序u乘方和负号相邻时，取负优先。乘方和负号相邻时，取负优先。例如：例如：2 -2 的结果是的结果是0.25，相当于，相当于2(-2)返回目录返回目录2.5 数据的输入输出数据的输入输出数据输出数据输出数据输出数据输出 1.Print方法方法

36、功能：在窗体功能：在窗体/立即窗口立即窗口/图片框图片框/打印机上输出信息打印机上输出信息格式：格式：对象对象.Print 输出项输出项 ,|;v对象对象缺省为当前窗体，缺省为当前窗体，输出项输出项缺省则打印一空白行缺省则打印一空白行v输输出出项项之之间间可可用用分分号号或或逗逗号号分分隔隔：使使用用分分号号，其其后后的的输输出出项项紧紧接接着着前前一一个个输输出出项项输输出出；使使用用逗逗号号，其其后后的的输输出出项项在在下下一一个输出区输出。个输出区输出。v两个输出区默认相隔两个输出区默认相隔1414列列 v各输出项表示要打印的表达式，组成各输出项表示要打印的表达式，组成 Spc(n)|T

37、ab(n)表达式表达式 Spc(n)：指定在输出之前插入：指定在输出之前插入n个空白字符个空白字符 Tab(n)：指定在第：指定在第n列上输出列上输出返回目录返回目录2.5 数据的输入输出数据的输入输出数据输出数据输出数据输出数据输出 例，例，Private Sub Form_Click()Print Print Tab(15);*Print Tab(13);*;Spc(1);*;Spc(1);*“End Sub 返回目录返回目录2.5 数据的输入输出数据的输入输出数据输出数据输出数据输出数据输出 2.格式输出函数格式输出函数 功能：使数值、日期或字符串按指定的格式输出功能：使数值、日期或字符

38、串按指定的格式输出格式：格式：Format(expression,format)expression需要格式化输出的表达式需要格式化输出的表达式 format 输出的格式模式输出的格式模式 返回目录返回目录2.5 数据的输入输出数据的输入输出数据输出数据输出数据输出数据输出 3.MsgBox函数函数 功能：创建预定义的消息对话框功能：创建预定义的消息对话框常用格式：常用格式：MsgBox(prompt,buttons,title)prompt字符串，指定消息框中显示的信息字符串，指定消息框中显示的信息 Buttons指定消息框中显示的按钮数目及形式、图标样式等，指定消息框中显示的按钮数目及形式

39、、图标样式等，缺省值为缺省值为vbOKOnly 常用的设置值见教材表常用的设置值见教材表2.6 Title指定消息框的标题，缺省值为工程名指定消息框的标题，缺省值为工程名 用用户户所所选选按按钮钮的的返返回回值值(见见教教材材表表2.7)可可作作为为继继续续执执行行程序的依据。程序的依据。返回目录返回目录2.5 数据的输入输出数据的输入输出数据输出数据输出数据输出数据输出 例例2.4 Private Sub Form_Click()prompt=真的新增该条记录吗真的新增该条记录吗 answer=MsgBox(prompt,vbOKCancel,Add Record)If answer=vbO

40、K Then Debug.Print 您选择的是您选择的是“确定确定”按钮按钮 If answer=vbCancel Then Debug.Print 您您选选择择的的是是“取取消消”按按钮钮End Sub返回目录返回目录2.5 数据的输入输出数据的输入输出数据输出数据输出数据输出数据输出 说明：说明：如如果果消消息息框框中中显显示示的的信信息息过过长长，可可使使用用回回车车符符Chr(13)和换行符和换行符Chr(10)如果不需要返回值，可使用没有括号的如果不需要返回值，可使用没有括号的MsgBox语句：语句：MsgBox prompt,buttons,title 例，例，Msg=非非法法的

41、的数数据据输输入入!&Chr(13)&Chr(10)&请请重重新新输输入入 Title=出错提示出错提示 MsgBox Msg,vbCritical,Title 返回目录返回目录2.5 数据的输入输出数据的输入输出数据输入数据输入数据输入数据输入 u 功能：生成输入对话框功能：生成输入对话框 u 常用格式：常用格式：InputBox(prompt,title,default,xpos,ypos)prompt字符串，指定输入框中显示的信息字符串，指定输入框中显示的信息 Title指定输入框的标题，缺省值为工程名指定输入框的标题，缺省值为工程名 Default字符串，指定文本框中的初始内容，缺省为

42、空。字符串，指定文本框中的初始内容，缺省为空。xpos和和ypos数值表达式，成对出现或者成对缺省，数值表达式，成对出现或者成对缺省，指定输入框左上角相对于屏幕的位置。指定输入框左上角相对于屏幕的位置。u InputBox函数一次只能输入一个值函数一次只能输入一个值 返回目录返回目录2.5 数据的输入输出数据的输入输出数据输入数据输入数据输入数据输入 例例2.5 Private Sub Form_Click()Dim Username Username=InputBox(输入姓名后单击输入姓名后单击确定确定,输入输入)Print UsernameEnd Sub 返回目录返回目录2.6 常用内部

43、函数常用内部函数数学函数数学函数数学函数数学函数 u常用数学函数见教材表常用数学函数见教材表2.8u几点说明：几点说明：由基本函数可导出所需的数学函数由基本函数可导出所需的数学函数 例如，例如，Log(X)/Log(N)可求出以可求出以N为底的对数为底的对数对对Rnd(N)，N的值决定了的值决定了Rnd生成随机数的方式生成随机数的方式vN0或者缺省：产生序列中的下一个随机数或者缺省：产生序列中的下一个随机数 vN=0：返回最近生成的随机数：返回最近生成的随机数 返回目录返回目录例如：随机产生例如：随机产生1-selenum之间的数之间的数 Randomize(Timer)Selenum=7 R

44、n=Int(Selenum)*Rnd+1)调用调用Rnd之前，使用之前，使用Randomize语句可产生不语句可产生不相同的随机数数列相同的随机数数列2.6 常用内部函数常用内部函数字符串函数字符串函数字符串函数字符串函数 u常用字符串函数见教材表常用字符串函数见教材表2.9u几点说明：几点说明：表表2.9只对常用的字符串函数进行了简单的说明只对常用的字符串函数进行了简单的说明使用使用Str函数将数字转成字符串时，字符串的首位函数将数字转成字符串时，字符串的首位一定是空格或是正负号。例如，一定是空格或是正负号。例如，S1=Str(67)返回返回 67 S2=Str(-67.5)返回返回-67.

45、5 使用使用Val函数时，如果遇到不能识别为数字的字符，函数时，如果遇到不能识别为数字的字符，则停止转换。例如，则停止转换。例如，Val(“24 and 57”)返回返回24 Val(not 57)返回返回0 返回目录返回目录2.6 常用内部函数常用内部函数日期函数日期函数日期函数日期函数 常用的日期函数见下表。其中，常用的日期函数见下表。其中，D表示日期类型表达式。表示日期类型表达式。返回目录返回目录函数名功能简述示例Date/Time返回系统日期或时间Date返回系统当前日期Now返回系统日期和时间略Year/Month/Day(D)返回年、月、日Year(Now)返回2003WeekDa

46、y(D)返回星期几WeekDay(Now)返回3Hour(time)返回小时数Hour(Time)返回21 上述示例的当前日期时间是上述示例的当前日期时间是2003年年3月月18号、星号、星期三、晚上期三、晚上9点点10分。分。2.6 常用内部函数常用内部函数类型转换函数类型转换函数类型转换函数类型转换函数 作用：作用：强制将一个表达式转换成某种特定数据类型强制将一个表达式转换成某种特定数据类型 返回目录返回目录函数名返回类型函数名返回类型CBool(X)BooleanCInt(X)IntegerCDate(X)DateCLng(X)LongCCur(X)CurrencyCSng(X)Sing

47、le第第3章章 控制语句与程序调试控制语句与程序调试学习目标：学习目标：u 掌握掌握If 条件语句和条件语句和Select Case选择语句选择语句 u 掌握掌握ForNext和和DoLoop循环语句循环语句 u 掌握两重循环，了解多重循环掌握两重循环，了解多重循环 u 了解了解Exit、End和和Goto语句语句 u 掌握程序的简单调试方法掌握程序的简单调试方法 第第3章章 控制语句与程序调试控制语句与程序调试 教学内容：教学内容：3.1 选择结构与相关语句选择结构与相关语句 3.2 循环语句循环语句 3.3 其它语句其它语句 3.4 程序调试程序调试3.1 选择结构选择结构u选选择择结结构

48、构：当当设设定定条条件件成成立立时时执执行行某某些些语语句句，条条件件不不成成立立时时则则跳跳过过这这些语句或执行其它的语句。些语句或执行其它的语句。u选选择择结结构构中中要要使使用用选选择择语语句句，有有两两路路分分支支和和多多路路分分支支两两种种情情况况，对对应应的的选选择择语语句句有有If语语句句(两两路路出出口口)和和Select Case语句语句(多路出口多路出口)。返回目录返回目录3.1 选择结构选择结构If If条件语句条件语句条件语句条件语句 1.If Then 其中，其中，是一个条件表达式或逻辑表达式是一个条件表达式或逻辑表达式 例如，例如，If Data=90 Then P

49、rint“优秀优秀”例例3.1输入一个数，如果是输入一个数，如果是3的的倍数则通过消息框输出。倍数则通过消息框输出。Private Sub Form_Click()Dim Data As Integer Data=InputBox(请输入一个值：请输入一个值：)If Data Mod 3=0 Then MsgBox Data End Sub返回目录返回目录Data是是3的倍数的倍数 Data=90?输出输出“优秀优秀”YesNoData=90?输出输出“优秀优秀”YesNo输出输出“合格合格”输出输出“计算完毕计算完毕”3.1 选择结构选择结构If If条件语句条件语句条件语句条件语句 2.I

50、f Then Else 例如，例如，Dim Data As Integer Data=InputBox(“请输入成绩：请输入成绩：)If Data=90 Then Print“优秀优秀”Else Print“合格合格”Print 计算完毕计算完毕 上例的上例的If 语句可以改写为：语句可以改写为：If Data 90 Then Print 合格合格 Else Print 优秀优秀 返回目录返回目录3.1 选择结构选择结构IfIfIfIf条件语句条件语句条件语句条件语句 3.块状块状If语句语句 返回目录返回目录IfThenEndIf例3.2IfThenElseEndIfA=InputBox(“