第3章VisualBasic程序设计基础.ppt

《第3章VisualBasic程序设计基础.ppt》由会员分享，可在线阅读，更多相关《第3章VisualBasic程序设计基础.ppt（48页珍藏版）》请在三一文库上搜索。

1、高级语言程序设计Visual Basic,第3章 Visual Basic程序设计基础,Visual Basic程序设计基础,2019/8/24,本章内容,语句和语法规则,数据类型,运算符和表达式,常量和变量,常用标准函数,Visual Basic程序设计基础,2019/8/24,语句和语法规则,1关键字和标识符 关键字：又称为保留字，是Visual Basic系统定义的、有特定意义的词汇 。 标识符：自定义的命名 。 2Visual Basic中标识符的命名规则 必须以字母或汉字开头。 只能由字母、汉字、数字和下划线组成，但不能直接使用Visual Basic的关键字。 不能超过255个字符

2、，控件、窗体和模块的名字不能超过40个字符。 在标识符的有效范围内必须是唯一的。,Visual Basic程序设计基础,2019/8/24,语句书写规则, VB中每个语句以回车结束，通常一行只写一条语句。如果一行写多条语句，语句之间用冒号“：”分隔。如果将一条语句断开换行写，需要再语句断开处用下划线“_”结尾。 注释以Rem开头，也可以使用单引号“”，注释内容可直接出现在语句的后面。 VB能够自动对语句进行简单的格式调整。 VB具有自动提示的功能。,注意：下划线与最后一个字符间隔至少一个空格。,Visual Basic程序设计基础,2019/8/24,数据类型,Visual Basic的数据类

3、型主要分为三大类： 系统定义的基本数据类型 自定义类型 枚举类型,Visual Basic程序设计基础,2019/8/24,基本数据类型,Visual Basic程序设计基础,2019/8/24,基本数据类型,1字符串型（String） 字符串中字母的大小写是有区别的。 例如：“ABC”与“abc”是不相等的。 字符串中包含字符的个数称为字符串的长度，如果长度为0则称之为空字符串。 例如： “abc“ 长度为3的字符串 “中华人民共和国“ 长度为7的字符串 “ “ 由4个空格组成的字符串，长度为4 “ 空字符串 程序代码中的字符串需要加上定界符双引号。,图 4.1 立即窗口,Visual Ba

4、sic程序设计基础,2019/8/24,基本数据类型,2数值型（Numeric） 整数类型 整型（Integer） 以2个字节存储整数。 长整型（Long） 以4个字节存储整数。 字节型（Byte） 以1个字节存储整数，取值范围为0到255。,Visual Basic程序设计基础,2019/8/24,基本数据类型,2数值型（Numeric） 实数类型 单精度浮点型(Single) 以4个字节存储实数，指数部分用E表示。 例如：123.456E+3 双精度浮点型（Double） 以8个字节存储实数，指数部分用D表示。 例如：123.456D-4 货币型（Currency） 以8个字节存储实数，没

5、有指数形式，精确到小数点后4位，在小数点后4位以后的数字将被舍去。,123.456103,123.45610-4,Visual Basic程序设计基础,2019/8/24,基本数据类型,3日期型（Date） 可以表示的日期范围从公元100年1月1日到9999年12月31日。日期型数据须以定界符“#”括起来。 例如： #January 1,1993# #1 Jan 93# #1993-1-1# 4布尔型(Boolean) 又称为逻辑型，只有两个值，即真值(True)和假值(False) 。 5变体型（Variant） 是一种可变的数据类型，可以用来表示除了定长字符串型和自定义类型以外的任何数据类

6、型。 6对象型（Object） 用来表示图形、OLE对象或其他对象 。,Visual Basic程序设计基础,2019/8/24,自定义类型,用Type语句定义的数据类型，又称为记录型。 格式： Public|Private Type 数据类型名 数据类型元素名 as 数据类型 数据类型元素名 as 数据类型 End Type 例如： Type Student No as Integer Name as String*10 定义为10个字符的定长字符串 Sex as String*2 定义为2个字符的定长字符串 End Type,Visual Basic程序设计基础,2019/8/24,枚举类

7、型,枚举类型，即将变量的取值一一列举出来。 格式： Public|Private Enum 枚举名称 成员名1 =常数表达式 成员名2 =常数表达式 End Enum,Visual Basic程序设计基础,2019/8/24,枚举类型,说明： 如果省略“常数表达式”，在默认情况下，枚举中的第一个成员被初始化为0，其后的成员则被初始化为比其前面的成员大1的数值。 例如： Public Enum Workday Monday Tuesday Wednesday Thursday Friday Saturday Sunday End Enum,Visual Basic程序设计基础,2019/8/24

8、,枚举类型,说明： 如果不省略“常数表达式”，可以用赋值语句给枚举中的成员赋值，所赋的值可以是任何长整型的数。 例如： Public Enum Workday Monday=1 Tuesday Wednesday Thursday Friday Saturday Sunday End Enum,Visual Basic程序设计基础,2019/8/24,常量和变量,在程序设计中需要将数据存储为常量或变量。 值不能被改变的量称为常量。 值可以被改变的量称为变量。 在程序中用常量和变量表示数据是重要的程序设计思想。 常量分为：直接常量、符号常量、系统常量。,Visual Basic程序设计基础,20

9、19/8/24,常量,1直接常量 直接常量就是在程序中给出具体数据的值。 直接常量分为数值常量、字符串常量、逻辑常量或日期常量。 例如： 5678，233.5E-6， 0.58D7 “this is a string”，True，#2004-11-18# 可以在数值的后面加上相应的类型说明符指明常量的类型。 例如： 2.75! 是一个单精度浮点型常量 11.25# 是一个双精度浮点型常量。,Visual Basic程序设计基础,2019/8/24,常量,2符号常量 符号常量是用一些有意义的名字代替永远不变的值。 格式： Const 常量名类型说明 = 表达式，常量名类型说明 = 表达式 例如：

10、 Const Pi = 3.1415926 Const Pi2 = Pi * 2, Pi4 = Pi * 4 Const tomorrow = #1/1/1995# Const num! = 1.25, max As Double = 2.65,Visual Basic程序设计基础,2019/8/24,常量,3系统常量 系统定义的常量是与应用程序的对象、方法和属性一起使用，由VB应用程序和控件提供的。一般以vb为前缀，例如，要将文本框Text1的前景颜色设置为红色，可以使用下面的语句： Text1.ForeColor=vbRed 这里的vbRed就是系统常量。这比直接使用16进制数来设置要直观

11、得多。,Visual Basic程序设计基础,2019/8/24,变量,1变量的声明 显式声明 显式声明是在使用变量前用声明语句声明变量。 格式：Dim 变量名 类型说明 说明： 关键字Dim 还可以是Static、Private、Public或Global。 “变量名”应遵循标识符的命名规则。 “类型说明”可以使用“As 类型”形式也可以使用类型说明符，若未指定类型则为变体型。 例如： Dim var As Integer Public sum_1 As Double Dim tomorrow As Date Dim total！ Dim average Dim x,Visual Basic

12、程序设计基础,2019/8/24,例如： Private Sub Command1_Click() a$ = “你好！“ Label1.Caption = a End Sub,Visual Basic程序设计基础,2019/8/24,变量,说明： 当定义变量为字符串型时，可以通过“String*长度”来定义定长字符串型变量。 例如： Dim name1 As String Dim name2 As String*6 可以用一个Dim语句定义多个变量，但必须指定每个变量的数据类型，否则为变体型。 例如： Dim var1 As Integer, var2 As Integer Dim var1,

13、 var2 As Integer,Visual Basic程序设计基础,2019/8/24,变量,1变量的声明 隐式声明 例如： Private Sub Command1_Click() Var = 50 Print Var End Sub 采用强制变量声明： 在模块的声明段中加入语句 “Option Explicit” 。 选择“工具|选项”命令，选择“编辑器”选项卡，再选择“要求变量声明”复选框。,Visual Basic程序设计基础,2019/8/24,变量,2自定义类型的变量 自定义类型的变量与基本数据类型的变量的定义格式完全一样。 例如：在3.2.2节中自定义了一个数据类型Stude

14、nt，下面语句定义了一个Student类型的变量lining。 Dim lining As Student 由于自定义类型包括多个元素，所以引用自定义类型的变量时应指定引用了哪个元素。 格式：变量名. 元素名 例如： lining.No lining.Name lining.Sex,Type Student No as Integer Name as String*10 Sex as String*2 End Type,Visual Basic程序设计基础,2019/8/24,变量,3枚举类型的变量 枚举类型的变量与基本数据类型的变量的定义格式完全一样。 例如：在3.2.3节中定义了一个枚举类

15、型Workday，下面语句定义并引用了一个Workday类型的变量mywork。 Dim mywork As Workday mywork = Tuesday Print mywork,Visual Basic程序设计基础,2019/8/24,运算符和表达式,运算符 是表示数据之间运算方式的符号。 操作数 是参与运算的数据。 表达式 是由运算符和操作数组成的式子。 例如：算术表达式“1 + 2”中，1、2 是操作数，“+”是运算符。 需要两个操作数的运算符，称为双目运算符 。 只需要一个操作数的运算符，称为单目运算符。 例如：“-”作为负号时只需要一个操作数，是单目运算符。,Visual Ba

16、sic程序设计基础,2019/8/24,算术运算符与算术表达式,1算术运算符,例如： ? 13.8 5.6 ? 11.5 Mod 5.1,执行除法后，将结果的小数位全部去掉。 当操作数中含有小数时，先分别四舍五入，后整除运算。,求两个数相除的余数。 当操作数中含有小数时，先将其四舍五入后，再取余运算。,结果为：2 结果为：2,Visual Basic程序设计基础,2019/8/24,算术运算符与算术表达式,2.算术表达式 在书写表达式时，应注意与数学中的表达式写法的区别： VB表达式不能省略乘号运算符， 如：数学中的表达式b2-4ac，写成VB表达式应为b2-4*a*c。 VB表达式中一律使用

17、圆括号，且左右必须配对。 如：数学中的 (x+y)/(a-b)+cx，VB表达式应为(x+y)/(a-b)+c)*x。 一个表达式的运算次序由运算符的优先级决定，优先级高的先运算，优先级低的后运算，优先级相同的按从左到右的次序运算。 算术运算符的优先级从高到低为： 乘方负数（乘、除）整除取模（加、减）。 例如： ?- 2 2 ?3 3 2 ?4 Mod 8 / 2 ?3 * 2 3 / 2,结果为：-4 结果为：13 结果为：0 结果为：3,Visual Basic程序设计基础,2019/8/24,字符串运算符与字符串表达式,1字符串运算符 字符串运算符只有“&”和“+”，它们的功能是把字符串

18、连接起来。 例如： ?“Visual“ + “Basic“ ?“Visual” & “Basic” ?“123“ & 456 ?“123“ + 456 ?“abcd“ + 123 ?“abcd“ & 123 2字符串表达式 例如：“abc“ & “123“ & Left(“abc“,1),& 可以将其他类型的操作数强制转换为字符串后再连接。,结果为：VisualBasic 结果为：VisualBasic 连接运算，结果为：123456 加法运算，结果为：579 操作类型不匹配出错 结果为：abcd123 结果为：abc123a,Visual Basic程序设计基础,2019/8/24,关系运算

19、符与关系表达式,1关系运算符,关系运算符的比较规则： 两个操作数都是数值型时，比较它们的数值大小。 两个操作数都是字符串型时，从左到右逐个字符比较ASCII码值，直到遇到不同字符为止。对于两个汉字字符，比较它们的拼音。 常见字符的比较关系如下： “ ”“0”“9”“A”“Z”“a”“z”“汉字” 两个操作数都是日期型时，是将日期看成“yyyymmdd”的8位整数，再按数值进行比较。,Visual Basic程序设计基础,2019/8/24,关系运算符与关系表达式,2关系表达式 关系运算符的两个操作数的数据类型必须一致。 例如： ?10 - 5 2 + 3 ?“xyz” = “XYZ”,结果为：

20、False 结果为：False,Visual Basic程序设计基础,2019/8/24,逻辑运算符与逻辑表达式,1. 逻辑运算符 Not 取反运算，即将True变为False或False变为True。 例如：? Not “abc“ “ABC“ Or 2 1 ? True Or 6 - 3 4 ? 6 2 Or “b“ = “B“,结果为：False 结果为：True 结果为：False 结果为：False 结果为：True 结果为：True 结果为：False,Visual Basic程序设计基础,2019/8/24,逻辑运算符与逻辑表达式,1. 逻辑运算符 Xor异或运算，两个操作数的值不

21、同时，结果为True，否则结果为False。 例如：?3 5 Xor 8 5 Eqv 8 3 结果为：False 2逻辑表达式 逻辑运算符的优先级由高到低为： NotAndOrXorEqvImp。,Visual Basic程序设计基础,2019/8/24,日期运算符与日期表达式,1日期运算符 日期运算符只有“+”和“-”，它们的功能是对日期进行运算。 2日期表达式 日期表达式包括以下操作： 例如：? #2002-02-01# + 1 例如：?#01/01/2002# - 2 ?#2002-02-02# - 2 ?#2001-02-03# - #2001-02-02#,结果为：2002-2-2

22、结果为：2001-12-30 结果为：2002-1-31 结果为：1,Visual Basic程序设计基础,2019/8/24,各种运算符的优先级比较,例如，一个混合运算表达式的运算顺序如下所示：,结果为：True,Visual Basic程序设计基础,2019/8/24,例：判别某年是否是闰年，闰年的条件符合下面二者之一： (1)能被4整除，但不能被100整除。 (2)能被400整除。 要求：单击按钮Command1计算出2004年是否是闰年，并在窗体的标签Lable2中显示结果。,Visual Basic程序设计基础,2019/8/24,界面设计：窗体界面中放置了两个标签Lable1和La

23、ble2， 以及一个按钮Command1。分别设置其Caption属性：,单击Command1时判断2004年是否是闰年，程序代码如下： Private Sub Command1_Click() 单击按钮计算闰年 Dim x As Integer Dim y As Boolean x = 2004 y = (x Mod 4) = 0) And (x Mod 100) 0) Or (x Mod 400) = 0) Label2.Caption = y End Sub,Visual Basic程序设计基础,2019/8/24,常用标准函数,函数是系统已经定义好的运算。 函数的调用格式： (参数1,

24、参数2) 说明： 每个函数都有函数名，通过函数名调用函数。 数学中函数的“自变量”在程序设计语言中称为“参数”，函数的运算结果称为“返回值”。 函数是以表达式的形式调用的，而不能单独作为一个语句。 例如： a = Sin(b) z = Sin(x) + Cos(x + y),Visual Basic程序设计基础,2019/8/24,数学函数,Visual Basic程序设计基础,2019/8/24,字符串函数,Visual Basic程序设计基础,2019/8/24,字符串函数,Visual Basic程序设计基础,2019/8/24,字符串函数补充,Visual Basic程序设计基础,20

25、19/8/24,转换函数,Visual Basic程序设计基础,2019/8/24,时间函数,Visual Basic程序设计基础,2019/8/24,随机数函数,1Rnd函数 格式：Rnd(x)，其中参数x是一个双精度浮点数，可以省略。 功能：可产生一个01之间（大于或等于0，但小于1）的单精度随机数。 下一个要产生的随机数受参数x的影响： 当x0或省略时，每次产生不同的随机数。 当x=0时，该次产生与上次相同的随机数。 产生随机整数的公式： 产生区间n,m) 范围内的随机整数：Int(Rnd*(m-n)+n) 产生区间n,m 范围内的随机整数：Int(Rnd *(m-n+1)+n) 例如：

26、产生100, 1000)之间的随机整数：Int(Rnd *900+100) 产生随机字符AZ的函数表达式：Chr(Int(Rnd*26+65),Visual Basic程序设计基础,2019/8/24,随机数函数,2Randomize语句 格式：Randomize(x)，其中参数x可以省略。 功能：将Rnd函数的随机数生成器初始化。 例如： Randomize Print Rnd,Visual Basic程序设计基础,2019/8/24,数制转换函数,Visual Basic程序设计基础,2019/8/24,测试函数,格式：TypeName (变量名) 功能：测试变量的数据类型。 说明：返回值

27、为具体的类型名。 例如： Dim a As Variant Dim b As Integer Dim c As Double Dim d As String Print TypeName(a) 结果为：Empty Print TypeName(b) 结果为：Integer Print TypeName(c) 结果为：Double Print TypeName(d) 结果为：String Print TypeName(Command1) 结果为：CommandButton Print TypeName(Picture1) 结果为：PictureBox Print TypeName(Text1) 结果为：TextBox,Thank You !,