《大学vb课件自学visualbasic非计算机专业》由会员分享，可在线阅读，更多相关《大学vb课件自学visualbasic非计算机专业（43页珍藏版）》请在金锄头文库上搜索。
1、第四章 Visual Basic 语言基础,4.1 VB程序代码的组织方式,VB应用 程序,. . .,4.1.1 过程,为简化程序设计，将程序分割成较小的逻辑部件，称这些部件为过程。根据执行的方式，可把“过程”分为“事件过程”和“通用过程”。,1.事件过程,2.通用过程,一个应用程序中多个窗体可以共享的或一个窗体内不同的事件过程可共享的程序代码，称为“通用过程”。,为窗体及窗体上的各种对象编写的，用来响应由用户或系统引发的各种事件的程序代码，称为“事件过程”。,事件过程由VB中 的事件调用。,如: 如果希望在单击一个名为CmdStart的命令按钮后， 会调用事件过程，则要使用CmdStart
2、_Click过程。,通用过程是由事件 过程或其它通用过程 调用而执行的。,VB为将不同类型过程代码组织到一起而提供的一种结构。（VB的代码存储在模块中）,4.1.2 模块,1.窗体模块（文件扩展名为 .FRM ）,2.标准模块（文件扩展名为 .BAS）,3. 类模块,包含 用于处理发生在窗体中的各个对象的事件过程， 窗体及窗体中各个控件对象的属性设置及相关的说明。,类模块包含用于创建新的对象类的属性、方法的定义。,VB应用程序中的 每个窗体都有一个 相对应的窗体模块。,标准模块中的过程 都是通用过程。,包含可被多个窗体所共享的代码。,4.2 VB程序的书写规则,1.语句：是构成VB程序的最基本
3、成分,将长语句分成多行：在行的末尾用续行符（ -）将长语句分成多行。 将多个语句合并到同一行上：在一个代码行上写入多个语句，在 语句中用冒号“：”分隔。,2.书写规范,3.程序注释,用来说明程序中某些语句的功能和作用,增加程序的可读性, 在VB中用“ ”和Rem来标识。,语句输入时，可不区分大小写。,VB程序中注释过的 语句会自动变为绿色。,4.3 VB 数据类型,3.3.1 数据类型,VB提供了11种基本的数据类型。 变体型数是VB的缺省数据类型，不论是常量或变量，如果不加说明，系统均按变体型数据处理。,4.3.2 常量,1.数值常量 一般的数值常量由正负号、数字和小数点组成。,2.字符常量
4、 把一串字符用引号括起来，就构成一个字符常量。,P43. 表4-1,在程序中取值始终保持不变的数据,4.日期常量,日期型常量的一般表示形式：mm/dd/yyyy。,如2001年9月20日可表示为： #9/20/2001#,5.符号常量： 以符号形式表示的常量。,自定义符号常量形式： Public| Private Const As Type=,如：Const Pi=3.1415926,3.逻辑型常量,逻辑型（布尔型）常量只有两个取值：True、False 。,4.3.3 变量,变量名的命名规则： a.必须以字母开头； b.长度小于等于255个字符； c.在作用域内必须唯一； d.作为变量名的字
5、符串内不能包括点号和用于类型说 明的字符%、&、!、#、$。.,1.变量名及类型说明,为了增加程序的可读性，可在变量前加一个缩写的前缀来表明该变量的数据类型。,P46. 表4-2,以符号形式出现在程序中，且取值可以发生变化的数据,2.变量作用域及变量说明语句,变量的作用域： 分为局部变量、窗体/模块级变量、全局变量。 局部变量在过程内用dim（static）定义，只在本过程内 有效。 窗体/模块级变量在过程外用dim 或private，在本窗体/ 模块内所有过程都有效。 全局变量在标准模块的过程外用Public，在整个 应用程序中有效。,变量说明语句 (1).在变量前用关键字Dim、Stati
6、c、Private、Public声明变量。 例如: Dim as ,例子程序1,(2).在变量名后面加上类型说明的后缀(隐式说明).,符号 数据类型 举例 $ String strName$ % Integer ITerm%,var% & Long colorValue& ! Single distance! # Double ExactDistance#, Currency cSalaries,Option Explicit语句 在模块中使用Option Explicit语句，系统将检查模块中所有未加显式说明的变量。,4.4运算符和表达式,VB中的运算符和表达式可分为算术运算符与算术表达式、
7、关系运算符和关系表达式、逻辑运算符和逻辑表达式。,4.4.1算术运算符与算术表达式,1.算术运算符 +、-、*、/、mod、&,10 3 = 10 / 4 = 11 4= (-5)3= 10 mod 3= 10 mod 5= “Hello“ & ” World”=,3,1,0,2,2.5,-125,“Hello World“,2.算术表达式 把常量、变量等运算元素用算术运算符连接起来的式子称为“算术表达式”。可以使用圆括号来改变运算次序。,算术运算符的运算次序为： 、 -（负号） 、 *、/ 、 、 mod 、 +、- 、 &,4.4.2关系运算符与关系表达式,关系运算用于对两个数据进行比较，
8、比较结果为逻辑值“True”或“False”。,1.关系运算符 、 =、 、 = 、 Is,2.关系表达式 用关系运算符把两个比较对象连接起来的式子。,3.关系表达式的运算,求下列表达式的值： 14 / 2 3 3,False,True,4.4.3逻辑运算符与逻辑表达式,逻辑运算是对逻辑值进行的运算。,1. 逻辑运算符 Not、And、Or、Xor,Not 运算,False,True,And 运算,True,False,False,False,Or 运算,True,True,True,False,Xor 运算,False,True,True,False,逻辑运算符的优先次序为：Not And
9、Or Xor,2. 逻辑表达式 用逻辑运算符把逻辑变量连接起来的句子。,4.4.4 各种运算符间的优先顺序,算术运算符关系运算符逻辑运算符,dim a,b,c a=8:b=10:c=6 Not (a-1b) ab+3 And bc ab Or bc,False,True,True,4.6 VB 公共函数, 公共函数（内部函数） 是由系统提供的，可在任何一个VB程序中随时使用的程序段。每个程序段用于进行某个特定的运算或处理。每个函数都有系统规定的函数名。,使用函数称为函数调用。函数调用形式如下：, (p1,p2,),P1,p2是调用函数时的自变量序列,自变量个数、排列次序和数据类型，应和函数规定
10、的参数相同。,P52. 表4-6、表4-7、 表4-8、表4-9,4.6.1 算术函数 4.6.2 字符函数 4.6.3 转换函数 4.6.4 日期与时间函数,Left(x,n) 从x字符串左边起取n个字符。,Dim AnyString, MyStr AnyString = “Hello World“ 定义字符串。 MyStr = Left(AnyString, 1) 返回 “H“。 MyStr = Left(AnyString, 7) 返回 “Hello W“。 MyStr = Left(AnyString, 20) 返回 “Hello World“。,Mid(x,n1,n2) 从x字符串左
11、边第n1个位置起向右取n2个字符。,Dim y, y1, y2, y3 y = “Mid Function Demo“ 建立一个字符串。 y1 = Mid(y, 1, 3) 返回 “Mid“。 y2 = Mid(y, 14, 4) 返回 “Demo“。 y3 = Mid(y, 5) 返回 “Funcion Demo“。,Ltrim(x) 去掉x左边的空格。 Rtrim(x) 去掉x右边的空格。 Trim(x) 去掉x两边的空格。,Dim y, TrimString y= “ Test Demo “ 设置字符串初值。 TrimString = LTrim(y) TrimString = “Tes
12、t Demo “。 TrimString = RTrim(y) TrimString = “ Test Demo“。 TrimString = LTrim(RTrim(y) TrimString = “Test Demo“。 只使用 Trim 函数也同样将两头空格去除。 TrimString = Trim(y) TrimString = ”Test Demo“。,Chr(x) 返回以x为ASCII代码值的字符。 ASC(x) 给出字符x的ASCII代码值(十进制数)。,Dim MyChar MyChar = Chr(65) 返回 A。 MyChar = Chr(97) 返回 a。 MyChar
13、 = Chr(62) 返回 。 MyNumber = Asc(“A“) 返回 65。 MyNumber = Asc(“a“) 返回 97。,CInt(x):将数值型数据X的小数部分四舍五入取整。 Int(x) ：取小于等于X的最大整数。 Fix(x)：将数值型数据X的小数部分舍去。,Dim y y = CInt(4.5) y = CInt(4.6) y = Int(4.5) y = Fix(4.5) y = CInt(-4.5) y = Int(-4.5) y = Fix(-4.5),4,5,4,4,-4,-5,-4,计算下列代数式所对应的VB表达式： （1） （2） (3),(12*X+5*
14、Y-Sqr(Abs(d3-m3)/(Exp(-X)*Sin(X),X2*EXP(X)/COS(ABS(X+Y),Sqr(X+Y)/Log(X)-ABS(X)+EXP(X+Y),Date: 返回系统日期。,4.6.5 格式化函数Format$,(0) 数字占位符。显示一位数字或是零。如果表达式在格式字符串中 0 的位置上有一位数字存在，那么就显示出来；否则，就以零显示。,Format 函数 设置文本的输出格式。 语法 Format(expression, format),MyStr = Format(5459.4, ”00000.00“) 返回 ”05459.40“。 MyStr = Forma
15、t(5459.4, “#.#”) 返回 “5459.4”。 MyStr = Format(5459.56, “#.#”) 返回 “5459.6”。 MyStr = Format(5459.4, “#,#0.00“) 返回 “5,459.40“。 MyStr = Format(334.9, “#0.00“) 返回 “334.90“。 MyStr = Format(5, “0.00%“) 返回 “500.00%“。,(#) 数字占位符。显示一位数字或什么都不显示。如果表达式在格式字符串中“#”的位置上有数字存在，那么就显示出来；否则，该位置就什么都不显示。,(.) 小数点占位符。用来决定在小数点左右可显示多少位数。,(%) 百分比符号占位符。表达式乘以 100。而百分比字符 (%) 会插入到格式字符串中出现的位置上。,(,) 千分位符号占位符。千位符号主要是把数值小数点左边超过四位数以上分出千位。,赋值语句,赋值语句的一般形式是： Var=,Var可以是变量名或属性名。,如： x=“NanJing” Label1.caption=“工作单位:”,使用赋值语句还可获取对象返回的当
