VB语言基础.docx

精品word 可编辑资料 - - - - - - - - - - - - -一、数据类型VB 语言基础1 、数值型：取值范畴：Byte(字节型 ) 占1字节；0 255无符号Integer(整型 ) 占2字节；-32768 32767long(长整型 ) 占4字节；-2147483648 2147483647single(单精度浮点 ) 占4字节；略Double( 双精度浮点 ) 占4字节；略Currency( 货币型 ) 占8字节小数点左 15位，右 4位（精确定点数据类型）2、规律型：Boolean(布尔型 ) 占2字节；true或false3 、字符串型：String.a.a定长型占字符串长度，变长型再加104 、日期型：Date( 日期型 ) 占8字节100-1-1 9999-12-315、对象型：Object占4字节；任何 Object引用6 、变体型：Variant变体型数字占 16字节， 变体型字符占 22字节字符串长注：此类型仍包含三种特定值：第 1 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -Empty； Null； Error；. 7 、用户定义的数据类型：. 用户可以利用 Type语句定义自己的数据类型；格式如下.Type数据类型名.数据类型元素名As类型名.End Type. 用Type可定义类似于 C语言中的结构体类型；例如：.TypeDate_Rec.RYearAsInteger.RMonthAsString*3.RDayAsInteger.EndType.注：记录类型中的元素可以是字符串，但必需是定长字符串，其长度由类型名加上一个星号和常数指明；. 数据类型转换函数：.函数名及书写格式转换结果.CBool （表达式）布尔型.CCur （表达式）货币型.CByte （表达式）字节型.CDate （表达式）日期型.CDbl （表达式）双精度第 2 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -.CSng （表达式）单精度.CInt （表达式）整型.CLng （表达式）长整型.CStr （表达式）字符串.Cvar （表达式）变体型. 二变量. 1 变量名V 中变量的命名遵从标识符命名原就:必需以字母开头；变量中间不能有空格；不能使用VB 关键字；. 2 变量的声明VB 答应使用不声明的变量，即一个变量未经声明就可以在程序中使用；这种变量使用方式称为隐 含变量声明； ( 使用隐含变量时，VB 会自动创建变量，并赋予它变体类型 ；在为其指定值之前，其值为Empty，当为它赋值后，会采纳所赋值的类型作为自己的类型；). 显式声明：.用类型说明符：将类型说明符加在变量名的尾部；.定义变量时指定其类型：.格式： Declare变量名 As类型名.其中的 Declare可以是 Dim ,Static, Redim, Public中之一.用Def type语句： Def type字母范畴.这里的 Type 是类型标志， Def 是系统保留字 ，它们之间没有空格；例如： DefInt D-J.该定义声明白 D 、E、F、G、H 、I、J都是整型变量，而且以这些字母开头的变量名也都是整型变量；第 3 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -. 类型说明符：.：整型；.&：长整型；.！：单精度浮点型；.#：双精度浮点型；.：货币型；.$：字符串型；. 字节、布尔、日期、对象及变体型没有类型说明符；. 留意：. Dim a， b ， c As Integer是错误的；只有c被声明成 Integer，而 a ， b 缺省为 Variant类型；. 假如使用 Dim x As Integer语句声明白变量x 为Integer ，而在后面又使用带有类型说明符的该变量，如 x$ ， x. ，x 和x# ，程序运行时就会产生 “duplicate definition ”错误；. 使用不带 As 的Dim语句，会被声明成变体类型的变量；. 通过不带长度说明的字符串声明语句可以声明变长字符串；. 对于声明布尔型的变量，其缺省值为False；第 4 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -.为声明为 Date类型的变量赋值时， 日期值应放在一对#之间，且多种日期和时间格式在VB 中都是有效的；.3变量的作用域和生存期：.变量的作用域 指变量的有效作用范畴，也就是变量可以被拜访的范畴；按以下三种方式来定义变量的作用范畴：.范围说明.过程在过程内使用 Dim或Static.私有在模块开头加上Dim或Private.公共在模块开头加上Public.变量的生存期 指VB 储存该变量值的时间，是变量在整个程序运行过程中的有效生存时间1）过程层变量 过程层变量是指在过程或函数内部定义的变量，这种变量无论是用Dim仍是 Static声明，其作用域都只是该过程或函数体，在过程或函数外不能引用；2）窗体层变量 窗体层变量是指在窗体的通用部分声明的变量，即不是在任何一个窗体内的过程或函数中声明的变量；它的作用范畴至少是窗体的存在范畴，也就是说在窗体内的 每个过程或函数中都可以使用窗体层变量；. 窗体层变量的声明有三种方式：. 用Dim语句声明；第 5 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -. 用Private语句声明；. 用Public语句声明；. 对于用 Dim和Private声明的窗体层变量， 其作用范畴都是在所声明的窗体范畴内；用Public声明的窗体层变量作为窗体 公用数据成员，可以在其他窗体或模块中以“窗体名 .变量 ”方式引用；其作用可以大于当前窗体范畴；窗体层变量在本窗体全部过程中都是可见的；. 3 ）模块层变量 模块 (Module)是构成 VB 工程 (Project)的一部分，是包含数据和过程的集合；定义模块层变量只需在模块的通用部分加入Dim， Private， Global或Public等声明语句即可； 用Dim和Private声明的模块层变量作用域为 所在模块范畴， 而用 Public和Global定义的模块层变量就可以全局使用；. 注：全局变量必需用Public或Global声明，不能用 Dim. 三常量. 常量是一个有意义的名字，用来表示程序运行时不变的数值和字符串；. Visual Basic中的常量分为文字常量和符号常量两种，文字常量又可分为数字常量和字符串常量；. 符号常量 (自定义常量 ) ：在程序中程序员用Const声明的常量；第 6 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -. 使用常量时应留意：. （ 1 ）用Const声明的常量在程序运行过程中是不能被重新赋值的；. （ 2 ）在常量声明的同时赋值；. （ 3 ）可以为声明的常量指定数据类型，如Const conVal As Currency=3.78，缺省时为所赋值的类型；. （ 4 ）在用常量为常量初始化时留意，不行有循环引用；例如：. 模块 1 中：. Public const con1=con2+8. 模块 2 中：.Public Const con2= con1*3. 四数组. 1 数组的定义：. 必需用 Global或Dim语句定义； Dim语句的语法格式如下：. Dim数组名 (lower To upper， lower To upper)As type. 在这里， 每对 lower和upper为数组的一维， lower是该维下标的下限， upper是该维下标的上限，如不标明lower，其默认值为0 ；Upper不行省略；第 7 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -.例如：.（ 1 ）一维数组的定义：.DimRecord (5)AsInteger. 定义了一个有六个数据元素的整型数组. （2 ）二维数组的定义. DimMatrix(2,3)AsInteger. 该数组定义了一个二维数组，可以储备12 个整型数，三行四列下标： 00 ， 01 ， 02 ， 03 ， 10 ，23. 2 动态数组. 带有空 () 的Dim可以声明一个动态数组，如：. DimdynArray( ). 然后， 可用 ReDim语句在一个过程或函数中定义动态数组的维数和元素个数；申请或重申请储备空间的一般格式为：. ReDimPreserve 数组名(lower TO upper ， lower To upper) As Type.其中， Preserve为可选项，表示是否爱护己有数据；缺省时.为不爱护；例如：ReDimdynArray(10)/为动态数组申请 10 个单元. ReDim PreservemyArray (Ubound(myArray)+10)第 8 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -. 其中， Ubound函数返回数组的指定维的上限；. 这是一个保留原数据的增量安排数组. 五、枚举类型：. 当一个变量只有几种可能的值时，可将这个变量定义为枚举类型；. 枚举类型的声明放在窗体模块、标准模块或公用类模块中的声明部分，用 Enum语句来定义，格式如下：.Public|Private Enum类型名称.成员名 常数表达式 .成员名 常数表达式 .-.-.End Enum. 默认情形下， 枚举类型中的第一个常数被初始化为0 ，其后的常数逐项递增 1 ；. 例如：Enum Days.Saturday.Sunday.Monday.Tuesday.Wednesday.Thursday第 9 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -.Friday.End Enum. 例如在如上定义的Days 枚举类型的基础上，有如下单击某按钮的过程：. Private Sub Command1_Click().Dim MyDay As Days.MyDay = Saturday.If MyDay < Monday then.MsgBox“It s the weekend .”.End If. End Sub. MyDay是一个枚举变量，Saturday的值为 0 ，而 Monday的数值为 2 ， If 中的条件成立. 六、运算符与表达式.1 赋值运算符： Visual Basic中的赋值运算符是 “= ”；.2 数学运算符：.优先级运算符说明.高指数运算，如 2 3 8.负号运算符.* /乘除运算，其中除法（ / ）的所得结果.为实数.整除；所得结果为实际结果.的整数部分.Mod取模运算符，两数相除取余数第 10 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -.+ -加、减运算.低&连接字符串；.3 关系运算符：（等于）；<> 或>< （不等）；.< （小于）； > （大于）； <= （小于等于）； >= （大于等于）； like（比较样式）； Is （比较对象变量）.4 规律运算符：.规律运算用于判定操作数之间的规律关系；VB 供应了非 (Not)、与(And)、或 (Or) 、异或(Xor)、相等(Eqv) 和隐含 (Imp)规律运算；规律运算符的优先级低于数学运算符和关系运算符；规律运算符本身也 有优先级，其次序为 Not ， And ， Or ，Xor, Eqv，Imp ；. 5 、表达式的执行次序：. 1 ）函数运算；. 2 ）算术运算；. 3 ）关系运算；（优先级：，< ， > ， <>， <=， >=）. 4 ）规律运算；. 注：乘除法同时显现时，遵循从左到右次序；括号的运算总是优先；字符串连接（& ）不是算术运算符，但其优先次序在所以算术运算符之后，又优先于其他运算符. 七、输入与输出：. InputBox函数： InputBox函数可以产生一个对话框，用于将用户从键盘输入的数据作为函数的返回值返回到当前程第 11 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -序中；.返回数值型数据；格式如下：.InputBox(prompt.,title,defualt,xpos,ypos,helpfile,context)返回字符串型数据；格式如下：.InputBox$(prompt,title,defualt,xpos,ypos,helpfile,context).其中的参数含义为：.prompt：一个字符串，显示显现在对话框中的用来提示用.户的信息，最大长度为1024个字符；Title：一个字符串，显示显现在对话框的顶部的标题信息；.default：一个字符串， 用于显示输入缓冲区的默认信息，即用户在执行了 InputBox函数后假如没有输入任何信息，就可用此字符串作为默认的输入值；. xpos：整数值，用于表示对话框与屏幕左边界的距离；. ypos：整数值，用于表示对话框与屏幕上边界的距离；. Helpfile：字符串型变量或字符串表达式，用于表示要用的帮忙文件的名字；. context：整数型变量或表达式，用于表示相关帮忙主题的目录号；第 12 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -. Print方法 用于输出显示；它既可以用于窗体，也可以用于其他控件上；它可以在窗体上显示文本字符串和表达式的值，也可以在其他图形对象或打印机上输出信息；格式：. 对象名称； Print表达式表 , |； . 对象名称是一个可选项，可以是窗体、图片框或打印机，假如省略，就在当前窗体上直接输出；. 表达式表是一个或多个字符串或数值表达式，用以原样输出字符串或表达式的值；也是可选项；假如省略，就输出一个空行；. 当需要输出多个字符串或表达式值时，各表达式间用逗号、分号或空格分隔，其中逗号分隔为标准输出格式，14 个字符位为一个输出区段单位，逗号后面的表达式在下一区段输出， 分号和空格分隔，就是依据紧凑格式输出；. Print方法兼有输出和运算双重作用，即可以先运算表达式的值后输出；. 每执行一次 Print方法将自动换行，要显示在同一行上，可以在前一 Print方法行的末尾加上一个逗号或分号；. 与Print方法相关的仍有一些函数和方法：. （ 1 ） Tab 函数：可以把光标移动到由参数n 指定的位置，并从这个位置开头输出信息；格式为：.Tab （ n ）第 13 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -.其中 n 为一个整数值， 指出下一个输出位置的列号，假如当前位置已经超出n ，就自动下移一行， 默认最左边的列号为1 ；. 当n 大于行宽时，显示位置为n Mod行宽；. 当一个 Print方法对应 n 个Tab 函数时，每个 Tab 函数对应一个输出项，各输出项之间用逗号分隔；. （ 2 ）空格函数：用空格函数可以返回n 个空格，格式为：.Space $ (n). （ 3 ）Spc 函数：在用 Print输出时可以用 Spc 函数跳过 n 个空格，格式为：.Spc （ n ）.（ 4 ） Cls 方法：使用 Cls 方法可以清除 Print方法显示在对象上的内容，并将光标移动到对象的左上角（0 ， 0 ）位置；格.式为： 对象； Cls.其中， “对象 ”为可选项，假如省略，就清除当前窗体内的内容；. 例1 ：设计一个程序， 输入一组同学信息：学号、姓名、 性别、年龄和入学成果；用窗体单击大事激发；.解： Private Sub Form_Click( ).num$ =“请输入学号： ”第 14 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -.msgtitle$ =“同学登记表信息”.nname$ =“请输入姓名： ”.sex$ =“请输入性别： ”.age$ =“请输入年龄： ”.sco$ =“请输入入学成果：”.Studentnum$ = InputBox$(num$,Msgtitle$).Studentname$ = InputBox$(nname$,Msgtitle$).Studentsex$ = InputBox$(sex$,Msgtitle$).Studentage% = InputBox(age$,Msgtitle$).Studentsco% = InputBox$(sco$,Msgtitle$).Cls.Print Studentnum$；“，”；Studentname$；“，”Studentsex$； “，现年 ”.Print Studentage%； “岁”;“,入学成果 ”; Studentsco%；“分”.Ebd Sub. （ 5 ） MsgBox函数： Visual Basic中除了可以用 Print方法在窗体或控件上输出程序执行结果等信息外，仍供应了一种在适当的时候可在屏幕上显示一个对话框，让用户进行挑选，并依据挑选确定后续操作的功能；. 格式：. MsgBox（ prompt ,buttons ,title ,helpfile,context）第 15 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -.各参数含义为：.prompt：一个字符串，最大长度 1024 字符，输出的提示信息，当一行显示不下时，自动换行；. buttons: 整数值或符号常量，指示显示按钮的数目及形式，使用的图标样式，默认按钮是什么以及消息框的强制回应等等；假如省略， 其缺省值为 0 ；.title：显示在对话框标题栏中的信息，缺省值为该应用程序名；.helpfile：字符串表达式，识别用来向对话框供应上下文相关帮忙的帮忙文件，假如有这个选项，就必需有context选项；.context：数值表达式，由帮忙文件的作者指定给适当帮忙主题的帮忙上下文编号，同理，假如有这一选项，就必需有helpfile选项；.表中的数值分为四类：0 5 为对话框中命令按钮的类型和数量，每 个数值表示一种组合方式；16 、32 、48 、64 为指定对话框所显示的图标； 0 、256 、512 、768 指定默认的活动按钮； 0 、4096 用于应用程序和系统强制返回； Buttons的参数值由这四类数值组成，其组成原就是从每一类中挑选一个值，把这几个值加起来就获得了Buttons 参数的值，在大多数应用中，只使用前三类，不同的组合会得到不同 的结果；例如：.19 3 16 0 ：显示 “是”、“否”和“取消”按钮和 “暂停 ”图标；.34 2 32 0 ：显示“终止 ”、“重试”和“忽视”按钮和 “疑问”图标； Ms gB ox 的返回值如下表：. 例2：设计一个窗体单击大事过程，要求程序执行时显现提 示信息： “请确认操作正确否？”，并在消息框的标题上显示第 16 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -“操作确认 ”标题，假如回答“是”，就将返回值 6 给予变量 a ，并在窗体上显示返回值的平方，否就，假如挑选“否”，就返回值为 7 ，在窗体上显示“重新操作并确认！”. 该程序产生的对话框中有三个按钮即“是”、“否”、“取消 ”. 程序代码如下：.Private Sub Form_Click().Dim Msg As String, title As String.Dim a As Integer.Msg = "请确认操作正确否？ ".title = "操作确认 ".a = MsgBox(Msg, 19, title).If a = 6 Then.Print a 2.ElseIf a = 7 Then.Print "请重新操作并确认！ ".End If.End Sub. 八、语句与掌握流. 1 、注释语句：. 注释用来说明程序中某些语句的功能和作用；在 VB中用 “”和Rem 来标识一条注释语句；VB 程序在说明运行或编译过程中，不会处理Rem 后面那一行注释语句；. 2 、赋值语句 :第 17 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -.目标操作符源操作符./操作符两边的数据类型必需一样！.3、暂停语句：.格式：Stop./ 当程序执行到 Stop 时，自动打开立刻窗口. 4 、终止语句：格式： End/常用于终止程序. 5 、条件分支结构.(1)If语句的三种格式：.第一种是单分支格式：.If条件Then. 语句.End If/其中加“ ”部分为可挑选部分；其次种是双分支格式：. If条件Then. 语句块 1. Else.语句块 2. End If这里是双分支，即假如条件满意，执行语句块1 ，否就，执行语句块 2 ；留意：语句块中的语句不能与其前面的Then在同一行上！第 18 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -第三种格式：.If条件 1Then. 语句块 1.Else If条件 2Then.语句块 2.Else if条件n Then.语句块 n.Else.语句块 .End If. （ 2 ） IIf 函数.VB 供应了一种用来执行简洁条件判定的函数IIf ，它是 “IfThenElse ”结构的简洁版本，格式如下：.Result = IIf（条件，为 “True”的执行语句，为“False ”的执行语句）.这里的 Result是函数的返回值，括号中的三项均不能省 略，执行的操作为第一判定条件，当“条件”为真的时候，执行“为“True”的执行语句 ”，否就执行 “为“False ”的执行语句”；.例如有如下判定条件：.If a > 8 Then.x = 3第 19 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -.Else.x = 0.End If.用IIf 函数替代，就可简化为：.x = IIf (a > 8， 3 ，0).类似于 C语言中的条件表达式：.表达式 1 ？表达式 2 ：表达式 3.例:Max=(a>b). a : b;.2 Select Case语句.Select Case语句很适合多重条件判定；它的书写格式为：.Select case测试表达式.Case表达式结果 1. 语句块 1.Caset表达式结果 2.语句块 2 .Casetelse.语句块 n .End Select.测试表达式既可以是数值表达式，也可以是字符串表达式，通常为变 量或常量；每个语句块由一行或多行合法的Visual Basic语句构成；表达式结果 1 、表达式结果 2被称为域值，它可以是：表达式 ，表达式、表达式To表达式或者 Is 关系运算表达式（运算符可以是：< ，<=，> ，>= ， <> ，）之一；例如：.Case 1,3,5,7第 20 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -.Case 1 To 6.Case Is >= a b.这三种表现形式均合法，但应当留意表达式结果中的表达式必需与测试表达式的类型一样；.例：从键盘上输入同学考试成果的等级，然后依据考试成果的等级显式出百分制的分数段，可以用Select Case语句来实现：.Sub Form_click().Dim grade As String， Msg.Msg=”请输入同学的成果等级：”.grade InputBox$(Msg).If Not IsNull（ grade） Then.Select Case grade.Case “A ”.Msg=”85100”.Case “B ”.Msg =“7084”.Case “C”.Msg =“6069”.Case “D ”.Msg =“< 60”.Case Else.Msg =“error.”.End Select.End If.MsgBox Msg第 21 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -.End Sub. 6、循环结构：. 1 ForNext语句. 语句格式：. For循环变量 = 初值 To终值Step步长 . 语句 . Exit For用于在特定条件下退出循环. 语句 . Next 计数器 . 其中：. 循环变量：数值型变量，用于统计循环次数的变量；. 初值：数值型变量，用于设置循环变量的初始值；. 终值：数值型变量，用于设置循环变量的终结值；. 步长：数值型变量，用于打算每次循环变量的变化值；可为正值亦可为负值，默认为1 ；.这里遵循： “先检查、后执行 ”的原就，循环次数由初值、终值和步长打算；.For 语句和 Next语句必需成对显现，且 For 语句必需在 Next语句之前；.For-Next循环是可以嵌套的，且嵌套层数没有限制，但每个循环必第 22 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -须有唯独的一个变量名作为循环变量，内层循环的Next语句必需位于外层循环的 Next语句之前，不行相互交叉；.当内循环与外循环有相同的终值时，可以共用一个Next语句，但不能省略变量名；.循环掌握值既可以是整型量或单精度数，也可以是双精度数；. 例4 ：设计一个窗体单击大事过程，要求从键盘输入10 个数，其中有正数和复数，分别输出其中的正数、正数的累加和和负数的累加和；. 解：Private Sub Form_Click ( ).Dim Numx As Integer, i As Integer.Dim Sumx As Integer,Sumy As Integer.Sumx=0.Sumy=0.For i=1 to 10.Numx=InputBox(“请输入一个整型数： ”).If Numx >0 Then.Print Numx；.Sumx=Sumx+Numx.Else.Sumy=Sumy+Numx.End If.Next i.Print.Print“已输入的正数累加和为：”；Sumx.Print“已输入的负数累加和为：”；Sumy第 23 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -.End Sub. 2 For EachNext语句. 对集合中的每个元素进行一次循环，直到集合中无更多元素时，执行 Next下面的语句；一般格式为:. For Each集合中元素in集合. 语句 . Exit For. 语句 . Next 元素 .3 DoLoop语句.(1) 当型循环格式： 格式 1 ：Do 语句块 ExitDoLoop While循环条件 .格式 2 ：Do While循环条件. 语句块 ExitDoLoop. 这种结构的功能是当“循环条件 ”为“真”时，执行循环体语句块，否就，跳出循环体，执行Loop后面的语句；第一种格式第 24 页，共 30 页 - - - - - - - - - -精品word 可编辑资料 -