VisualBasic6.0语言基础.ppt

《VisualBasic6.0语言基础.ppt》由会员分享，可在线阅读，更多相关《VisualBasic6.0语言基础.ppt（65页珍藏版）》请在三一办公上搜索。

1、Visual Basic 6.0 语言基础,计算机学院 何智涛,VB 第2-3讲,基本主题,编码基础数据类型变量与声明分支、循环和控制数组过程，函数和调用方式,编码基础,编码基础,单行语句分成多行，使用续行符“_”。将多个语句合并到同一行上，使用“:”来分隔。一行允许有255个字符在代码中添加注释 使用西文单引号“”来标注一行；使用“视图工具栏编辑”中的“设置/解除注释块”功能来标注一块注释或取消。,编码基础,Visual Basic 的命名约定它们必须以字母开头。(也可以用中文)它们不可以包含嵌入的句号或者类型声明字符（规定数据类型的特殊字符“”,“$”）。它们不能超过 255 个字符。控件

2、、窗体、类和模块的名字不能超过 40 个字符。*VB中汉字和西文字符都算作一个字，占两个字节。它们不能和受到限制的关键字同名。包括预定义语句（比如 If 和 Loop）、函数（比如 Len 和 Abs）和操作符（比如 Or 和 Mod）。,可用关键字命名的特例,窗体和控件可以和受到限制的关键字同名。例如，可以将某个控件命名为 Loop。但引用方法是特殊的。Loop.Visible=True 出错 使用限定方法或加方括号=True 用窗体名将其限定Loop.Visible=True 方括号起了作用,数据类型,数据类型,Numeric类型：Integer，Long，Single，Double，Cu

3、rrency。Date类型：公元100/1/1 9999/12/31，0:00:00-23:59:59。Boolean类型：True/False,-1/0,非0和0String类型:0-65535个字符，“”，“”Object类型:用于引用程序中的对象Variant类型：,Date 数据类型,Date类型表示方法表示法：用括起来的、字面上可被看作时间和日期的字符1 Jan，971998-5-12 12:30:00 PM#数字表示法：整数代表日期，小数代表时间范围从公元100年1月1日到9999年12月31日0代表1900年1月1日 0:00 AM-2.5代表了1899年12月28日 12:00

4、:00,Variant类型,变体类型：智能类型，可指代任何未定义的变量。特殊值：Empty（空）：未赋值。Null（无效）：数据不合法。Error（出错）：过程中出现一个错误条件。Nothing（无指向）：没有指向任何确定的对象。VarType()用来检测当前的变体变量中的数据类型。,自定义类型,使用Type可以来定义自定义类型Type 自定义类型名元素名(下标)As 类型名End TypeDim 变量名 As 自定义类型名注意：自定义类型必须在标准模块中定义，默认为Public自定义类型元素可以为字符串类型，但必须定长注意定义合理的自定义类型名称，以免造成与实际变量名的混淆,自定义类型举例,

5、Type StudTypeintNo as IntegerstrName as String*20strSex as String*1SngMark(1 to 4)as SinglesngTotal as SingleEnd TypeDim Student as StudTypeStudent.intNo=3012Student.SngMark(4)=89.5,变量与声明,变量与声明,显式声明Dim x Dim x as integerDim x as integer,y as integer隐式声明（均为Variant类型）声明强制手段，在模块文件的顶部填入Option Explicit 将

6、强制用户对所有变量的显式声明常量声明：Const PI 3.14159系统常量 vbNormal=0,便于程序的阅读和理解,运算符,算术“+”，“-”，“*”，“/”，“”【整除】，Mod字符串“&”：在进行连接前均强制转为字符型“+”：要求两侧均为字符类型关系“”，“”，“”，“”，“Like”(比较字符串模式)，“Is”(比较对象引用)操作数为数值，按大小操作数为字符型，按字符的ASCII码值从左到右依次比较逻辑Not，And，Or，Xor，Eqv系统将以数值的二进制值逐位进行逻辑运算,表达式,书写规则乘号不能省略 a*b OK!ab?括号成对出现，均使用圆括号“（）”不同数据类型的转换操

7、作数的精度不一致，结果使用精度高的类型Integer 关系 逻辑(Var*5=100),基本语句,赋值Let x=5交互输入：InputBox(提示,标题,缺省,X坐标,Y坐标)StrA=InputBox(“请输入”，“输入框”，“A”)输出：函数：变量%=MsgBox(提示,按钮,标题)过程：MsgBox 提示,按钮,标题,分支与选择,分支选择,一条分支执行后，其他分支将不被执行IfThenIfThenElseIf.ThenElseIfSelect Case,IfThen(单分支),If condition Then statementIf x y Then t=x:x=y:y=tIf co

8、ndition ThenstatementsEnd If If x y Thent=x x=y y=tEnd if,IfThenElse（双分支）,If condition ThenstatementsElsestatementsEnd If举例If x0 theny=sin(x)+sqr(x*x+1)Elsey=cos(x)-x3+3*xEnd if,If.ThenElseIf（多分支）,用 If.Then.Elseif 块定义几个语句块，只执行其中一个语句：If condition1 Then 当条件1满足执行语句 1statementblock-1ElseIf condition2 Th

9、en 否则判断条件 2 statementblock-2 ElseIf condition3 Then 否则判断条件 3statementblock-3.Else 当所有以上条件不满足，则执行语句 n statementblock-nEnd If,If.ThenElseIf举例,在StrC变量中存放了一个字符，判断该字符是字母、数字或其他程序片断If(strC=“a”And strc=“A”And _ strC=“0”And StrC=“9”thenPrint strC+“Is numeral Character”Else Print strC+“Is Other Character”End

10、If,Select Case,Select Case testexpressionCase expressionlist1statementblock-1Case expressionlist2statementblock-2Case Elsestatementblock-nEnd Select,Select Case 举例,Select Case StrC Case“a”To“z”,“A”to“Z”Print strC+“Is Alpha Character”Case“0”To“9”Print strC+“Is numeral Character”Case ElsePrint strC+“I

11、s Other Character”End Select表达式写法Case 2,4,6 枚举形式Case 1 to 19 范围，To两边可以为表达式Case 2,4,6,Is 10 Is 关系表达式,IfThen&Select Case 举例,由计算机来给出一系列的110的操作数和运算符，学生输入答案，计算机根据学生的答案判断正确与否，当结束时给出成绩。设计界面设计（结果显示框，答案输入框，按钮，考题显示）随机数产生运算数和运算符号，拼接为考题用户输入答案，判断并打印结果在结束时统计并打印成绩,循环与控制,循环,循环结构允许重复执行一行或数行代码。Visual Basic 支持的循环结构有：D

12、oLoopForNextFor Each.Next,Do Loop 的两种结构形式,形式1：Do While 语句块Loop先判断后执行，可能一次也不执行,形式2：Do语句块Loop While 先执行后判断，至少执行一次,Do Loop 的举例,Dim I as Integer,n as Long Dim t as Single,e as Singlee=0 存放累加和结果i=0 计数器n=1 存放阶乘的值t=1 第n项的值，初值为1Do While t 0.00001e=e+t 累加和i=i+1 循环次数n=n*i 连乘积t=1/nLoopPrint,计算自然对数e的近似值，要求误差小于0

13、.00001，其计算公式为e=1+1/1!+1/2!+分析：在不断循环的基础上进行累加和连乘。用单项值的精度来控制循环的结束。有几个循环呢？循环计数值如何用于计算？,ForNext,For 循环变量=初值 to 终值 Step 步长语句块Next 循环变量注意：初值只被赋值一次。循环变量超过终值将终止循环。循环终止后循环变量的值保持不变，注意处理。,ForNext循环嵌套举例,乘法九九表打印。用循环变量作为乘数和被乘数即可解决。用Picture.Print命令即可逐行打印结果2.上、下三角九九表打印？3.注意内外循环变量不能同名，并列循环可以同名内外循环不能交叉，可以嵌套,For Each.N

14、ext,For Each.Next 循环对数组或对象集合中的每一个元素重复一组语句，而不是重复语句一定的次数。如果不知道一个集合有多少元素，该循环方式将非常有用。For Each.Next 循环的语法如下：For Each element In groupstatementsNext element,For Each Next 举例,Sub ListTableDefs()将指定Mdb文件中的表名添加到链表List1中Dim objDb As Database Dim MyTableDef as TableDefSet objDb=OpenDatabase(c:vbbiblio.mdb,True

15、,False)For Each MyTableDef In objDb.TableDefs()List1.AddItem MyTableDef.Name Next MyTableDef End Sub Microsoft Excel电子表格文件处理,使用For Each Next 的限制,对集合，element 只能是 Variant 变量，或一般的 Object 变量对数组，element 只能是 Variant 变量。For Each.Next 不能与用户自定义类型的数组一起使用，因为 Variant 不可能包含用户自定义类型。,使用循环控制结构,在 VB中，控制结构的嵌套层数没有限制。为

16、使判定结构和循环结构更具可读性，使用缩排方式。下面的过程要把打印机和屏幕共有的字体名全部打印出来：Private Sub Form_Click()Dim SFont,PFont For Each SFont In Screen.Fonts()For Each PFont In Printer.Fonts()If SFont=PFont Then Print SFont End If Next PFont Next SFontEnd Sub注意，第一个 Next 关闭了内层的 For 循环，而最后一个 For 关闭了外层的 For 循环。同样，在嵌套的 If 语句中，End If 语句自动与最靠

17、近的前一个 If 语句配对。,控制,Goto 标号若需退出循环和过程（当需要达到的目的已经达到时，如循环查找字符）Exit ForExit doExit SubExit FunctionEnd 语句End，End Sub End if,End SelectStop 语句设置断点！,控制举例错误收集,Sub ExampleOn Error Goto ErrHandleSet x=Object 可能会引发运行时错误Exit Sub 程序在此处结束，以免进入错误处理段落ErrHandle:错误记录登记与处理Resume NextEnd Sub,控制举例Exit For/Exit Sub,Privat

18、e Sub Form_Click()Dim SFont,PFont For Each SFont In Screen.Fonts()For Each PFont In Printer.Fonts()If SFont=PFont Then Print Sfont Exit For 退出内圈循环 Exit Sub 退出当前过程 End If Next PFont Next SFontEnd Sub,数组,数组,数组并不是一种数据类型，而是一组相同类型的变量的集合。数组常和循环语句配合使用，来处理逻辑上相关的一批数据。数组必须先声明后使用，分为静态和动态数组两类。Dim 数组名（下标1,下标2）As

19、 类型下标必须为常数，不可为表达式和变量；下标形式为“下界 to 上界”,范围为-32768 32767；通常可省略下界，下界缺省为0；VB中可声明最多60维的数组。,静态数组,建立公用数组，在模块的声明段用 Public 语句声明数组。建立模块级数组，在模块的声明段用 Private 语句声明数组。建立局部数组，在过程中用 Dim 语句声明数组。Public Counters(14)As IntegerPrivate Counters(14)As IntegerDim Array1(0 to3,0 to 4）as IntegerOption Base 的使用 Option Base 1 窗体

20、层和模块层中声明静态数组举例筛选法求素数！,包含其他数组的数组,建立 Variant 数据类型数组,将整数和字符串数组放置其中：Dim countersA(5)As Integer 数组countersA赋值Dim countersB(5)As String 数组countersB赋值Dim arrX(2)As Variant arrX(1)=countersA()将countersA的内容给arrX(1)arrX(2)=countersB()将countersB的内容给arrX(2),数组的基本操作（1）,数组元素赋值利用循环结构For i=1 to 10A(i)=iNext i 利用Arr

21、ay函数Dim a as vairant,b as varianta=array(1,2,3,4,5)b=array(“abc”,”r”,”78”)*使用Array函数时，被赋值数组必须是Vairant类型的且不能定义下标！,数组的基本操作（2）,输出利用循环结构进行依次输出For i=1 to 10Print a(i)Next i 数组赋值数组直接对数组的赋值Dim a()as variant Dim a as variant 也可以Dim b()as variant Dim b as variant 也可以a=array(1,2,3,4,5)b=a 将a数组中所有元素值对应地赋值给b*注意

22、被赋值数组类型必须是Vairant的,动态数组,动态地指定数组的大小。Dim sArray()as IntegerDim x as integerSub Form_Load()ReDim sArray(4,8)ReDim sArray(4,8,9)ReDim sArray(x,x+5)End Sub,使用动态数组的注意事项,在Redim之前不能声明数组维数。否则将不能重定义。ReDim 语句只能出现在过程中，是一个可执行语句。Redim语句中的下标可以是有确定值的变量。经过ReDim，数组的维数还能动态地改变。Redim后数组的内容可能丢失。,动态定义中保留数据,使用具有 Preserve 关

23、键字的 ReDim 语句。ReDim Preserve DynArray(UBound(DynArray)+1)只能改变多维数组中最后一维的上界；如果改变了其它维或最后一维的下界，那么运行时就会出错。ReDim Preserve Matrix(10,UBound(Matrix,2)+1)ReDim Preserve Matrix(UBound(Matrix,1)+1,10)动态数组演示,控件数组的使用,概念：是由一组相同类型的控件组成。公用一个控件名称，每个控件有一个唯一的索引号（index）共享一个事件过程。创建方法设计时创建创建控件，拷贝粘贴即可创建，具体位置由设计者直接指定运行时创建设计

24、时创建一个控件，设置Index为0在运行时使用Load方法来加载若干个控件通过Left，Top属性来确定其位置,过程与函数,过程和函数的定义,自定义过程staticPublic|Private Sub 子过程名(参数列表)局部变量或常数定义语句Exit Sub语句End Sub自定义函数staticPublic|Private Function 函数名(参数列表)As 类型局部变量或常数定义语句函数名 返回值Exit Function语句函数名 返回值End Sub,过程和函数的定义,过程名命名原则与变量相同，注意不能与关键字，API函数名和同级变量名相同As 类型若函数定义中省略，则为Var

25、iant类型在函数体内至少要有一次对函数名的赋值参数列表形式ByVal 变量名()As 类型,ByVal 变量名()As 类型 形参定义函数和子过程时可以没有形参，但函数在没有参数定义时圆括号不能被省略,过程和函数的调用,子过程调用子过程名 参数列表Call 子过程名(参数列表)Call MyProc(FirstArgument,SecondArgument)MyProc FirstArgument,SecondArgument函数过程调用变量名 函数名（参数列表）X=AnotherFunction(ToDec)注意：实参的个数、类型与形参的一致外部调用，注意添加模块名称Call Form1.

26、SomeSub(arguments)Print Module2.FunctionName(arguments),参数传递方式,传值：传递的只是变量的副本。变动只影响副本而不会影响变量本身。Sub PostAccounts(ByVal intAcctNum as Integer)传址：使过程用变量的内存地址去访问实际变量的内容。Dim intX As Integer intX=12*3 Foo(intX)注意：为降低过程间耦合度，建议使用传值方式传址方式下对应的实参不能为表达式和常数,数组作为参数传递,数组通过传地址方式进行传递在形参和实参列表中放入数组名，须忽略维数的定义，但需保留“（）”。在

27、过程调用中实际使用数组时可用Lbound和Ubound来确定数组上下界。,数组参数举例,Function Temp(InterA()as integer)For i=Lbound(InterA)to Ubound(InterA)Next iEnd FunctionDim a(5)as IntegerDim T1 as integerT1=temp(a(),使用不定数量的参数,过程调用中的参数个数也可以不等于过程说明的参数个数。可用 ParamArray 关键字指明，过程将接受任意个数的参数。于是可以这样来编写计算总和的 Sum 函数：Dim x As IntegerDim y As Integ

28、erDim intSum As IntegerSub Sum(ParamArray intNums()For Each x In intNums y=y+x Next x intSum=yEnd SubPrivate Sub Command1_Click()Sum 1,3,5,7,8 List1.AddItem intSumEnd Sub,窗体模块1Dim/Private 变量Public 变量1,标准模块Public 变量,窗体模块2Dim/Private 变量Public 变量4,Private Sub AStatic/Dim 变量2,Private Sub CDim 变量5,Public

29、 Sub BDim 变量3,Public Sub DDim 变量6,Public 过程1,Private过程2,过程的作用域,变量的作用域,静态变量和过程,StaticStatic 变量名 As 类型Static Function 函数名（参数列表）As 类型Static Sub 过程名(参数列表)静态变量是局部变量的一种，在程序运行过程中可保留上次运行该过程所赋的值。静态过程和静态函数中的所有变量均为静态类型的。静态变量举例,静态变量举例,Sub ADim I as integer,isum as integerFor I=1 to 5isum=sum(i)Print isumNext I

30、End SubFunction sum(n as integer)Dim j as integer(static j as integer)j=j+nSum=jEnd function 若j不是静态变量，结果为1，2，3，4，5 若j是静态变量，结果为？（请看实例）,语言基础课后练习（1）,编写程序，建立并输出一个10 x10的矩阵，该矩阵主对角线元素为1，其余元素为0。有10名运动员的百米短跑比赛成绩如下右表，请编写程序，按如下格式分行输出。,名次 运动员号 成绩1.2.10.,语言基础课后练习（2）,编写一个求3个数中最大值Max和最小值Min的过程，然后用这个过程分别求3个数，5个数和7个数中的最大值和最小值。编写二进制和十进制整数相互转换的2个函数。,END,