第三章 VB语言基础 3.1 数据类型 3.2 常量与变量 3.3 运算符与表达式 3.4 常用内部函数 本章目录.

Presentation on theme: "第三章 VB语言基础 3.1 数据类型 3.2 常量与变量 3.3 运算符与表达式 3.4 常用内部函数 本章目录."— Presentation transcript:

1 第三章 VB语言基础 3.1 数据类型 3.2 常量与变量 3.3 运算符与表达式 3.4 常用内部函数 本章目录

2 3.1 数据类型 为什么要区分数据类型  不同的数据类型参与的运算不同 不同的数据类型在计算机内的存储方式不同，取值范围也不同

3 VB的数据类型 本章目录

4 3.1.1 基本数据类型 1. Byte（字节型） 表示无符号的整数 在内存中占1个字节（8位） 范围为0～255 一般用于存储二进制数

5 2. Boolean（逻辑型） 只有两种取值：真（True）和假（False）
任何只有两种状态的数据，都可以表示为逻辑型，如“True/False”、“Yes/No”、“On/Off” 逻辑型数据用2个字节存储 注意： 当把数值型数据转换为逻辑型数据时，0转换为False，非0值转换为True 当把逻辑型数据转换为数值型数据时，False转换为0，True转换为-1

6 举 例 下列语句的执行结果是： Dim Tag As Boolean Tag = 6 < 8 Print Tag 结果为： True

7 3. 数值型 数学运算中的数据可分为整数和小数 VB的数值型数据主要分为整型数（整数）和浮点数（实数）

8 （1）整 型 数 不带小数点和指数符号的数，精确但范围有限 整数的类型分为整型和长整型 整型数Integer 长整型数Long
在内存中占2个字节（16位），取值范围−32 768～32 767 类型说明符为%，可省略 形式：±n[%] 长整型数Long 在内存中占4个字节（32位） 类型说明符为& 形式：±n & 举例：dim x as integer dim x% 举例：dim x as long dim x& 举例：123、123%、123& 、 正确的整数 123.0 、1, 错误

9 （2）浮点数 带小数点或指数符号的数，又称为实数，精度有限但取值范围大 浮点数的类型分为单精度和双精度 单精度 Single
在内存中占4个字节（32位） 类型说明符为！，可省略 科学计数法：尾数 [ E 指数 ] 双精度Double 在内存中占8个字节（64位） 类型说明符为# 科学计数法：尾数 [ D 指数 ] 尾数可以是整数，也可以是小数 举例： 123.45、 ！ E+3 12345E-2 D+3 都是 同值实数 定点 浮点

10 4. Object（对象型） 5. Currency（货币型） 对象型数据用来表示图形、OLE对象或其他对象，用4个字节存储。
该类型数据以8个字节（64位）存储，精确到小数点后4位，小数点前最多可有15位 浮点数中小数点是“浮动”的，即小数点可以出现在数的任何位置，而货币型数据的小数点是固定的，即定点实数

11 6. Date(Time)（日期型） 日期型数据用来表示日期和时间，可以表示多种格式的日期和时间 形式： #……#
日期可以用“/”、“，”、“-”分隔开，可以是年、月、日，也可以是月、日、年的顺序 时间必须用“：”分隔，顺序是：时、分、秒 例: 下面的 Date/Time 值全部有效 # :20# #March 27,1993 1:20am# #Apr-2-93# #14 April 1993# #12/18/1999#

12 注意：如果字符串本身包括双引号，可用连续两个双引号表示
7. String(字符型) 一组由计算机字符组成的序列，即字符串 在VB中，字符串要用双引号括起来，其中字符区分大小写。双引号在输入和输出时并不显示 形式： "字符串" 例: "abc" "ABC" "计算机" "12.34" "3+2" " "(空串，长度为0) 字符串中包含字符的个数 注意：如果字符串本身包括双引号，可用连续两个双引号表示 要打印以下字符串： "You must study hard", he said. 在程序中需要将该字符串表示成: " ""You must study hard"" , he said. " 类型说明符：string 或 $

13 举 例 Print "123abc " Print """123""abc " 结果: 123abc "123 "abc

14 8. Variant（变体型） 如果不指定变量类型，VB自动默认为是变体型。 是所有未定义变量的默认数据类型
意思是没有数据类型，或者可以是任何类型 它的最终数据类型完全决定于程序上下文的需要

15 3.1.2 用户定义数据类型 用户可以利用type语句定义自己的数据类型。 格式： Type 自定义数据类型名 元素名1 As 类型名
例如： Type student name as string*8 age as integer End Type Type 自定义数据类型名 元素名1 As 类型名 元素名2 As 类型名 …… End Type 定长字符串

16 常数表达式是长整型数据，如果省略，第一个常数的值为0，第2个为1
3.1.3 枚举类型 当一个变量只有几种类型的值时用枚举类型 将变量的值一一列举出来，变量的值仅限于列举出来的值的范围 格式： [Public|Private] Enum 类型名 成员名[=常数表达式] …. End Enum 常数表达式是长整型数据，如果省略，第一个常数的值为0，第2个为1 组成元素名称

17 public Enum days Sunday =2 Monday Tuesday Wednesday Thursday Saturday Sunday End Enum 例如：public Enum days Sunday Monday Tuesday Wednesday Thursday Saturday End Enum

18 3.2 常量与变量 常量： 变量： 在程序执行期间不发生变化的数据 表达式： s=3.14*r*r 其中：r、s是变量，3.14是常量
在程序运行期间，其存储的值可以改变

19 常 量 1、直接常量：其常数值直接反映了其类型 2、符号常量：用户声明，便于程序阅读或修改 3、系统常量：由系统提供，属于内部常量
1）字符串常量，如：“ab” “ ” 2）数值常量有4种：整型数、长整型数、货币型数和浮点数 八进制常数：数值前加&O，如果是长整型，结尾还要加上& 16进制常数：数值前加&H ，如果是长整型，结尾还要加上& 2、符号常量：用户声明，便于程序阅读或修改 Const 符号常量名 [As 类型] = 表达式 若省略As 类型，数据类型由表达式决定 例如： Const PI = ，单精度实数 3、系统常量：由系统提供，属于内部常量 例如：Form1.WindowsState=vbMaximized窗口最大化 vbCrLf 回车/换行组合符 Form1.BackColor = vbRed 本章目录

20 3.2.2 变 量 1. 变量的命名规则： 1、不能使用VB的关键字 非法变量名举例
变 量 1. 变量的命名规则： 1、不能使用VB的关键字 2、必须以字母或汉字开头，由字母、汉字、数字或下划线组成，长度不超过255个字符 3、VB不区分变量名的大小写，一般变量名首字母用大写，其余用小写字母表示；常量全部用大写字母表示 非法变量名举例 3xy ' 数字开头 y - z ' 不允许出现减号 Wang Ping ' 不允许出现空格 Dim ' VB的关键字 Cos ' 标准函数名 使用变量前要先声明变量的名称和类型，系统才能为它分配存储单元 本章目录

21 2. 变量的声明 1）用Dim语句显式声明变量 Dim 变量名 [As 类型] As部分缺省，创建的变量为变体类型
举例：Dim m,n As Integer,x,y As Single 创建了变体型变量m、x，整型变量n和单精度型变量y 本章目录

22 举 例 Dim Sum As Long Dim Address As String ‘不定长度
Dim No As String * ‘固定长度8 Dim Num, Total As Integer 'Num为可变类型 Dim Average As Single

23 也可以用常用的类型说明符来定义: 整型 : % 长整型 : & 单精度: ! 双精度: # 货币型: @ 字符型: $
Dim a as integer Dim a% Dim B as integer,stname as string Dim B%,stname$ 注意：变量名和类型符之间不能有空格

24 2) 隐式声明 不声明直接使用 为变体类型，易出错、浪费空间 3) 强制显式声明 在通用声明段中使用语句: Option Explicit

25 自定义数据类型的声明 Dim 变量名 as 自定义类型名 举例: Type mystudent name as string*8
age as integer End Type dim std as mystudent 其中元素的引用： std.name=“li” std.age=35

26 3.3 运算符与表达式 算术运算符与算术表达式 数值
前面介绍了VB中的常量、变量及它们的数据类型，它们是程序要进行加工和处理的运算对象，即数据 要对这些数据进行加工、处理和运算，还必须用到运算符，以表明对数据实施的是何种操作 运算符是表示实现某种运算的符号 运算符和表达式 ： 结果类型 算术运算符与算术表达式 数值 字符串运算符与字符串表达式 字符串 关系运算符与关系表达式 逻辑 逻辑运算符与逻辑表达式 逻辑 本章目录

27 1. 算术运算符 例：5+10 mod 10 \ 9 / 3+2 ^2 结果：10 本章目录

28 算术运算符注意事项 注意：对算术运算符两边的操作数应是数值型，若是数字字符或逻辑型，则自动转换成数值类型后再运算。 例如：
30-True 结果是31，逻辑量True转为数值-1，False转为数值0 False "4" 结果是14 7.7\4等于 ‘ 整除之前先将小数部分四舍五入 17/5等于3.4 25.35 Mod 6.78等于4 ‘ 先将小数部分四舍五入 1 Mod 3等于1

29 2. 字符串运算符 操作 结果 操作 结果 &和+的功能都是将两个字符串连接起来 & 两旁的操作数可任意，转换成字符型后再连接
+ 两旁的操作数均为字符型，运算结果才是字符型；否则运算结果都是数值型 1)数值型：则进行算术加运算 2)一个为数字字符，另一个为数值，自动将数字字符转换为数值后进行算术加 3)一个为非数字字符，另一个为数值型，出错 例如： 操作 结果 操作 结果 "ab" & "ab123 " "12" "12" & " " "ab" 出错 "12" & True "12True" "12" + True 注意： 使用运算符“&”时，在变量和运算符“&”之间需加一个空格 使用运算符“+”，得到的不一定为字符串 本章目录

30 3. 关系运算符 关系运算符是双目运算符，作用是对两个操作数进行大小比较 若关系成立，则返回True，否则返回False
操作数可以是数值型、字符型 运算符 实 例 结果 = " ABCDE " = " ABR " False > " ABCDE " > " ABR " >= " bc" >= "abcde " True < 23<3 <= " 23 " <= " 3 " <> " abc" <> "abcde " 本章目录

31 “ string” < “string” 第一个串中第一个字符是空格，空格小于“s”，所以结果为真
3. 关系运算符（续） 运算符 含义 表达式举例 说明 举例 结果 = 等于 “abc” = “ABC” False 小写“abc”不等于大写“ABC” > 大于 (2+3)>4 True 先计算2+3＝5，5大于4 >= 大于等于 8>=(10-2) 或大于或等于都为真，8＝10－2 < 小于 “ string” < “string” 第一个串中第一个字符是空格，空格小于“s”，所以结果为真 <= 小于等于 220<=110 或小于或等于都为真，220大于110，所以为假 <> 不等于 “z”<>”y” “z”不等于“y”，所以结果为真

32 4. 逻辑运算符 除Not是单目运算符外，其余都是双目运算符 作用：将操作数进行逻辑运算，结果是逻辑值True或False

33 第一个为true，第二个为false时才为false，否则为true
运算符 含义 优先级 说明 Eqv 等价 4 操作数相同时才为true Imp 蕴含 5 第一个为true，第二个为false时才为false，否则为true

34 4. 逻辑运算符（续） VB中常用的逻辑运算符是Not、And和Or，它们用于将多个关系表达式进行逻辑判断
例1：数学上表示某个数在某个区域时用表达式：10≤X＜20，VB程序中应写成： X＞＝10 And X＜20 例2：选拔优秀生的条件为年龄(Age)小于19岁，三门课总分(Total)高于285分，其中有一门(Mark1、Mark2、Mark3)为100分 Age<19 And Total>285 And (Mark1=100 Or Mark2 =100 Or Mark3=100)

35 3.3.2 表达式 组成：变量、常量、运算符、函数和圆括号 书写规则： 算术表达式中的乘号不能省略 例如：X*Y，(a+3)*5
表达式不论有几个层次，均使用小括号 例如：4*(a+b*(12+score))/(5-x) 表达式所有的内容写在一行上，无高低上下之分、无上标下标之分 表达式中不能使用α、β、λ、ξ、π等符号，可以用其他的合法变量名称代替 本章目录

36 算术运算符>字符串运算符>关系运算符>逻辑运算符
算术运算中，如果操作数具有不同的数据精度，运算结果的数据类型采用精度高的数据类型，即低精度自动向高精度转换： Integer<Long<Single<Double<Currency 优先级： 算术运算符>字符串运算符>关系运算符>逻辑运算符 x=2:y=20 x=2 or not y>0 and (x-y)/5 <>0

37 a*b*c*d/e/f/g 或 a*b*c*d/(e*f*g)
表达式书写举例 a*b*c*d/e/f/g 或 a*b*c*d/(e*f*g) sin(45*3.14/180)+(exp(10)+log(10))/sqr(x+y+1) 例：选拔优秀生的条件为年龄(Age)小于19岁，三门课总分(Total)高于285分，其中有一门为100分。 如果其表达式写为： Age<19 And Total>285 And Mark1=100 Or Mark2 =100 Or Mark3=100 有何问题？ 本章目录

38 课堂练习： 1.下列___是日期型常量 A. ”2/1/02” B. 2/1/02 C. #2/1/02# D. {2/1/02}
2.下面___不是字符串常量 A. ”你好” B. ” “ C. ”True” D. #False# 答案：C 答案：D

39 课堂练习： 3.下列符号常量的声明中，___是不合法的。 A. Const a As Single = 1.1
B. Const a As Single = 12 C. Const a As Double = Sin(1) D. Const a = “OK” Const 符号常量名 [As 类型]=表达式，表达式只能是常数表达式（由数值常量、字符串常量以及运算符组成），不能使用函数 答案：C

40 课堂练习： 4.假设X=3，Y=6，Z=5，则表达式(X^2+Y)/Z的值是___ A. 1 B. 5 C. 3 D. 2.4
5.假设A=3，B=7，C=2，表达式A>B OR B>C 的值是___ A. True B. False C.表达式有错 D.不确定 答案：C 答案：A

41 课堂练习： 1.闰年的条件是：年号(Y)能被4整除，但不能被100整除；或者年号能被400整除。表达该条件的表达式是：___________
2.一元二次方程ax2+bx+c=0有实根的条件是a≠0，并且b2-4ac≥0，表示该条件的布尔表达式是：___________ (Y Mod 4 = 0) And (Y Mod 100 <> 0) Or (Y Mod 400 = 0) (a <> 0) And (b*b-4*a*c >= 0)

42 3*y+(a+3*x*x+4*x^3)/(1+2*x+x^2)-2*b
4.数学表达式 的VB表达式是_______ (X Mod 5 = 0) And (x Mod 2 = 0) 3*y+(a+3*x*x+4*x^3)/(1+2*x+x^2)-2*b

43 3.4 常用内部函数 VB函数 内部函数 1、内部函数（标准函数） VB系统为实现一些特定功能而设置的内部程序 2、用户自定义函数
3.4 常用内部函数 VB函数 1、内部函数（标准函数） VB系统为实现一些特定功能而设置的内部程序 2、用户自定义函数 用户根据需要自定义的函数 数学函数 转换函数 字符串函数 随机函数 日期时间函数 内部函数 调用函数的形式： 函数名 [（参数列表）] 参数有不同的类型 N表示数值型 C表示字符串 D表示日期型

44 3.4.1 数学函数 函数名 含 义 实 例 结 果 Abs（N） 取绝对值 Abs（-12.6） 12.6 Cos（N） 余弦函数
含 义 实 例 结 果 Abs（N） 取绝对值 Abs（-12.6） 12.6 Cos（N） 余弦函数 Cos（0） 1 Sin（N） 正弦函数 Sin(100*3.14/180) 0.174 Tan（N） 正切函数 Tan（0） Atn（N） 反正切函数 Atn（10） Exp（N） 以e为底的指数函数，即eN Exp（2） Log（N） 以e为底的自然对数 Log（5） 1.6094 Sgn（N） 符号函数 Sgn（-26） -1 Sqr（N） 平方根函数 Sqr（9） 3 1）所有函数的参数必须加（ ）； 2）三角函数的参数使用弧度； 3）Sgn(N)的值只有3个：N大于零时为1，等于零时为0，小于零时为-1； 4）Sqr(N)的参数不能为负数；Exp(N)与Log(N)互为反函数。

45 3.4.2 转换函数 函数名 含 义 实 例 结 果 Asc(C) 字符串首字母转换成ASCII码值 Asc（"AB"） 65
含 义 实 例 结 果 Asc(C) 字符串首字母转换成ASCII码值 Asc（"AB"） 65 Chr$(N) ASCII码值转换成字符 Chr$（65） "A" Fix(N) 取整数部分（不四舍五入） Fix（-34.83） -34 Round(N) 四舍五入取整 Round（-34.83） -35 Hex(N) 十进制数转化为十六进制数 Hex（17） 11 Oct(N) 十进制数转化为八进制数 Oct（20） 24 Int(N) 取小于或等于N的最大整数 Int（-34.83） Int（34.83） 34 Lcase$(N) 字母转化为小写字母 Lcase$（"ABcdE"） " abcde " Ucase$(N) 字母转化为大写字母 Ucase$（"ABcdE"） " ABCDE " Str$(N) 数值转化为字符串 Str$（369.45） "369.45" Val(C) 字符串转化为数值 Val（" "） Val（"-123.1AB6"） Val（"M123.1AB6"） -123.1 本章目录

46 3.4.3 字符串函数 字符串函数大都以类型符“$”结尾，表示函数的返回值为字符串；
本节介绍的字符串函数都加上类型符“$”，在实际应用中可以省略 函数名 含 义 实 例 结 果 Mid$(C,N1[,N2]) 从字符串C的N1位开始向右截 取N2个字符，如果N2省略，则 截取到字符串的末尾 Mid$("ABCDEFG",2,3) "BCD" Left$(C，N) 截取字符串C左边N个字符 Left$("ABCDEFG",3) "ABC" Right$(C，N) 截取字符串C右边N个字符 Right$("ABCDEFG",3) "EFG" String(N，C) String(N，Asc) 返回C串首字符组成的N个字符 返回由该Asc码对应的N个字符 String(3，"ABCDEFG“) String(3,90) "AAA" "ZZZ" Len(C) 返回字符串C的长度 Len("VB程序设计“) 6 LenB(C) 返回字符串C的字节数 LenB("VB程序设计“) 12 Ltrim$(C) 去掉字符串左边的空格 Ltrim$(" ABCDEFG“) "ABCDEFG" Rtrim$(C) 去掉字符串右边的空格 Ltrim$(" ABCDEFG “) Trim$（C） 去掉字符串左右两边的空格 Ltrim$(" ABCDEFG “)

47 3.4.3 字符串函数 函数名 含 义 实 例 结 果 Space$(N) 产生N个空格 Space（4） " "
含 义 实 例 结 果 Space$(N) 产生N个空格 Space（4） " " StrReverse(C) 将字符串反序 StrReverse（"ABCDEFG"） "GFEDCBA" InStr(C1,C2) 在C1中查找 C2是否存在 InStr（"ABCDECDFG","CD"） InStr（"ABCDECDFG","cd"） 3 Join(A[,D]) 将数组A各个 元素按D（或 空格）分隔符 连接成字符串 A=Array（"123“,"ab“,"cd"） Join（A,"*"） "123*ab*cd" Replace(C,C1,C2) 在C字符串中 用C2代替C1 Replace("ACEBGCEBC“,"CE“,"8“) "A8BG8BC" Split（C，D） 将字符串C按 分隔符D分隔 成字符数组 S=Split（"123，ab，cd"，"，"） S(0)= "123" S(1)="ab" S(2)= "cd" 本章目录

48 3.4.4 随机函数 函数格式如下： Rnd[(x)] 函数的功能：产生[0，1）的双精度随机数 说明 Int(Rnd*(B-A+1)+A)
（1）产生[A,B]区间的正整数： Int(Rnd*(B-A+1)+A) （2）每次运行时，要产生不同序列的随机数，需增加语句： Randomize [number] Randomize 用 Number 将 Rnd 函数的随机数生成器初始化，并给它一个新的种子值。如果省略 Number，则用系统计时器返回的值作为新的种子值。 举例：产生10~50之间的随机整数的表达式是： Randomize Int(Rnd*( )+10) 本章目录

49 例3.2 （1）在文本框中输入一串英文字母，单击“大写->小写”按钮，将输入的字母全部转化为小写字母；单击“小写->大写”按钮，将输入的字母全部转化为大写字母，转换后的结果显示在标签上； （2）单击“产生ASCII码值”按钮，利用Rnd函数产生[65,90]区间的正整数，并在文本框中显示出来；单击“ASCII->字符”按钮，则将该ASCII值对应的字符显示在标签上。

50 3.4.5 日期函数 函数名 含 义 实 例 结 果 Date 返回系统日期 2011-5-20 Day（C|D） 返回日期代号（1~31）
含 义 实 例 结 果 Date 返回系统日期 Day（C|D） 返回日期代号（1~31） Day(#2011/05/20#) 20 Month（C|D） 返回月份代号（1~12） Month(#2011/05/20#) 5 Year（C|D） 返回年份号 （1753~2078） Year("2011/5/20") 2011 MonthName(N) 返回月份名称 MonthName(Month(#2011/05/20#)) 五月 Now 返回系统日期和时间 16:35:47 Time 返回系统当前时间 16:34:47 WeekDay(C|N) 返回星期代号（1~7） 星期日为1,星期二为3 WeekDay（"2011/5/20"） 6 WeekDayName(N) 返回星期代号（1~7）转化为星期名称 WeekDayName（6） 星期五

51 DateAdd增减日期函数 功能：对要增减的日期变量按日期形式做增减 格式： 日期形式：
yyyy代表年 q代表季 m代表月 y代表一年的天数 d代表日 w代表一周的日数； ww代表星期数目； h代表时； n代表分钟数； s代表秒数； 举例：DateAdd（“ww”,2,#1989/10/31#） 结果：

52 DateDiff函数 功能：对于指定的两个日期按日期形式求其相差的日期 格式： Datediff(要间隔的日期形式，日期1，日期2)
日期形式： yyyy代表年 q代表季 m代表月 y代表一年的天数 d代表日 w代表一周的日数； ww代表星期数目； h代表时； n代表分钟数； s代表秒数； 举 例： 计算从当前日期到2013年4月29日有多少天？ 表达式为：DateDiff("d", Now, #4/29/2013#)

53 3.4.6 Shell函数 Shell(命令字符串[,窗口类型]) Shell函数可调用各种应用程序 格式如下：
命令字符串： 要执行的应用程序名(包括路径)，必须是可执行文件(.com、.exe、.bat) 窗口类型： 可执行应用程序的窗口大小，取值范围为0~4、6的整型数值，一般取1，表示正常窗口大小 函数调用成功返回一个任务标识ID，不成功，则返回0 举例：i = Shell( “c:\Windows\calc.exe”，1) 本章目录

54 3.4.7 Format格式化函数 功能：使数值型、日期型和字符串型数据按指定的格式输出 形式： Format (表达式, "格式字符串")
1、数值格式化 1.23E-01 "0.00E+00" 0.1234 用指数表示 E+ $ "$###.##" 在数字前强加＄ ＄ % "####.##%" 数值乘以100，加百分号 % 1, "##,##0.0000" 千分位 ， "#####.####" 位置不足时不填充0 # " " 用0填充不足的位置 显示结果 格式字符串 表达式 作 用 符号

55 如果实际字符位数小于符号位数，字符前加空格 如果实际字符位数小于符号位数，字符前不加空格
2、字符串格式化 符号 作用 字符串表达式 格式字符串 显示结果 < 以小写显示 HELLO “<” hello > 以大写显示 “>” @ 如果实际字符位数小于符号位数，字符前加空格 & 如果实际字符位数小于符号位数，字符前不加空格 “&&&&&&&”

56 3.4.8 LoadPicture函数 功能：将图形载入到窗体、图形框控件等 filename：指定文件名
Loadpicture([filename], [size], [colordepth], [x,y]) filename：指定文件名 size：如果filename是光标或图标文件，指定想要的图像大小 colordepth：指定想要的图片的颜色深度 x，y：指定图片的宽度和高度 如果函数没有一个参数，表示将清除窗体、图片框等中的图形 VB可以识别的图形格式：.bmp，.ico，.cur，.gif，.jpg 举例：Picture1.Picture=Loadpicture(“”)

57 本章小结 变量：在程序运行中其存储的值可以改变 变量声明 Dim 变量名 [As 类型]
运算符 算术运算符、字符串运算符、关系运算符和逻辑运算符 函数 内部函数、用户自定义函数 调用函数形式：函数名[（参数列表）] Shell函数 调用各种应用程序 本章目录

58 3月19日上机题目 实验指导P203 实验2-6、2-7 实验指导P206 实验3-1，3-3，3-4