用Dim和Public(或Global)，语句可以定义局部变量、模块级变量和全局变量。对于局部变量来说，也可以不用Dim(或Static)定义，而在需要时直接给出变量名。变量的类型可以用类型说明符(％、&、!、#、$、@)来标识。如果没有类型说明符，Visual Basic把该变量指定为变体数据类型。 Private Sub Command1_Click()

Answer = InputBox$(\ If Answer = \

MsgBox \ Else

MsgBox \ End If End Sub ①显式声明

形式： Dim 变量名 [AS 类型] Dim 变量名类型符

例 Dim a As integer , b As single 等价于 Dim a%, b! ②隐式声明

未进行上述的声明而直接使用，其类型为 Variant 类型。 ③强制显式声明

通用声明处加 Option Explicit 语句可强制显式声明变量。 3、小结

局部变量：只能在一个函数或过程中访问的变量。其他过程或函数不能访问此变量的数据。使用Dim或Static定义，不可以使用Private定义。

模块变量（窗体变量和标准模块变量）：只能在一个模块中访问的变量。其他模块中不能访问此变量的数据。可以使用Private和Dim声明。不可以使用Static声明。

全局变量：在整个工程中的任何地方都可以访问的变量。使用Public或Global声明。 默认声明：使用类型声明符放在变量名字的后面可以直接声明变量类型。 类型声明符：%整型、& 长整形、!单精度、#双精度、@货币型、$字符串型 Ⅲ、小结

本次课我们要掌握变量，常量的声明及使用方法。要掌握变量有哪些类型，怎么使用它们，注意VB里的变体类型的变量，自定义变量等，以及常量的使用。 Ⅳ、作业

P81一、3～8 二、18

一、1、2 二、简述变量的命名规则。

第19、20课时

课题：常用内部函数 教学目的:

1、会使用VB常用内部函数，了解VB其他内部函数 教学重难点：

1、 转换函数int、Fix、Asc、Chr、Str、Val 2、 随机函数Rnd

- 21 -

教学方法： 多媒体教学 教学过程：

Ⅰ、复习上节内容 1、变量的命名规则。

2、变量，常量的声明及使用方法。 Ⅱ、新课

VB提供大量的内部函数供编程时调用。按其功能可分成数学函数、转换函数、字符串函数、日期函数和格式输出函数等。 1、转换函数

1）取整函数Int( ) 函数格式：Int(x)

功能：求不大于x的最大整数，返回值为整型数。

举例：设x=5.67， y=-5.67， 则Int(x)=5，int(y)=-6。 2）舍去小数部分函数Fix(X) 函数格式：Fix(x)

函数功能：去掉x的小数部分，返回值为整型数。

举例：设a=5.69，b= -5.88，则 Fix(a) 和 Fix(b) 的值分别为 5和-5 3）Asc(x$)给出字符x的ASCII码值，结果为十进制数。 举例：Asc(\

4）Chr$(x) 返回以x为ASCII码的字符。 举例：Chr$(65)= \

5）Str$(x) 将数值数据x转换成字符串。 举例：Str$(123.45)=\

6）Cint(x) 将数值型数据x的小数部分四舍五入取整。

cint(2.6)= 3 cint(-2.6)= -3 cint(-2.3)= -2 cint(2.3)= 2 7）Val(x) 将字符串x中的数字转换成数值。数字字符串转换为数值。 Val(\123 Val(\Val(\

Val(\转换函数说明:

(1) Chr和Asc函数互为反函数。

(2) Str函数将非负数值转换成字符类型后，会在转换后的字符串左边增加一空格。

(3) Val将数字字符串转换为数值类型，当字符串中出现数值类型规定的字符外的字符，则停止转换，函数返回的是停止转换前的结果。 例如表达式：Val(\结果为-123.45 2、数学函数

1）Sin(x) 求x的正弦值，x的单位是弧度，1度=π/180=3.14159/180（弧度） 2）Cos(x) 求x的余弦值，x的单位是弧度 Cos(0)= 1 Sin(0)=0 3）Tan(x) 求x的正切值，x的单位是弧度 Tan(0)=0

4）Atn(x) 求x的反正切值，x的单位是弧度，函数返回的是弧度值 5）Abs(x) 求x的绝对值 Abs(-3.5)=3.5

6）Sgn(x)返回自变量X的符号，X为正数返回1，X为负数返回-1 ，X为0返回0 7）Sqr(x) 求x的平方根，x必须大于或等于0

8）Exp(x)返回以e为底、以x为指数的值，即求e的x次方

- 22 -

3、日期和时间函数

Now：返回系统日期和时间

Date: 返回系统日期 Time：返回系统时间 1）Day(Now) 返回日期代号（1-31）

2）WeekDay(Now) 返回星期代号（1-7），星期日为1 3）Month(Now) 返回月份代号（1-12） 4）Year(Now) 返回当前的年份 5）Hour(Now)返回小时（0-23） 6）Minute(Now) 返回分钟（0-59） 7）Second(Now) 返回秒（0-59）

例:计算从现在开始离你毕业还有多少天？ #6/7/2008# - Date 4、随机数函数Rnd(x)

Rnd [(x)]，变量x可省略，可产生一个[0,1)之间的单精度随机数。 ①当x＜0时，则每次产生的随机数都相同。 ②当x＞0或省略时，产生下一个随机数。

③当x＝0时，则该次产生的随机数与上一次产生的随机数相同

? Rnd函数返回0和1（包括0但不包括1）之间的单精度随机数。

? 每次运行时，要产生不同序列的随机数，先执行Randomize 语句（参数最好为不断变

化的值，如计算机系统Timer）。

? 产生a～b的之间的随机整数：Int(Rnd *(b-a+1)+a)。

例1：产生[30，50]之间的随机整数，可用下面表达式： Int(Rnd*21+30)

例2：使用 Rnd 函数随机生成一个 1 到 6 的随机整数, 可用下面表达式：Int(Rnd*6 + 1) Ⅲ、小结

本次课我们要掌握常用的内部函数的使用。 Ⅳ、作业

一、写出下列函数的结果：

1、int(5.3) int(5.6) int(-5.3) int(-5.6) 2、fix（5.3） fix（5.6） fix（-5.3） fix（-5.6）

3、Abs(-3.9) cint(-2.3) Asc(\ chr（68） sgn（-2） 二、写出产生[100，200]之间的随机整数的表达式。

第21、22课时

课题：运算符和表达式 教学目的:

1、掌握运算符组成的表达式的计算 2、掌握表达式的用法及书写规则 教学重难点：

1、VB常用的运算符及表达式 2、运算符的优先顺序 教学方法： 多媒体教学 教学过程：

- 23 -

Ⅰ、复习上节内容

1、常用的内部函数的使用。 Ⅱ、新课

要建立一个VB应用程序会用到各种不同的数据以及由这些数据和各种运算符号组成的表达式，还有一些常用函数。 一、运算符与表达式

1、算术运算符：^ -(负号) * / \\ mod + - &

ia=3

2、算术表达式

由常量、变量、算术运算符、圆括号和函数等连接形成。 1）Visual Basic中不能省略乘号运算 2）所有的括号一律使用圆括号

3）数学表达式中的表示特定含义的符号要写成具体的数值。如解圆面积的表达式2πr，在 VB中要写成 2*3.14*r

例：5+10 mod 10 \\ 9 / 3 +2 ^2 结果：10 注意：

对算术运算符两边的操作数应是数值型，若是数字字符或逻辑型，则自动转换成数值类型后再运算。 例如：

30-True 结果是31，逻辑量True转为数值-1，False转为数值0 False + 10 + \结果是14 3、字符串连接运算符 连接运算符：& 和+，“&”专门用作字符串连接，“+”即可作加法运算也可作字符串连接 \结果\，\结果579，123+\结果579 4、字符串表达式

一个字符串表达式是由字符串常量、字符串变量、字符串函数、字符串运算符和括号等连接形成的一个有意义的运算式子，如：

“xyz”& “123”&left(“abc”,2) 就是一个字符串表达式，

字符串连接运算符“&”的优先级低于所有的算术运算符，而高于其他的运算符。 注意：

1、& 两旁的操作数可任意，转换成字符型后再连接 2、在变量后使用运算符＆时，变量与＆间应加一个空格

3、 + 两旁的操作数应均为字符型；若为数值型则进行算术加运算；若一个为数字字符，另

- 24 -