vb语言程序设计第三次3次课

第2章VB基础知识编码规则1.VB代码不区分字母的大小写2.语句书写自由*同一行上可以书写多条语句，语句间用冒号分开；*单行语句可分成多行书写，在本行后加续行符（空格和下划线“_”）3.在代码中添加注释*用撇号“

´”

或“Rem”引导注释内容，可在语句之后，也可独占一行。*

块注释与取消，先选中块视窗工具栏编辑选取消或注释。4.VB的标识符命名约定*必须以字母或汉字开头，由字母、汉字、数字或下划线组成，长度不能超过

255个字符，其中，控件、窗体、类和模块的名字不能超过40个字符。*

不能使用VB中的关键字。如语句（If，Loop）、函数（Len)和操作符(Or)。*

不能含有空格、小数点、逗/分号、运算符以及其它声明字符，如$、%、&。2.2基本数据类型数据类型关键字类型符占字节数范围整型

Integer%2-32768到

32767长整型

Long&4-2147483648到

2147483647单精度型

Single!4-3.402823E38到

3.402823E38双精度型

Double#8-1.79769313486232D308到

1.79769313486232D308货币型

Currency@8-922337203685477.5808到

922337203685477.5808字符串型

String$字符数0~65535个字符日期型

Date801,01,100到

12,31,9999

对象型

Object4任何对象引用逻辑(布尔)型

Boolean2True与False字节型

Byte10~255变体型Variant根据需要分配.基本数据类型.数值型：包括整型和实型。整型数据是不带小数点和指数符号的数，包括整型、长整型和字节型。例如：15，-345，654%是整型数据，123456，45678&是长整型数据，而45678%则会发生溢出错误。实型数据是带小数点的数，分为单精度、双精度（浮点数）和货币型（定点数）3种。例如：3.14！，2.718282(7位有效数字)是单精度数据；

3.14159265是双精度数据（最多15位有效数字）

3.56@，65.123456@是货币型数据（注意：65.123456@的有效数为65.1235）。注意：数值型变量的初始值为0。逻辑型：True和False（变量初始值）。当把逻辑值转换为数值型时，False为0，True为-1。基本数据类型.字符串型：包括除双引号以外可打印的所有字符。双引号作为定界符。双引号内字符（包括空格）的个数叫做字符串长度。长度为0的字符串叫空串（“”）。变长字符串初始值为空串。定长字符串初始值为指定长度的空格串。注意：在VB中，字符串型数据采用ISO（国际标准化组织）字符标准，ASCII码和汉字一样都采用双字节存储。例如："1234","张三"都是字符串（空格是有效字符）, "运动员","abc"的长度都是3，占用字节数都是6。日期型：用定界符#括起来的日期和时间数据。日期可以用“/”、“，”、“-”分隔开，可以是年、月、日，也可以是月、日、年的顺序。时间必须用“：”分隔，顺序是：时、分、秒。例如：#1999-08-1110:25:00#，#08/23/99#，#03-25-7520:30:00#、#98，7，18#等都是有效的日期型数据。在VB中会自动转换成mm/dd/yy（月/日/年）的形式。变体型（可变类型）：是一种特殊的数据类型。可以是上述的各种类型，完全取决于程序的需要。初始值为Empty值。2.3常量与变量文字常量（字面常量、直接常量）

数值型常量

56，3.14159，0.123E-4(表示0.12310-4)

字符串型常量

"VisualBasic"

逻辑型常量（True和False)

日期型常量

#1/31/2004#，#2004-3-8#，#10/21/20043:00:00PM#

计算机处理数据时，常用的数据形式有两种：常量和变量。常量：是在程序执行过程中保持不变的数据。

VB中的常量有：文字常量和符号常量。符号常量又分为系统定义符号常量和用户自定义符号常量两种。符号常量：用户自定义符号常量：定义格式：Const常量名[As类型]=表达式例如：ConstPIAsDouble=3.1415926

系统内部符号常量：与对象、方法、属性一起使用，易于程序阅读和编写。例如：Form1.WindowState=vbMinimized(值为1)系统内部符号常量包括：控件常量、语言常量、对象常量和用户界面常量（可参照MSDN）CheckBox控件的常数常数值描述vbUnchecked0未选中vbChecked1选中vbGrayed2变灰控件常量举例：语言常量举例：颜色常数常数值描述vbBlack&H0黑色vbRed&HFF红色vbGreen&HFF00绿色vbYellow&HFFFF黄色vbBlue&HFF0000兰色对象常量举例：Form的显示参数常数值描述vbModal1模式窗体vbModeless0无模式窗体菜单加速键常数常数值描述vbMenuAccelCtrlA1用户定义的快捷键vbMenuAccelCtrlB2用户定义的快捷键用户界面常量举例：变量：在程序执行过程中，其值可以改变的数据。变量的说明

变量的隐式声明：

使用的变量未作声明，所有隐式声明的变量均为Variant类型。变量的显式声明：使用Dim语句格式1：Dim

变量名

As

数据类型[，变量名As

数据类型，•••]格式2：Dim

变量名+类型标识符例1DimAAsInteger,BAsDouble例2DimA%,B#例3DimMyName1AsString,Myname2AsString*5例4DimVp1,Vp2AsSingle

例4定义了Vp2为单精度型变量，Vp1为变体型变量变量的强制声明：在每个模块的开始处自动添加“OptionExplicit”语句，所有的变量都必须显示声明。操作：“工具”菜单“选项”命令选中编辑器中的“要求变量声明”

变量的作用域：全局变量—在窗体或标准模块中声明为Public。格式：Public变量名

As数据类型模块级变量—在模块的通用声明部分用Dim或Private声明。

格式：Dim|Private变量名As数据类型

局部变量—在过程中由Dim或Static关键字声明。

格式：Static|Dim变量名As数据类型静态变量—每次调用一个过程时保留上次调用的值。格式：Static变量名As数据类型[，变量名

As数据类型，•••]变量的作用域及使用规则作用范围局部变量窗体/模块级变量全局变量窗体标准模块声明方式Dim、StaticDim、PrivatePublic声明位置在过程中窗体/模块的“通用声明”段窗体/模块的“通用声明”段能否被本模块的其他过程存取不能能能能否被其他模块存取不能不能能，但在变量名前加窗体名能用户自定义数据类型

*

用Type语句定义

TypeStudendCard NameAsString SexAsInteger BirthdayAsDateEndType

*

用Dim声明用户自定义类型的变量

DimMyFriend1AsStudentCard

*

使用用户自定义类型的变量

MyFriend1.Name=“张三”

MyFriend1.Sex=1MyFriend1.Birthday=“1988/08/08”变量的类型检查*用内部函数VarType()确定变量类型，函数返回数字代表不同数据类型内部常数返回值代表类型内部常数返回值代表类型

vbEmpty0Empty(空)vbNull1Null(无效)vbInteger2IntegervbLong3LongvbSingle4Single(单精度型)vbDouble5Double(双精度型)vbCurrency6Currency(货币型)vbDate7Date(日期型)

vbString8String(字符型)vbObject9Object(对象)vbError10Error(错误)vbBoolean11Boolean(布尔型)vbVariant12Variant(变体数组)vbDataObject13数据访问对象vbByte17Byte(字节型)vbArray8192Array(数组)

*数据类型分类判断部分内部函数可对数据分类判断，返回值为True,说明变量的类型是函数指明的类型

内部函数说明IsNumeric()判断变量是否为Numeric类型IsDate()判断变量是否为Date类型IsArray()判断变量是否为数组IsObject()判断变量是否为Object类型例1DimXAsIntegerX=100PrintVarType(X)——打印结果为2例2IfVarType(X)=VbIntegerThenPrint“!!!!!”例1IfIsNumeric(Text1.Text)Then.…..例2IfNotIsDate(Text1)Then…...2.4运算符与表达式1.算术运算符（ArithmeticOperators）以下a为整型变量，值为3。运算符说明优先级例结果

^乘方1a^29–负号2-a-3*乘3a*a*a27/除310/a3.33333333333333\整除410\a3Mod取模510Moda1+加

610+a13–减6a-10-73.比较运算符

(ComparisonOperators)运算符说明

=等于大于大于等于小于小于等于不等于运算符说明优先级

Not取反1And与2Or或3Xor异或3Eqv等价4Imp蕴含54.逻辑运算符

(LogicalOperators)2.字符串(连接)运算符

(ConcatenationOperators)

&

字符串连接符两边操作数无论是字符型还是数值型均可，结果为字符型。+

两边操作数应为同一类型，其结果类型不变。2.4运算符与表达式表达式：表达式由常量、变量、函数、运算符、（）按照一定的规则组成，不管表达式的形式如何，都会计算出一个结果，该结果的类型由参与运算的数据和运算符决定。表达式的书写规则：1）每个字符没有高低、大小的区别；2）只能使用（），可多重使用，括号必须成对出现；3）算术表达式中的乘号(*)不能省略；4）尽量使用系统函数。表达式的分类：算术表达式：其中只有算术运算符关系表达式：使用关系运算符表示简单的条件，例如：age>20。逻辑表达式：使用关系运算符和逻辑运算符表示较复杂的条件，例如：数学中的0<x<5,写成VB表达式应为x>0Andx<5。表达式中的优先级：（）>算术运算符>关系运算符>逻辑运算符2.5常用内部函数*数据类型转换函数

函数说明函数说

明———————————————————————————————

CBool()

将变量变成布尔型值CInt()

将变量变成整型值

CByte()

将变量变成字节型值CLng()

将变量变成长整型值

CCur()

将变量变成货币型值CSng()

将变量变成单精度值

CDate()

将变量变成日期型值CStr()

将变量变成字符串值

CDbl()

将变量变成双精度值CVar()

将变量变成变体型值*常用数学函数

函数说明函数说明—————————————————————————

Abs()

取绝对值Rnd[()]

产生随机数

Atn()

反正切函数Sin()

正弦函数

Cos()

余弦函数Sgn()

符号函数

Exp()e为底的指数函数Sqr()

平方根函数

Long()e为底的自然函数Tan()

正切函数Int(N)返回不大于N的最大整数*常用的转换函数函数名说明例结果Asc(C)字符转换成ASCII码值Asc(“A”)65Chr$(N)ASCII码转换成字符Chr$(65)“A”Fix(N)取整Fix(-3.5)-3Hex[$](N)十进制转换成十六进制

Hex(100)64Int(N)

正数取整同Fix，Int(3.5)3

负数取不大于N的最大整数Int(-3.5)-4Lcase$(C)大写字母转换成小写字母Lcase$(“ABC”)“abc”Oct[$](N)十进制转换成八进制Oct$(100)“144”Str$(N)

数值转换成字符串Str$(123.45)“123.45”Ucase$(C)小写字母转换成大写字母Ucase$(“abc”)“ABC”Val(C)数字字符串转换成数值Val(“123AB”)123*字符串函数

函数说明例结果Left$(C,N)取出字符串左边n个字符

Left$(“ABCDEFG”,3)“ABC”Len(C)字符串长度

Len(“ABCDEFG”)7Ltrim$(C)去掉字符串左边空格

Ltrim$(“ABC”)“ABC”Mid$(C,N1,N2)自字符串N1位向右取N2个字符Mid$(“ABCDEDFG”,2,3)“BCD”Right$(C,N)取出字符串右边n个字符Right$(“ABCDEF”,3)“DEF”Rtrim$(C)去掉字符串右边空格Rtrim$(“ABC”)“ABC”Space$(N)产生N个空格的字符串

Space$(3)“”String$(N,C)返回C中首字符组成N个字符串String$(3,”ABCDEF”)“AAA”InStr([N1,]C1,C2,[N])在C1中从N1开始找C2，InStr(2,”ABCDEFG”,”EF”)5

无N1时从头开始找，找不到为0StrComp(C1,C2,[N])以-1，0，1分别表示两个字符串StrComp(“ABCDEF”,”BC”)-1

的大小

注：后二个函数中的N=0或省略表示执行二进制比较，N=1表示执行文本比较。

下面的示例利用

InStr搜索字符串:

DimSearchString,SearchChar,MyPosSearchString="XXrXXrXXRXXR"'要在其中搜索的字符串。SearchChar=”R"'搜索”R"。'文本比较从第四个字符开始返回6。MyPos=Instr(4,SearchString,SearchChar,1)'二进制比较从第1个字符开始返回9。MyPos=Instr(1,SearchString,SearchChar,0)'

缺省为二进制比较(最后一个参数省略)。MyPos=Instr(SearchString,SearchChar)'返回9。'

二进制比较从第1个字符开始返回0(没有找到"W")。MyPos=Instr(1,SearchString,"W")

*日期函数

TimeDateNow*格式输出函数

形式：Format$(表达式[，格式字符串]）数值表达式格式化字符串显示结果1234.5671234.567“00000.0000”“000.00”01234.56701234.571234.5671234.567“#####.####”“###.##”1234.5671234.571234“0000.00”1234.001234.567“##,##0.0000”1,234.56701234.567“####.##%”123456.7%1234.567“$###.##”$1234.57-124.567“+###.##”+-1234.571234.567“-###.##”-1234.570.1234“0.00E+00”1.23E-011234.567“.00E-00”12E04

快速输入输出1．InputBox函数函数形式：InputBox[$](提示[，标题][，缺省][，x坐标][，y坐标])例1．Str1=InputBox(“请输入一句贺词：”，“输入贺词”，“祖国万岁”）2．MsgBox函数函数语句形式：MsgBox提示[，按钮][，标题]函数形式：变量[%]=MsgBox(提示