模块2--VB程序设计语言基础.ppt

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,模块,2 VB,程序设计语言基础,任务,1 VB,中的数据与运算,任务,2 VB,函数,任务,3,输入与输出,任务,4,程序的流程控制,返回,任务,1 VB,中的数据与运算,数据与数据运算是任何一种程序设计语言编程的基础。,VB,提供了丰富的数据类型和运算方式以适应不同的场合。,2.1.1,数值型数据,VB,6.0,的数据类型比较丰富，可以分为两大类,:,基本数据类型和用户自定义类型。,表,2-1,列示了,VB 6.0,使用的基本数据类型。,基本数据类型是系统定义的标准数据类型，可以直接使用。分为,6,类,:,数值型，日期型，逻辑型，字符型，对象型和变体型。,下一页,返回,任务,1 VB,中的数据与运算,数值型数据分为整型和实型两类。整型数据分为整数和长整数，实型数据分为单精度和双精度数据。有时把货币型和字节型数据也归为数值型数据。,(1),整数。整数是不带小数点，范围在,-3276832767,之间，在机器内使用,2,个字节存储。在,VB 6.0,中数尾常加“,%”,表示整型数据，也可省略。如,-34,78%,。,(2),长整数。长整数可以超过整数,-3276832767,范围，可以是,-21474836482147483647,之间的不带小数点的数，在机器内用,4,个字节存储。在,VB 6.0,中数尾常加,:“&”,表示长整型数据。如,-334&,67785649&,。,(3),单精度数。单精度数是带小数点的实数，有效数字为,7,位，在机器内用,4,个字节存储。通常以指数形式表示，指数部分用“,E”,或“,P”,表示。在,VB 6.0,中数尾常加“,!”,表示单精度数据，也可省略。如,-234.78,2.67 e+3,。,上一页,下一页,返回,任务,1 VB,中的数据与运算,(4),双精度数。双精度数也是带小数点的实数，有效数字为,15,或,16,位，在机器内用,8,个字节存储。通常以指数形式表示，指数部分用“,D”,或“,d”,表示。在,VB 6.0,中数尾常加“,#”,表示双精度数据，也可省略。如,-374.778,5.678D+2,，,-2.67 e+3,0,。,(,5),货币型数据。货币型数据是为计算货币而设置的定点实数或整数，它的精度要求较高，规定小数点后有,4,位，在机器内用,8,个字节存储。在,VB 6.0,中数尾常加“,”,表示货币型数据。如,3.4,，,565,。,(6),字节型数据。字节型数据是范围在,0255,之间的无符号整数，在机器内用一个字节存储。,上一页,下一页,返回,任务,1 VB,中的数据与运算,2,.,日期型数据,日期型数据是为表示日期设置的，范围在公元,100,年,1,月,1,日,9999,年,12,月,31,日，时间是,00,：,00,：,00 23,：,59,：,59,内的数据，在机器内用,8,个字节存储。口期型数据必须用“,#”,括起来，如,:#1986-12-30#,、,#,6,：,23,：,25 pm#,。,3,.,逻辑型数据,逻辑型数据是用来表示逻辑判断结果的，只有真,(True),和假,(False),两个值，在机器内用,2,个字节存储。当在使用中数值型数据要转换为逻辑型数据时，非,0,变为,True;0,变为,False,。反之，逻辑型数据转换为数值型数据时，,True,变为,-1,False,变为,0,。,上一页,下一页,返回,任务,1 VB,中的数据与运算,4.,字符型数据,字符型数据是用双引号括起来的一串字符，用来定义一个字符序列。在机器中一个字符用,1,个字节存储。在默认字符状态下，它是变长字符串，也可以声明为定长字符串，如果字符个数少于固定长度，自动用空格将不足部分补齐,;,否则，会自动截去多余部分的字符。,5.,对象型数据,对象型数据主要以变量形式存在，可以引用应用程序中的对象。在机器内用,4,个字节存储。,6.,变体型数据,变体型是一种通用的，可变的数据类型，它可以表示以上任何一种数据类型。它是声明变量时的默认类型。可以通过,VarType,函数来检测变体型变量的实际数据类型，如,表,2-2,所示,),。,上一页,下一页,返回,任务,1 VB,中的数据与运算,【,例,2-1】,Dim a As Variant,a=56,a,为整型,a=china,a,为字符型,应该尽量少用变体型数据，以避免发生错误。,上一页,下一页,返回,任务,1 VB,中的数据与运算,2,.1.2,有定义数据类型,除了上述基本类型外，用户还可以根据需要用,Type,语句定义自己的数据类型。,格式,:,Type,数据类型名,元素名,As,类型名,元素名,As,类型名,元素名,As,类型名,End,Type,其中，数据类型名为自定义数据类型名，元素名为自定义数据类型中的一个成员，类型名为上述基本类型名或自定义数据类型名。,上一页,下一页,返回,任务,1 VB,中的数据与运算,【,例,2-2】,定义一个名为,Employee,(,职工,),的类型，其中包括职工号、姓名、年龄、电话和住址。,Type,Employee,EmpNo,As Integer,Name,As,String*10,长度为,10,Age,As,Integer,Tel,As,String*10,Address,As,String*20,End Type,注意,:,自定义类型中的元素为字符型时，必须为定长字符串。,自定义数据类型类似于,C,语言中的结构体，因此通常把这种类型称为记录型。,这样，就可以定义一个,Employee,类型的变量了。,Dim,Em,PAs,Employee,用变量元素的形式引用各成员,上一页,下一页,返回,任务,1 VB,中的数据与运算,2,.1.3,常量与变量,1.,常量,程序运行过程中，其值始终不变的量称为常量。在,VB 6.0,中，常量有直接常量和符号常量两类。,1),直接常量,直接常量是直接以数据形式表示的常量。包括字符型常量，数值型常量，逻辑型常量和口期性常量，如,10,56&,22.4e4,“Name”,True,等。,在,VB 6.0,中还可以使用八进制和十六进制形式表示直接常量。八进制数以,&0,打头，十六进制数以,&H,打头，如,&067,&H7A34,等。,上一页,下一页,返回,任务,1 VB,中的数据与运算,2),符号常量,符号常量是用符号表示的常量，它可以取代多次出现的很大的数字或很长的字符串。符号常量分为系统定义的符号常量和用户定义的符号常量。,(1),系统定义的符号常量,:,系统定义的符号常量是由系统或引用的对象提供的。它位于对象库中，使用时可以在“对象浏览器”窗口中查看。如,VB 6.0,中经常使用,VBNormal,VBMinimized,和,VBMaximized,来代替表示窗体状态的,0(,正常窗口,),1(,最小化窗口,),和,2(,最大化窗口,),，这样使用非常直观。,(2),用户定义的符号常量,:,用户定义的符号常量是用户使用,Const,语句定义的符号常量。,上一页,下一页,返回,任务,1 VB,中的数据与运算,格式,:Public|Private Const As=,其中,:“”,为可选项，“,”,为必选项，,I”,表示只取其中之一，“,”,表示若干项中间用“，”分隔。例如,:,Const Pi=3.141592653589,Const Date=1/1/68,Const M As Integer=45,，,D=tea,注意,:,符号常量一经声明只能引用，不能改变。,上一页,下一页,返回,任务,1 VB,中的数据与运算,2.,变量,在程序运行过程中，其值可以改变的量称为变量。变量由名字和数据类型确定。,1),变量的命名规则,变量名由字母，数字和下画线组成，第一个字符必须是字母或汉字，最后一个字符可以是类型说明符，并且组成变量名的字符数不得超过,255,个。为了增加程序的可读性，可在变量名前加上表示变量数据类型的前缀。例如，,strName,(,字符型,),，,intAge,(,整型,),，,dlmDala,(,日期型）等。,注意,:,变量名不得使用,VB 6.0,的保留字,(,符号常量与后面讲到的数组、函数及过程的命令规则完全相同,),。,上一页,下一页,返回,任务,1 VB,中的数据与运算,2),变量声明,变量声明是用语句来定义变量的数据类型，以此来确定所占存储单元的大小。,(1),用,Dim,和,Static,声明变量。,格式,:Private|Public|Dim|StaticAs,，,As,其中,:,Private,I Public,为模块或全局变量，属于变量的作用域范畴。,Dim,声明的变量为动态变量，其值在程序运行结束时不保留。,Static,声明的变量为静态变量，会保留上次调用结束时的值。,例如,:,Private,Sub x Click(),Static,a As Integer,Dim,h As Integer,a=a+1,h=h+1,End,Sub,上一页,下一页,返回,任务,1 VB,中的数据与运算,当第一次调用此过程时，,a,，,b,默认为,0,，故执行完该过程的最后一条语句后，,a,，,b,均变为,1,。当第二次调用此过程时，,a,变为,1,，而,b,又恢复为,0,，故执行完此过程的最后一条语句后，,a,的值为,2,b,的值为,1,。这就是因为,a,是静态变量，调用结束后的值会保存下来,;,而,b,是动态变量，调用后的值会释放，即每次调用此过程时，,b,的初始值均为,0,。,(2),用省略,As,的,Dim,语句声明变量为变体型。,格式,:Dim,变量名,(3),用类型符声明变量。,格式,:,变量名,例如，,strName$,sngFloat,和,lngNum,&,。,上一页,下一页,返回,任务,1 VB,中的数据与运算,3,.,变量的作用域,变量的作用域即变量的作用范围。一个变量的作用范围有多大取决于它是了什么级别的变量。从作用域来讲，变量有局部变量、窗体和模块级变量以及全局变量之分。,1),局部变量,在一个过程内部声明的变量是局部变量，又称为过程变量。这种变量只在声明它的过程内有效。例如,:,Private Sub Form1 Click(),Dim a As Integer,End Sub,此时，,a,为局部变量，只在该过程内有效。因此，在不同过程中，可以使用相同的变量名，它们互不干扰。这充分体现了它的独立性。,上一页,下一页,返回,任务,1 VB,中的数据与运算,2,),窗体和模块级变量,在一个窗体或模块内，而在过程外声明的变量为窗体或模块级变量。这种变量在整个窗体或模块中有效，本窗体或模块内的所有过程都可以使用。若在其他窗体或模块中使用，必须以,Public,声明此变量，否则，其他模块或窗体不能使用，但在使用时必须指明该变量所在的对象。这也是它与全局变量的区别。例如，在窗体,Form 1,中声明变量,a(Public,a As,Integer),，在另一窗体,Form2,中使用时，必须写成,Form1.a,，而不能直接写成,a,，因为只有全局变量才可以直接使用。,注意,:,以,Private,或,Dim,声明的变量是窗体和模块级变量，只能在本模块中使用。,3),全局变量,在模块文件中声明的变量为全局变量。这种变量在任何模块或窗体中均有效，但必须用,Public,声明，即,Public b As Single,，如,图,2,一,1,所示。,上一页,下一页,返回,任务,1 VB,中的数据与运算,2,.1.4,运算符和表达式,运算符是描述不同运算的符号，在,VB 6.0,中有赋值运算符、算术运算符、连接运算符、关系运算符和逻辑运算符。参与运算的量称为操作数。由运算符将参与运算的量,(,常量、变量、函数等,),，即操作数连接起来的式子为表达式。表达式从运算符角度又可分为算术表达式、连接表达式、关系表达式和逻辑表达式。,1.,赋值运算符,赋值运算符用于给变量、数组或对象的属性赋值，用“,=”,表示。,格式,:Variable=,表达式,其中,:Variable,可以是变量、数组或对象的属性。表达式可以是常量、变量或表达式，但必须有确定的值。,上一页,下一页,返回,任务,1 VB,中的数据与运算,例如,:,Dim a As String*5,a=China,将,China,赋给字符型变量,a,cmdDisplay,.Caption,=,显示文本,将显示文本赋给按钮,cmdDisplay,的,Caption,属性,注意,:,赋值符两端的数据类型应该匹配，不匹配时，应进行转换。,上一页,下一页,返回,任务,1 VB,中的数据与运算,2.,算术运算符,算术运算符主要用于算术运算。,VB 6.0,中有,8,个算术运算符，如表,2-3,所示。,说明,:,(1),算术运算符的操作数可以是数值型、数字字符型或逻辑型，数字字符型或逻辑型数据自动转换为数值型后再参与运算。,(2),整除运算是直接取整而不进行四舍五入的操作。如果参加整除运算的操作数是实数，按四舍五入的规则将其改变为整数后，再参与运算，如,6.72,的结果是,3,。,(3),取模运算的操作数可以是实数，先按四舍五入的规则将其变为整数后，再参与运算，如,12.35 Mod 4.7,的结果为,2,。,(4),优先级是多个运算符出现在一个表达式时的运算顺序，优先级高的先进行运算，优先级低的后进行运算。序列号越小优先级越高。,上一页,下一页,返回,任务,1 VB,中的数据与运算,3.,连接运算符,连接运算符主要用于两个字符串的连接，如,表,2-4,所示。,说明,:,(1)“&”,连接的操作数为非字符型时，将其转换为字符型再连接如,1234&5,的结果为,12345,。,(2)“+”,连接的操作数为字符型时实现连接，其中一个为数字字符型，另一个为字符型，或者两个都为字符型时，实现算术加法运算，前者只是将数字字符型变为数值型。若其中一个为数值型，另一个为非数字字符型时，则会出错，如,12A,+,5,则报错。,上一页,下一页,返回,任务,1 VB,中的数据与运算,4.,关系运算符,关系运算符主要用于两个操作数的比较，其结果必为逻辑型数据，如,表,2-5,所示。,说明,:,(1),两个操作数为字符型时，按,ASCII,码值对应比较，直到出现不相同的字符为止，,ASCII,码值大的字符串大。,(2),汉字字符大于西文字符。,(3)Like,字符串用于字符串的模糊查询，通常与通配符“,?”,，“*”，“”及,字符列表,，,!,字符列表,等结合使用。其中“,?”,表示任意单个字符，“*”表示任意多个字符，,“,”,表示任意,09,的数字，,字符列表,表示字符列表中的任何单一字符，,!,字符列表,表示不在字符列表中的任何单一字符。,(4),所有关系运算符的优先级相同。,上一页,下一页,返回,任务,1 VB,中的数据与运算,5.,逻辑运算符,逻辑运算符主要用于逻辑运算，其操作数经常是关系表达式或逻辑型数据，如,表,2-6,所示。,注意,:,在表达式中出现各种运算符时，其优先顺序为算术运算符,连接运算符,关系运算符,逻辑运算符也可以使用,(),改变优先顺序。每个运算符的运算顺序均为自左至右。,上一页,下一页,返回,任务,1 VB,中的数据与运算,2,.1.5,数组,数组主要用于处理大量的数据，把具有相同属性、类型的数据组合在一起即为数组。数组中的每一个数据称为一个数组元素，可以用数组名和数据在数组中的序号,(,即下标,),唯一表示。,数组必须声明后使用。声明时要声明其数组名、类型、维数和数组大小，同时按声明是否可以确定数组的大小将数组分为静态数组和动态数组。,上一页,下一页,返回,任务,1 VB,中的数据与运算,1,.,数组的定义,格式,:Dim,数组名,(,下标,，下标,2)As,数据类型,其中,:,下标有几个就表示几维数组。下标可以表示为,下界,To,上界，下界省略时默认为,0,。,例如,:,Dim a(1,，,3 To 5)As Integer,定义了一个整形二维数组，分别为,:a(0,3),a(0,4,),a(0,5,),a(1,3),a(1,4),和,a,(,1,5),。,Dim,b(2 To 4,5 To 9)As Integer,也定义了一个整形二维数组。,上一页,下一页,返回,任务,1 VB,中的数据与运算,2.,静态数组和动态数组,静态数组是指数组元素个数确定的数组。动态数组是指元素个数不确定需要根据实际使用确定的数组。,1),静态数组,格式,:Public|Private|Dim,数组名,(,维数定义,)As,类型,功能,:,指定数组的维数及各维的范围。,其中,:,(,维数定义,),表示为,下标下界,1 To,下标上界,1,下标下界,2To,下标上界,2,其中下标下界默认为,0,，也可由,Option Base1,控制,(,即在定义数组前，使用该语句时，下标上界为,1),。,As,类型,默认时为变体型。,上一页,下一页,返回,任务,1 VB,中的数据与运算,例如,:,Dim M(3,，,1 To 4,，,1 To 5)As Double,它是一个三维数组，第一维下标范围为,0,一,3,第二维下标范围为,1,一,4,第三维下标范围为,15,。,2),动态数组,有时，事先无法确定到底需要多大的数组，并且希望在运行时能够改变数组的大小，就可以定义为动态数组。创建动态数组的方法很简单。操作步骤如下。,(1),用,Public,语句,(,公用数组,),，,Dim,语句,(,模块级数组,),，,Static,或,Dim,语句,(,局部数组,),在过程中声明数组。给数组赋一个空维数表，这样就将数组声明为动态数组。,上一页,下一页,返回,任务,1 VB,中的数据与运算,(2),在过程中用,ReDim,语句为声明的动态数组分配实际的元素个数。格式,:,ReDim,Preserve,数组名,(,维数定义,)As,类型,其中,:,ReDim,语句用来定义或重定义原来已经用带空括号,(,没有维数下标,),的,Private,Public,或,Dim,语句声明过的动态数组的大小。,可以使用,ReDim,语句反复改变数组的元素以及维数的数目，但是不能在将一个数组定义为某种数据类型结构之后，再使用,ReDim,将该数组改为其他数据类型，除非是,Variant,所包含的数组。如果该数组确定是包含在某个,Variant,中，且没有使用,Preserve,关键字，则可以使用,As,子句来改变元素的类型，但在使用了此关键字的情况下，是不允许改变任何数据类型的。,上一页,下一页,返回,任务,1 VB,中的数据与运算,如果使用了,Preserve,关键字，即可在重定义数组最末维的大小的同时仍保留数组中的内容，例如,:,ReDim,M(5,5,5),ReDim,Preserve M(5,5,10),为已有的动态数组,M,增加其最末维大小的同时，又不清楚其中所含的任何数据。,注意,:,如果将数组改小，则被删除的元素的数据就会丢失。如果按地址将数组传逆给某个过程，就不要在过程内重定义该数组各维的大小。,上一页,下一页,返回,任务,1 VB,中的数据与运算,【,例,2,一,3】,当单击“输入成绩”按钮时，在,InputBox,对话框中输入学生人 数，然后在对话框中依次输入不多于人数的几个成绩。再次单击“输 入成绩”按钮将追加学生人数和成绩。单击“显示成绩”按钮显示成绩 平均分和未输入成绩的人数。,程序代码如下,:,Dim mark%(),，,aver%,，,k%,，,n%,Private Sub,inputnark(k,，,n,，,aver),Do White kn,Markx,=,InputBox,(“,输入第,:”&,k+1&“,位学生的成绩”，“数据输入”）,If,markx,=Then Exit Do,k=k+1:mark(k)=,markx:aver,=,aver+markx,Loop,End Sub,Private Sub,输入成绩,_Click(),Dim m$,上一页,下一页,返回,任务,1 VB,中的数据与运算,m=,lnputBox,(“,请输入学生人数”,),If mThen n=,k+Cint,(m),ReDim,Preserve mark(1 To n),Call,inputmark(k,，,n,，,aver),End Sub,Private Sub,显示成绩,_Click(),Print“,已经输入的学生成绩为,:,For I=1 To n,Print,mark(i,);,If I Mod 10=0 Then Print,NPXL,Print,Print,“,有,;,n-k,;,个学生的成绩没有输入,Print,平均成绩为,;,aver/n,End Sub,上一页,下一页,返回,任务,1 VB,中的数据与运算,程序中,k,值决定数组元素的下标。程序运行时，第一次单击“输入成绩”按钮，输入人数,3,，此时数组确定为,3,个元素，实际输入,2,个成绩赋给第,1,2,个元素后,(k=2),，第二次单击“输入成绩”按钮，输入人数,3,，此时数组确定为,3,个元素，实际也输入,2,个成绩赋给第,3,4,个元素,(k=4),，但是数组还是有,5,个元素。单击“显示成绩”按钮，将输出,5,个元素的值，最后一个元素的值为,0,。,上一页,下一页,返回,任务,1 VB,中的数据与运算,3.,数组的基本操作,数组是一个整体，而实际使用时常常是牛,l,一对个体,(,即数组元素,),进行的。其基本有给数组元素赋初值，数组的输入、输出以及数组的整体赋值等。,1),给数组元素赋初值,可以使用循环结构和,Array,函数给数组元素赋初值。,(1),使用循环结构赋初值。,例如,:,For i=1 To 10,a(i)=0,Next i,则,a(1)a(100,),的初值均为,0,。,(2),使用,Array,函数赋初值。,Array,函数的功能是返回一个,Variant,型的数组。,格式,:=Array),上一页,下一页,返回,任务,1 VB,中的数据与运算,其中,:,用于给,Variant,型的数组各元素赋值的值表,(,用“，”号分隔,),。如省略，则建立一个长度为,0,的数组。,为已经声明过的,Variant,型可调用数组名。,例如,:,Dim A As Variant,A=Array(2,4,6),则,A(1)=2,A(2)=4,A(3)=6,，数组,A,的大小也就确定为,3,。,上一页,下一页,返回,任务,1 VB,中的数据与运算,2),数组的输入,数组的输入一般通过文本框和,InputBox,函数输入。对于大型的数组，一般都采用文本框方式输入。,3),数组的输出,常使用循环结构输出数组的全部和部分元素。,例如,:,Private Sub Form_ Click(),Dim,a(3,，,3)As Integer,For,i=0 To 3,For,J=OTo3,a,(i,，,j)=Int(90*Rnd+10),上一页,下一页,返回,任务,1 VB,中的数据与运算,Next j,Next i,For,i=0 To 3,t=a(i,0):a(i,0)=a(i,，,3):a(i,，,3)=t,Next i,For i=0 To 3,If,i-(3-i,)=0 Then,Print Tab(i*3+1);a(i,i);,Spc,(2,一,2*i,）*,3+1);a(i,3,一,i,）,Else,Print Tab(3,一,i,）*,3+1);a(i,3,一,i);Spc,(2*I,一,4)*3+1);a(i,i,）,End If,Next i,End,Sub,上一页,下一页,返回,任务,1 VB,中的数据与运算,4,),数组的整体赋值,可以将已知数组整体赋值给另一个可调数组，并自动确定可调数组的大小。,例如,:,Dim A(3)As String,，,B(),As siring,A(0)=,张三,:A(1)=,李四,:A(2)=,王五,:A(3)=,赵六,B=A,则,B,数组的大小确定为,4,，且顺序与,A,的值相同。,上一页,下一页,返回,任务,1 VB,中的数据与运算,4.,控件数组,1),控件数组的概念,控件数组是具有相同名称、类型以及事件过程的一组控件。,例如，,Label1(0),Label1(1),Label1(2),都是标签控件。每个控件具有一个唯一的索引。当数组中的一个控件识别某一事件时，它将调用此控件数组的相应时间过程，并把相应索引作为参数传递给事件过程。一个控件数组至少应有一个元素，在控件数组中可用到的最大索引值为,32767,。同一控件数组中的元素有自己的属性设置值。,上一页,下一页,返回,任务,1 VB,中的数据与运算,2),控件数组的建立,(1),设计时创建控件数组。在窗体上添加一个新控件，确定控件的类型和控件数组中的第一个控件。设置控件,Name,属性，为其命名。选择下述方法之一创建控件数组。方法一,:,选定控件，单击“复制”按钮，再单击“粘贴”按钮，弹出一个对话框，单击“是”按钮即可。方法二,:,创建一个同类型的新控件，设置新控件,Name,属性时，输入与上面的控件相同的名字，则同样弹出一个对话框，单击“是”按钮即可。直接将创建控件的索引值指定为,0,后按照方法一或方法二创建控件数组中的成员，不会弹出对话框。,上一页,下一页,返回,任务,1 VB,中的数据与运算,(2),运行时添加控件数组。通过,Load,方法向控件数组中添加新成员，并设置,Visible,属性为,True,。,例如,:,单项选择题，如,图,2-2,所示。,Private Sub Command1 Click(),If Oplionl(2)=True Then,Msg.Box,选择正确,!,Else,Msg.Box,选择错误,!,End If,End Sub,Private Sub Option1 Click(Index As Integer),End Sub,参数,Index,选择控件数组的成员。,上一页,返回,任务,2 VB,函数,在,VB 6.0,中，有两类函数,:,内部函数,(,标准函数,),和自定义函数。内部函数是系统提供的，可以直接使用。自定义函数是用户根据自己需要编制生成的。本节只介绍常用内部函数，其他内部函数可以从,VB 6.0,的联机帮助中查找。,2,.2.1,数学函数,数学函数主要用于各种数学运算，,如表,2-7,所示。,下一页,返回,任务,2 VB,函数,2,.2.2,字符串函数,字符串函数主要用于字符串的处理，如,表,2-8,所示。,说明,:,(,1)C,是字符型，,N,是数值型,(N,表示个数，,N1,表示起始位，,M,等于,0,表示区分大小写，,M,等于,1,表示不区分大小写。,(,2),带*号表示,VB 6.0,的新增函数。,例如,:,LCcase,(Hello world,1234),返回,Hello,world 1234,UCcase,(Hello world 1234),返回,HELLO,WORLD 1234,上一页,下一页,返回,任务,2 VB,函数,2,.2.3,转换函数,转换函数主要用于转换。可分类型转换函数和数制转换函数两类。,1.,类型转换函数,类型转换函数主要用来实现不同类型数据之间的转换。可分为强制类型转换函数，,ASCII,码转换函数和直接类型转换函数。,(1),强制类型转换函数，是将一个表达式的数据类型强制转换成要求的数据类型，如,表,2-9,所示。,(2)ASCII,码转换函数，是用于,ASCII,码值和字符之间转换的函数，如,表,2-10,所示。,(3),直接类型转换函数，是实现字符型和数值型之间类型转换的函数，如,表,2-11,所示。,2.,数制转换函数,数制转换函数是将一个数值表达式或字符型表达式转换为八进制或十六进制数值的函数，如,表,2-12,所示。,上一页,下一页,返回,任务,2 VB,函数,2,.2.4,列断函数,判断函数主要用于判断，其结果必为逻辑型数据，如,表,2-13,所,示,。,2,.2.5,其他函数,(,1)Date:,返回系统当前口期。,(,2)Time:,返回系统当前时间。,(3,)Hour:,返回,023,之间的整数，表示一天中的某一钟点。,(,4)Day:,返回,031,之间的整数，表示一个月中的某一日。,(,5)Dir,路径,，属性,):,返回与定义的模式或文件属性相匹配的字符 串。可以使用通配符。,例如,:,Dim,MyFile,MyFile,=Dir(C;windows *.,int,VBHidden,),/,返回指定路径下第一个隐含,.,int,的文件,上一页,返回,任务,3,输入与输出,2.3.1,数据的输入,在,VB 6.0,中，可以采用多种方式实现数据输入。,1.,使用“文本框”进行输入,通过设置属性或从键盘输入数据实现输入。这里主要介绍捕获焦点的问题。,(,1),单击某一文本框,:,欲在某一文本框输入数据，则单击此控件即获得焦点。,(,2),在代码中使用,SetFocus,使某一文本框捕获焦点。,格式,:.,SetFocus,其中,:,为获得焦点的控件。如,text1.,SetFocus,表示在文本框中获得焦点。,(,3),按,Tab,键可以在控件之间移动焦点,:,默认获得焦点的次序为创建控件的次序，且最先获得焦点的控件,TabIndex,属性值为零，其余以此类推,;,也可以通过,TabIndex,的属性改变此次序，将某一控件的该属性值设为零时，其后的依次为,1,2,如果某控件的,TabStop,属性设置为,False,，则用户按,Tab,键后，光标在此处不停留，即跳过该控件移到下一控件。,下一页,返回,任务,3,输入与输出,2.,使用“输入对话框”进行输入,通过,InputBox,函数产生“输入对活框”实现输入。,格式,:,变量,=,InputBox,(,，,，,，,，,，,，,),其中,:,作为消息出现在对话框中。,作为该框的标题出现在标题栏，如缺省，则应用程序名作为标题。,为文本区的内容，如果想改变，则可重新输入作为文本区的内容。文本区的内容作为函数值返回。,上一页,下一页,返回,任务,3,输入与输出,为输入对话框左边与屏幕左边的距离，若省略则对话框在水平方向居中。,为输入对话框上边与屏幕上边的距离，若省略则对话框在屏幕垂直方向距下边大约,1/3,的位置。,用以识别帮助文件，为对话框提供相关的帮助，若有该项则必须提供,。,),由帮助文件的作者为帮助主题的上下文编号。,变量,:,即函数值为字符。,上一页,下一页,返回,任务,3,输入与输出,例如，,f$=,InputBox,(,请输入你的姓名”，“输入框”，,File1,，则在文本区显示,File1,，也可重新输入，如,图,2-3,所示。,代码如下,:,Dim,f As String,f=,InputBox,$(,请输入你的姓名,，输入框,100,100),3,.,使用“消息框”进行选择,通过,MsgBox,、函数产生“消息框”，等待用户单击按钮，进行选择。,格式,:,变量,=,MsgBox,，,，,),其中,:,，,，,和,与,InputBox,中含义完全相同。,用以确定按钮的类型，显示图标的种类和数目，它是,3,个数值的和,:,按钮的类型、显示图标的种类和哪个按钮是默认的“活动按钮”，如,表,2-14,表,2-17,所示。,上一页,下一页,返回,任务,3,输入与输出,例如,:,Private Sub Form Click(),Dim Password As String,Passes Word=,InputBox,(,请输入密码,:,，,提示,),If Passes Word=123 Then,Password=,MsgBox,(,你输入了正确的密码,65,密码核对框,),Print,欢迎使用本系统,!,Else,MsgBox,密码错误,!,End,退出程序,End If,End Sub,其中,:password=,MsgBox,(,你输入了正确的密码,65,密码核对框,);65=1+64+0(,1,表示按钮的类型,64,表示图标的类型,0,表示默认的,活动按钮,),。,上一页,下一页,返回,任务,3,输入与输出,2.3.2,数据的输出,使用,Print,方法实现数据的输出。,格式,:Object.Print,Spc(n,)|,Tab(n,);expression,charpos,其中,:,Object,为窗体、图片框、打印机等对象，表示使用,Print,方法可以在指定的对象中输出数据。,Expression,为待输出的数据,(,数值型或字符型,),。,Charpos,为逗号或分号，指定下一个数据定位在上一个数据之后。如省略，则在下一行输出下一个数据。,Spc(n,),和,Tab(n),为数据定位函数。,上一页,下一页,返回,任务,3,输入与输出,(1)Tab,函数。,格式,:,Tab(n,),功能,:,输出的数据定位到,n,指定的位置，如省略,n,，则在下一行首位置输出,;,如当前位置大于,n,，则在下一行的,n,列输出,;,如,n1,，则默认输出位置为,1;,如,n,大于行宽则输出位置为,n Mod,行宽,),。,例如，,Print Tab(5),6,Tab(4),7,Tab(7),和,，,。,则在第,5,列输出,6,，下一行第,4,列输出,7,，在本行第,7,列输出,9,。,(2)Spc,函数。,格式,:,Spc(n,),功能,:,在下一个数据之前插入,n(032,767),个空格。如,n,小于输出行的宽度，则在当前位置输出,;,如,n,大于输出行的宽度，则输出位置为当前位置,+n Mod,行宽。,上一页,返回,任务,4,程序的流程控制,利用,VB,的集成开发环境开发,VB,应用程序时，主要完成两方面的工作，一方面是进行用户界面的设计，另一方面更重要的是根据不同的事件来编制不同的程序代码以完成预定的功能。,VB,的程序代码与一般的程序设计语言一样，也具有,3,种基本结构,:,顺序结构、分支结构和循环结构。,2.4.1,顺序结构,在,VB 6.0,中，有,3,种结构可以控制程序的流程，分别是顺序结构、分支结构和循环结构。它们是结构化程序设计的基本结构。顺序结构是按照语句的书写顺序执行的结构。它是程序的主体结构。主要包含赋值语句、输入语句和输出语句。,下一页,返回,任务,4,程序的流程控制,Private Sub Forth Click(),Cls,清除图像,ForeColor,=RGB(0,255,0,更改绘图颜色,Print,*,Print,*,*,ForeColor,=RGB(255,0,255),更改绘图颜色,Print,*,*,*,Print,*,*,*,Print,*,*,*,ForeColor,=RGB(0,0,255),更改绘图颜色,上一页,下一页,返回,任务,4,程序的流程控制,Print,*,*,欢迎使用,Visual Basic*,*,Print=RGB(255,0,255),更改绘图颜色,Print,*,*,*,Print,*,*,*,Print,*,*,*,Print=RGB(255,0,255),更改绘图颜色,Print,*,*,Print,*,*,*,End Sub,运行效果如,图,2-4,所示。,上一页,下一页,返回,任务,4,程序的流程控制,2,.4.2,介支结构,分支结构是工具条件的值确定程序走向的结构。在,VB 6.0,中实现分支结构的语句。,有,If,语句、,Case,语句和多分支语句。,1,.If,语句,(,条件,),If,语句有,IfThen,和,IfThen Else,两种形式。,1)if,Then,语句,格式一,:,适合于单行语句。,IfThen,格式二,:,适合于多行语句。,IfThen,End If,上一页,下一页,返回,任务,4,程序的流程控制,其中,