VB语言基础.ppt

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,第三章,VB,语言基础,3.1,编码规则,3.2,数据类型,3.3,变量与常量,3.4,运算符和表达式,3.5,常用函数,3.6,常见错误,3.1,编码规则,1.VB,代码不区分字母的大小写,系统保留字自动转换每个单词的首字母大写；,用户自定义以第一次为准。,2.,语句书写自由,一行可书写几句语句,之间用,冒号,分隔；,如：,A=1,：,B=2,：,C=3,A=1,：,B=1,：,C=1,一条语句可分若干行书写，用续行符,（空格,_,）,连接，一行,=255,个字符。,3.,注释有利于程序的维护和调试,Rem,开始 或 单撇号,3.2,数 据 类 型,标准数据类型,数据类型,关键字,举例,短整型（,2,）,Integer,123,-123,123,长整型（,3,）,Long,123,&,-1234567,单精度（,4,）,Single,1230.0,1.23E3,双精度（,5,）,Double,1230.0,1.230D3,货币型（,6,）,Currency,123.0,字符型（,8,）,String,VB,程序设计,逻辑型（,11,）,Boolean,True,False,日期型（,7,）,Date,#03/02/2004#,#10:30#,变体型,Variant,对象型,Object,字节型17,）,Byte,数值型数据,整型,(Integer),整型数据用来表示不带小数点的数值。如：,10,、,+256,、,0,、,-68,整型数,也可以用十六进制数表示，以,&H,开头，数据位数不超过,4,位，范围为,&HO,&HFFFF,，,如：,&H64,表示十进制数,100,，,&HA6,表示十进制数,166,。,长整型,(Long),与整型类似，但取值范围比整型数大。,整型或长整型数据的运算速度较快，而且比其它数据类型占据的内存要少。,字节型,(Byte),可用来表示无符号的整数，不能表示负数。除一元减法外，所有可对整数进行操作的运算符均可操作,Byte,数据类型。,Byte,数据类型在存储二进制数据时很有用。,数值型数据,单精度浮点型,(Single),浮点型数据用来表示一个实数，小数点可以放在数字的任何位置。,单精度数的最大有效位数为,7,，超过,7,位时，四舍五入。如：,-4.5,、,12.3,、,+12.34,、,0.0069,、,-31.24683,双精度浮点型,(Double),双精度数比单精度数的取值范围大，最大有效位数为,15,。如：,-123456789012345,、,0.98765432101234,、,1234567890.12345,货币型,(Currency),货币型数据可表示,15,位整数和,4,位小数，是一个定点数据类型（小数点位置固定）适用于货币计算。其精度高于单精度和双精度浮点数,。,字符型数据,字符型数据,(String),是用双引号（”）括起来的一串字符，包括汉字、字母、数字、符号等，如：,Visual Basic,、,教学管理系统,V1.0,、,123456789“,字符串的类型,变长字符串 是指字符串的长度可以改变。当给一个变长字符串变量赋予不同的值时，其长度可增可减。,定长字符串 是指在程序执行过程中，长度始终保持不变的字符串。例如，定义一个长度为,20,个字符的字符串变量：,Dim,strTemp,As String*20,如果赋予字符串的字符少于,20,个，则不足部分用空格填,充,；如果超过,20,个，则,多出的,字符,被,截去。,字符型数据,字符型数据的使用。,选择“文件,|,新建工程”命令，新建一个“标准,EXE”,类型的工程文件。然后执行“工程,|,添加模块”命令，在当前工程中添加一个名为“,Module1(Module1)”,的模块。,在工程资源管理器中右击“工程,1”,项，从快捷菜单中选择“工程,1,属性”命令，打开“工程属性”对话框，选择“通用”选项卡，从“启动对象”下拉列表框中选择“,Sub Main”,选项。当编写无窗体的应用程序时，必须将启动对象设置为“,Sub Main”,过程，作为程序运行的起始点。,在代码窗口中输入代码。结果在立即窗口中输出,。,字符型数据,运行结果,字符型数据,说明：,VB,是用双引号来标识字符串的，当遇到第一个“时，系统就认为是字符串的开始，当遇到下一个”时，就认为是字符串的结束。,当字符串本身要包含“时，可以输入两个连续的”“，这时,VB,就会判定它是一个单纯的双引号，而不会将它作为字符串的开始或结束标志。,例如，要显示字符串,This is my first VB program,，,可以在立即窗口中输入以下语句：,?This is my first VB program,布尔型数据,布尔型数据,（,Boolean,）,只有两个值：真,(True),和假,(False),，,通常用来表示逻辑判断的结果，也称之为逻辑型数据。,任何只有两种状态的数据，如真,/,假、是,/,否、开,/,关等，都可以用,Boolean,型表示。,说明：,当把数值型数据转换为,Boolean,型时，,0,会转换为,False,，,其他非,0,值转换为,True,。,当把,Boolean,值转换为数值型时，,False,转换为,0,，,True,转换为,-1,。,日期型数据,日期型数据,（,Date,）,用来表示日期和时间。,Date,型数据要用两个“,#”,号作为定界符，例如：,2003,年,1,月,12,日表示为：,#1/12/2003#,2003,年,1,月,12,日下午,1,时,20,分,45,秒表示为：,#1/12/2003 1:20:45 pm#,如果输入的日期或时间是非法的，系统将显示出错信息,变体型数据,变体型数据,（,Variant,）,能够表示任何数据类型。,把常量赋予,Variant,型数据时，,VB,按以下规则判定其类型：,用双引号括起来的数据是字符型,用,#,号括起来的数据是日期型,值为,True,或,False,的数据是布尔型,对于数值型数据，如果不含小数位，且大小不超出整型数范围就被看作是整型；如果数值大于整型数范围但不超过长整型数范围，就被看作是长整型；除此以外，其它的数值型数据都被看作双精度浮点型。,对象型数据,对象型数据,(Object),用来存储应用程序中的某个对象，用,4,个字节来表示该对象在内存中的地址引用。,一个被声明为,Object,的变量可以引用应用程序所识别的任何对象。,例如：,Dim,objDb,As Object,Set,objDb,=,OpenDatabase,(c:Vb6Biblio.mdb),上述两条语句首先声明一个名为,objDb,的对象型变量，然后引用了应用程序中的一个数据库对象。,字节型,自定义类型（字节型,）用,Type,语句创建，可以包含多个不同类型的数据元素、,数组,或一个已定义过的自定义类型。,例如，,自定义一个名为,Student,的数据类型：,Type Student,Dim Number As Long,声明,Number,为长整型变量,Dim Name As String,声明,Name,为字符型变量,Dim Birthday As Date,声明,Birthday,为日期型变量,Dim Sex As Boolean,声明,Sex,为布尔变量,End Type,上讲回顾,1,基本控件（命令按钮、文本框）,命令按钮，文本框的基本属性及其设置,2.,数据类型,第四讲,1.,常量和变量,2.,表达式,3.,常用内部函数（一）,3.3,变量与常量,一、变量的命名规则,变量：在程序运行中其存储的值可以改变。,常量：在程序运行中其值不可以改变。,变量命名规则：,1.,以字母或汉字开头，其后可跟汉字、字母、数字或下划线组成，长度小于等于,255,个字符；,2.,不要使用,VB,中的关键字；,3.VB,中不区分变量名的大小写；,4.,为了增加程序的可读性，可在变量名前加一个缩写的前缀来表明该变量的数据类型,。,二、变量声明,1.,用,Dim,语句显式声明变量,形式,：,Dim,变量名,AS,类型,Dim,变量名类型符,例,Dim,iCount,As integer,sAllsum,As single,等价,于,Dim,iCount,%,sAllsum,!,注意：变量类型的确定，需一一说明,2.,隐式声明,未进行上述的声明而直接使用，其类型为,Variant,类型。,建议不使用。,注意,:,在通用声明处加,Option Explicit,语句可强制显式声明,变量。,变量,例如，下列语句分别声明了,String,、,Date,和,Single,类型的变量：,Dim,strName,As String,Dim,datBirthday,As Date,Dim,fltScore,As Single,在,Dim,语句中声明多个变量时，如果没有用,As,子句指定类型，就被认为是,Variant,类型。,例如：,Dim,strName,As String,datBirthday,As Date,该语句分别声明了一个字符型变量和一个日期型变量。,Dim,strName,strAddress,As String,该语句将,strAddress,声明为字符型变量，,strName,默认,为,Variant,型变量。,变量,类型声明字符,在变量名的后面加一个类型声明字符，也可以指定变量的数据类型。,常用类型声明字符,变量,在,Dim,语句中可以使用类型声明符号来代替“,As”,子句,。,例如：,Dim,iTemp,%,等同于,Dim,iTemp,As Integer,当一个变量未经声明第一次使用时，若后面加上了类型声明字符，就会被自动声明为该类型声明字符所代表的数据类型。,例如：,a%=55,隐式声明变量,a,并指定其数据类型为整型,给,Variant,型变量赋值时，可以使用类型声明字符指定类型。,例如：,Dim,varTemp,As Variant,varTemp,=10&,指定,varTemp,中存储的数据为长整,型,三、常量,1.,直接常量,100,，,100%,，,&O23,&H3D,”vb,程序设计,”，,true#3:45#,2.,用户声明常量,形式：,Const,常量名,AS,类型,=,表达式,省略,AS,类型,，常量的类型由表达式值的类型决定。,为使与变量名区分，一般常量名使用大写字母,。,例,Const MAX=100,3.,系统提供的常量,系统定义常量位于对象库中，可通过,“,对象浏览器,”,查看。,例：,VbRed,、,VbCrLf,等,常量,常量,指在程序运行过程中其值始终保持不变的量。,类型,系统常量,是系统内部预定义的常量，以小写的,vb,字母开头，如：,vbRed,（,代表红色数值）。在程序中可以直接使用系统常量。,用户定义的常量,使用,Const,语句自定义的常量。,格式：,Const As,数据类型,=,功能：声明用于代替文字量的常数。,例如，自定义一个,双精度浮点型常量,Pi,：,Const Pi=3.1415926,用,Const,语句定义常量后，就可以在程序的其他位置使用这个常量，但不能再用任何代码去改变该常量的值。,练习,1,、说明下列哪些量是,VB,合法的直接常量，分别属于什么类型。,（,1,）,100.0,（,2,）,%100,（,3,）,1E1,（,4,）,123D3,5,）,123,，,46,（,6,）,0100,（,7,）,ASDF,（,8,）,1234,（,9,）,#2000/10/7#,（,10,）,100#,（,11,）,&O100,(12,),&H123,(13),True,(14)T,（,15,）,-123,！,（,16,）,AS,D,F,（,17,）,#2.4#,（,18,）,VB,$,2,、,下列符号中，哪些是,VB,合法的变量名,（,1,）,A123,（,2,）,A12_3,（,3,）,123A,（,4,）,A 123,（,5,）,Integer,（,6,）,XYZ,（,7,）,False,（,8,）,SIN,（,X,）,（,9,）,SINX,（,10,）,变量名,（,11,）,abcdef,3,运算符,运算符,是对相同类型的数据进行运算操作的符号。,用运算符将常量、变量和函数等数据连接起来的式子称为,表达式,。表达式的类型通常由运算符的类型决定，每个表达式按照规定的运算规则产生一个惟一的值。,3.4,运算符和表达式,一、运算符,1.,算术运算符,运算符,含义,优先级,实例,结果,乘方,1,22,4,-,取负,2,-5,-5,*,乘,3,2*5,10,/,自然除,3,9/3,3,整除,4,103,3,Mod,取模,5,10 Mod 3,1,+,加,6,-5+1+5,1,-,减,6,5-5,0,例：,-5+2*5 mod 10 9/3+2 2,结果：,0,算术运算符,算术运算符,用来进行数学计算的运算符。运算优先级依次为：括号指数运算负数乘、除、整型除法、求模加、减，其中乘、除、同级，加和减同级，分别从左到右进行计算。,例：,-5+2*5 mod 10 9/3+2 2,图中带圈数字指运算顺序,红色数字指结果,注意：,print,4.5 mod 3,5.5 mod 3,-5.5 mod 3,4,-5,10,3,3,1,-4,0,2.,字符串运算符,、,+,字符串连接,123,+,456,结果,123456,123,&,456,结果,123456,区别,：,+,两边必须是字符串,，,&,不一定,例如：,abcdef,12345 ,结果为,abcdef12345,abcdef,+,12345 ,出错,123&456 ,结果为,123456,“123”,+,456 ,结果为,579,注意,：,123,+,True ,结果为,122,True,转换为数值,-1,，,False,转换为数值,0,3,关系运算符,将两个操作数进行大小比较，结果为逻辑量。,字符串比较,则按字符,的,ASCII,码值从左到右一一比较，直到出现不同的字符为止,.,。,例：,ABCDE ABRA,结果为,False,男,女,按汉字的拼音字母比较,关系运算符,说明,数值型数据按数值的大小比较，西文字符按,ASCII,码的值比较，汉字按国标码的值比较，日期时间型数据分别按年月日和时分秒的值比较。,例如，,数值的比较,参加比较的数据的类型必须一致。,？,1=2,11.1,结果分别是,False,，,True,，,True,字符串的比较,？,“张”,“,帐”,结果,是,True,日期时间的比较,？,#2003-2-2 12:12:12#2003-3-1#,结果是,True,？,#2003-3-1 12:12:12#2003-3-1#,结果是,False,4.,逻辑运算符,将操作数进行逻辑运算，结果是逻辑值：,逻辑运算符,逻辑运算符,用来对表达式执行逻辑运算。运算结果为,Boolean,型（,True,或,False,）。,类型,AND,（,与）：参与运算的两个表达式的值均为真，结果才为真，否则结果为假。,OR,（,或）：参与运算的两个表达式只要有一个值为真，结果就为真，否则结果为假。,NOT,（,取反）：表达式为真时，结果为假；表达式为假时，结果为真。,XOR,（,异或）：两个表达式的值都为真或假时，结果为假，否则，结果为真。,逻辑运算符的优先级：,NOTANDORXOR,赋值运算符,5.,赋值运算符,就是“,=,”,号。,格式：,=,说明：“,=”,右边可以是一个常量或已赋过值的变量，也可以是一个表达式。如果是表达式，,VB,将先计算表达式的值，再将此值赋给“,=”,左边的变量。例如：,a=3,将数值常量,3,赋予变量a,b=a,将变量,a,的值赋予变量,b,将表达式,2*a+b,的运算结果赋予变量,c,c=2*a+b,变量还可以用它当前的值参加运算，再将运算结果赋给变量自身。,例如：,X=X+1,表示先计算表达式,X+1,，,再将运算结果存回变量,X,中，替换原来的值。,日期运算符,日期型运算符有“,+”,和“,-”,两种。,，结果为一个新的日期时间。,的单位是“天”。,-,，结果为两个日期相差的天数。,例如，,？,#2003-4-28#+10,结果是：原来的日期加上,10,天，为,2003-5-8,？,#3-24#-#1-21#,结果是：,两个日期相减，相差,62,天,运算符,同一表达式中各类运算符的优先顺序由高到低依次为：,括号,算术运算符,字符串运算符,关系运算符,逻辑运算符,例如，,？,205 AND 85 XOR 84,结果为,True,？,True XOR(2=3)OR(3=3)AND NOT(5=5),结果为,True,表达式书写举例,sin(45*3.14/180)+(exp(10)+log(10)/sqr(x+y+1),a*b*c*d/e/f/g,或,a*b*c*d/,（,e*f*g,）,例：,单位招聘员工：,年龄,小于,40,岁,法律,专业,，,学历,专科或本科，,年龄,40,，,专业,=,“,法律,”,，,(,学历,=,“,专科,”,，学历,=,“,本科,”,),AndAnd,Or,例：,表示算术表达式：,正确的,VB,表达式：,3=x And x=7,错误的,VB,表达式：,3=x=7,或,3=x Or x=7,年龄,3,123 3,16/4-25*8/4 MOD 52,若,X,为偶数，则,Not(X Mod 2),必然为,1234512345&ABC,函数,函数,（,Function,）,是一种能够完成某种特定操作或功能的程序段。函数的运算结果称为函数值。,函数调用的格式,Call(,参数,1,参数,2,),参数,1,参数,2,变量,=(,参数,1,参数,2,),说明：,任何可以使用表达式的地方都可以使用函数，表达式将函数 的返回值作为运算对象。,函数分类,系统函数：,VB,提供的内部函数。,用户自定义函数：用户根据程序设计的需要自行编写的,3.5,常用内部函数,一、,数学函数,函数名,举例,结果,Abs(N),Abs(-4),4,Int(N,),Int(3.56),Int(-3.56),3,-4,Fix(N),Fix(3.56),Fix(-3.56),3,-3,Round(N),Round(3.56),Round(-3.56),Round(3.56,1),4,-4,3.6,Sqr(N,),Sqr(9),3,Exp(N),Exp(1),2.71828,Log(N),Log(2.71),1,Sgn(N,),Sgn(-3),-1,Sin(N),Sin(90*3.14/180),1,Rnd(N,),Rnd,(),0,1),数学函数,注意,:,(1)Int(),Fix(),Round(),的区别,(2)Sin(N),、,Cos(N,),、,Tan(N),、,Atn(N,),三角函数中参数,N,为弧度表示,(3)Rnd(),产生是,0,到,1(,包括,0,但不包括,1),之间的随机小数,.,若要每次运行程序产生的随机数序列不同,应在执行该语句,前,执行,Randomize,语句,若要产生,A,B,之间的随机数可用,Int(Rnd,()*(B-A+1)+A,如,:,Int(Rnd,()*31)+20,产生的是,20,50,举例,举例,二、字符串编码和字符串函数,(1),字符串编码,VB,中字符采用,Unicode,编码，任何字符占,2,字节。如：,Len(“,中国,good”),为,6,；,LenB,(“,中国,good”),为,12,。,（,2,）,字符串函数,函数名,举例,结果,Left$(C,N),Left$(,ABCD,2),“AB”,Right(C,N),Right(,ABCD”,2),“CD”,Mid(C,N1,N2),Mid(“ABCD,2,2),Mid(,ABCD,2),“BC”,“BCD”,Len(C),Len(,ABCD,),Len(,学习,VB,),4,4,Ltrim(C,),Len(Ltrim,(,VB,),2,Rtrim(C,),Len(Rtrim(,VB,),2,Trim(C),Len(TRIM(,VB,),2,Space(N),Len(Space(3),3,String(N,C),String(2,VB,),VV,4,字符串函数,注意,:,(1)Len(),返回的是字符串的字数,Lenb,(),返回的是字符串的字节数,(2)Mid(C,N1,N2),省略,N2,表示从第,N1,位开始,取,取到最后,.,三、日期函数,函数名,举例,结果,Date(),Date(),2005-03-23,Time(),Time(),10:30,Now(),Now(),2005-03-23 10:30,Year(D),Year(Date(),2005,日期函数,四、转换函数,函数名,举例,结果,Val(C),Val(23)+2,Val(23A2)+2,Val(A23)+2,Val(2e1)+2,25,25,2,22,Str(N,),Str(123)+123,Str(123)+123,Str(123)&123,123123,246,123123,Asc(C,),Asc(A,),65,Chr(N,),Chr(65),A,Ucase(C,),Ucase(Abcd,),ABCD,Lcase(C,),Lcase(Abcd,),abcd,转换函数,注意：,(1),Val(),只能将数字字符转换成数值,遇到非数字字符停止转换,(2)Str(),转换成字符,时,最前面留有一位符号位,五、测试函数,函数名,举例,结果,VarType(X),VarType(10),VarType(10.0),2,5,TypeName(X),TypeName(10),TypeName(10.0),Integer,Double,IsNumeric(X),IsNumeric(23),True,IsDate(X),IsDate(02/02/2004),True,测试函数,数据类型测试函数,格式：,TypeName,(),功能：,测试表达式的数据类型。,例如，,Dim X1 As Single,?TypeName(X1),结果为,Single,数字测试函数,格式：,IsNumeric,(),功能：测试表达式的值是否为数值型数据或符合数值格式的字 符串，若是，返回值为,True,；,否则，返回值为,False,。,例如，,?isNumeric(12.25),结果为,True,?,isNumeric(ab,),结果为,False,日期测试函数,格式：,IsDate,(),功能：测试表达式的值是否为日期时间型数据或符合日期时间 格式的字符串，若是，返回值为,True,；,否则，返回值为,False,。,例如，,?isDate(#2003-5-20 8:30#),结果为,True,?isDate(#2003-5-20#),结果为,False,六、格式输出函数,函数名,举例,结果,Format,Print Format(12345.9,0000.0),Print Format(123.78,0000.0),Print Format(123.9,0000.00),12345.9,0123.8,0123.90,Print Format(123.9,#.#),Print Format(123.78,#.#),123.9,123.8,Print Format(Date,yy-mm-dd,),04-03-02,Print Format(ABCD,),abcd,七、,Shell,函数,Shell(Calc.exe),调用计算器,Shell(Notepad.exe),调用记事本,例题,3.6,常 见 错 误,1.,逻辑表达式书写错，在,VB,中没有造成语法错而形成逻辑错,例如，数学表达式,3,x,10,VB,表达式写为,3=,x,=0 AND A+CB+3 Or Not D,的值是,(),(3)Int(-3.5),Int(3.5),Fix(-3.5),Fix(3.5),Round(-3.5),Round(3.5),的值分别是,:,(4),表达式,Ucase(Mid(,ABcdefgh,3,4),的值是,(),(5),在,VB,中字符常量应使用,(),将其括起来,日期,/,时间型常量应使用,(),符号将其括起来,(6)VB6.0,中,字符是采用,(),编码形式来表达和存储的,在该编码方案下,一个汉字或一个英文字符均被看做,(),个字符,每个字符用,(),个字节编码,(7),函数,Int(10*,Rnd,),的结果是在,(),范围内的整数,第四章 基本的控制结构,4.1,顺序结构,4.2,选择结构,4.3,循环结构,4.4,其他辅助控制语句,4.5,常用算法（一,）,4.6,常见错误,（,顺序,、,条件,、,循环,）,4.1,顺 序 结 构,顺序结构即按语句的组织顺序执行程序。顺序结构没控制语句，主要掌握,赋值语句,、,print,语句、,inputbox,和,msgbox,函数,及,msgbox,过程的应用。例,.4.1,输入半径,求圆面积和球体积。,1,、运行效果,2,、引入：赋值语句、,print,语句、,inputbox,函数,3,、分析：,4,、设计：,顺序结构,程序：,是为解决某一问题而将有关命令按照一定的控制结构组成的命令序列。,顺序结构：,按,程序中语句的书写顺序逐条执行,。,VB,程序从主体上说都是顺序执行的，每个命令执行完后都自动执行下一个，只有当遇到分支结构、循环结构、过程函数等才会改变执行的顺序。,一、赋值语句,形式,：,LET,变量名表达式,作用：计算表达式的值并赋给左边的变量。,一般用于给变量赋值或对控件设定属性值。,例：,s!=0.1,Text1.Text,欢迎使用,Visual Basic 6.0,当表达式的类型与变量的类型不一致时，强制转换成左边的精度，如,iA,%=10 /3,iA,中的结果为,3,注意：,虽然赋值号与关系运算符等于号都用,“,=,”,表示，,VB,系统会根据所处的位置自动判断是何种意义的符号。,如：,Dim a%,b%,c%,a=b=c=1,Print a,二、与用户进行交互的函数和过程,1.,InputBox,函数,例题,Form16.frm,InputBox,(,提示,，标题,，默认值,，,x,坐标位置,，,y,坐标位置,),函数返回,字符类型,。,2.,MsgBox,函数和,MsgBox,过程,函数形式：,变量,=,MsgBox,(,提示,按钮,，标题,),过程形式,：,MsgBox,提示,按钮,标题,按钮值如下,：,函数返回所选按钮整数值：,例,4.2,Msgbox,（）函数的练习,1,、运行效果,2,、引入,Msgbox,函数和过程的应用,例题,Form2-1(msgbox1).frm,3,、分析,布局分析：一个命令按钮,控制逻辑：单击“演示”按钮，用,Msgbox,（）,函数给出对话框，再用,Msgbox,（）,函数显示用户在对话框中选择的按钮。,4,、设计：,5,、思考：,例题,Form2-1(msgbox2).frm,三、,Print,语句的用法,问题：已知两个数,x,和,y,，,比较大小，保证大数放在,x,中，小的数放在,Y,中。,1.IfThen,语句,(,单分支结构,),If Then,语句块,End If,或,If Then,重要的是学会两个数的交换,4.2,选 择 结 构,解决问题：,已知两个数,x,和,y,，,比较大小，保证大数放在,x,中，小的数放在,Y,中。,2.IfThenElse,语句,(,双分支结构,),If Then,Else,End If,If Then Else,问题：判断任一整数的奇偶性,解决问题：,判断任一整数的奇偶性,例,4.3,帐号和密码,1,、运行效果,2,、目的：分支结构及分支结构的嵌套,3,、分析：,布局：两个标签，两个文本框和两个命令按钮,控制逻辑：4,、设计：,5,、,思考：设计最多可输入,3,次校验密码的程序。,5,上讲回顾,1,、赋值语句,2,、,Inputbox,（）,XM=,Inputbox,（,请输入姓名,:,输入,王胜利,),3,、,Msgbox,（）,A=,Msgbox,（,姓名：,+XM,，,64+1,，,信息,）,4,、,print,语句,注意：标点符号（分号、逗号,）和,Tab(),、,Space,（）,函数的使用,5,、分支结构,单分支、双分支、分支嵌套,C:Documents and SettingsAdministrator,桌面,新建文件夹,Form2-7.frm,提示信息,不可省略,标题,可省略,默认值,可省略,提示信息,不可省略,标题,可省略,图标类型和按钮个数，可省略,例,4.4,多分支结构,问题：书店优惠售书：,思考：,设计一个计程车收费程序,Y=,0.8x (x=100),0.7x (x=200),0.5x (x300),：与,同类型的常量，四种形式：,表达式 例,:,A,一组枚举表达式,(,用逗号分隔,),2,4,6,8,表达式,1 To,表达式,2,60 To 100,Is,关系运算符表达式,Is y,，,x,，,y,）,（,2,）,Choose,函数形式是：,Choose,（,数字类型变量，值为,1,的返回值，值为,2,的返回值,）,例如，,Nop,是,1-4,的值，转换成,+,运算符的语句如下：,Op=,Choose,（,Nop,，,+,，,-,，,，,）,当值为,1,，返回字符串,“,+,”,，然后放入,Op,变量中，,值为,2,，返回字符串,“,-,”,，依次类推；,当,Nop,是,1-4,的非整数，系统自动取,Nop,的整数办法在判断；若,Nop,不在,14,之间，函数返回,Null,值。,常 见 错 误,1,在选择结构中缺少配对的结束语句,对多行式的,If,块语句中，应有配对的,End If,语句结束。,2.,多重选择,ElseIf,关键字的书写,ElseIf,不要写成,Else If,；,3.Select Case,语句的使用,Select Case,后不能出现多个变量。,Case,后面跟常量,4.3,循 环 结 构,例,4.5,求,S=1+2+3+100,1,、,效果：,2,、引出：循环结构（,For-Next,）,3,、,分析：,布局分析：,控制逻辑：,4,、设计：,5,、思考,1,：输入,10,个数，输出累加之和。,思考,2,：输入,10,个数，输出偶数之和。,思考,3,：,输入,10,个数，输出偶数平均值。,1.For,循环语句,(,一般用于循环次数已知,),形式,For,循环变量初值,to,终值,Step,步长,语句块,Exit For,语句块,Next,循环变量,循环变量,0,初值,终值,=1,时,可省略,终值,=0死循环,循环次数,要注意：,出了循环，循环控制变量值的问题。,例程序段：,For i=2 To 13 Step 3,循环执行次数,Print i,输出,i,的值分别为,:,Next i,2 5 8 11,Print :Print“I=“,i,出了循环输出为,:I=14,在循环体内对循环控制变量可多次引用；但最好不要对其赋值，否则影响原来的循环控制规律。,步长,例,.,循环控制变量的改变对循环的影响。,Private Sub Command1_Click(),j=0,For i=1 To 20 Step 2,i=i+3,j=j+1,Print,第,;j;,次循环,i=;i,Next i,Print,退出循环后,i=;i,End Sub,正常情况：,i=1,3,5,7,9,11,13,15,17,19,现在：,i=4,9,14,19,2.DoLoop,循环语句,(,用于控制循环次数未知,),形式,1,：,Do While|Until,语句块,Exit Do,语句块,Loop,形式,2,：,Do,语句块,Exit Do,语句块,Loop While|Until,注意：形式,1,是,先判断后执行,，形式,2,是,先执行后判断,，所以形式,1,中，循环体有可能,1,次都不执行,，形式,2,中，循环体,至少执行一次,。,S=1+2,2,+3,2,+,+10,2,，,计算并输出,s,例,4.6S=1+2,2,+3,2,+n,2,，,问,n,为多少时，,s,的值大于,100000,？,3.,循环的嵌套,一个循环体内又包含了一个完整的循环结构称为循环的嵌套,.,对于循环的嵌套，要注意以下事项：,内循环变量与外循环变量不能同名；,外循环必须完全包含内循环，不能交叉；,不能从循环体外转向循环体内，反之则可以。,For ii=1 To 10,For,jj,=1 To 20,Next ii,Next,jj,For ii=1 To 10,For ii=1 To 20,Next ii,Next ii,For ii=1 To 10,For,jj,=1 To 20,Next,jj,Next ii,For ii=1 To 10,Next ii,For ii=1 To 10,Next ii,4.4,其他辅助控制语句,1.Go To,语句,形式,:,Go To,标号,|,行号,作用：无条件地转移到标号或行号指定的那行语句,.,标号是一个字符序列,行号是一个数字序列,.,2.Exit,语句,多种形式：,Exit For,、,Exit Do,、,Exit Sub,、,Exit Function,等。,作用：退出某种控制结构的执行。,3.End,语句,多种形式：,End,、,End If,、,End Select,、,End With,、,End Type,、,End Sub,、,End Function,、,作用：,End,结束一个程序的运行；其余表示某个结构的结束，与对应的结构语句配对出现。,上讲回顾,1,、多分支语句,Select Case,表达式,Case,情形,1,语句块,1,Case,情形,2,语句,块,2,Case,情形,N,语句块,N,Case Else,语句块,N+1,End Select,2,、计数循环,For,循环变量,=,初值,TO,终值,Step,步长,循环体,NEXT,循环变量,3,、当型循环,Do while,循环体,Loop,4.5,常用算法（一）,算法是对某个问题求解过程的描述,累加、连乘,(1)S=1/2+1/4+1/6+1/8+1/10+1/20,求s,并输出,s,的值。,思考：,s=1-1/2+1/3-1/4+,直到某项的绝对值小于,10(-5),(2)s=1+(1+2)+(1+2+3)+(1+2+10),思考：,S=1!+2!+3!+.+10!,思考：,s=1-1/3!+1/5!-1/7!+,直到某一项的绝对值小于,10(-5),(3),已知一数列的前两项均,为,1,从第,3,项开始,每一项的值为其前面两项之和,求数列的前,20,项的和。,7,(4)s=2+22+222+2222+22222+222222,思考：,S=,a+aa+aaa,+,aaaa,（,N,个,a,）,其中,a,是一个,1,，,9,的随机数，,N,是一个,5,，,10,的随机数。,思考：,2,、数的判定,(1),判断任给一大于,3,的整数是否是素数。,(2),输出,3100,之间的素数。,(3),输出,100999,之间的水仙花数。,(4),判断一整数是不是回文数。,(5),判断一整数是不是完数。,3.,穷举法,“,穷举法,”,也称为,“,枚举法,”,或,“,试凑法,”,，即将可能出现的各种情况一一测试，判断是否满足条件，一般采用循环来实现。,例：,百元买百鸡问题。,假定小鸡每只,5,角，公鸡每只,2,元，母鸡每只,3,元。现在有,100,元钱要求买,100,只鸡，编程列出所有可能的购鸡方案。,思考题：,求,M,，,N,的最大公约数和最小公倍数,思考题