第6章VB语句1.ppt
《第6章VB语句1.ppt》由会员分享,可在线阅读,更多相关《第6章VB语句1.ppt(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,
9、例: 0.01234、-123.45678,指数形式: 1.234D-2, -1. 2345678d+2,14,整型常量(Integer),整型常量指有符号整数。整型常量可以分为十进制、十六进制和八进制。 十进制整数如 12 、 12345(+号被省略) 、 0等。 十六进制整型数规定以&H开头,数码由0,1,9,A,BF(也可以小写) 组成。例如&H1A等于十进制的26 。十六进制整数的表示范围是: &H0 &HFFFF,15,八进制整数:8个数码:0,1,2 7 八进制整数以&O开头. 例如&O32等于十进制数26。 例如: &O126 , &O176 八进制整型数的表示范围是&O0 &O
10、177777。 长整型数:也分为十进制、十六进制、八进制 八进制长整型数表示:以&O开头,以&结尾. 例: &O126& , &O377777& 十六进制长整型数: 以&H开头,以&结尾. 例: &H2FE&,16,货币类型数据(Currency) 主要用于钱款计算上。15位整数,4位小数. 变体类型数据(Variant) 是一种可变的数据类型,可以表示任何类型的数据. 其它数据类型 (1)字节(Byte) 取值范围: 0255 (2) 布尔(Boolean) 是逻辑数. 取值: True(真) , False(假),17,日期类型数据(Date) 日期类型数据用来表示日期信息. 日期常量要以
11、“#“字括起来 例如:#9/12/2003# 、#2003-9-12# 、 #2003-10-20 11:30:10AM# 等,都是合法的日期型常量。,18,可以在常数后面加上类型说明符表示数据的类型。类型说明符如下: % 整型 & 长整型 ! 单精度 # 双精度 货币型 $ 字符串型,19,2. 符号常量 可以用符号代表数值或字符串常量。 定义符号常量的格式: Const 符号 = 表达式 例如:Const A=100 Const B=A+50 可以在常量名后跟类型后缀说明其类型: Const X&=1: Const Y#=1.2 则语句 Z=X+10 等价于 Z=1+10 注意:符号常量一
12、经声明后,不能再被赋予新的值。 例:上述定义的常量:A 代表100 则再出现语句 A=20 是错的,20,3. VB内部常量 是由VB系统定义的符号常量,简称VB内部常量。VB定义了大批内部常量,这些内部常量一般以小写字母vb开头。 例如vbCrLf代表“回车换行”符;vbRed等于&HFF&,是一个颜色常量,代表红色等等。在代码设计中可以直接使用VB内部常量。 例:在运行阶段,将窗体 的背景色变为黄色: Me.BackColor=vbYellow,21,6.1.4 运算符与表达式,VB提供的运算符有算术运算符、字符串连接运算符、比较运算符和逻辑运算符。 1. 算术运算 + 加、- 减、* 乘
13、、/ 除、 整除、Mod 求余数、 幂(乘方) 、- 取负 (如 -x) 例: 7 Mod 3 ,结果为1(即余数为1) 19 / 2 , 结果为9.5 19 2 , 结果为9(小数部分全部舍去) 2 3+3 , 结果为11 a+b*3-c/d ,结果视a、b、c、d 的值而定。 x= 3 : y= - x 结果y 得到 -3,22,算术运算符的优先级,当表达式有多种运算符时,先处理优先级别高的运算符。若有(),则最先处理()中的运算 优先级最高: 幂运算 - 取负 * 、/ 整除 Mod 取余 优先级最低 : +、-,24,例: 3*2(2+1) , 表达式得值:,23,2. 字符串连接,“
14、&” 和“+” 都可以连接字符串。为了避免与算术加法运算符产生混淆,应尽量用“&”连接字符串。另外,“&”会自动将数值型数据转换成字符型数据后再进行连接,而“+”号则没有这个功能。 例:以下为字符串表达式 “abc” & “xyz” 结果为 “abcxyz” “I am “+ “Chinese“+“.“ 结果是 “I am Chinese.” 例:设 x = “学生” Print “我是” & x 结果在窗体上显示:我是学生 优先级: 算术运算符 字符连接运算符,24,3. 关系运算符,也称比较运算符。有以下几种: = 等于 、 不等于 、 = 大于等于 大于 、 b 的结果为False ;
15、a+2 b 的结果为True 优先级:算术运算字符连接关系运算符,25,4. 逻辑运算符,逻辑运算符有: Not:非、And:与、Or:或、Xor:异或 逻辑运算表达式也只有True和False两种结果。 Not 表示取反操作,如果a=False 则Not a 结果为 True。 Not (510) 表达式的值: True 优先级: 算术运算字符连接关系运算符逻辑运算符,26,6.2 常用VB标准函数,6.2.1 输入输出函数 1. 输入框函数 InputBox( ) 可用此函数从键盘向变量中输入数据。但要注意,该函数返回的数据是字符型数据。 例: Private Sub Form_Click
16、() Dim x As Integer, y As Integer x=InputBox(“请输入整数“) y=5*x2 Print “y=“; y End Sub 运行结果: 输入 3 输出 y=45,27,输入框函数 InputBox( ) 功能:键盘输入字符串给变量。该函数的执行,会弹出一个对话框(如图),让用户输入数据。 格式:x= InputBox(prompt$,title$ ,default$ ,x%,y%) 说明: prompt$:是用双引号括起来的字符串,指定输入对话框中显示的提示信息,用来提示用户输入什么数据。 title$:是用双引号括起来的字符串。用来指定显示在输入对话
17、框标题栏中的标题。,28,default$: 指定默认的输入值。该项中的字符串显示在输入框中,若用户没有输入任何值,则该项内容即作为输入值。 ,x%,y%:是对话框左上角的坐标值,用来确定对话框在屏幕上显示的具体位置。 函数返回值:是输入的字符串。若没有输入字符串,则返回Default项中的字符串。 x: 是用户定义的字符串(String)型变量,用于接受函数的返回值(即用户的输入值)。,29,例6-3 在窗体单击(Click)事件过程中输入代码如下: Private Sub Form_Click( ) Dim a As String a=InputBox(“请输入你的地址:“, “输入函数练
18、习“ , “沈阳市“) Print “你的地址是:“ & a End Sub,30,2. 输出信息框函数 MsgBox( ),功能:打开一个对话框(如图 ),显示提示信息,并提供若干命令钮供用户选择。 格式1:x=MsgBox (msg$ ,Type% ,title$) 格式2: MsgBox msg$ ,buttons% ,title$ 参数说明: msg$ :指显示在对话框中的提示信息字符串。 title$ :显示在对话框的标题栏中的标题字符串。 Type%:确定对话框的样式,由三项数据合成:命令钮类型图标类型焦点位置。这三项数据可以用vb内部符号常量表示,也可以用整型常量表示,含义如下:
19、,31,(1) 命令钮类型: 0 (vbOKOnly) 显示“确定”命令钮 1 (vbOKCancel) 显示“确定”和“取消”命令钮 2 (vbAbortRetryIgnore) 显示“终止”、“重试”、“忽略 ”命令钮 3 (vbYesNoCancel) 显示“是”、“否”、“取消”命令钮 4 (vbYesNo) 显示“是”、“否”命令钮 5 (vbRetryCancel) 显示“重试”、“取消”命令钮 16384 (vbMsgBoxHelpButton) 显示“帮助”命令钮,32,(2)图标类型 16 (vbCritical) 显示 图标 32 (vbQuestion) 显示 图标 48
20、 (vbExclamation) 显示 图标 64 (vbInformation ) 显示 图标,(3)默认活动按钮: 活动按钮上有一虚线框,此时只要按一下回车键,就相当于单击了该命令钮。 0(vbDefaultButton1) 默认第1个按钮为活动的 256(vbDefaultButton2) 默认第2个按钮为活动的 512(vbDefaultButton3) 默认第3个按钮为活动的,33,Type参数由以上3类参数组成。组成原则是: 从每一类中选择一个值,把这几个值加在一起,就是Type参数. 例: x=MsgBox(“错误“,vbAbortRetryIgnore + vbCritical
21、 +0 , “MsgBox举例“) 或: MsgBox “错误“,vbAbortRetryIgnore + vbCritical +0 , “MsgBox举例“ 产生的对话框如下:,34,(4)函数返回值 当用户在对话框中单击了某个按钮,函数就返回所单击的按钮的对应数值。 按钮与返回值的对应关系如下: “确定” 按钮 1 (vbOK) “取消” 按钮 2 (vbCancel) “终止” 按钮 3 (vbAbort) “重试” 按钮 4 (vbRetry) “忽略” 按钮5 (vbIgnore) “是” 按钮 6 (vbYes) “否” 按钮 7 (vbNo),35,例6-4 在窗体单击事件过程
22、中输入如下代码: Private Sub Form_Click( ) Dim x As Integer x=MsgBox(“错误”,vbAbortRetryIgnore + vbCritical +0 , “MsgBox举例”) Print “x=”;x ; If x = vbAbort Then Print “你按下了终止按钮。” ElseIf x= vbRetry Then Print “你按下了重试按钮。” ElseIf x= vbIgnore Then Print “你按下了忽略按钮。” End If End Sub 按F5键运行程序,单击窗体,就会弹出MsgBox对话框如图6-4。若
23、在对话框中单击了终止按钮,则在窗体中打印出: x=3 你按下了终止按钮。因为终止按钮对应的函数返回值是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, “数据错误,请从新输入“ En
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 语句
链接地址:https://www.31doc.com/p-2980114.html