VB语言基础-简单易懂

中国矿业大学计算机学院1第3章VB语言根底3.1VB程序的书写规那么3.2VB数据类型3.3变量与常量3.4运算符和表达式3.5VB常用内部函数本章小结中国矿业大学计算机学院计算机根底部23.1VB程序的书写规那么1.VB代码不区分字母的大小写〔1〕系统保存字〔关键字〕自动转换每个单词的首字母大写。〔2〕用户自定义的变量、过程名以第一次定义为准。中国矿业大学计算机学院计算机根底部32．语句书写自由〔1〕一行可书写多条语句，之间用冒号“:”分隔;例：a=4：B=A+2〔2〕一个长语句可分假设干行书写,用续行符连接，续行符是一个“空格”+“下划线符”组成;〔3〕一行<=255个字符。3.1VB程序的书写规那么中国矿业大学计算机学院计算机根底部43.注释有利于程序的维护和调试给程序加适当的注释是一个良好的编程习惯什么地方加注释？〔1〕声明一个重要变量〔2〕对过程定义说明〔3〕对整个程序的说明

使用单引号(’)引导注释以Rem开头定义注释块3.1VB程序的书写规那么中国矿业大学计算机学院计算机根底部5数据类型是程序设计中的重要概念。是对某类数据的根底特性的抽象描述。包括：该类数据的值的表示；对该值的操作。VB中数据类型：标准数据类型〔11种〕自定义类型3.2VB数据类型中国矿业大学计算机学院计算机根底部63.2VB数据类型标准数据类型

自定义数据类型数值数据类型字符数据类型

日期数据类型逻辑数据类型对象数据类型变体数据类型中国矿业大学计算机学院计算机根底部71.数值数据类型3.2VB数据类型中国矿业大学计算机学院计算机根底部8(1)整型〔Integer〕包括正整数、负整数和零范围：-32768——+32767例：DimaAsIntegera=50(2)长整型〔Long〕表示的整数范围比整型更大例：DimaAsLonga=4800513.2VB数据类型中国矿业大学计算机学院计算机根底部9(3)单精度型（Single)用来表示带有小数部分的实数.可表示最多7位有效数字的数,否则,将四舍五入.

科学计数法格式:aE±c=a×10

例:5.453E+4=5.453×10-3.785E-2=-3.785×10±c4-23.2VB数据类型中国矿业大学计算机学院计算机根底部10(4)双精度型（Double）

与单精度类似,可表示最多15位有效数字的数科学计数法格式:aD±c=a×10±C3.2VB数据类型中国矿业大学计算机学院计算机根底部11(5)货币型〔Currency〕用于货币计算或精度要求高的计算定点实数，其保存小数点右边4位和左边15位。例：DimaaAsCurrencyaa=3.1242注：所有数值型变量之间均可相互赋值3.2VB数据类型中国矿业大学计算机学院计算机根底部12看程序写结果PrivateSubForm_click()DimxAsDoubleDimaAsLong,bAsSingle,cAsBooleanDimdAsString,eAsDate,fAsCurrencyx=1111115.6767545a=x:b=x:d=x:c=x:e=x:f=xPrint"x为双精度：";xPrint"a为长整型：";aPrint"b为单精度：";bPrint"c为布尔型：";cPrint"d为字符串：";dPrint"e为日期型：";ePrint"f为货币型：";fEndSub3.2VB数据类型中国矿业大学计算机学院计算机根底部132.字符串类型(String)〔1〕变长字符串PrivateSAsString或DimS1AsString〔2〕定长字符串DimS2AsString*20值用双引号括起来,

用于存放字符型数据3.2VB数据类型中国矿业大学计算机学院计算机根底部14例如：

Dimstr1AsString*4,str2AsString

str1=“vb程序”

:str2=“123”

注意3.2VB数据类型字符串中所包含的字符个数称为字符串长度;变长字符串的长度由赋给它的值的长度决定;对于定长字符串，假设赋给它的字符少于定长值,那么缺乏局部由系统自动在右边补空格填满，假设超过定长值，那么多余局部被自动截去。中国矿业大学计算机学院计算机根底部153.日期数据类型(Date)用8字节的浮点数表示日期和时间,日期范围:100年1月1日-9999年12月31日时间范围:0:00:00-23:59:59日期数据书写形式：

任何字面上可认作日期和时间的字符，用“#”括起即可。3.2VB数据类型中国矿业大学计算机学院计算机根底部16例：

#January1,1997#、#1Jan,97#

#5/12/98#、#1998-5-128:30:00PM#日期数据标准格式：

#月/日/年#

#时:分:秒AM或PM#

#月/日/年时:分:秒AM或PM#3.2VB数据类型中国矿业大学计算机学院计算机根底部174.逻辑数据类型(Boolean)用于逻辑判断。取值：True

False

例：2>3结果为

False-5<-4

结果为True3.2VB数据类型中国矿业大学计算机学院计算机根底部18该类型数据可与整型或长整型互相转换

(1)整型数据-->逻辑数据

非0-->True:0-->False

(2)逻辑数据-->整型数据

True-->-1:False-->03.2VB数据类型中国矿业大学计算机学院计算机根底部195.对象类型〔Object〕通过32位〔4个字节〕存储空间存放可引用应用程序中对象的地址。作用：可以用Set语句将某一实际对象的对象名赋给该对象变量。然后，就可以用对象变量名代替实际的对象名。

3.2VB数据类型中国矿业大学计算机学院计算机根底部20例如：DimobjLblAsObjectSetobjLbl=label1objLbl.Caption="Welcome"3.2VB数据类型中国矿业大学计算机学院计算机根底部216.变体类型(Variant)为数据处理增加智能性。变体类型：它是一种随时可以改变数据类型的数据，数据类型可根据上下文的变化而变化，是一种万能的数据类型。

除去定长String类型和用户自己类型的数据外，它可以保存任何其他类型(数值型、日期型、字符型、对象型)的数据。3.2VB数据类型中国矿业大学计算机学院计算机根底部22Private

SubForm_Click() Dim

T

As

Variant T=12 Form1.PrintTT=“*********” Form1.PrintTEndSub例如：

3.2VB数据类型中国矿业大学计算机学院计算机根底部237.自定义类型语法格式：

Type

自定义类型名元素名[(下标)]As类型名

…[元素名[(下标)]As类型名]

EndType

3.2VB数据类型中国矿业大学计算机学院计算机根底部24举例:Type

StudTypeiNoAsIntegerstrNameAsString*20EndType变量说明：

DimStudent1AsStudTypeStudent1.iNo=001Student1.strName=“John”3.2VB数据类型中国矿业大学计算机学院计算机根底部253.3变量与常量标识符常量变量中国矿业大学计算机学院计算机根底部26用来标识常量名、变量名、过程名等元素的符号。标识符命名规那么：1.以字母或汉字开头，后可跟字母、数字或下划线组成，标识符的长度不能超过255个字符；2.不能使用VB中的关键字；3.VB中不区分变量名的大小写;4.为了增加程序的可读性，可在变量名前加一个缩写的前缀来说明该变量的数据类型。一、标识符3.3变量与常量中国矿业大学计算机学院计算机根底部27例:

strMystringiCountsMaxlX_y_zdblTotaldtYearfTorF3.3变量与常量中国矿业大学计算机学院计算机根底部28在程序运行中值不变的量。文字常量数值常量字符串常量日期/时间常量逻辑型常量2.

符号常量3.系统提供的常量二、常量3.3变量与常量中国矿业大学计算机学院计算机根底部29

1.数值常量一般的数值型常量由正负号、数字和小数点组成，正数的正号可以省略。3.3变量与常量中国矿业大学计算机学院计算机根底部30VB中数值常量有4种表示方式：整型数：

123、-225、+3097、-32768～+32767长整型：-2147483648～+2147483647定点数：1.234、-0.345、345.789浮点数：+123.5E+12、+0.23E-120、

-9.64E6、–124.56D+123。aE±c=a×10±c3.3变量与常量中国矿业大学计算机学院计算机根底部312.字符串常量

值用双引号括起来的一串字符。例：

“ABCD”、“12345”

“#2/9/1999#”

“WPS2000软件”

“中国”

“”空串注意：在VB中汉字的长度为1而不是2

3.3变量与常量中国矿业大学计算机学院计算机根底部323.日期/时间型常量

#2/9/1999##2/9/199911:02:00AM##11:03:05PM#4.逻辑型常量

True、False3.3变量与常量中国矿业大学计算机学院计算机根底部33语法格式：省略[As

类型],常量的类型由表达式值的类型决定；为使与变量名区分，一般符号常量名使用大写字母书写。例:

ConstMAX=100,MIN=10ConstPI!=3.1415926Const常量名[As

类型]=表达式二、常量--符号常量3.3变量与常量中国矿业大学计算机学院计算机根底部34系统定义常量位于对象库中,可通过“对象浏览器”查看.

例:vbNormal、vbMinimized等二、常量---系统常量例：在程序中使用语句：Label1.Alignment=vbCenter与下面语句等价：Label1.Alignment=23.3变量与常量中国矿业大学计算机学院计算机根底部35三、

变量1.概念

在程序运行中随时可以发生变化的量。变量是以符号的形式出现在程序中，程序中的变量在任一时刻都有确定的值。变量在参加运算等处理时，是用它所存储的数据进行运算。

变量三要素：变量名、变量的数据类型、变量的值3.3变量与常量中国矿业大学计算机学院计算机根底部36说明：一个变量在一个时刻只能存放一个值，如果某个变量在程序运行时数据发生变化，那么现行值将覆盖原来的数据。例：DimXAsInteger,yAsIntegerX=10：y=8：X=yPrintXX当前时刻的值应为？3.3变量与常量中国矿业大学计算机学院计算机根底部37合法的标识符，不与对象名重名。取容易理解和记忆的符号在同一个范围内必须是唯一的。范围就是可以引用变量的变化域：一个过程、一个窗体等等变量名3.3变量与常量中国矿业大学计算机学院计算机根底部382.变量声明(1)用Dim语句显式声明变量〔使用最多的方式〕语法格式:Dim变量名[As类型名]或Dim变量名类型符3.3变量与常量中国矿业大学计算机学院计算机根底部39DimiasIntegerDimsum!Dimxassingle,yassingleDimm%,n%Dimch1asstring例：3.3变量与常量中国矿业大学计算机学院计算机根底部40Dim语句的说明：1〕一个Dim语句可同时定义多个变量；2〕缺省“As类型名”局部的变量默认为变体类型；3〕用类型符定义类型时，变量与类型符间不能有空格；4〕声明一个变量后，系统自动为该变量赋予一个初始值。3.3变量与常量中国矿业大学计算机学院计算机根底部41例：DimiCouAsInteger,sAllAsSingle

等价于DimiCouAsInteger

DimsAllAsSingle

也等价于

DimiCou%,sAll!3.3变量与常量中国矿业大学计算机学院计算机根底部42(2)用类型说明符来直接声明变量形式:变量名类型符

例:iTem%

lNum&sHight!

dblTatol#strName$cXyz@变量名和类型符之间不能有空格！！3.3变量与常量中国矿业大学计算机学院计算机根底部43(3)隐式声明未进行上述的声明而直接使用的变量，未加说明类型而使用的变量，系统一律按变体型处理

原因：变量名书写错误不宜查找建议不使用3.3变量与常量中国矿业大学计算机学院计算机根底部44(4)OptionExplicit语句在通用声明处加OptionExplicit

语句来强制显式声明所有使用的变量。即：在模块中使用OptionExplicit语句，系统将检查模块中所有未加显式说明的变量。3.3变量与常量中国矿业大学计算机学院计算机根底部453.4运算符和表达式运算符：是表示实现某种运算功能的符号

算术运算符字符串运算符关系运算符逻辑运算符表达式：由变量、常量、函数、运算符和圆括号按一定的规那么组成的一个字符序列就是表达式。中国矿业大学计算机学院计算机根底部46作用：进行数学计算。1.算术运算符

单目运算符-

双目运算符一、算术运算符和算术表达式单目运算符：运算符的后面只有一个操作数，例如：-5。双目运算符：运算符的前后有两个操作数，例如：a+b。3.4运算符和表达式中国矿业大学计算机学院计算机根底部47设ia=33.4运算符和表达式中国矿业大学计算机学院计算机根底部48优先级(先算和后算)：

^

>

-

>*=

/>\

>Mod

>+

=-

例:-2+5^4\4/2-6*7Mod8=-2+625\4/2-6*7Mod8=-2+625\2-42Mod8=-2+312-2=3083.4运算符和表达式中国矿业大学计算机学院计算机根底部492.算术表达式：〔结果为数值〕用算术运算符和圆括号将操作数连接起来的式子。操作数可以是常量、变量或函数等。使用圆括号来改变运算次序。3.4运算符和表达式中国矿业大学计算机学院计算机根底部50例如:X+(A/3)+(X+Y)^2–5.5Mod2a*b/(c*d)3.14159265*r^2(-b+Sqr(b^2-4*a*c))/(2*a)算术表达式的运算结果是一个数值，其类型由数据和运算符共同决定。3.4运算符和表达式中国矿业大学计算机学院计算机根底部51说明：〔1〕VB规定，当不同数据类型的操作数出现在同一表达式中时，运算结果的数据类型以精度高的数据类型为准。Integer<Long<Single<Double<Currency但当Long型和Single型数据进行运算时，结果为Double型数据。例：3.14159*r^2〔设r为整型数〕结果为Double型3.4运算符和表达式中国矿业大学计算机学院计算机根底部52〔2〕除〔/〕运算的操作数可以是整数或浮点数，运算结果的类型由其值决定。例：17/5结果为3.43.6/1.8结果为23.4运算符和表达式中国矿业大学计算机学院计算机根底部53〔3〕整除〔\〕运算：要求操作数为整数，否那么，要先对小数局部按四舍五入进行处理，然后再整除。例：9\4结果为231.77\5.8=32\6结果为53.4运算符和表达式中国矿业大学计算机学院计算机根底部54〔4〕取模〔Mod〕运算:求两个数相除后的余数。要求操作数为整数，否那么，要先对小数局部按四舍五入进行处理。运算结果的符号取决于左操作数的符号，书写时Mod与两个操作数之间要留有空格。3.4运算符和表达式中国矿业大学计算机学院计算机根底部55例：25Mod7结果为431.77Mod5.8结果为2-5Mod2结果为-1-5Mod－2结果为-15Mod－2结果为13.4运算符和表达式中国矿业大学计算机学院计算机根底部56PrivateSubForm_Click()Print"2+3=";2+3Print"2^3=";2^3Print"9/5=";9/5Print"5/2.5=";5/2.5Print"7\3=";7\3Print"8.6\3=";8.6\3Print"8mod3=";8Mod3Print"10.8mod3=";10.8Mod3EndSub例题：3.4运算符和表达式中国矿业大学计算机学院计算机根底部57+、＆字符串连接符“123”

+

“456”结果

“123456”

“123ab”&

“456”

结果

“123ab456”

注意：运算数与“&”间应加一个空格二、字符串运算符和字符串表达式3.4运算符和表达式中国矿业大学计算机学院计算机根底部58“+”：只要出现数值型，就进行加法运算两旁均为数字型；字符型与数字型，那么系统将把字符串转化为数值；假设系统无法把字符串转化为数值，那么系统显示出错。3.4运算符和表达式中国矿业大学计算机学院计算机根底部59举例：“计算机”+“根底”“123”+“456”123+456“123”+456“ab”+123结果为“计算机根底”结果为“123456”结果为579结果为579运行时出错3.4运算符和表达式中国矿业大学计算机学院计算机根底部60&:连接符两旁的操作数可为字符型，也可为数字型，在进行连接操作前,

均由系统将它们转换成字符型。例如：

“ab”

&123结果是“ab123”

“5”

&123结果是“5123”

“1234”

&“5”

结果是“12345”3.4运算符和表达式中国矿业大学计算机学院计算机根底部61注意：在字符串变量后使用“&”连接字符串时，变量与“&”之间要加一个空格。(c和d为字符串变量)Dimc$,d$c="abcde"d="12345"Printc&d3.4运算符和表达式中国矿业大学计算机学院计算机根底部62字符串表达式:用字符串运算符和圆括号将字符串连接起来的式子。例:

“Visual”+(“Basic”&“程序设计”)3.4运算符和表达式中国矿业大学计算机学院计算机根底部63作用：将两个操作数进行大小比较,结果为逻辑量成立-----值为True不成立-----值为False三、关系运算符与关系表达式3.4运算符和表达式中国矿业大学计算机学院计算机根底部643.4运算符和表达式中国矿业大学计算机学院计算机根底部65比较规那么(1)关系运算符的优先级相同,运算时从左至右依次进行。(2)对数值型操作数比较，按大小比较。例:3>2(3)对字符型操作数比较，按字符ASCII码值的大小进行比较。例"begin"?"began"(4)进行比较的操作数要可比，否那么出错。例如：123与“abe”就不可比3.4运算符和表达式中国矿业大学计算机学院计算机根底部66将操作数进行逻辑运算结果：True/False〔逻辑值〕四、逻辑运算符与逻辑表达式运算符说明

Not

取反And

与Or

或优先级1233.4运算符和表达式中国矿业大学计算机学院计算机根底部67〔在以下逻辑运算中假设T代表True，F代表False〕(1)notNotF=TNotT=F例：假设a=True，那么nota=False(2)andFAndT=FFAndF=FTAndT=T例：a=True,且b=True，那么aAndB=True3.4运算符和表达式中国矿业大学计算机学院计算机根底部68(3)orForF=FTorF=TTorT=T例：假设a,b均为逻辑值，只要a,b中有一个为True时，aOrb=True(4)XorTxorF=TFxorF=FTxorT=F例：假设a,b均为逻辑值，a,b中只有一个为True时，aXorb=True3.4运算符和表达式中国矿业大学计算机学院计算机根底部69逻辑表达式是用逻辑运算符把逻辑变量连接起来的式子,例如：(x>y)And(y>z)说明：假设逻辑运算符对数值进行运算，那么以数字的二进制数逐位进行逻辑运算。3.4运算符和表达式中国矿业大学计算机学院计算机根底部70

例：11And7=1011And0111=0011

结果为十进制下的33<2and6<5or6>43.4运算符和表达式中国矿业大学计算机学院计算机根底部711.不同数据类型的转换算术运算中，不同类型的操作数进行运算时,运算结果的数据类型向精度高的数据类型靠.Integer<Long<Single<Double<Currency但当Long与Single运算时，结果为Double五、表达式综述及举例3.4运算符和表达式中国矿业大学计算机学院计算机根底部722.混合表达式中运算符优先顺序〔表达式中出现了多种不同类型的运算符时〕3.提高优先级加括号

算术运算符>=字符运算符>关系运算符>逻辑运算符3.4运算符和表达式中国矿业大学计算机学院计算机根底部731.书写x+y小于10且x-y大于0的逻辑表达式2.i被j整除为0的逻辑表达式x+y<10Andx-y>0a.

i/j=0b.

i\j=0c.

i<>jd.

iMod

j=03.求值

18\4*4.0^2/1.63>4or5>43.4运算符和表达式中国矿业大学计算机学院计算机根底部74例3-5：选拔优秀学生的条件是：年龄〔Age〕小于20岁，三门功课成绩〔M1、M2、M3〕的总分高于280分，其中有一门要高于95分。那么可用逻辑表达式表示为：Age<20And(M1+M2+M3)>280AndM1>95OrM2>95OrM3>95这是错误的，Why?正确的表达式应为：Age<20And(M1+M2+M3)>280And〔M1>95OrM2>95OrM3>95〕3.4运算符和表达式中国矿业大学计算机学院计算机根底部75例3-4：写出用逻辑表达式表示闰年的条件：分析：闰年的条件符合以下二者之一：1、能被4整除，但不能被100整除2、能被400整除设Year为表示年份的整型变量

表示闰年的逻辑表达式为：(YearMod4=0)AndYearMod100<>0OrYearMod400=03.4运算符和表达式中国矿业大学计算机学院计算机根底部76一、数学函数二、字符串操作函数三、类型转换函数四、日期与时间函数五、格式输出函数Format六、Shell函数3.5VB常用内部函数中国矿业大学计算机学院计算机根底部77一、数学函数函数名说明例结果Abs(N)

取绝对值Abs(-3.5)3.5Sqr(N)

平方根Sqr(2)1.414Exp(N)

以e为底指数Exp(3)20.086Log(N)

以e为底自然对数Log(10)2.3Sgn(N)

符号Sgn(-3.5)-13.5VB常用内部函数中国矿业大学计算机学院计算机根底部78

函数名说明例结果Rnd(N)产生随机数Rnd0-1之间小数

Sin(N)正弦Sin(0)0Cos(N)余弦Cos(0)1Tan(N)正切Tan(0)0Atn(N)反正切Atn(0)03.5VB常用内部函数中国矿业大学计算机学院计算机根底部79二、字符串操作函数1〕Len(C)字符串长例：Len("ABCD")=42〕Left$(C,N)取字符串左n字符例：Left$("ABCDE",3)="ABC"3.5VB常用内部函数中国矿业大学计算机学院计算机根底部803〕Right$(C,N)取字符串右n字符例：Right$("ABCD",2)="CD"4〕Mid$(C,N1,N2)取字符串中间字符，从串C的N1位字符开始取N2个例：Mid$("ABCDE",2,3)="BCD"3.5VB常用内部函数中国矿业大学计算机学院计算机根底部815〕LTrim$(C)去掉字符串左空格例：LTrim$("AB")"AB"6〕RTrim$(C)去掉字符串右空格例：Rtrim$("AB")"AB"7〕Trim$(C)去掉字符串两端空格例：Trim$("AB")"AB"3.5VB常用内部函数中国矿业大学计算机学院计算机根底部828〕Space$(N)产生N个空格的字符串例：Space$(5)=""9〕String$(N,C)与C中首字符相同N个字符例：String$(2，"ab")="aa"3.5VB常用内部函数中国矿业大学计算机学院计算机根底部8310〕InStr([N1,]C1,C2,[N])在C1中从N1开始找C2，省略N1从头开始找，找不到为0，找到返回第一个字符的位置N-0区分大小写〔缺省〕N-1不区分大小写例：InStr(2,”ABCDEFG”,”EF”)=53.5VB常用内部函数中国矿业大学计算机学院计算机根底部8411〕StrComp(C1,C2,[N])比较两个字符串的大小值为-1--C1小于C2值为0--C1等于C2值为1--C1大于C2例：StrComp(“ABCDEF”,“BC”)=-13.5VB常用内部函数中国矿业大学计算机学院计算机根底部85

三、类型转换函数函数名说明例结果Asc(C)

字符转AsciiAsc(“A”)65Chr[$](N)Ascii转字符Chr$(65)“A”3.5VB常用内部函数中国矿业大学计算机学院计算机根底部86

函数名说明例结果Fix(N)

取整Fix(3.5)3Int(N)

正数与Fix同Int(3.5)3负数取不大于N的最大整数

Int(-3.5)-43.5VB常用内部函数中国矿业大学计算机学院计算机根底部87函数名说明例结果LCase(C)

大写转小写Lcase(“Ac”)“ac”

UCase(C)

小写转大写Ucase(“ab”)“AB”Oct(N)10进制到8进制Oct$(100)“144”Hex(N)10进制到16进制Hex$(100)“64”3.5VB常用内部函数中国矿业大学计算机学院计算机根底部88函数名说明例结果Str$(N)

数值转字符串Str$(1.4)“1.4”

Val(C)

数字串转数值Val(“12B”)123.5VB常用内部函数中国矿业大学计算机学院计算机根底部89

四、日期与时间函数1)Time[$]()返回系统时间例:

Time11:26:53AM2)Date[$]()返回系统日期例:

Date$“2003-05-31”3)Now返回系统日期和时间例:

Now2006-03-2910:26:53AM3.