VB程序设计基础VB武科大教学省公共课一等奖全国赛课获奖课件.pptx

VB程序设计基础程序设计基础第三章第三章计算机技术系计算机技术系 张志辉张志辉第1页目标目标数据类型数据类型常量和变量常量和变量 变量作用域变量作用域运算符和表示式运算符和表示式VB惯用内部函数惯用内部函数数据输入输出数据输入输出2 2第2页3.1数据类型数值型字符型布尔型日期型变体型对象型3 3第3页3.1数据类型整型数和长整型数能够表示正整数、负整数和零。整型数和长整型数区分在于占用字节数不一样，可表示数值范围也不一样。一个整数用2个字节来保留，一个长整型用4个字节来保留。4 4第4页单精度型(Single)和双精度型(Double)单精度型数和双精度型数都能够表示带有小数数，表示数范围大单精度数用4个字节来保留，最多能够表示7位有效数字，小数点可位于这些数字任何位置。单精度数可用指数形式来表示,比如:3.83E8(3.83X108)双精度数用8个字节来保留，最多能够表示15位有效数字，小数点可位于这些数字任何位置。双精度数可用指数形式来表示,比如:-3.443035D-13(-3.443035X10-13)5 5第5页S为为100阶乘，阶乘，S为整型还是长整型？为整型还是长整型？123456789.123定义为单精度型还是双精度型定义为单精度型还是双精度型？6 6第6页3.1数据类型货币型数(Currency)是一个专门为处理表示货币数据而设计数据类型。一个货币型数据需要用8个字节保留。保留时，小数点后固定4位数字，小数点前15位数字7 7第7页字符型（String）和布尔型（Boolean）字符型（或称字符串型）指用“”括起来一串字符。比如，”a”,”123”,”汉字”都是有效字符串。字符串中包含字符个数称为字符串长度字符串分为变长字符串和定长字符串 定长字符串：长度不变 变长字符串：长度不固定 注：空字符串()和空格字符串()是有区分，串长不等布尔型（又称逻辑型）只有两种值，分别为True（真）和False（假），惯用于表示逻辑判断结果。布尔型数用2个字节来保留8 8第8页日期型（日期型（DateDate）、对象型）、对象型(Object)(Object)和变体型和变体型(Variant)(Variant)日期型数据用来表示日期和时间，用8个字节来保留。它采取两个”#”符号把日期和时间值括起来。比如：#08/20/#，#-08-20#，#08/20/2:55:10AM#对象型数据可用来表示应用程序中对象变体型数据是一个可变数据类型,能够存放任何类型数据。比如：Temp=“45”Temp=Temp-2Temp=#01/01/#Temp类型随赋值类型不一样而不一样,其类型转换由VB自动完成9 9第9页3.2常量和变量常量是指在程序运行期间其值是不发生改变量，而变量是指在程序运行期间其值能够发生改变量，它代表内存中指定存放单元VisualBasic常量普通常量普通常量符号常量符号常量1010第10页1.普通常量 普通常量是在程序代码中直接给出数据，这类常量可从字面形式上直接分辨其类型。如：-9、3、0等都是整型常量，3.14、-2.7、123.456等都是实型常量，“abc”、“123”、“汉字”等都为字符串常量普通常量普通常量整型常量整型常量实型常量实型常量字符串常量字符串常量逻辑型常量逻辑型常量 日期型常量日期型常量1111第11页十进制整数十进制整数 由带有正号由带有正号(可省略可省略)或负号或负号一个或几个十进制数字一个或几个十进制数字(09)组成。比如组成。比如-624，436，+256等等十六进制整数十六进制整数 以以&H(或或&h)开开头头，后后跟跟一一个个或或几几个个十十六六进进制制数数字字(09及及AF或或af)组组成成。比比如如&H1A，&H32等等八进制整数八进制整数 以以&O(或或&o)开头，后跟一开头，后跟一个或几个八进制数字个或几个八进制数字(07)组成。比如组成。比如&O354，&O12001212第12页Visual Basic能自动判断常量类型能自动判断常量类型 比比如如，在在默默认认情情况况下下，Visual Basic将将选选择择需需要要内内存存容容量量最最小小表表示示方方法法，值值3.14通通常常被被作作为为单单精精度度数数处处理理。为为了了显显式式地地指指明明常常数数类类型型，能能够够在在常常数数后后面面加加上上类类型型说说明明符符。这些说明符分别为：。这些说明符分别为：整型；整型；&长整型；长整型；!单精度浮点数；单精度浮点数；#双精度浮点数；双精度浮点数；货币型；货币型；字符串型。字符串型。字节、布尔、日期、对象及变体类型没有类型说明符。字节、布尔、日期、对象及变体类型没有类型说明符。1313第13页2.符号常量符号常量 在在进进行行Visual Basic程程序序设设计计时时，经经常常碰碰到到某某个个常常量量在在程程序序中中屡屡次次使使用用情情形形。此此时时，可可经经过过设设置置符符号号常常量量方方法法处处理理。定定义义了了符符号号常常量量后后，凡凡程程序序中中使使用用到到该该常常量量地地方方，都都用用对对应应符符号号常常量量来来代代替替，这这么么不不但但书书写写方方便便，而而且且在在提提升升程序可读性程序可读性同时，增强了程序同时，增强了程序可维护性可维护性 Visual Basic中使用关键字中使用关键字Const定义符号常量。普通定义符号常量。普通格式为：格式为：Public|PrivateConst 常量名常量名As数据类型数据类型表示式表示式比如：比如：Const Pi=3.14159,TwoPi=2*Pi Const MAX As Integer=2551414第14页其中：“常量名”是一个名字，其组成规则与变量相同关键字As是可选，用它来定义常量数据类型。常量数据类型能够是数值型、日期型、字符串型、逻辑型等“表示式”是必选，由普通常量、其它符号常量和算术运算符(指数运算符除外)、逻辑运算符组成，也能够是字符串，但不能使用含字符串连接运算符(+或&)字符串表示式、变量及用户定义函数或内部函数1515第15页系统常量 系统常量是系统内部定义符号常量存放于系统对象库中，可在“对象浏览器”中VisualBasic和VisualBasicforApplications(VBA)对象库中找到，这类常量用户随时能够使用，其前缀是“vb”。比如：vbblack、vbred等都是系统常量1616第16页3.2.2变量变量用来存放程序执行过程中可能发生改变数据变量都有名字。在VisualBasic中，给变量命名时应遵照以下规则：(1)变量名只能由字母、数字和下划线组成。且它第一个字符必须是英文字母或汉字，最终一个字符能够是类型说明符(2)变量名最大有效长度为255个字符，且不区分变量名中字母大小写，如Num，NUM，num指都是同一个名字(3)不得用VisualBasic保留字作为变量名。比如，变量Print是非法(4)命名变量名尽可能做到“见名知义”，且在作用域内必须是惟一在VisualBasic中，变量名以及过程名、符号常量名、统计类型名等都称为名字，它们名称统称为“标识符”，它们都必须遵照上述规则1717第17页变量申明定义词变量名As数据类型,变量名As数据类型“定定义义词词”能能够够是是关关键键字字Dim，Public，Static，Private；“As”是是关关键键字字，可可选选；“类类型型”能能够够是是Visual Basic中一切数据类型中一切数据类型说明：说明：1)用一个用一个Dim语句申明一个变量后，语句申明一个变量后，VB系统会自动为系统会自动为该变量赋初值该变量赋初值2)若变量未定义数据类型若变量未定义数据类型,则该变量默认为变体类型则该变量默认为变体类型注意：注意：1818第18页变量与内存每一个变量有名字，类型，大小和值每一个变量有名字，类型，大小和值 变量名对应于它在内存中位置变量名对应于它在内存中位置当一个新值被放进变量时，它将替换掉以前值当一个新值被放进变量时，它将替换掉以前值从内存中读取变量值不会改变它从内存中读取变量值不会改变它A visual representation 变量与内存23X%=232BytesFF02RAMx=9090 print x以新代旧以新代旧1919第19页比如比如:Dim total As IntegerDim sum As DoubleDim myname As String*4Dim varname As StringDim addDim a As Integer,b As Integer,c As SingleDim a%,b%,c!变量申明2020第20页隐式申明1）VB允许不加申明就直接使用变量，此时VB会自动创建所用变量，默认变量类型为变体类型(Variant)2）在为其赋值之前，该变量值是Empty；当为它赋值后，该变量类型为所赋值类型显式申明1）采取Dim，Public，Private或Static等语句申明变量，称为显式申明变量2）若要强制进行变量申明，可在窗体模块、标准模块申明段中添加以下语句：OptionExplicit变量申明2121第21页变量作用域变量作用范围变量作用范围可分为：过程级和模块级过程级变量过程级变量模块级变量模块级变量 公用变量公用变量 2222第22页过程级变量过程级变量指在过程中申明变量，也称为局部变量。局部变量只能在申明它过程中使用在过程中可用Dim或Static申明局部变量，语法格式以下：Dim 变量名称变量名称 As 类型类型Static变量名称变量名称 As 类型类型2323第23页模块级变量默认情况下，模块级变量可在该模块全部过程中使用，但不能在其它模块中使用。可在模块顶部申明段用Dim或Private关键字申明模块级变量2424第24页公用变量公用变量也可称全局变量，它在工程中全部模块中都能够使用。可在模块顶部申明段用Public关键字申明全局变量Public用来在标准模块中申明变量，不能在过程中使用假如在窗体中定义了全局变量，在其它窗体或模块中能够用“(该全局变量所在)窗体名.变量名”形式来访问此全局变量。全局变量作用域最大2525第25页3.3运算符和表示式VisualBasic中有四类运算符，如算术运算符、关系运算符、连接运算符和逻辑运算符。参加运算数据称为操作数算术运算符与算术表示式算术运算符与算术表示式连接运算符连接运算符关系运算符与关系表示式关系运算符与关系表示式 逻辑运算符与逻辑表示式逻辑运算符与逻辑表示式 运算符优先级运算符优先级 2626第26页算术运算符与算术表示式算术运算符 Visual Basic中算术运算及运算符号，与中算术运算及运算符号，与数学中对应运算基本相同数学中对应运算基本相同算术表示式 算术表示式是由各种算术运算符和操作算术表示式是由各种算术运算符和操作数组成式子数组成式子2727第27页连接运算符“+”和“&”都可作为字符串连接运算符，把两个字符串直接连接成一个字符串1000+234结果为结果为12341000+234 结果为结果为1000234ABC+234 犯错犯错1000&234结果为结果为10002341000&234 结果为结果为1000234ABC&234 结果为结果为ABC234ABC&234 结果为结果为ABC23433&22 结果为结果为“3322”在在做做字字符符串串连连接接运运算算时时，用用“&”要要比比用用“”更更安安全。全。2828第28页“&”和“+”在使用方法上也是有区分：“&”运算符用来强制将其两侧表达式作为字符连接，也就是说，该运算符两个操作数既可认为字符型也可认为数值型，当是数值型时，系统自动将其转换为数字字符，然后进行连接操作。而“+”运算符是当两个操作数为字符串数据时，才能将两个字符串连接成一个新字符串。否则，两个操作数若其中一个为数字字符串，另一个为数值型数据，则系统自动将数字字符串转化为数值，然后进行加法运算；若其中一个为非数字字符串，另一个为数值型数据，则出错。2929第29页关系运算符与关系表示式关系运算符 关系运算符也称为比较运算符，用来对两个数据类型相同或相容表示式进行大小、等与不等比较关系表示式 关系运算表示式值为True（真）或False（假），主要用于逻辑判断3030第30页逻辑运算符与逻辑表示式逻辑运算符也称布尔运算符，用于对两个逻辑值进行逻辑运算，其结果仍为逻辑值，即True或False3131第31页运算符优先级各种不一样类型运算符间计算优先级从高到低排列以下：算术运算连接运算关系运算逻辑运算算术运算符优先次序按从高到低排列以下：括号乘方（）取负（-）乘法（*）和除法（/）整除（）求模运算（Mod）加减法（+、-）全部比较运算符优先级相同逻辑运算优先次序从高到低排列以下：NotAndOrXor3232第32页已知已知a=2,b=3,c=4,d=5，那么表示式，那么表示式Not a=c Or 4*c=b2 And ba+c值为值为 。(False)Print “5*20”结果是结果是表示式表示式-22+435值是。值是。4表示表示X能被能被2和和5整除数表示式整除数表示式-表示式表示式#4/14/#+5 值是值是 。表示式表示式4+5 4*9/8 Mod 3值是值是 。53333第33页3.4VB惯用内部函数VisualBasic提供了大量内部函数。在这些函数中，有些是通用，有些则与某种操作相关。标准函数按其功效和用途，能够分为数学函数、转换函数、字符串函数、时间和日期函数、格式函数和测试函数等数学函数数学函数类型转换函数类型转换函数 日期时间函数日期时间函数 字符串处理函数字符串处理函数 3434第34页数学函数数学函数用于各种数学运算，包含三角函数、绝对值函数、平方根函数、对数函数，指数函数等。该类函数参数和返回值都是数值型。常见数学函数见表3-4。3535第35页表表3-4 常见数学函数常见数学函数 函数名及调用格式函数名及调用格式功功 能能返回值类型返回值类型Sin(x)Sin(x)正弦函数正弦函数DoubleDoubleCos(x)Cos(x)余弦函数余弦函数DoubleDoubleTan(x)Tan(x)正切函数正切函数DoubleDoubleAtn(x)Atn(x)反正切函数反正切函数DoubleDoubleAbs(x)Abs(x)取绝对值取绝对值与与x x同型同型Sgn(x)Sgn(x)符号函数符号函数IntegerIntegerSqrt(x)Sqrt(x)平方根函数平方根函数(x(x必须大于等于必须大于等于0)0)DoubleDoubleExp(x)Exp(x)以以e e为底指数函数，即为底指数函数，即e ex xDoubleDoubleLog(x)Log(x)以以e e为底自然对数函数为底自然对数函数DoubleDoubleRnd(x)Rnd(x)产生产生0 01(1(包含包含0 0但不包含但不包含1)1)之间随机数之间随机数DoubleDouble3636第36页说明：说明：(1)(1)三三角角函函数数自自变变量量是是以以弧弧度度为为单单位位。比比如如：Sin45Sin45应应写写成成：Sin(45*3.14159/180)Sin(45*3.14159/180)。角角度度转转换换为为弧弧度度计计算算公公式为：式为：11/180/1803.141 59/180(3.141 59/180(弧度弧度)(2)(2)符符号号函函数数Sgn(x)Sgn(x)，依依据据x x值值返返回回一一个个整整数数。即即当当x0 x0时时，返回返回1 1；当；当x=0 x=0时，返回时，返回0 0；当；当x0 x0)或负号(x0)，小数点后0将去掉。比如：Str(123)结果为”123”Str(-123.45)结果为”-123.45”Str(-123.450000)结果为”-123.45”字符串函数字符串函数在计算机各种应用中，有大量文字处理操作，如字符串查找、比较、截取等。VisualBasic提供了大量字符串函数，给编程中字符处理带来了极大方便。字符串函数见表3-5。4141第41页函数名及调用格式函数名及调用格式功功 能能LTrim(x)取掉字符串左面空格取掉字符串左面空格RTrim(x)取掉字符串右面空格取掉字符串右面空格Trim(x)取掉字符串两边空格取掉字符串两边空格Left(x，n)取字符串取字符串x最左边最左边n个字符个字符Right(x，n)取字符串取字符串x最右边最右边n个字符个字符Mid(x，n，m)从字符串从字符串x第第n个字符开始，向后取个字符开始，向后取m个字符。个字符。String(n，x)或或String(n，m)返返回回由由字字符符串串x第第一一个个字字符符或或ASCII码码值值为为m对对应字符组成应字符组成n个相同字符组成字符串个相同字符组成字符串Space(n)产生由产生由n个空格组成字符串个空格组成字符串表3-5字符串函数4242第42页Lcase(x)转成小写Ucase(x)转成大写Len(x)返回字符串返回字符串x长度长度InStr(f，x1，x2，k)求字符串求字符串x2在字符串在字符串x1中最中最早出现位置早出现位置说明：说明：(1)Mid(x，n，m)函函数数中中参参数数m省省略略时时，其其返返回回值值为为由由n指指定定位位置置开开始全部字符串。假如始全部字符串。假如n值大于字符串长度，则返回值为空串。值大于字符串长度，则返回值为空串。注意：注意：该函数还有一特殊用途，即该函数还有一特殊用途，即 Mid(x，n，m)=子字符串子字符串其作用是把其作用是把x中从第中从第n个字符开始字符用个字符开始字符用“子字符串子字符串”替换。假如含有替换。假如含有m参数，则替换内容是参数，则替换内容是“子字符串子字符串”左边左边m个字符。个字符。(2)InStr(f，x1，x2，k)函函数数中中，f用用来来设设定定每每次次检检索索起起点点，当当f为为1时时可可省省略略。参参数数k是是一一整整型型数数，用用来来指指定定字字符符串串比比较较方方法法，当当k为为0（默认），表示区分大小写；若（默认），表示区分大小写；若k为为1，则不区分大小写。，则不区分大小写。4343第43页日期、时间函数日期、时间函数 Visual Visual BasicBasic提提供供了了丰丰富富日日期期、时时间间函函数数，利利用用这这些些函函数数能能够够提提取取系系统统日日期期、时时间间。可可截截取取年年、月月、日日、时时、分分、秒秒，还还可可进进行行日日期期和时间计算。日期函数见表和时间计算。日期函数见表3-63-6。表表3-6 3-6 日期函数日期函数函数名及调用格式函数名及调用格式功功 能能返回值类型返回值类型Date返回当前系统日期返回当前系统日期DateYear(date)返回年份返回年份IntegerMonth(date)返回月份返回月份Integer4444第44页Day(date)返回日数Integernow返回计算机系统当前日期返回计算机系统当前日期和时间值和时间值DateTime返回系统当前时间返回系统当前时间DateHour(time)返回指定时间小时数返回指定时间小时数IntegerMinute(time)返回指定时间分钟数返回指定时间分钟数IntegerSecond(time)返回指定时间秒数返回指定时间秒数IntegerWeekday(date,firstdayofweek)返回指定日期星期代号，返回指定日期星期代号，星期日为星期日为1Integer4545第45页Private Sub Form_Click()x=#5/1/#a=x-Date b=Weekday(x)c=Year(Date)d=Month(Date)e=Hour(Time)f=Minute(Time)Print 现在距离世博会开幕还有：;a;天 Print 世博会开幕是：星期;b-1 Print 本月份是：;c;年;d;月 Print 现在是：;e;时;f;分End Sub4646第46页函数函数Int(Rnd*10)产生随机数范围是。产生随机数范围是。表示式表示式Fix(21.5)*2+10 Mod 7 3值是值是 。LEN（Left（“Visual basic”，6）函数值）函数值 4747第47页格式输出函数格式输出函数(1)格式输出函数Format能够用来指定数值、字符串、日期、时间等数据输出格式，广泛用于程序设计中数据输出控制。其基本格式以下：Format(expression,format)说明：说明：该该 函函 数数 基基 本本 功功 效效 是是 按按 参参 数数“format”指指 定定 格格 式式 输输 出出“expression”值。其中，各个参数含义以下：值。其中，各个参数含义以下：expressionexpression参数，必选项。能够是任何有效表示式。参数，必选项。能够是任何有效表示式。formatformat参数，可选项，能够是有效命名表示式或用户自定参数，可选项，能够是有效命名表示式或用户自定义格式表示式，用来要求义格式表示式，用来要求FormatFormat函数返回值格式。数据项函数返回值格式。数据项显示格式显示格式(包含显示区段长度包含显示区段长度)就是由这些格式字符决定。就是由这些格式字符决定。4848第48页(2)Spc函数格式：Spc(n)功效：在输出项之间输出n个空格比如：Print 学号；Spc(2)；姓名；Spc(5)；成绩 输出结果(表示空格)：学号姓名成绩(格式输出函数格式输出函数 4949第49页格式输出函数格式输出函数3)Tab函数格式：Tab(n)功效：指定输出项在输出行位置比如：Print Tab(2);学号；Tab(11);姓名；Tab(21);成绩 输出结果(1个汉字占2个位置)：学号姓名成绩5050第50页Private Sub Form_Click()Print Print Tab(15);学号;Tab(26);姓名;Tab(36);成绩 Print Tab(14);String(27,-)输出27个减号字符“-”Print Tab(14);1001;Tab(26);张小三;Tab(36);57 Print Tab(14);1003;Tab(26);李小四;Tab(36);69 Print Tab(14);1012;Tab(26);马小五;Tab(36);92 Print Tab(14);String(27,-)输出27个减号字符“-”End Sub5151第51页3.5数据输入输出赋值语句赋值语句普通形式以下:Var=使用赋值语句还能够获取一个对象返回当前属性值:Var=对象.属性值属性也存在数据类型,所以在获取对象属性值时,最好使用含有相同数据类型变量5252第52页 1.1.使用InputBox()函数 格式：变量=InputBox$(提醒,标题,默认,x坐标,y坐标）功效：打开一个对话框，等候用户键入内容。当用户单击“确定”按钮或按回车键时，函数返回输入值，其值类型为字符串。先看下面例子。例3.1 经过输入框输入姓名，然后在消息框中显示出来 Private Sub Form_click()dim name as string dim age as integer name=InputBox(输入您姓名”)age=InputBox(“请输入您年纪”)End Sub5353第53页说明：说明：“$”：可可选选项项。有有此此项项时时，返返回回数数据据类类型型是是字字符符串串型型；省省略略此项，返回数据类型是变体型。此项，返回数据类型是变体型。“提提醒醒信信息息”：字字符符串串表表示示式式，必必选选项项。在在对对话话框框中中作作为为提提醒醒信信息息，能能够够是是字字符符或或汉汉字字，最最大大长长度度为为1024个个字字符符，由由所所用用字字符符宽宽度度决决定定。假假如如提提醒醒信信息息包包含含多多行行，则则必必须须在在每每行行末末用用回回 车车 符符 Chr(13)、换换 行行 符符 Chr(10)或或 回回 车车 换换 行行 符符 组组 合合Chr(13)&Chr(10)来分隔。来分隔。“标标题题”：可可选选项项。显显示示在在对对话话框框标标题题栏栏中中字字符符串串表表示示式式。假如省略，则把应用程序名放在标题栏中。假如省略，则把应用程序名放在标题栏中。5454第54页 “默默认认”：可可选选项项，显显示示文文本本框框中中字字符符串串表表示示式式。当当在在输输入入对对话话框框中中无无输输入入内内容容时时，该该缺缺省省值值作作为为输输入入内内容容。假假如如省省略略，则文本框为空。则文本框为空。“X”：可可选选项项，整整型型表表示示式式，成成对对出出现现。X坐坐标标用用来来指指定定对对话话框框左左边边与与屏屏幕幕左左边边水水平平距距离离，Y坐坐标标用用来来指指定定对对话话框框上上边边与与屏屏幕幕上上边边垂垂直直距距离离。假假如如省省略略该该项项，则则对对话话框在水平方向居中，在垂直方向距下边大约三分之一位置。框在水平方向居中，在垂直方向距下边大约三分之一位置。注意：注意：函数中各项参数次序必须一一对应，除了函数中各项参数次序必须一一对应，除了“提醒提醒”一一项不能省略外，其余各项均为可选项，假如要省略一些参数，项不能省略外，其余各项均为可选项，假如要省略一些参数，则必须加入对应逗号分隔符。则必须加入对应逗号分隔符。5555第55页 坐标原点(0,0)在窗体左上角 坐标轴刻度单位为缇(Twip,567缇为1厘米)当前位置横坐标(CurrentX)和纵坐标(CurrentY)YX (CurrentX,CurrentY)当前位置当前位置窗体坐标系统5656第56页 例:filename$=InputBox(“请输入文件名(不超出8个字符)”，”文件名”，”vbfile”)将产生一个以下对话框:输入对话框5757第57页MsgBox函数格式：Var=MsgBox(prompt,button,title)例子：例子：Private Sub Form_Click()msg1$=要继续吗要继续吗?msg2$=Operation Dialog Box r=MsgBox(msg1$,34,msg2$)Print rEnd Sub5858第58页 MsgBox函数也能够写成语句形式，惯用于较简单信息显示。比如：MsgBox“工程保留成功工程保留成功”执行结果为：执行结果为：5959第59页第60页