第三章 vb程序设计基础.docx

第三章 vb程序设计基础.docx

《第三章 vb程序设计基础.docx》由会员分享，可在线阅读，更多相关《第三章 vb程序设计基础.docx（20页珍藏版）》请在冰豆网上搜索。

第三章vb程序设计基础

第三章 VB的程序设计基础

2.1 VB编码规则

1. 语言元素

 　VB的语言基础是BASIC语言，VB程序的语言元素主要由：

　　关键字（如：

Dim、Print、Cls）

　　函数（如：

Sin（）、Cos（）Sqr（））

　　表达式（如：

Abs（-23.5）+45*20/3）

　　语句（如：

X=X+5、IF……ELSE……ENDIF）等组成。

2. VB代码书写规则

（1）程序中不区分字母的大小写，Ab与AB等效；

（2）系统对用户程序代码进行自动转换：

　　　1） 对于VB中的关键字，首字母被转换成大写，其余转换成小写

　　　2） 若关键字由多个英文单词组成，则将每个单词的首字母转换成大写

　　　3） 对于用户定义的变量、过程名，以第一次定义的为准，以后输入的自动转换成首次定义的形式

3. 语句书写规则

（1）在同一行上可以书写多行语句，语句间用冒号（：

）分隔

（2）单行语句可以分多行书写，在本行后加续行符：

空格和下划线 _

　（3）一行允许多达255个字符

4. 程序的注释方式

（1）整行注释一般以Rem开头，也可以用撇号'；

（2）用撇号'引导的注释，既可以是整行的，也可以直接放在语句的后面，最方便；

　（3）可以利用“编辑”工具栏的“设置注释块”、“解除注释块”来将设置多行注释。

5.保留行号和标号

　　VB源程序接受行号与标号，但不是必须的（早期的BASIC语言中必须用行号）。

　　标号是以字母开始以冒号结束的字符串，一般用在GOTO语句（现在很少用）中。

2.2 VB的语言基础

1.数据类型

　VB的标准数据类型

数据类型

关键字

类型符

前缀

存储空间

范围

数值数据类型

字节型

Byte

Byt

1个字节

0到255

整型

Integer

%

Int

2个字节

-32,768到32,767

长整型

Long

&

Lng

4个字节

-2,147,483,648到2,147,483,647

单精度型

Single

！

Sng

4个字节

负数：

-3.402823E38到-1.401298E-45；正数：

1.401298E-45到3.402823E38

双精度型

Double

#

Dbl

8个字节

负数：

-1.79769313486232E308

      -4.94065645841247E-324；

正数：

4.94065645841247E-324

     1.79769313486232E308

货币型

Currency

@

Cur

8个字节

从-922,337,203,685,477.5808

到922,337,203,685,477.5807

逻辑型

Boolean

Bln

2个字节

True或False

日期型

Date

Dtm

8个字节

100年1月1日到9999年12月31日

对象型

Object

Obj

4个字节

 任何Object引用

变长字符型

String

$

Str

10字节加字符串长度

0到大约20亿

定长字符型

String

$

Str

字符串长度

1到大约65,400

变体数字型

Variant

Vnt

16个字节

任何数字值，最大可达Double的范围

变体字符型

Variant

Vnt

22个字节加字符串长度

与变长String有相同的范围

注意：

　　1）VB中对没有声明的变量其缺省的数据类型是变体型，可以用来存储各种数据，但所占用的内存比其它类型都多。

为提高运行效率（整型效率较高），或达到一定的运算精确度（浮点型精度较高，但运行较慢），应合理的定义数据类型。

　　2）逻辑型数据只有True和False两个值，转换成整型时，True=-1，False=0，将其它类型转换成逻辑型时，非0数转换为True，0转换为False。

　　3）字符型可以包括所有的西文字符和汉字，字符必须用双引号括""起来,如：

"abc123"

　　4）日期型数据按8字节的浮点数来存储，日期型数表示方式有两种：

可以用号码符#括起来，也可以用数字序列表示（小数点左边的数字代表日期，右边代表时间，0为午夜，0。

5为中午12点，负数表示是1899年12月31日前的日期和时间）。

　如：

#3/22/2002#   #2002-3-2214:

30:

20#

　　DimTAsDate

　　T=-2.5

　　PrintT   '打印出来的结果是1899-12-2812：

00：

00

　５）任何数据类型的数组都需要20个字节的内存空间，加上每一数组维数占4个字节，再加上数据本身所占用的空间。

数据所占用的内存空间可以用数据元数目乘上每个元素的大小加以计算。

例如，以4个2字节之Integer数据元所组成的一维数组中的数据，占8个字节。

这8个字节加上额外的24个字节，使得这个数组所需总内存空间为32个字节。

2.变量与常量

（1）变量或常量的命名规则

　　　1）必须以字母或汉字开头，由字母、汉字、数字或下划线组成，长度≤255个字符；

　　　2）不能使用VB中的关键字，并尽量不与VB中标准函数名同名；如：

Dim、Sin

　　　3）VB中不区分变量的大小写，一般变量首字母用大写，其余用小写；常量全部用大写字母表示

　　　4）为了增加程序的可读性，可在变量名前加一个缩写的前缀来表明该变量的数据类型。

（2）变量声明

　　 1）用Dim语句进行显式声明

  　　　语句形式：

 Dim 变量名[As类型]     如：

Dim intX Asinteger

       　　说明：

·如果没有As类型，则默认为变体类型。

　　　　　　　　·可在变量名后加类型符来代替As类型 如：

Dim intX%

　　　　　　　　·一条语句可以同时定义多个变量，但每个变量必须有自己的类型声明，类型声明不能共用；

　　　　　　　　·字符串变量根据其存放的长度是否固定，定义方法不同：

    　　定长字符串：

 Dim strA As String*10  

       　　　　　　表示最多存放10个字符，如果赋值不足10个，则右补空；若多于10个，则多余部分截去。

    　　不定长字符串：

Dim strA As String     ’最多可存放2MB个字符

2）隐式声明

　　VB中允许变量不经过声明就直接使用，这种称为隐式声明，所有隐式声明的变量都是变体型的。

　　隐式声明容易造成错误，为了调试程序方便，一般对使用的变量都进行声明，可以在通用声明段使用Option Explicit语句来强制显式声明所有变量。

（3）常量

　　1）直接常量

　　　　指在程序中直接给出值的数据，如：

123、123&、123.45、1.234E2、123D3分别表示整型、长整型、单精度浮点型（小数形式）、单精度浮点型（指数形式）、双精度浮点型。

　　　　八进制常数：

 在数值前加&O，如 &O123

　　　　十六进制常数：

在数值前加&H，如&H123

　　2）用户声明的符号常量

     用Const来声明：

 Const 符号常量名[As类型]=表达式

　　如：

Const PI=3.14159             '声明了常量PI，代表3.14159，单精度型

　　　　Const MAXAsInteger=&O144 ''声明了常量MAX，代表八进制数144，整型

　　　　Const COUNT#=45.67         '声明了常量COUNT，代表45.67，双精度型

　　3）系统提供的常量

　　　　系统定义的常量位于对象库中，在对象浏览器中的VisualBasic（VB）和VisualBasicforAplication（VBA）等对象库中列出了VB的常量。

这些常量可以与应用程序的对象、方法、属性一起使用。

　　　　如：

Form1.WindowsState=vbMaximized表示将窗口极大化。

3.   运算符

（1）    算术运算符

运算符

含义

优先级

示例

结果

^

乘方

1

Ia^2

9

-

负号

2

-iA

-3

*

乘

3

IA*iA*iA

27

/

除

3

10/iA

3.33333333333333

\

整除

4

10\iA

3

Mod

取模

5

10ModiA

1

+

加

6

10+iA

13

-

减

7

IA-10

-7

    说明：

设表中的变量iA=3,为整型。

  算术运算符两边的操作数应该是数值型，若是数字字符或逻辑型，则自动转换为数值类型后再运算。

（2）    字符串运算符

运算符

作用

区别

示例

结果

&

将两个字符串拼接起来

 连接符两旁的操作数不管是字符型还是数值型，系统先将操作数转换成字符，然后再连接。

"123"&55

"abc"+12

"12355"

"abc12"

+

连接符两旁的操作数均为字符型；若均为数值型则进行算术加法运算；若一个为数字字符型，一个数值型，则自动将数字字符转换为数值，然后进行算术加；若一个为非数字字符型，一个数值型，则出错。

"123"+55

"abc"+12

178

出错

（3）    关系运算符

运算符

含义

示例

结果

=

等于

"ABCDE"="ABR"

False

>

大于

"ABCDE">"ABR"

False

>=

大于等于

"bc">="大小"

False

<

小于

23<3

False

<=

小于等于

"23"<="3"

True

<>

不等于

"abc"<>"ABC"

True

Like

字符串匹配

"ABCDEFG"Like"*DE*"

True

Is

对象引用比较

　注意：

　　1）  如果两个操作数都是数值型，则按其大小比较

　　2）  　如果两个操作数都是字符型，则按字符的ASCII码值从左到右一一比较

　　3）  　汉字字符大于西文字符

　　4） 　关系运算符的优先级相同

　　5） 　VB6.0中Like运算符与通配符的使用：

　　？

——表示任何单一字符

　　*——表示0个或多个字符

　　#——表示任何一个数字（0-9）

　　[字符列表]——表示字符列表中的任何单一字符

　　[！

字符列表]——表示不在字符列表中的任何单一字符

（4）逻辑运算符

运算符

含义

优先级

说明

示例

结果

Not

取反

1

当操作数为假时，结果为真

Not F

Not T

 T

 F

And

与

2

两个操作数均为真时，结果才为真

T And T

F And F

T And F

F And T

 T

F

F

F

Or

或

3

两个操作数中有一个为真时，结果为真

T Or T

F Or F

T Or F

F Or T

T

F

T

T

Xor

异或

3

两个操作数不相同，结果才为真，否则为假

T Xor F

T Xor T

T

F

Eqv

等价

4

两个操作数相同时，结果才为真

T Eqv F

T Eqv T

F

T

Imp

蕴含

5

第一个操作数为真，第二个操作数为假时，结果才为假，其余都为真

T Imp F

T Imp T

F

T

　说明：

　　　1）若有多个条件时，And必须全部条件为真才为真；Or只要有一个条件为真就为真。

　　　2）如果逻辑运算符对数值进行运算，则以数字的二进制值逐位进行逻辑运算。

And运算常用于屏蔽某些位；Or运算常用于把某些位置1。

　　　如：

12And7 表示对1100与0111进行And运算，得到二进制值100，结果为十进制4。

　　　3）对一个数连续进行两次Xor操作，可恢复原值。

在动画设计中，用Xor可恢复原来的背景。

4.表达式

（1）表达式的组成

 　　　表达式由常量、变量、运算符、函数和圆括号按一定的规则组成，通过运算后有一个结果，运算结果的类型由数据和运算符共同决定。

（2）表达式的书写规则

　　　1）乘号不能省略

　　　2）括号必须成对出现，均使用圆括号，可以嵌套，但必须配对。

　　　3）表达式从左到右在同一基准上书写，无高低、大小之分。

　　　　例：

sqr（（3*x+y）-z）/（x*y）^4

　（3）不同数据类型的转换

　　　　操作数的数据类型应该符合要求，不同的数据应该转换成同一类型。

在算术运算中，如果操作数的数据精度不同，VB规定运算结果采用精度较高的数据类型。

　（4）优先级

 　　　同一表达式中，不同运算符的优先级是：

算术运算符>字符运算符>关系运算符>逻辑运算符

　　注意：

对于存在多种运算符的表达式，可增加圆括号改变优先级或使表达式更清晰。

2.3 VB的公共函数

1. 数学函数

　　VB中常用的数学函数

函数名

功能

示例

结果

Sqr（x）

求平方根

Sqr（9）

3

Log（x）

求自然对数，x>0

Log（10）

2.3

Exp（x）

求以e为底的幂值,即求ex

Exp（3）

20.086

Abs（x）

求x的绝对值

Abs（-2.5）

2.5

Hex[$]（x）

求x的十六进制数，返回的是字符型值

Hex[$]（28）

"1C"

Oct[$]（x）

求x的八进制数，返回的是字符型值

Oct[$]（10）

"12"

Sgn（x）

求x的符号,当x>0,返回1；x=0,返回0；x<0,返回-1

Sgn（15）

1

Rnd（x）

产生一个在（0，1）区间均匀分布的随机数，每次的值都不同；若x=0，则给出的是上一次本函数产生的随机数

Rnd（x）

0-1之间的数

Sin（x）

求x的正弦值，x的单位是弧度

Sin（0）

0

Cos（x）

求x的余弦值，x的单位是弧度

Cos

（1）

0.54

Tan（x）

求x的正切值，x的单位是弧度

Tan

（1）

1.56

Atn（x）

求x的反正切值，x的单位是弧度，函数返回的是弧度值

Atn

（1）

0.79

2. 字符函数

（1）字符串编码

   　　在Windows采用的DBCS（DoubleByteCharacterSet）编码方案中，一个汉字在计算机内存中占2个字节，一个西文字符（ASCII码）占1个字节，但在VB中采用的是Unicode（ISO字符标准）来存储字符的，所有字符都占2个字节。

为方便使用，可以用StrConv函数来对Unicode与DBCS进行转换，可以用函数Len（）函数求字符串的字符数，用LenB（）函数求字符串的字节数。

（2）常用的字符串函数

函数名

功能

示例

结果

Len（x）

求x字符串的字符长度（个数）

Len（"ab技术"）

4

LenB（x）

求x字符串的字节个数

LenB（"ab技术"）

8

Left（x，n）

从x字符串左边取n个字符

Left（"ABsYt",2）

"AB"

Right（x，n）

从x字符串右边取n个字符

Right（"ABsYt",2）

"Yt"

Mid（x，n1，n2）

从x字符串左边第n1个位置开始向右取n2个字符

Mid（"ABsYt",2,3）

"BsY"

Ucase（x）

将x字符串中所有小写字母改为大写

Ucase（"ABsYug"）

ABSYUG

Lcase（x）

将x字符串中所有大写字母改为小写

Ucase（"ABsYug"）

absyug

Ltrim（x）

去掉x左边的空格

Lrim（" ABC "）

"ABC "

Rtrim（x）

去掉x右边的空格

Trim（" ABC "）

" ABC"

Trim（x）

去掉x两边的空格

Trim（" ABC "）

 "ABC"

Instr（x，"字符",M）

在x中查找给定的字符,返回该字符在x中的位置,M=1不区分大小写,省略则区分

Instr（"WBAC","B"）

2

String（n，"字符"）

得到由n个首字符组成的一个字符串

String（3,"abcd"）

"aaa"

Space（n）

得到n个空格

Space（3）

"□□□"

Replace（C,C1,C2,N1,N2）

在C字符串中从N1开始将C2替代N2次C1,如果没有N1表示从1开始

Replace（"ABCASAA","A","12",2,2）

"ABC12S12A"

StrReverse（C）

将字符串反序

StrReverse（"abcd"）

"dcba"

3. 日期与时间函数

　　常用的日期与时间函数

函数名

含义

示例

结果

Date（）

返回系统日期

Date（）

02-3-19

Time（）

返回系统时间

Time（）

3:

30:

00PM

Now

返回系统时间和日期

Now

02-3-193:

30:

00

Month（C）

返回月份代号（1-12）

Month（"02,03,19"）

3

Year（C）

返回年代号（1752-2078）

Year（"02-03-19"）

2002

Day（C）

返回日期代号（1-31）

Day（"02,03,19"）

19

MonthName（N）

返回月份名

MonthName

（1）

一月

WeekDay（）

返回星期代号（1-7），星期日为1

WeekDay（"02,03,17"）

1

WeekDayName（N）

根据N返回星期名称，1为星期日

WeekDayName（4）

星期三

　　增减日期函数：

DateAdd（要增减日期形式，增减量，要增减的日期变量）

 　　　　例：

计算期末考试日期：

DateAdd（"ww",15,#2002/3/19#）

　　求日期之差函数：

DateDiff（要间隔日期形式，日期一，日期二）

　　　 例：

计算距毕业天数：

DateDiff（"d",Now,#2005/6/30#）

　　日期形式

日期形式

yyyy

q

m

y

d

w

ww

h

n

s

意义

年

季

月

一年的天数

日

一周的天数

星期

时

分

秒

4.转换函数

函数名

功能

示例

结果

Str（x）

将数值数据x转换成字符串

Str（45.2）

 "45.2"

Val（x）

将字符串x中的数字转换成数值

Val（"23ab"）

  23

Chr（x）

返回以x为ASCII码的字符

Chr（65）

   "A"

Asc（x）

给出字符x的ASCII码值，十进制数

Asc（"a"）

   97

Cint（x）

将数值型数据x的小数部分四舍五入取整

Cint（3.6）

   4

Int（x）

取小于等于x的最大整数

Int（-3.5）

Int（3.5）

-4

3

Fix（x）

将数值型数据x的小数部分舍去

Fix（-3.5）

  -3

CBool（x）

将任何有效的数字字符串或数值转换成逻辑型

CBool

（2）CBool（"0"）

True

False

CByte（x）

将0-255之间的数值转换成字节型

CByte（6）

6

CDate（x）

将有效的日期字符串转换成日期

CDate（#1990,2,23#）

1990-2-23

CCur（x）

将数值数据x转换成货币型

CCur（25.6）

25.6

Round（x，N）

在保留N位小数的情况下四舍五入取整

Round（2.86，1）

2.9

CStr（x）

将x转换成字符串型

CStr（12）

  "12"

CVar（x）

将数值型数据x转换成变体型

CVar（"23"）+"A"

  "23A"

CSng（x）

将数值数据x转换成单精度型

CSng（23.5125468）

23.51255

CDbl（x）

将数值数据x转换成双精度型

CDbl（23.5125468）

23.5125468

5. 格式输出Format函数

   Format函数用于制定字符串或数字的输出格式。

   语法：

x=Format（expression,fmt）

　　　　expression是所输出的内容。

fmt是指输出的格式，这是一个字符串型的变量，这一项若省略的话，那么Format函数将和Str函数的功能差不多。

如：

语句

输出

Format（2,“0.00”）

2.00

Format（.7,“0%”）

 70% 

Format（1140,“$#,##0”）

$1,140

                                   fmt字符的意义

字符

意义

字符

意义

 0

 显示一数字，若此位置没有数字则补0

 . 

小数点

 #

 显示一数字，若此位置没有数字则不显示

 ,

 千位的分隔符

 %

 数字乘以100并在右边加上”%”号

-+$（）

 这些字出现在fmt里将原样打出

Format函数对时间进行输出时的意义

fmt

输出

fmt

输出

m/d/yy

 8/16/96

 h:

mm:

ssa/p

 10:

41:

29p 

d-mmmm-yy

 16-August-96

 h:

mm

 22:

41 

d-mmmm

 16-August

 h:

mm:

ss

 22:

41:

29 

mmmm-yy

 august-96

 m/d/yyh:

mm

 8/16/9622:

41 

hh:

mmAM/PM

 10:

41PM

6．InputBox函数与MsgBox函数

（1）InputBox函数

　　语法：

x=InputBox（prompt,title,default,xpos,ypos,helpfile,context）

   　其中，prompt是提示的字符串，这个参数是必须的。

title是对话框的标题，是可选的。

default是文本框里的