2019年第6章VB语句课件

《2019年第6章VB语句课件》由会员分享，可在线阅读，更多相关《2019年第6章VB语句课件（97页珍藏版）》请在金锄头文库上搜索。

1、1,第6章 Visual Basic 6.0程序设计,2,6.1 VB的数据类型及运算符、表达式,6.1.1 VB的数据类型 为了更好地处理各种数据，VB定义了多种数据类型，列于P69表6-1中。 可变类型（Variant）:可变类型变量可以接收任何类型的数据。系统会根据赋值情况按相应的数据类型对待。 不同类型的数据所占的存储空间不同，选择合适的数据类型可以优化程序代码。一般只有相同的数据之间才能进行操作，否则可能出现错误。因此在使用变量时一般应声明变量的类型。,3,4,6.1.2 变量的声明,1. 变量的概念 2. 变量的命名规则 变量名的构成可以是字母、数字、下划线，此外要注意以下几点。

2、变量名不能以数字开头。如2C是错误的。 变量名所含的字符个数不超过255个。 变量名不区分字母的大小写，如Sum与sum代表同一变量。 不用VB的保留字做变量名。保留字是指VB中已经定义的词，如标准函数名、方法名、语句、运算符、过程名等。如VB中使用的Print、Sub、Private、Now、Time等不能做变量名。,5,3. 变量的定义(声明),一个变量是什么数据类型，应当告知计算机，以使计算机为其分配相应大小的存储空间。 某种类型的变量，可赋予同类型的数据。 声明变量的语句格式如下： Dim | Static | Public |Globa 变量名 As 类型名 例如： Dim x1 A

3、s Single 将x1声明为单精度型变量 Dim str1 As String 定义变长字符串变量 Dim str2 As String*20 定义定长字符串变量 Dim a 没指定a的类型, 默认是变体(Variant)类型 Public w2 As Integer 将w2声明为全局整型变量,6,如果用逗号分隔，可以在一行中定义多个变量。例如 Dim Sum As Double , aver As Single 变量声明后，数值型变量的初始值是0； 字符型变量的初值是空，即无任何字符； 逻辑型变量的初值是False （假） 。 用Static可定义静态变量: Static c As Int

4、eger 将c声明为静态整型变量 用Dim 定义的变量称为自动(动态)变量.,7,例6-1 以下窗体的单击事件过程，若多次被调用执行，其静态变量n中内容反映了调用的次数,而动态变量m的值则总是1。通过本例，观察静态变量与局部动态变量的区别。 Private Sub Form_Click( ) Static n As Integer n 定义为静态变量 Dim m As Integer m为局部动态变量 n=n+1 m=m+1 Print “n=”;n , “m=”;m Print End Sub,8,4Print的用法,上例中用到了Print输出数据。Print是VB提供的一种方法，可完成在窗

5、体上显示(输出)字符串或表达式的值的操作。 语法格式：对象名. Print 输出项列表 功能：在指定对象上输出数据。 说明： 对象名可以是窗体名（例如Form1）、图片框名（例如Picture1），或打印机（如Printer）。若省略对象名，则默认在当前窗体上输出数据。 “输出项列表”是一个或多个要显示的数据项。输出项可以是数值表达式或字符串。若输出字符串，要用双引号括住字符串；若输出变量中的数值，则变量不应用双引号括住。若输出的是数值表达式，则Print会先计算表达式的值，然后输出；若省略输出项，则输出一空行。,9,例如：Print “欢迎学习 VB。” 输出字符串，显示：欢迎学习 VB。

6、a=6 将数值 6 赋给变量 a Print a 输出变量 a 中的值，显示：6 Print 输出空行 Print 5+10*4 输出表达式的值，显示：45 若输出多项，各输出项之间要用“;”或 “ ,”当分隔符。 “;”表示按紧凑格式输出各项，即两输出项之间无间隔地显示出来； 而用 “,”做分隔符，表示各输出项按分区输出格式显示。VB中规定，一个输出区为14个西文字符的宽度，第一个输出区从窗体左边第一个字符位置开始，而第二个输出区从第15个字符位置开始。逗号后面的输出项在下一个输出区显示。 例如：Form1.Print “a”;“b”, “c” 结果在窗体上显示： ab c,10,例如：Pr

7、int “A=”;1 结果显示： A=1 例如 a=12 b=3 Print “a=”;a, “b=”;b Print “a+b=”;a+b 运行结果： a=12 b=3 a+b=15,11,例： Print “abcd” 没有以分隔符结尾，光标自动换行 Print “xyz”, 以“,”结尾，光标不换行 Print “OPQ” 接着上一行，在下一输出区输出字符串 OPQ 显示结果如下： abcd xyz OPQ,12,6.1.3 常量分类及其声明方法,常量分为两种: 直接常量 , 符号常量 1. 直接常量 直接常量就是在代码中以常数的形式表示的数据，所以也称之为常数。如a=a+3，式中的3就

8、是直接常量。VB中提供了各种类型的直接常量(常数)。 有两种: 字符串 , 数值 (1) 字符串:是用双引号括起来的字符序列，可以是ASCII字符,也可以是中文字符. 例如: ABCDE 程序设计 (空字符串) (2) 数值: 整型、长整型、浮点型、货币型等,13,数值类型 分为整型数和实型.,整型数,实型数 (浮点数),整数 Integer,长整数 Long,例: +4、-10 范围：-32768 32767,例: +412345、-120321,单精度数Single,双精度数 Double,例: 0.0412、-102.3,指数形式: 4.12e-2, -1.023E+2,例: 0.012

9、34、-123.45678,指数形式: 1.234D-2, -1. 2345678d+2,14,整型常量（Integer）,整型常量指有符号整数。整型常量可以分为十进制、十六进制和八进制。 十进制整数如 12 、 12345（+号被省略） 、 0等。 十六进制整型数规定以 y End Sub 运行结果： 输入 3 输出 y=45,27,输入框函数 InputBox( ) 功能：键盘输入字符串给变量。该函数的执行，会弹出一个对话框(如图)，让用户输入数据。 格式：x= InputBox(prompt$,title$ ,default$ ,x%,y%) 说明： prompt$：是用双引号括起来的字

10、符串，指定输入对话框中显示的提示信息，用来提示用户输入什么数据。 title$：是用双引号括起来的字符串。用来指定显示在输入对话框标题栏中的标题。,28,default$: 指定默认的输入值。该项中的字符串显示在输入框中，若用户没有输入任何值，则该项内容即作为输入值。 ,x%,y%：是对话框左上角的坐标值，用来确定对话框在屏幕上显示的具体位置。 函数返回值：是输入的字符串。若没有输入字符串，则返回Default项中的字符串。 x: 是用户定义的字符串（String）型变量，用于接受函数的返回值(即用户的输入值)。,29,例6-3 在窗体单击(Click)事件过程中输入代码如下： Private

11、 Sub Form_Click( ) Dim a As String a=InputBox(请输入你的地址：, 输入函数练习 , 沈阳市) Print 你的地址是: x ; If x = vbAbort Then Print “你按下了终止按钮。” ElseIf x= vbRetry Then Print “你按下了重试按钮。” ElseIf x= vbIgnore Then Print “你按下了忽略按钮。” End If End Sub 按F5键运行程序，单击窗体，就会弹出MsgBox对话框如图6-4。若在对话框中单击了终止按钮，则在窗体中打印出: x=3 你按下了终止按钮。因为终止按钮对

12、应的函数返回值是3。,图6-4 MgBox对话框,36,例 用MsgBox函数判断是否继续执行. Private Sub Form_Click() msg$ = 请确认此数据是否正确 Title$ = 数据检查对话框 typ = vbYesNoCancel + vbCritical x = MsgBox(msg, typ, Title) If x = vbYes Then Print x=; x ElseIf x = vbNo Then Print x=; x, 数据错误，请从新输入 End If End Sub,37,6.2.2 数学函数,1. Int(x) 功能：得到不超过x的最大整数。x

13、可以是数值表达式，函数值为整型。 例：Int ( 5. 9)的值为 5 Int (-5.9)的值为 -6 , Int(-5.2)的值为 6 2. Abs (x) 功能：得到x的绝对值。x为数值表达式。 例：Abs(-3.5)的值为3.5 y=10 z=Abs( y-15) z得到 5 3. Sqr(x ) 功能：得到x的平方根，要求x=0。 例：x=36 y=Sqr(x) 结果y的值为6,38,5. Sgn(x) 功能：得到参数x的符号。 当x0时，函数值为1, x=0时，函数值为0, x0时，函数值为-1。 例：设 x=8 , y=-10 , z=0 则有：Sgn(x)的值为1， Sgn(y

14、)的值为 -1 Sgn(z)的值为0,练习,39,6. Rnd(x) 功能：得到01之间的随机数。函数值是大于等于0，小于1（即00或不指定x值时，每次产生随机序列中的下一个随机数； 当x0时，每次返回相同的随机数； 当x=0时，得到最近产生的随机数。 例：打印一个随机数： x!=Rnd Print x,40,要得到110之间的整数，可用表达式： Int(10*Rnd+1) 例： y = Int(10*Rnd +1) Print y 例6-5 单击窗体，在窗体上打印100以内的随机整数。 Private Sub Form_Click() y = Int(100*Rnd( )+1) Print

15、y End Sub 运行程序时，每单击一次窗体，会显示一个100以内的随机整数。,41,7. 三角函数 VB提供的三角函数有：正弦函数Sin(x)，余弦函数Cos(x)，正切函数Tan(x)，反正切函数Atn(x)等。 注意: x角度要以弧度表示。 角度转换为弧度的公式： 弧度=度数*3.14159/180,42,6.2.3 字符串处理函数,字符串函数大都后跟类型说明符$，表示函数的值是字符串。但在Visual Basic6.0中，可以有$符，也可以省略$符，函数的功能相同。如 Left$()函数与 Left() 函数功能相同。 1. 删除空格函数 LTrim (x$)、RTrim (x$)、Trim (x$) 功能： Ltrim (x$) 可以去掉x字符串左端的空格部分 Rtrim(x$) 可以去掉x字符串右端的空格部分 Trim(x$)可以去掉x字符串左端和右端的空格部分。,43,例: a$= Good morinig b$=LTrim(a) c$=RTrim(a) Print a;ABC Print b;ABC Print c;ABC 输出结果: Good morinig ABC Good morinig ABC Good morinigABC,44,2. 字符串截取函数,(1). 左部截取 Left(x$,n) 功能：得到x中字符串左边的n个字符。函数返