1、学习目标：学习目标：u 认识认识Visual Basic 6.0的集成开发环境的集成开发环境u 理解对象、属性、事件和方法的概念理解对象、属性、事件和方法的概念u 了解了解Visual Basic事件驱动的编程特点事件驱动的编程特点u 了解了解VB程序的组成程序的组成u 学会使用学会使用Visual Basic的帮助系统的帮助系统 教学内容：教学内容：1.1 Visual Basic编程入门编程入门 1.2 VB的对象与编程特点的对象与编程特点 1.3 VB的程序组成与代码窗口的程序组成与代码窗口 1.4 使用使用VB的帮助系统的帮助系统 VB程序示例：程序示例：模拟彩票开奖器模拟彩票开奖器
2、简易编辑器简易编辑器 返回目录返回目录1.进入进入VB集成环境集成环境 返回目录返回目录2.VB集成环境中的窗口集成环境中的窗口 属性窗口属性窗口窗体设计器窗体设计器工程资源工程资源管理器管理器窗体布局窗体布局窗口窗口工具箱工具箱返回目录返回目录 一般步骤一般步骤：建立工程：建立工程设计界面设计界面设置对象设置对象属性属性编写代码编写代码保存程序保存程序运行程序运行程序生成生成可执行文件可执行文件 例例1.1返回目录返回目录 1.建立工程建立工程 工程是组成一个应用程序的文件集合工程是组成一个应用程序的文件集合(.vbp)，最常用的，最常用的是标准是标准EXE类型的工程。类型的工程。2.设计应
3、用程序界面设计应用程序界面 使用工具箱中的各使用工具箱中的各种控件，在窗体设计种控件，在窗体设计器上器上“画画”界面。界面。返回目录返回目录 3.设置对象属性设置对象属性 通过属性窗口通过属性窗口通过程序代码通过程序代码 对象名对象名.属性名称属性名称=属性值属性值例如，例如，Label1.Caption=VB程序设计示例程序设计示例 返回目录返回目录返回目录返回目录对象名称对象名称属性名称属性名称设置值设置值Label1CaptionFont宋体、四号宋体、四号Command1Caption白色窗体白色窗体Font楷体、小四楷体、小四Command2Caption红色文本红色文本Font楷体
4、、小四楷体、小四Command3Caption退出程序退出程序Font楷体、小四楷体、小四 4.编写程序代码编写程序代码(事件响应代码事件响应代码)对象名称对象名称事件事件响应响应Command1单击单击(Click)将窗体的背景设置为白色将窗体的背景设置为白色Command2单击单击(Click)将窗体中文本的颜色设置为红色将窗体中文本的颜色设置为红色Command3单击单击(Click)结束程序运行结束程序运行Form装入装入(Load)显示显示“VB程序设计示例程序设计示例”返回目录返回目录双击双击返回目录返回目录 5.保存程序保存程序 返回目录返回目录6.运行程序运行程序“运行运行启动
5、启动”或或7.生成可执行文件生成可执行文件 生成能够脱离生成能够脱离VB集成环境运行的集成环境运行的exe文件文件 返回目录返回目录 上述步骤中最主要的是：上述步骤中最主要的是：设计应用程序的界面设计应用程序的界面 设置界面对象的属性设置界面对象的属性 编写程序代码编写程序代码VB编程的核心是针对对象所响应的事件编写代码。编程的核心是针对对象所响应的事件编写代码。1.对象和类对象和类对象是代码和数据的组合，可作为一个整体来处理。对象是代码和数据的组合，可作为一个整体来处理。VB中的对象是由类创建的，对象是类的一个实例。中的对象是由类创建的，对象是类的一个实例。2.对象的属性对象的属性属性是描述
6、对象特征的数据属性是描述对象特征的数据属性值的设置或修改可通过属性窗口和程序代码实现属性值的设置或修改可通过属性窗口和程序代码实现对象的属性有两类：读写属性、只读属性对象的属性有两类：读写属性、只读属性 返回目录返回目录3.对象的事件与事件过程对象的事件与事件过程 事件是预先设置好的、能够被对象识别和响应的动作事件是预先设置好的、能够被对象识别和响应的动作事件过程：对象对事件响应的程序代码事件过程：对象对事件响应的程序代码 事件过程的一般格式：事件过程的一般格式：Private Sub对象名称对象名称_事件事件()事件过程代码事件过程代码End Sub例如：例如：Private Sub Com
7、mand1_Click()Form1.BackColor=vbWhiteEnd Sub返回目录返回目录4.对象的方法对象的方法 方法告诉对象应做的事情，即对象的动作。方法告诉对象应做的事情，即对象的动作。调用格式：调用格式：对象名称对象名称.方法名称方法名称 例如：例如：Private Sub Form_Click()Debug.Print 你好你好!End Sub返回目录返回目录单击窗体u 面向对象的可视化的程序设计方法面向对象的可视化的程序设计方法 u 事件驱动的程序设计机制事件驱动的程序设计机制u 简单易学的程序设计语言简单易学的程序设计语言u 交互式的集成开发环境交互式的集成开发环境返
8、回目录返回目录u一个一个VB应用程序应用程序(工程工程)可由多种类型的文件模块组成的，可由多种类型的文件模块组成的，最常用的是窗体模块和标准模块。最常用的是窗体模块和标准模块。u与工程有关的全部文件和对象的清单，以及所设置的环与工程有关的全部文件和对象的清单，以及所设置的环境选项信息都保存在工程文件中境选项信息都保存在工程文件中(.vbp)。1.窗体模块窗体模块 界面和代码界面和代码 返回目录返回目录2.标准模块标准模块没有窗体，扩展名为没有窗体，扩展名为.bas通常声明其他模块共同使用的全局变量或通用过程通常声明其他模块共同使用的全局变量或通用过程 返回目录返回目录返回目录返回目录过程查看
9、全模块查看 “工具工具选项选项”返回目录返回目录 注：系统中需安装帮助文档注：系统中需安装帮助文档MSDN 1.通过通过“帮助帮助”菜单菜单 返回目录返回目录2.通过通过F1键键 返回目录返回目录F1F1学习目标：学习目标：u 掌握掌握VB的编码规则的编码规则u 了解了解VB的数据类型的数据类型u 掌握变量、常量的声明和使用掌握变量、常量的声明和使用u 掌握运算符和表达式的使用掌握运算符和表达式的使用u 掌握掌握VB数据的输入与输出数据的输入与输出u 了解了解VB的内部函数的内部函数 教学内容：教学内容：2.1 VB编码编码规则规则 2.2 VB的数据类型的数据类型 2.3 变量与常量变量与常
10、量 2.4 运算符与表达式运算符与表达式 2.5 数据的输入输出数据的输入输出 2.6 VB的常用内部函数的常用内部函数 例例2.1 单击窗体可输出内容交换后的单击窗体可输出内容交换后的a变量和变量和b变量的值。变量的值。Private Sub Form_Click()Dim 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变量内容交换
11、后：变量内容交换后：;a;b End Sub 返回目录返回目录u语句输入时不区分大小写，一条语句通常写在一行中。语句输入时不区分大小写，一条语句通常写在一行中。u一行中若输入多条语句，需用一行中若输入多条语句，需用“:”:”分隔。例如，分隔。例如，intTemp=a:a=b:b=intTemp u长语句可通过续行符长语句可通过续行符“_”(_”(空格后加下划线空格后加下划线)分行。分行。例如，例如，Print a变量和变量和b变量内容交换前：变量内容交换前：;a;b 可分成以下两行输入：可分成以下两行输入：Print a变量和变量和b变量内容交换前：变量内容交换前：;_ a;bu单引号后面的内
12、容为注释，可放在一行语句的最后，或单单引号后面的内容为注释，可放在一行语句的最后，或单独占据一行。独占据一行。u数值前加上前缀数值前加上前缀&H和和&0分别表示十六进制和八进制数。分别表示十六进制和八进制数。返回目录返回目录 标识符标识符：变量、常量、类型、过程、函数、以及其它对：变量、常量、类型、过程、函数、以及其它对象的名字。象的名字。命名规则命名规则：由字母、汉字、数字或下划线组成，第一个字符必须由字母、汉字、数字或下划线组成，第一个字符必须是字母或汉字。是字母或汉字。长度不超过长度不超过255个字符。其中，窗体、控件和模块的标个字符。其中，窗体、控件和模块的标识符长度不能超过识符长度不
13、能超过40个字符。个字符。不要与不要与VB中的关键字同名中的关键字同名最好能最好能“见名知义见名知义”返回目录返回目录 语法格式：语法格式：Let 变量名变量名=表达式表达式 作用：变量赋值或属性设置。例如：作用：变量赋值或属性设置。例如：Pi=3.14159strTemp=“Hello!”Label1.Caption=“VB程序设计示例程序设计示例”Form1.BackColor=vbWhite 说明：说明：只有当表达式的类型与变量的数据类型兼容时，该表达式的值才只有当表达式的类型与变量的数据类型兼容时，该表达式的值才可以赋给相应的变量或属性。可以赋给相应的变量或属性。不管表达式是什么类型，
14、都可以赋给不管表达式是什么类型，都可以赋给Variant(变体类型变体类型)变量。变量。返回目录返回目录 VB提供的基本数据类型见教材表提供的基本数据类型见教材表2.1。1.数值型数值型 字节型字节型(Byte)：存：存放放无符号整数，取值范围无符号整数，取值范围0 255整型：整型：Integer和和Long，存放整数，存放整数浮点型浮点型(实型实型)：单精度型：单精度型(Single)和双精度型和双精度型(Double)存放带小数的数值存放带小数的数值 例：例：单精度数单精度数 -6.25E8表示表示-6.25108 双精度数双精度数 7.878D-6表示表示 7.878106 货币型货币
15、型(Currency)：一种精确的定点类型数据：一种精确的定点类型数据 支持支持15位整数和位整数和4位小数位小数 返回目录返回目录2.字符串型字符串型(String)VB字符串是由字符串是由双引号双引号括起来的一串字符括起来的一串字符不含任何字符不含任何字符(长度为长度为0)的字符串称为空串的字符串称为空串String型变量型变量有变长和定长之分，例：有变长和定长之分，例：Dim NameA As String 声明变长字符串变量声明变长字符串变量 Dim NameB As String*20 声明定长字符串变量声明定长字符串变量 3.逻辑型逻辑型(Boolean)逻辑型逻辑型数据的取值：数
16、据的取值：True或或False，例：，例：Dim BoolR As Boolean BoolR=68 Print BoolR 输出输出：False 返回目录返回目录4.日期型日期型(Date)日期型变量可存放日期和时间日期型变量可存放日期和时间日期型常数的表现形式：日期型常数的表现形式：#mm/dd/yyyy hh:mm:ss#mm/dd/yyyy hh:mm:ss 日期型数据的输出格式取决于系统的区域设置日期型数据的输出格式取决于系统的区域设置 例例：Dim d As Date 声明日期型变量声明日期型变量D D=#10/5/2002#日期型变量赋值日期型变量赋值 Print D 输出日期
17、型变量的值输出日期型变量的值返回目录返回目录5.对象型对象型(Object)声明声明对象对象变量后，用变量后，用Set语句指定实际引用的对象语句指定实际引用的对象 例，窗体上有命令按钮例，窗体上有命令按钮Command1，执行如下语句，执行如下语句，可将该按钮的显示文字改为可将该按钮的显示文字改为OK Dim a As Object 声明声明a为对象型变量为对象型变量 Set a=Command1 指定指定a引用引用Command1命令按钮命令按钮 a.Caption=“OK”与与Command1.Caption等价等价6.变体型变体型(Variant)变体变体：在程序运行期间可存放不同类型的
18、数据。：在程序运行期间可存放不同类型的数据。例：例：Dim X X缺省为缺省为 Variant类型类型 X=17 X被赋予字符串被赋予字符串 17 X=X 2 X被赋予数值被赋予数值15 X=A&X X被赋予字符串被赋予字符串 A15 返回目录返回目录u在模块的在模块的“通用通用”声明段声明声明段声明 Private|Public Type 数据类型名数据类型名 元素名元素名1 As 类型名类型名 元素名元素名2 As 类型名类型名 End Type Public：声明的类型在工程中所有模块的任何过程中可用：声明的类型在工程中所有模块的任何过程中可用Private：声明的类型只能在当前模块中使
19、用：声明的类型只能在当前模块中使用 u声明自定义数据类型后，可使用该类型。例声明自定义数据类型后，可使用该类型。例 Dim studTemp As student 声明声明为为student类型变量类型变量u访问自定义数据类型的变量：访问自定义数据类型的变量：变量名变量名.成员名成员名，如：，如：studTemp.id=“030005”studTemp.xm=“李斌李斌”返回目录返回目录1.变量的声明变量的声明通过类型符号：直接在变量名后面加上类型符号通过类型符号：直接在变量名后面加上类型符号 S&=10 声明声明S为长整型变量为长整型变量 使用声明语句使用声明语句 Dim 变量名变量名 As
20、 类型类型 Dim 变量名变量名 类型符类型符 例如，下面两条声明语句的效果相同：例如，下面两条声明语句的效果相同：Dim a As Integer,b As Long,c As Single,d As Double Dim a%,b&,c！,d#若省略类型说明，被声明的变量为若省略类型说明，被声明的变量为Variant型。例如：型。例如：Dim a,b a和和b均为变体型变量均为变体型变量 Dim S1,S2 As String*6 S1为变体型变量为变体型变量,S2为定长字符串为定长字符串 返回目录返回目录见表见表2.22.变量的隐式及显式声明变量的隐式及显式声明不声明就用的变量被隐式声明
21、为不声明就用的变量被隐式声明为Variant，初值，初值Empty 强制进行变量的显式声明强制进行变量的显式声明v“通用通用”声明段中加上语句：声明段中加上语句：Option Explicit v“工具工具选项选项”“编辑器编辑器”返回目录返回目录对新模块起作用对新模块起作用遇到未经声明的变遇到未经声明的变量包括输错的变量，量包括输错的变量，系统会发出错误警系统会发出错误警告告 3.变量的有效范围变量的有效范围 (1)局部变量：在一个局部变量：在一个过程内部声明过程内部声明的变量的变量 有效范围限于声明它的过程有效范围限于声明它的过程 自动变量：自动变量：用用Dim声明，声明，变量值只在过程执
22、行期间才存在变量值只在过程执行期间才存在 静态变量：用静态变量：用Static声明，声明，变量值在程序运行期间一直存在变量值在程序运行期间一直存在 例例2.2 统计单击窗体的次数统计单击窗体的次数 Private Sub Form_Click()Static intCount As Integer intCount=intCount+1 Print intCount End Sub 返回目录返回目录单击窗体单击窗体3 次次 将将Static改为改为Dim (2)模块变量：模块变量：“通用通用”声明段用声明段用Private或或Dim语句声明语句声明 可被该模块中的任何过程所访问可被该模块中的任
23、何过程所访问 例例2.3 Private a As Integer,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返回目录返回目录 (3)全局变量：全局变量：标准模块的声明段
24、用标准模块的声明段用Public或或Global声明声明 有效范围是整个工程的所有模块有效范围是整个工程的所有模块 说明：说明：标准模块：只含有程序代码的文件，扩展名为标准模块：只含有程序代码的文件，扩展名为.bas添加标准模块：添加标准模块：“工程工程添加模块添加模块”如果在窗体模块的如果在窗体模块的“通用通用”返回目录返回目录声明段用声明段用Public声明变量，声明变量，其它模块可通过如下方式其它模块可通过如下方式引用该变量：引用该变量：窗体模块名窗体模块名.变量名变量名1.内部常量内部常量 由应用程序和控件提供。例如：由应用程序和控件提供。例如：Form1.BackColor=vbBl
25、ue vbBlue是表示蓝色的内部常量是表示蓝色的内部常量 查看系统预定义常量：查看系统预定义常量：“视图视图对象浏览器对象浏览器”返回目录返回目录2.符号常量符号常量(自定义常量自定义常量)命名：遵循标识符命名的规则命名：遵循标识符命名的规则声明格式：声明格式：Public|Private Const 常量名常量名As 类型类型=表达式表达式 例：例：Const conMax As Integer=9 声明声明Integer型常量型常量 Const conDate=#10/5/2002#声明声明Date型常量型常量 Const CodeName=ASCII 声明声明String型常量型常量有
26、效范围：局部常量、模块常量、全局常量有效范围：局部常量、模块常量、全局常量声明常量的表达式中不能出现函数调用和循环引用声明常量的表达式中不能出现函数调用和循环引用 例：错误的常量声明例：错误的常量声明 Const conS=Sqr(10)Const conA=conB+10,conB=conA+1返回目录返回目录1.算术运算符算术运算符 返回目录返回目录优先级优先级运算运算运算符运算符举例举例结果结果 高高 低低乘方乘方 2 3 8取负取负-2 3-8乘、除乘、除*/5*3/2 7.5整除整除 5*3 2 7求余求余 Mod5*3 Mod 2 1加、减加、减+-10-3+(-2)52.字符串运
27、算符字符串运算符运算符：运算符：&和和+例：例：VB=“Visual”+“Basic”连接为字符串连接为字符串“Visual Basic”label1.Caption=第第&Str(N)&条记录条记录 Str为数值型转字符型函数。若为数值型转字符型函数。若N为为1，标签上显示，标签上显示“第第1条记录条记录”说明：说明：v使用使用+号号，要求连接的两个表达式均为字符串型，要求连接的两个表达式均为字符串型v使用使用&号号，连接的两个表达式可以为任何类型，但结果为字，连接的两个表达式可以为任何类型，但结果为字符串型符串型，如如 “当前日期当前日期”
/8/2002#返回目录返回目录3.关系运
28、算符关系运算符返回目录返回目录运运 算算运算符运算符举举 例例结结 果果 等于等于=Hello=helloFalse 不等于不等于 Hello helloTrue 大于大于 Hello helloFalse 大于等于大于等于=45+10=55True 小于小于 a abTrue 小于等于小于等于=45+10 5)，结果为，结果为True And：两个表达式均为：两个表达式均为True时，结果为时，结果为True 例如，例如，(4 5)And(8 7)，结果为，结果为False Or：两个表达式均为：两个表达式均为False时，结果为时，结果为False 例如，例如，(4 5)Or(8 7)，结
29、果为，结果为True 返回目录返回目录XYNot YX And YX Or Y False False True False False False True False False True True False True False True True True False True Trueu表达式：用运算符和圆括号将常量、变量、函数和常数表达式：用运算符和圆括号将常量、变量、函数和常数连接起来组成的有意义的式子。连接起来组成的有意义的式子。如，如，数值表达式数值表达式 Cos(180*Pi/180)*100 逻辑表达式逻辑表达式 (N=0)And(N Mod 2 0)u运算优先顺序运算
30、优先顺序(从高到低从高到低)：函数函数算术运算算术运算(乘方乘方取负取负乘乘/除除整除整除求余求余加加/减减)字符串运算符字符串运算符关系运算符关系运算符逻辑运算符逻辑运算符(NotAndOr)u用括号可以改变运算顺序用括号可以改变运算顺序u乘方和负号相邻时，取负优先。乘方和负号相邻时，取负优先。例如：例如：2 -2 的结果是的结果是0.25，相当于，相当于2(-2)返回目录返回目录1.Print方法方法 功能：在窗体功能：在窗体/立即窗口立即窗口/图片框图片框/打印机上输出信息打印机上输出信息格式：格式：对象对象.Print 输出项输出项 ,|;v对象对象缺省为当前窗体，缺省为当前窗体，输出
31、项输出项缺省则打印一空白行缺省则打印一空白行v输出项之间可用分号或逗号分隔：使用分号，其后的输出项输出项之间可用分号或逗号分隔：使用分号，其后的输出项紧接着前一个输出项输出；使用逗号，其后的输出项在下一紧接着前一个输出项输出；使用逗号，其后的输出项在下一个输出区输出。个输出区输出。v两个输出区默认相隔两个输出区默认相隔1414列列 v各输出项表示要打印的表达式，组成各输出项表示要打印的表达式，组成 Spc(n)|Tab(n)表达式表达式 Spc(n)：指定在输出之前插入：指定在输出之前插入n个空白字符个空白字符 Tab(n)：指定在第：指定在第n列上输出列上输出返回目录返回目录例，例，Priv
32、ate Sub Form_Click()Print Print Tab(15);*Print Tab(13);*;Spc(1);*;Spc(1);*“End Sub 返回目录返回目录2.格式输出函数格式输出函数 功能：使数值、日期或字符串按指定的格式输出功能：使数值、日期或字符串按指定的格式输出格式：格式：Format(expression,format)expression需要格式化输出的表达式需要格式化输出的表达式 format 输出的格式模式输出的格式模式 返回目录返回目录3.MsgBox函数函数 功能：创建预定义的消息对话框功能：创建预定义的消息对话框常用格式：常用格式：MsgBox(
33、prompt,buttons,title)prompt字符串，指定消息框中显示的信息字符串，指定消息框中显示的信息 Buttons指定消息框中显示的按钮数目及形式、图标样式等，指定消息框中显示的按钮数目及形式、图标样式等，缺省值为缺省值为vbOKOnly 常用的设置值见教材表常用的设置值见教材表2.6 Title指定消息框的标题，缺省值为工程名指定消息框的标题，缺省值为工程名 用户所选按钮的返回值用户所选按钮的返回值(见教材表见教材表2.7)可作为继续执行可作为继续执行程序的依据。程序的依据。返回目录返回目录例例2.4 Private Sub Form_Click()prompt=真的新增该条
34、记录吗真的新增该条记录吗 answer=MsgBox(prompt,vbOKCancel,Add Record)If answer=vbOK Then Debug.Print 您选择的是您选择的是“确定确定”按钮按钮 If answer=vbCancel Then Debug.Print 您选择的是您选择的是“取消取消”按钮按钮End Sub返回目录返回目录说明：说明：如果消息框中显示的信息过长，可使用回车符如果消息框中显示的信息过长，可使用回车符Chr(13)和换行符和换行符Chr(10)如果不需要返回值，可使用没有括号的如果不需要返回值，可使用没有括号的MsgBox语句：语句：MsgBox
35、 prompt,buttons,title 例，例，Msg=非法的数据输入非法的数据输入!&Chr(13)&Chr(10)&请重新输请重新输入入 Title=出错提示出错提示 MsgBox Msg,vbCritical,Title 返回目录返回目录u 功能：生成输入对话框功能：生成输入对话框 u 常用格式：常用格式：InputBox(prompt,title,default,xpos,ypos)prompt字符串，指定输入框中显示的信息字符串，指定输入框中显示的信息 Title指定输入框的标题，缺省值为工程名指定输入框的标题，缺省值为工程名 Default字符串，指定文本框中的初始内容，缺省为
36、空。字符串，指定文本框中的初始内容，缺省为空。xpos和和ypos数值表达式，成对出现或者成对缺省，数值表达式，成对出现或者成对缺省，指定输入框左上角相对于屏幕的位置。指定输入框左上角相对于屏幕的位置。u InputBox函数一次只能输入一个值函数一次只能输入一个值 返回目录返回目录 例例2.5 Private Sub Form_Click()Dim Username Username=InputBox(输入姓名后单击输入姓名后单击确定确定,输入输入)Print UsernameEnd Sub 返回目录返回目录u常用数学函数见教材表常用数学函数见教材表2.8u几点说明：几点说明：由基本函数可导
37、出所需的数学函数由基本函数可导出所需的数学函数 例如，例如，Log(X)/Log(N)可求出以可求出以N为底的对数为底的对数对对Rnd(N)，N的值决定了的值决定了Rnd生成随机数的方式生成随机数的方式vN0或者缺省：产生序列中的下一个随机数或者缺省：产生序列中的下一个随机数 vN=0：返回最近生成的随机数：返回最近生成的随机数 返回目录返回目录例如：随机产生例如：随机产生1-selenum之间的数之间的数 Randomize(Timer)Selenum=7 Rn=Int(Selenum)*Rnd+1)调用调用Rnd之前，使用之前，使用Randomize语句可产生不语句可产生不相同的随机数数列
38、相同的随机数数列u常用字符串函数见教材表常用字符串函数见教材表2.9u几点说明：几点说明：表表2.9只对常用的字符串函数进行了简单的说明只对常用的字符串函数进行了简单的说明使用使用Str函数将数字转成字符串时，字符串的首位函数将数字转成字符串时，字符串的首位一定是空格或是正负号。例如，一定是空格或是正负号。例如，S1=Str(67)返回返回 67 S2=Str(-67.5)返回返回-67.5 使用使用Val函数时，如果遇到不能识别为数字的字符，函数时，如果遇到不能识别为数字的字符，则停止转换。例如，则停止转换。例如，Val(“24 and 57”)返回返回24 Val(not 57)返回返回0
39、 返回目录返回目录常用的日期函数见下表。其中，常用的日期函数见下表。其中，D表示日期类型表达式。表示日期类型表达式。返回目录返回目录函数名函数名功能简述功能简述示例示例Date/Time返回系统日期或返回系统日期或时间时间Date 返回系统当前日期返回系统当前日期Now返回系统日期和返回系统日期和时间时间略略Year/Month/Day(D)返回年、月、日返回年、月、日Year(Now)返回返回2003WeekDay(D)返回星期几返回星期几WeekDay(Now)返回返回3Hour(time)返回小时数返回小时数Hour(Time)返回返回21 上述示例的当前日期时间是上述示例的当前日期时间
40、是2003年年3月月18号、星号、星期三、晚上期三、晚上9点点10分。分。作用：作用：强制将一个表达式转换成某种特定数据类型强制将一个表达式转换成某种特定数据类型 返回目录返回目录函数名函数名返回类型返回类型函数名函数名返回类型返回类型 CBool(X)Boolean CInt(X)Integer CDate(X)Date CLng(X)Long CCur(X)Currency CSng(X)Single学习目标：学习目标：u 掌握掌握If 条件语句和条件语句和Select Case选择语句选择语句 u 掌握掌握ForNext和和DoLoop循环语句循环语句 u 掌握两重循环，了解多重循环掌握
41、两重循环，了解多重循环 u 了解了解Exit、End和和Goto语句语句 u 掌握程序的简单调试方法掌握程序的简单调试方法 教学内容：教学内容：3.1 选择结构与相关语句选择结构与相关语句 3.2 循环语句循环语句 3.3 其它语句其它语句 3.4 程序调试程序调试u选择结构：当设定条件成立时执行选择结构：当设定条件成立时执行某些语句，条件不成立时则跳过这某些语句，条件不成立时则跳过这些语句或执行其它的语句。些语句或执行其它的语句。u选择结构中要使用选择语句，有两选择结构中要使用选择语句，有两路分支和多路分支两种情况路分支和多路分支两种情况，对应，对应的选择语句有的选择语句有If语句语句(两路
42、出口两路出口)和和Select Case语句语句(多路出口多路出口)。返回目录返回目录1.If Then 其中，其中，是一个条件表达式或逻辑表达式是一个条件表达式或逻辑表达式 例如，例如，If Data=90 Then Print“优秀优秀”例例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的倍数
43、的倍数 Data=90?输出输出“优秀优秀”YesNoData=90?输出输出“优秀优秀”YesNo输出输出“合格合格”输出输出“计算完毕计算完毕”2.If 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.块状块状If语句语句 返回目录返回目录If
44、 Then End If 例例3.2 If Then Else End If A=InputBox(“A值值”):B=InputBox(B值值)Print A,B If A B Then T=A:A=B:B=T End If Print A,B 4.If语句嵌套语句嵌套 If语句嵌套使用可形成多分支的条件语句结构语句嵌套使用可形成多分支的条件语句结构 If Then ElseIf Then Else End If返回目录返回目录说明：说明：ElseIf之间不要加空格。之间不要加空格。Else和位于其上方的最近的和位于其上方的最近的If配对配对 例例3.3Weight=InputBox(输入西瓜
45、重量：输入西瓜重量：,计算西瓜款计算西瓜款)If Weight 4 Then Price=1ElseIf Weight=7 Then Price=1.3 Else Price=1.1End IfMoney=Price*WeightMsgBox“西瓜重西瓜重”&Weight&“公斤，单价公斤，单价”&_ Price&元，应收瓜款元，应收瓜款&Money&_ 元元,计算西瓜款计算西瓜款返回目录返回目录4公斤以下：公斤以下：1.00元元/公斤公斤4至至7公斤：公斤：1.3元元/公斤公斤超过超过7公斤：公斤：1.1元元/公斤公斤 If Weight=4 And Price 7 Then Price=1
46、.1 例例3.4 Char=InputBox(输入一个字符输入一个字符,测试字符值测试字符值)If Char=0 And Char=A And Char=a And Char=z Then MsgBox 输入的字符是小写字母输入的字符是小写字母 Else MsgBox 输入的字符是其它符号输入的字符是其它符号 End If返回目录返回目录判断输入的是判断输入的是大写字母、小大写字母、小写字母、数字写字母、数字还是其它符号还是其它符号 例例3.5 Private Sub Command1_Click()单击单击“正确无误正确无误”按钮按钮 If Len(TxtCode.Text)8 Then L
47、blWarn.Caption=考核证号必须输入，长度为考核证号必须输入，长度为8位位 TxtCode.SetFocus ElseIf Len(TxtName.Text)=0 Then LblWarn.Caption=考生姓名必须输入考生姓名必须输入 TxtName.SetFocus ElseIf Len(TxtSeat.Text)=0 Then LblWarn.Caption=座位号必须输入座位号必须输入 TxtSeat.SetFocus Else LblWarn.Caption=Debug.Print TxtCode.Text Debug.Print TxtName.Text Debug.P
48、rint TxtSeat.Text End If End Sub 返回目录返回目录u语法格式：语法格式：Select Case Case Case Case Else End Selectu功能：根据测试表达式的值，决定程序的流向。功能：根据测试表达式的值，决定程序的流向。返回目录返回目录 值的类型是数值的类型是数值型、字符串型、日期型等，值型、字符串型、日期型等，一旦与某个一旦与某个Case后的后的值相等，则执行这个值相等，则执行这个Case中的中的，完成后执行，完成后执行End Select后的语句。后的语句。如果所有的如果所有的Case后的后的都不与都不与项匹配，项匹配，则执行则执行Ca
49、se Else后的后的。例例3.6 学生成绩分等学生成绩分等 Data=InputBox(请输入一个成绩请输入一个成绩,成绩分等成绩分等)Select Case Int(Data/10)Case 10 MsgBox 满分满分,成绩分等成绩分等 Case 9 MsgBox 优秀优秀,成绩分等成绩分等 Case 8 MsgBox 良好良好,成绩分等成绩分等 Case 7 MsgBox 一般一般,成绩分等成绩分等 Case 6 MsgBox 合格合格,成绩分等成绩分等 Case Else MsgBox 不合格不合格,成绩分等成绩分等 End Select返回目录返回目录单单击击窗窗体体确确定定例例3
50、.7 测试输入的字符测试输入的字符 Char=InputBox(请输入一个字符请输入一个字符,测试测试)Select Case Char Case 0 To 9 MsgBox 字符是数字字符是数字,测试测试 Case a To z MsgBox 字符是小写字母字符是小写字母,测试测试 Case A To Z MsgBox 字符是大写字母字符是大写字母,测试测试 Case Else MsgBox 字符是其它符号字符是其它符号,测试测试End Select关于关于Select Case语句的一些说明见教材语句的一些说明见教材 返回目录返回目录确确定定单单击击窗窗体体u 程序的另一种结构是循环结构程
