Version 3.0
Visual Basic 的基本语法第三章
2
回顾
Windows 应用程序的事件驱动设计
Visual Basic事件编码机制
Visual Basic中窗体和控件事件
编写事件处理程序代码
使用 MsgBox函数
3
目标
使用 Visual Basic 的基本数据类型
使用 Visual Basic 中的变量和 常量
描述变量和常量的 作用域
使用 Visual Basic 的操作符和表达式
使用 Visual Basic 的选择,分支,循环结构和跳转控制
4
VB 中的基本数据类型 2-1
缺省情况下,如果没有指定数据类型,
则会使用 Variant数据类型
VB 支持的 数字数据类型
– Integer
– Long
– Single
– Double
– Currency
5
VB 中的 基本 数据类型 2-2
Byte 数据类型
String 数据类型
Boolean 数据类型
Date 数据类型
6
变量
变量 是经过定义的存储 数据 的内存位置
变量 可在程序执行过程中进行修改
使用 Option Explicit语句显式声明变量
7
变量命名规则
必须以字母开头。
变量名可包含字母、数字和下划线。
不得超过 255 个字符。
在同一个范围内必须是唯一的。范围就是可以引用变量的作用域 —一个过程、
一个窗体等等。
8
声明变量
变量是使用 Dim 语句声明的
Dim variablename [As type]
– Variablename 变量的名称
– [As type] 子句是可选的，它用来定义声明的变量的数据类型或对象类型
使用赋值操作符,=,给变量赋值
9
声明变量 –示例
Dim intResult As Integer
Dim strResult As String
intResult = 100
strResult = "一百,
intResult = intResult + 100
仅当表达式和变量的数据类型相同时，
才可以将表达式的值赋值给变量,
10
常量
常量 一 般用来存储恒定不变的值
在程序中定义了常量之后，就无法使用赋值语句更改常量的值
通常，常量用于代替很难记住,且在程序中多次出现且不会改变的值
常量包括系统常量和用户自定义的常量
11
声明常量
在 Visual Basic 中，常量是使用 Const 关键字声明的,
Const <Constantname> [As
ConstantType] = value
例 如：
Const pi as Double = 3.1415926
12
变量和常量的作用域
变量和常量的 作 用域定义代码中的哪些部分可以使用变量和常量。
变量或常量的活动周期是变量和常量能够在应用程序中保留其值的时间段
可以在声明时指定变量 或 常量的范围
13
全局变量和常量
是在 公 用的模块的通用声明部分中使用关键字 Public 或 Global创建的
在程序的整个活动周期内对整个模块中的任何过程或窗体都可用
程序关闭 才 会释放分配给全局变量的内存
14
全局变量和常量 – 示例
在公用模块部分声明全局变量或常量
Public num As Integer
Global strMyName As String
strMyName =,Jerry”
Global Const PI As Double = 3.14159
使用全局变量或常量
Private Sub Form_Load()
TxtMyName.Text = strmyName
TxtPi.Text = PI
End Sub
15
模块级变量 和常量
是在模块级的通用声明语句中使用
Private语句创建的
模块级变量的值可供定义它的模块中的所有过程使用
卸载模块后,才会释放分配给模块级变量的内存
例如：
Private intAmount As Integer
16
窗体变量和常量
是在窗体的声明部分中声明的,若 不使用 Public声明则仅在窗体范围内有效
可以在窗体的通用声明部分使用标准
Dim 语句声明这些变量
例如：
Dim strName As String
17
过程中的变量和常量
过程级变量是在实际要使用变量的过程中使用 Dim 语句创建的
过程级变量仅可用于定义它们的过程内
过程结束时，变量被清除，并释放分配给该变量的内存
18
操作符和表达式
VB 提供了多种操作符,
– 算术运算符
– 字符运算符
– 关系运算符
– 逻辑运算符
在 VB 程序中编写表达式和运算过程时
，可以使用这些操作符
19
算术操作符
加法 (+)
减法 (-)
乘法 (*)
除法 (/)
求幂 (^)
20
字符操作符
Like,用于比较字符串
&,用于连接字符串
Dim strMyname As String
strMyname = inputbox ("输入姓名 ")
'输入的姓名是以 J开头
If strMyname like "J*" then
MsgBox("输入的姓名是," & strMyname)
End If
（在 VB环境中进行演示）
21
关系运算符
<：小于
>：大于
=：等于
<>：不等于
<=：小于或等于
>=：大于或等于
22
逻辑运算符
AND：逻辑与
OR,逻辑或
NOT：逻辑非
23
运算符优先级算术 比较 逻辑指数运算 (^) 相等 (=) Not
负数 (–) 不等 (<>) And
乘法和除法 (*,/) 小于 (<) Or
整数除法 (\) 大于 (>)
求模运算 (Mod) 小于或相等 (<=)
加法和减法 (+,–) 大于或相等 (>=)
字符串连接 (&) Like
可使用圆括号决定优先级顺序
24
条件语句 2-1
使用条件语句可以更改程序的流程
根据条件的运算结果,会 执行相应的程序段
If…Then…Else…End If 语句
If condition-1 Then
[Statements-1]
[Else]
[Statements-2]
End If
25
条件语句 – 示例 1
Private Sub Form_Click()
Dim intNum1 As Integer,intNum2 as Integer,intResult
As Integer
intNum1 = InputBox("输入第一个数 ")
intNum2 = InputBox("输入第二个数 ")
If intNum2 <>0 Then
intResult = intNum1 / intNum2
Print intResult
Else
MsgBox "第二个数必须非零 "
End If
End Sub
（在 VB环境中进行演示）
26
条件语句 2-2
If…Then…ElseIf…End If 语句
If condition-1 Then
[Statements-1]
[ElseIf condition-2 Then]
[Statements-2]
[Else]
[Statements-3]
End if
27
条件语句 – 示例 2
Private Sub Form_Click()
Dim intNum As Integer
intNum = InputBox ("输入一个数 ")
If intNum < 0 Then
Print "输入的是个负数 "
ElseIf intNum < 10 Then
Print "输入的是个一位数 "
ElseIf intNum <100 Then
Print "输入的是个两位数 "
Else
Print "输入的是个两位以上的数 "
End If
End Sub
（在 VB环境中进行演示）
28
分支语句
分支语句的功能与条件语句相似，在需要进行多个选择时，使用它的代码可读性更好
Select Case 语句的语法：
Select Case testexpression
[Case expression 1
[statements-1]]
[Case expression 2
[statements-2]]
…
[Case Else
[statements-n]]
End Select
29
分支语句 –示例
Private Sub Form_Click()
Dim strColor As String
strColor = InputBox("输入颜色的名称（ red,blue或 green） ")
strColor = LCase(strColor)
Select Case strColor
Case "red"
Form1.BackColor = RGB(255,0,0)
Case "green"
Form1.BackColor = RGB(0,255,0)
Case "blue"
Form1.BackColor = RGB(0,0,255)
Case Else
MsgBox "请选择其他颜色 "
End Select
End Sub
30
跳转语句
使用 跳 转语句可以将程序的控制转移至过程中的另一个点
使用 GoTo [label/line number] 语句 实现 跳转
使用 GoTo 语句 过多，会使程序的可读性和调试变得困难，应避免使用。
31
循环语句
使用循环结构可以重复执行一行或多行代码
Visual Basic 支持的循环结构包括：
– For...Next
– While…Wend
32
For…Next 循环语句
使用 For…Next 语句将一组语句重复执行指定的次数
For…Next 语句的语法：
For Variable = Vtart To End [Step n]
Statements
[Exit For]
Next [Variable]
33
While…Wend 循环 语句
只要 While 中给定的条件为 True,While
循环就会 重复执行一系列的语句
While…Wend语 句的语法,
While Condition
Statements
Wend
34
While…Wend 循环 语句 – 示例
Private Sub Form_Click()
Dim num As Integer
Dim counter As Integer
num = 0
counter = 0
While counter < 5
num = num + 5
Print num
counter = counter + 1
Wend
End Sub
（在 VB环境中进行演示）
要求：显示 1-25之间所有 5的倍数
35
示例：穷举法
在 VB环境中演示本章教材最后一部分的,示例,
36
总结
常用的数据类型介绍
使用变量、常量
变量和常量的作用域
操作符和表达式
流程控制语句
Visual Basic 的基本语法第三章
2
回顾
Windows 应用程序的事件驱动设计
Visual Basic事件编码机制
Visual Basic中窗体和控件事件
编写事件处理程序代码
使用 MsgBox函数
3
目标
使用 Visual Basic 的基本数据类型
使用 Visual Basic 中的变量和 常量
描述变量和常量的 作用域
使用 Visual Basic 的操作符和表达式
使用 Visual Basic 的选择,分支,循环结构和跳转控制
4
VB 中的基本数据类型 2-1
缺省情况下,如果没有指定数据类型,
则会使用 Variant数据类型
VB 支持的 数字数据类型
– Integer
– Long
– Single
– Double
– Currency
5
VB 中的 基本 数据类型 2-2
Byte 数据类型
String 数据类型
Boolean 数据类型
Date 数据类型
6
变量
变量 是经过定义的存储 数据 的内存位置
变量 可在程序执行过程中进行修改
使用 Option Explicit语句显式声明变量
7
变量命名规则
必须以字母开头。
变量名可包含字母、数字和下划线。
不得超过 255 个字符。
在同一个范围内必须是唯一的。范围就是可以引用变量的作用域 —一个过程、
一个窗体等等。
8
声明变量
变量是使用 Dim 语句声明的
Dim variablename [As type]
– Variablename 变量的名称
– [As type] 子句是可选的，它用来定义声明的变量的数据类型或对象类型
使用赋值操作符,=,给变量赋值
9
声明变量 –示例
Dim intResult As Integer
Dim strResult As String
intResult = 100
strResult = "一百,
intResult = intResult + 100
仅当表达式和变量的数据类型相同时，
才可以将表达式的值赋值给变量,
10
常量
常量 一 般用来存储恒定不变的值
在程序中定义了常量之后，就无法使用赋值语句更改常量的值
通常，常量用于代替很难记住,且在程序中多次出现且不会改变的值
常量包括系统常量和用户自定义的常量
11
声明常量
在 Visual Basic 中，常量是使用 Const 关键字声明的,
Const <Constantname> [As
ConstantType] = value
例 如：
Const pi as Double = 3.1415926
12
变量和常量的作用域
变量和常量的 作 用域定义代码中的哪些部分可以使用变量和常量。
变量或常量的活动周期是变量和常量能够在应用程序中保留其值的时间段
可以在声明时指定变量 或 常量的范围
13
全局变量和常量
是在 公 用的模块的通用声明部分中使用关键字 Public 或 Global创建的
在程序的整个活动周期内对整个模块中的任何过程或窗体都可用
程序关闭 才 会释放分配给全局变量的内存
14
全局变量和常量 – 示例
在公用模块部分声明全局变量或常量
Public num As Integer
Global strMyName As String
strMyName =,Jerry”
Global Const PI As Double = 3.14159
使用全局变量或常量
Private Sub Form_Load()
TxtMyName.Text = strmyName
TxtPi.Text = PI
End Sub
15
模块级变量 和常量
是在模块级的通用声明语句中使用
Private语句创建的
模块级变量的值可供定义它的模块中的所有过程使用
卸载模块后,才会释放分配给模块级变量的内存
例如：
Private intAmount As Integer
16
窗体变量和常量
是在窗体的声明部分中声明的,若 不使用 Public声明则仅在窗体范围内有效
可以在窗体的通用声明部分使用标准
Dim 语句声明这些变量
例如：
Dim strName As String
17
过程中的变量和常量
过程级变量是在实际要使用变量的过程中使用 Dim 语句创建的
过程级变量仅可用于定义它们的过程内
过程结束时，变量被清除，并释放分配给该变量的内存
18
操作符和表达式
VB 提供了多种操作符,
– 算术运算符
– 字符运算符
– 关系运算符
– 逻辑运算符
在 VB 程序中编写表达式和运算过程时
，可以使用这些操作符
19
算术操作符
加法 (+)
减法 (-)
乘法 (*)
除法 (/)
求幂 (^)
20
字符操作符
Like,用于比较字符串
&,用于连接字符串
Dim strMyname As String
strMyname = inputbox ("输入姓名 ")
'输入的姓名是以 J开头
If strMyname like "J*" then
MsgBox("输入的姓名是," & strMyname)
End If
（在 VB环境中进行演示）
21
关系运算符
<：小于
>：大于
=：等于
<>：不等于
<=：小于或等于
>=：大于或等于
22
逻辑运算符
AND：逻辑与
OR,逻辑或
NOT：逻辑非
23
运算符优先级算术 比较 逻辑指数运算 (^) 相等 (=) Not
负数 (–) 不等 (<>) And
乘法和除法 (*,/) 小于 (<) Or
整数除法 (\) 大于 (>)
求模运算 (Mod) 小于或相等 (<=)
加法和减法 (+,–) 大于或相等 (>=)
字符串连接 (&) Like
可使用圆括号决定优先级顺序
24
条件语句 2-1
使用条件语句可以更改程序的流程
根据条件的运算结果,会 执行相应的程序段
If…Then…Else…End If 语句
If condition-1 Then
[Statements-1]
[Else]
[Statements-2]
End If
25
条件语句 – 示例 1
Private Sub Form_Click()
Dim intNum1 As Integer,intNum2 as Integer,intResult
As Integer
intNum1 = InputBox("输入第一个数 ")
intNum2 = InputBox("输入第二个数 ")
If intNum2 <>0 Then
intResult = intNum1 / intNum2
Print intResult
Else
MsgBox "第二个数必须非零 "
End If
End Sub
（在 VB环境中进行演示）
26
条件语句 2-2
If…Then…ElseIf…End If 语句
If condition-1 Then
[Statements-1]
[ElseIf condition-2 Then]
[Statements-2]
[Else]
[Statements-3]
End if
27
条件语句 – 示例 2
Private Sub Form_Click()
Dim intNum As Integer
intNum = InputBox ("输入一个数 ")
If intNum < 0 Then
Print "输入的是个负数 "
ElseIf intNum < 10 Then
Print "输入的是个一位数 "
ElseIf intNum <100 Then
Print "输入的是个两位数 "
Else
Print "输入的是个两位以上的数 "
End If
End Sub
（在 VB环境中进行演示）
28
分支语句
分支语句的功能与条件语句相似，在需要进行多个选择时，使用它的代码可读性更好
Select Case 语句的语法：
Select Case testexpression
[Case expression 1
[statements-1]]
[Case expression 2
[statements-2]]
…
[Case Else
[statements-n]]
End Select
29
分支语句 –示例
Private Sub Form_Click()
Dim strColor As String
strColor = InputBox("输入颜色的名称（ red,blue或 green） ")
strColor = LCase(strColor)
Select Case strColor
Case "red"
Form1.BackColor = RGB(255,0,0)
Case "green"
Form1.BackColor = RGB(0,255,0)
Case "blue"
Form1.BackColor = RGB(0,0,255)
Case Else
MsgBox "请选择其他颜色 "
End Select
End Sub
30
跳转语句
使用 跳 转语句可以将程序的控制转移至过程中的另一个点
使用 GoTo [label/line number] 语句 实现 跳转
使用 GoTo 语句 过多，会使程序的可读性和调试变得困难，应避免使用。
31
循环语句
使用循环结构可以重复执行一行或多行代码
Visual Basic 支持的循环结构包括：
– For...Next
– While…Wend
32
For…Next 循环语句
使用 For…Next 语句将一组语句重复执行指定的次数
For…Next 语句的语法：
For Variable = Vtart To End [Step n]
Statements
[Exit For]
Next [Variable]
33
While…Wend 循环 语句
只要 While 中给定的条件为 True,While
循环就会 重复执行一系列的语句
While…Wend语 句的语法,
While Condition
Statements
Wend
34
While…Wend 循环 语句 – 示例
Private Sub Form_Click()
Dim num As Integer
Dim counter As Integer
num = 0
counter = 0
While counter < 5
num = num + 5
Print num
counter = counter + 1
Wend
End Sub
（在 VB环境中进行演示）
要求：显示 1-25之间所有 5的倍数
35
示例：穷举法
在 VB环境中演示本章教材最后一部分的,示例,
36
总结
常用的数据类型介绍
使用变量、常量
变量和常量的作用域
操作符和表达式
流程控制语句
