vb-03VB数据类型、运算符与表达式.ppt

上节课重要内容,语句的构成及注意事项复合语句行（：）续行符（_）赋值语句（【let】目标操作符=源操作符）注释语句（Rem注释内容或注释内容）结束语句（End）命令按钮的属性、事件及方法的应用属性：DefaultCancelStyleValue方法：SetFocus事件：Click,第三章VB程序设计基础,VB应用程序包括两部分，即用户界面和程序代码。其中用户界面由窗体和控件组成，而程序代码则由基本的程序元素组成，包括数据类型、常量、变量、内部函数、运算符和表达式等。3.1数据类型3.2常量和变量3.3常用函数3.4运算符与表达式,3.1基本数据类型,数据是程序的必要组成部分，也是程序处理的对象。在高级语言中广泛使用“数据类型”这一概念。VB提供了系统定义的数据类型，并允许用户根据需要定义自己的数据类型。,基本数据类型：字符串型数据、数值型数据、字节、货币、对象、日期、布尔和变体数据类型。,（1）字符串（String）型数据字符串是一个字符序列，由ASCII字符组成，包括标准的ASCII字符和扩展ASCII字符。在VB中，字符串是放在双引号内的若干个字符，其中长度为0（即不含任何字符）的字符串称为空字符串。字符串通常放在双引号中，但输出时不显示双引号。例如：“Hello”“vb6.0程序设计”“”（空字符串）,Vb中的字符串分为两种，即变长字符串和定长字符串。变长字符串的长度是不确定的，从0-2的31次幂定长字符串是含有确定个数的字符，最大长度不超过2的16次幂,在VB中，String数据有可变长度字符型和固定长度字符型两类。例如：DimxasStringDimyasString*8在上面的变量声明中，变量x被声明为可变长度字符型；而变量y被声明为固定长度字符型，其长度为8个字符。注意：VB对其语法的大小写没有区别，但在字符串中，VB对大小写是有区别的，如果想忽视字符串大小写的区别，可以在窗体和标准模块的“通用”代码段中加上Optioncomparetext语句。例如：Optioncomparetextx=aaa:y=aAA这两个字符串的值相同，如果去掉Optioncomparetext，则两字符串的值不同。,整数（Integer）：以两个字节（16位）的二进制码表示和参加运算，其取值范围为：-32768-32767十进制整数只能包含数字09和正负号（正号可以省略），其取值范围为-3276832767。十六进制整数由数字09、字母AF（或af）组成，并以CInt(4.5);CInt(4.6);Int(5.3)PrintCCur(3.55678);CCur(5.34454)PrintCLng(3.5);CLng(4.5);CInt(4.6);CInt(5.3)EndSub,数学函数(注意：这里的三角函数中的x为弧度),PrivateSubCommand1_Click()PrintSin(7.6)PrintCos(7.8)PrintTan(0.45)PrintAtn(1.3)PrintAbs(-5);Abs(5)PrintSgn(-5);Sgn(5);Sgn(0)PrintSqr(4)PrintExp(4)EndSub,例：请编制程序，打印下列函数结果，自变量的值自己设置一个数据。,随机函数：,Rnd(x):当x0时，序列中的下一个随机数，上一个产生的随机数为下一个随机数的种子。,当一个应用程序不断地重复使用随机数时，同一序列的随机数会反复出现，用Randomize语句可以消除这种情况。,格式：RandomizenumberRandomize用number将Rnd函数的随机数生成器初始化，该随机数生成器给number一个新的种子值。如果省略number，则用系统计时器返回的值作为新的种子值。,例：使用rnd函数随机生成一个1到6的随机整数。,PrivateSubCommand1_Click()Dimmyvaluemyvalue=Int(6*Rnd)+1)PrintmyvalueEndSub,公式：Int(upper-lower+1)*Rnd+lower),日期函数：,例：请编制程序，打印下列函数结果，自变量的值自己设置一个数据。,PrivateSubCommand1_Click()PrintDay(Now)PrintWeekday(Now)PrintMonth(Now)PrintYear(Now)PrintNowEndSub,注意：日期和时间函数的自变量now是一个内部变量，不需要用户定义，用它作自变量，可以用日期和时间函数返回当前系统的日期和时间。,时间函数：,例：请编制程序，打印下列函数结果，自变量的值自己设置一个数据。,PrivateSubCommand1_Click()PrintHour(Now)PrintMinute(Now)PrintSecond(Now)PrintNowEndSub,字符串函数,1、删除空白字符串函数去掉字符串左边空白字符：LTrim$(字符串)去掉字符串右边空白字符：RTrim$(字符串)去掉字符串左边空白字符：Trim$(字符串)空白字符包括空格、TAB键等。,例：使用函数。查看运行结果,PrivateSubCommand1_Click()aaa1=aaaaabbb1=bbbbbccc1=cccccPrint|+LTrim(aaa1)+|+LTrim(bbb1)+|+LTrim(ccc1)+|Print|+RTrim(aaa1)+|+RTrim(bbb1)+|+RTrim(ccc1)+|Print|+Trim(aaa1)+|+Trim(bbb1)+|+Trim(ccc1)+|EndSub,2、字符串截取函数,左部截取：Left$(字符串,n)从左部开始取n个字符右部截取：Right$(字符串,n)从右部取n个字符中部截取：Mid$(字符串,p,n)从左部开始的第p个字符，取连续n个字符这里的字符串可以是字符串常量、字符串变量、字符串函数或是字符串连接表达式。Mid$函数的第三个字变量可以省略。在这种情况下，将从第二个字变量指定的位置向后截取到字符串的末尾。,例：使用函数，查看运行结果,PrivateSubCommand1_Click()MyString=MidFunctionDemoFirstWord=Left(MyString,3)返回Mid。LastWord=Right(MyString,4)返回Demo。MidWords=Mid(MyString,5)返回FuncionDemo。PrintFirstWord,LastWord,MidWordsEndSub,3、字符串长度测试函数,Len(字符串):字符串的长度。Lenb(变量名):变量的存储空间。,例：使用函数。查看运行结果。,PrivateSubCommand1_Click()a$=ABCDEFGHIJKPrintLen(a$)a=Len(var1%)b=Len(var2!)c=Len(var3#)Printa,b,cEndSub,4、String$函数String$(n,ASCII码值):返回由该ASCII码指定的字符组成的n个字符的字符串String$(n,字符串):返回由该字符串的第一个字符组成n个字符的字符串,PrivateSubCommand1_Click()PrintString$(6,65)返回字符串AAAAAAPrintString$(3,chyufdgxd)返回字符串cccEndSub,例：使用函数。查看运行结果。,5、空格函数,Space$(n):返回由n个空格组成的字符串例：使用函数。查看运行结果。,PrivateSubCommand1_Click()Printstart+Space(3)+END返回字符串startENDPrintstart+123+END“返回字符串start123ENDEndSub,6、字符串匹配函数,Instr$(首字符位置,字符串1,字符串2,n)查找字符串2的第一个字符在字符串1中首次出现的位置。说明：字符串2的长度必须小于65535个字符。“首字符位置”指的是开始查找的位置。n是可选的，是一个整型数，用来指定字符串比较方式。n为0，二进制比较（区分大小写）；n为1，文本方式比较（不区分大小写）；n为2，数据库信息比较（仅用于MicrosoftAccess）。当变量n省略时，用区分大小写方式比较。,Instr的返回值是一个长整型数，在不同的条件下，函数的返回值也不一样。,PrivateSubCommand1_Click()DimSearchString,SearchChar,MyPosSearchString=XXpXXpXXPXXP被搜索的字符串。SearchChar=P要查找字符串“P”。从第四个字符开始，以文本比较的方式找起。返回值为6（小写p）。小写p和大写P在文本比较下是一样的。MyPos=InStr(4,SearchString,SearchChar,1)PrintMyPos从第一个字符开始，以二进制比较的方式找起。返回值为9（大写P）。小写p和大写P在二进制比较下是不一样的。MyPos=InStr(1,SearchString,SearchChar,0)PrintMyPos缺省的比对方式为二进制比较（最后一个参数可省略）。MyPos1=InStr(SearchString,SearchChar)返回9。mypos2=InStr(1,SearchString,W)返回0。PrintMyPos1,mypos2EndSub,7、字母大小写转换函数Ucase$(字符串)：将字符串转换为大写Lcase$(字符串)：将字符串转换为小写例：使用函数。查看运行结果。,PrivateSubCommand1_Click()PrintUCase$(Rose)返回字符串ROSEPrintLCase$(Rose)返回字符串roseEndSub,插入字符串语句Mid$（补）,Mid$(字符串,位置,L)=子字符串说明:在字符串中,从指定位置开始L个字符被子字符串替换,如果子字符串长度大于L,子字符串被截取；如果L没有，则替换后的字符串长度和被替换前的字符串长度一样。,PrivateSubCommand1_Click()DimMyStringMyString=Thedogjumps设置字符串初值。Mid(MyString,5,3)=foxPrintMyStringMyString=ThefoxjumpsMid(MyString,5)=cowPrintMyStringMyString=ThecowjumpsMid(MyString,5)=cowjumpedoverPrintMyStringMyString=ThecowjumpeMid(MyString,5,3)=duckPrintMyStringMyString=TheducjumpeEndSub,例：使用函数。查看运行结果。,判断函数（函数的返回值为true或者false）（补）,1、IsNumeric()/判断表达式是否为数字型2、IsEmpty()/判断变量是否已被初始化3、IsDate()/判断表达式是否为日期4、IsArray()/判断变量是否为数组,Shell函数,通过shell函数来调用DOS下或Windows下运行的任何可执行的程序。格式：shell（命令字符串，窗口类型）命令字符串是包含路径的可执行的应用程序的名字例如：,PrivateSubCommand1_Click()Rem用shell函数调用金山词霸,语句如下:TaskID=Shell(c:ProgramFilesKingsoftXDICT.E_XE,vbMinimizedNoFocus)EndSub,窗口类型命名参数有以下这些值：常量值描述vbHide0窗口被隐藏，且焦点会移到隐式窗口。VbNormalFocus1窗口具有焦点，且会还原到它原来大小和位置。VbMinimizedFocus2窗口以一个具有焦点的图标来显示。VbMaximizedFocus3窗口是一个具有焦点的最大化窗口。VbNormalNoFocus4窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。VbMinimizedNoFocus6窗口会以一个图标来显示,而当前活动的的窗口仍然保持活动。,3.4运算符和表达式,运算形式通过一些简单的符号来描述，这些符号称为运算符。被运算的对象称为操作数或运算量。运算量可以是常量、变量、函数等。由运算符和运算量组成的表达式描述了对哪些数据、以何种顺序进行什么样的操作。,算术运算符（VB算术运算符：优先级从上至下）,幂运算,幂运算用来计算乘方和方根。运算符为。例如：102表示10的2次幂250.5表示25的平方根8（1/3）表示8的立方根注意：当指数是一个表达式时，必须加上括号。例如：x(z+y),浮点数除法与整数除法,浮点数除法运算符（/）执行标准除法操作，其结果为浮点数。例如，表达式3/2的结果为1.5整数除法运算符（）执行整除运算，结果为整型值，不舍入。例如，表达式32的结果为1整除的操作数一般为整型值。当操作数带有小数时，首先被四舍五入为整型数，然后进行整除运算，运算结果不舍入。例如：25.636.78的结果为3,取模运算,取模运算符Mod用来求余数，其结果为第一个操作数整除第二个操作数所得的余数。例如：7Mod4的结果为325.68Mod6.99的结果为5（先进行四舍五入变为26和7，再取模）,例：查看运行结果。,PrivateSubCommand1_Click()a=35b=12c$=ssssd$=qqqPrinta+b,a-b,a*b,a/bPrintab,aModb,b2,2*-aPrintc+d,c&dEndSub,关系运算符,也称比较运算符，用来对两个表达式的值进行比较，比较的结果是一个逻辑值，即真（True）或假（False）。VB提供了8个关系运算符。,PrivateSubCommand1_Click()c$=“2001181101”IfLeft(c$,4)=“2001”ThenPrint“是2001级的学生”n1$=“王军”Ifn1$Like“王*”ThenPrint“是姓王的学生”对ElsePrint“不是姓王的学生”EndIfn2$=“王军红”Ifn2$Like“王?”ThenPrint“是姓王的学生”ElsePrint“不是姓王的学生”对EndIfEndSub,逻辑运算符,也称布尔运算。用逻辑运算符连接两个或多个关系式，组成一个布尔表达式。有6种逻辑运算符。,VB逻辑运算符：优先级从上至下,逻辑运算表：-1为真，0为假,例：查看运行结果。,PrivateSubCommand1_Click()a=1:b=2c=3:d=4PrintabAndcdPrintadPrintNotadPrintadPrintadEndSub,字符串运算符：,字符串运算符有两个：“&”和“+”，它们都是二元运算符。当运算符连接的两个表达式都是字符串时，它们的作用是一样的，即将两个字符串首尾相连。下面的示例使用“&”和“+”运算符将