计算机二级考试VB辅导课件

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,*,计算机二级考试指导,VB,程序设计,主讲人：黄海军,电话：,（,651196,）,QQ,：,113958033,第一讲：,VB,程序设计初步,一、引例,二、,VB,集成开发环境,三、几个重要概念,四、建立简单的程序,一、,例,1,引入：,（,1,）,VB,的启动；,（,2,）,VB,的工作环境；,（,3,）几个重要概念。,二、,VB,集成开发环境,主窗口,工具箱窗口,工程资源管理器窗口,属性窗口,窗体设计窗口,代码窗口,三、几个概念,1.,对象,对象：客观存在的一个实体。,VB,中常用的对象有：窗体、控件等。,2.,类,类是创建,对象,的模板,是对象的集合。,3.,对象的三要素,（,1,）属性,用来描述和反映对象特征的参数。（属性有属性名和属性值），属性值可通过：,属性窗口设置,代码设置,对象名,.,属性名,=,属性值,如：,Label1.Visible=True,（,2,）事件,对象所能识别和响应的动作称为事件，它发生在用户与应用程序交互时。如单击控件、鼠标移动、键盘按下等。,事件过程：事件触发时所执行的代码,（,3,）,方法,对象所能执行的动作，如窗体有,Show,、,Hide,方法等。,4. VB,程序的执行步骤如下：,1,）启动应用程序，装载和显示窗体；,2,）等待事件的触发；,3,）事件触发时，执行对应的事件过程；,4,）重复执行步骤（,2,）和（,3,） ；,5),直到遇到,END,结束语句结束程序的运行；,或按“结束”强行停止程序的运行。,至此可以总结出,VB,的特点：可视化、面向对象、事件驱动。,例,1,拓展,1,例,1,拓展,2,四、建立简单的应用程序,例,2,1.,效果：,3.,分析：,（,1,）布局：,一个标签控件、两个命令按钮、一个时钟控件。,（,2,）控制逻辑：,单击,“,开始,”,按钮，标签移动；单击,“,停止,”,按钮，标签静止；,2.,引入：,建立,VB,程序的步骤。,界面设计：,添加对象,设置属性,代码设计：,哪个对象,哪个事件,什么代码,3.,运行和调试；,4.,保存文件；,5.,编译成,.exe,文件。,例,2,拓展,1,例,2,拓展,2,例,2,拓展,3,创建,vb,程序的步骤：,一、掌握几个操作：,VB,工作环境的设置、添加控件、设置属性、添加代,码、 运行、调试程序、保存文件；,二、理解几个概念：,对象、属性、事件、方法,可视化、面向对象、事件驱动,三、识别几个保留字,:,Form1 Label1 Command1,Caption Visible Left Top FontSize,Click,回顾,第二讲：,窗体和基本控件,一、窗体,窗体是其它对象的容器，是程序运行时呈现给用户的界面。,例,3,1.,效果：,2.,引入：,窗体的属性、事件、方法,3.,分析：,界面分析,:,略,代码分析,:,略,4.,设计,思考题,1,1,、窗体的基本属性：,属性,默认值,含义,（名称）,Name,FormN,名称，是区分对象的标志，用以引用对象,BackColor,背景颜色,BorderStyle,2,边框式样,Caption,FormN,标题,ControlBox,True,是否有控制图标,Font,字体：字体、字型、字号,Height,高度,Icon,控制图标,MaxButton,True,是否有最大化按钮,MinButton,True,是否有最小化按钮,Picture,图片,StartUpPosition,3,开始位置,Width,宽度,WindowState,0,状态,2.,事件,Click,、,DblClick,、,Load,Load,当装入窗体时激发，通常用于,对属性和变量初始化,注意：在,load,事件中使用,Print,方法，要修改其,AutoRedraw,属性,从启动窗体到显示窗体其实有三个事件发生：,Initialize Load Activate,演示,3.,方法,Show,、,Hide,、,Print,、,Cls,等,注意,:,卸载,(Unload),和隐藏,(Hide),的区别,二、标签,标签主要用来在窗体某个固定位置上显示提示信息。,例,4,1.,效果：,2.,引入：标签,的属性、事件、方法、用途,3.,分析：,（,1,）界面：略,（,2,）代码：,略,4.,设计：,例,4,思考,例,4,拓展,1,、标签的主要,属性,属性,默认值,含义,Alignment,0,文本对齐方式,Autosize,False,是否自动改变大小,Backstyle,0,是否透明,BorderStyle,0,边框样式,Caption,LabelN,标题,Font,字体：字体、字型、字号,ForeColor,前景颜色,Height,高度,Left,左位置,Top,顶端位置,Visible,True,是否可见,Width,宽度,2.,事件,3.,方法,回顾,主要介绍,窗体,、,标签,两个对象。,重点把握对象的应用、属性、事件和方法,1,、窗体：,Caption Font(FontName,、,FontSize,FontBold,、,FontItalic) ForeColor AutoRedraw,Picture,Load Click Dbclick,Print Cls Show Hide,Unload,2,、,标签：,Alignment AutoSize Caption BorderStyle,Font ForeColor Left Top,Visible,三、文本框,文本框主要用来接收数据、编辑数据、显示数据。,例,5,1.,效果：,2.,引入：,文本框的属性、事件和方法、用途,3.,分析：,（,1,）界面：略,（,2,）代码：略,4.,设计：,例,5,拓展,思考,第三讲：窗体和基本控件,例,6,1.,效果：,2.,引入：,文本框的属性和事件,3.,分析：,（,1,）界面：略,（,2,）代码：略,4.,设计：,1,、文本框的主要属性,属性,默认值,含义,Alignment,0,文本对齐方式,BorderStyle,0,边框样式,Font,字体：字体、字型、字号,ForeColor,前景颜色,Locked,False,是否可编辑,Multiline,False,是否可接受多行文本,MaxLength,最大字符数,Height,高度,PasswordChar,掩码,ScrollBars,0,是否有滚动条（,Multiline,为,T,）,Text,TextN,显示的内容,Width,宽度,Visible,True,是否可见,2.,常用事件,Change,：,当改变文本框的,Text,属性时会引发该事件。,KeyPress(KeyAscii As Integer),：按下并松开键时触发。可返回一个,KeyAscii,参数：即所按的键的,Ascii,值。,KeyAscii,为,13,，回车键,;,为,0,禁止键入。,LostFocus,：当控件失去焦点时发生。,GotFocus,： 当控件获得焦点时发生。,3.,常用方法,对象,.,SetFocus,：获得焦点，即插入点光标移到该文本框中,。,2,四、命令按钮,例,7,命令按钮：,通常用来在它的单击事件中完成一种特定的程序功能,。,1.,效果：,2.,引入：,命令按钮的属性、事件、用途,3.,分析：略,4.,设计：略,思考,1,、命令按钮的主要属性,属性,默认值,含义,Caption,CommandN,标题,Enabled,True,是否有效,Font,字体：字体、字型、字号,Height,高度,Style,0,外观,Picture,显示图形（,Style,为,1,）,Width,宽度,Visible,True,是否可见,2,、事件：,Click,3,、方法：略,五、工程的管理及环境的设置,1,、工程的组成,工程文件包含了一个应用程序的所有文件的信息,:,窗体文件,(.frm),：控件及属性、事件过程和自定义过程,;,窗体的二进制数据文件,(.frx),，自动产生同名,.frx,文件,;,标准模块文件,(.bas);,类模块的文件,(.cls);,资源文件,(.res);,ActiveX,控件的文件,(.ocx).,2,、创建、打开和保存工程,3,、添加、删除和保存文件,（,1,） 窗体名和窗体文件名概念,窗体名：窗体的,Name,属性，,在代码中用来引用该窗体，同一,工程不能有相同的窗体名；,窗体文件名：窗体存放在磁盘上的文件名，该文件包含了该窗体的所有控件属性和代码，同一文件夹不能有相同的文件名。,（,2,） 在工程中添加现存的窗体时，只是对该窗体文件的引用纳入工程。因此，如果更改窗体并保存它，会影响包含此窗体文件的任何工程。,（,3,） 在工程中删除窗体时，仅将此窗体从工程里删除掉，但是窗体文件仍存在于磁盘上。但是，如果在,VB,之外删除一个窗体文件，,VB,不能更新此工程文件，当打开此工程时，将显示一个文件丢失的错误信息。,（,4,）,对窗体文件改名方法,“另存为,Form”,实现文件的复制。,窗体文件名,窗体名,六、生成可执行文件和制作安装盘,1.,生成可执行文件,文件,/,生成*,.exe,文件，然后,关闭,Visual Basic6.0,。,2.,制作安装盘,在向导的指导下运行,V B6.0,中文版工具“,Package & Deployment”,；,“打包”：把工程中用到的各种类型的文件进行打包压缩后，存放到特定的目录下。,“展开”：再把这些打包的文件展开到用户可以携带的安装介质软盘、光盘等。,3.,检测安装程序,在没有,VB 6.0,系统的环境下，执行安装盘中的,Setup.exe,文件，将发行盘进行安装。,七、程 序 调 试,1,、错误类型,（,1,）编辑错误,在编辑代码时，,VB,会对键入的代码直接进行语法检查。当发现代码存在打字错误，遗漏关键字或标点符等语法错误，,VB,在,Form,窗口中弹出一个子窗口，提示出错信息，出错的那一行变成红色。这时，用户必须单击“确定”按钮，关闭出错提示窗，然后对出错行进行修改。,（,2,）编译错误,编译错误指按了“启动”按钮，,VB,开始运行程序前，先编译执行的程序段时，产生的错误。此类错误由于用户未定义变量、遗漏关键字等原因产生。这时，,Visual Basic,也弹出一个子窗口，提示出错信息，出错的那一行被高亮度显示。,（,3,） 运行错误,运行时错误指,VB,在编译通过后，运行代码时发生的错误。这类错误往往是指令代码执行了一非法操作引起的。例如类型不匹配、试图打开一个不存在的文件等。,（,4,） 逻辑错误,程序运行后，得不到所期望的结果，这说明程序存在逻辑错误。这类错误往往是程序存在逻辑上的缺陷所引起。例如，运算符使用不正确、语句的次序不对、循环语句的起始、终值不正确等。通常，逻辑错误不会产生错误提示信息，故错误较难排除，需要程序员仔细地阅读分析程序以及调试。,2,、调试错误,(1)VB,的三种模式,设计模式,设计,进行程序的界面设计、属性设置、代码编写等。,运行模式,运行,执行“运行,/,启动”命令，可以查看程序代码，但不能修改。,中断模式,中断,当在运行模式，按了“中断”命令或当程序出现运行时错误时进入中断模式。可以查看代码、修改代码、检查数据。,(2),调试窗口,有三个调试窗口，它们是：“立即”窗口、“监视”窗口、和“本地”窗口。可单击视图菜单中的对应命令打开这些窗口。,（,3,）设置断点和逐语句跟踪,断点是告诉,VB,挂起程序执行的一个标记，当程序执行到断点处即暂停程序的运行，进入中断模式。设置或删除断点的步骤：,中断模式下，直接查看某个变量的值，只要把鼠标指向所关心的变量处，稍停一下，就在鼠标下方显示该变量的值。,断点标记,当前行,八、常 见 错 误,1.,使用中文标点符号,系统产生“无效字符”，以红色显示。,2.,字母和数字形状相似,小写字母“,l”,和数字“,1”,形式相同、小写字母“,o”,与数字“,0”,。,3.,对象名称,(Name),写错,4.,对象的属性名、方法名、标准函数名写错,尽量使用自动列出成员功能。正确的系统按规定的大小写表示。,5.,无意形成控件数组,建立控件时小心使用“复制”、“粘贴”按钮。,6.,打开工程时找不到对应的文件,保存文件时先保存窗体,.frm,文件、再保存,.vbp,文件，注意路径。,总结：,（,1,）通过示例介绍,VB,的工作环境（,IDE,）；,（,2,）理解对象、类、属性、事件、方法、面向对象、事件驱动概念。,（,3,）介绍窗体和标签、文本框、命令按钮的属性、事件、方法。,（,4,）掌握简单,VB,程序的设计、文件的保存、打开。,练习,一、填空题,（,1,）,VB,是一种面向（）的可视化程序设计语言，采取了（）的编程机制。,（,2,）,VB,的对象主要有（）、（）两大类。,（,3,）在,VB,中，用来描述一个对象外部特征的量称为对象的（）。,（,4,）在,VB,中，设置或修改一个对象的属性的方法有两种，它们是（）、（）。,（,5,）在,VB,中每个对象响应事件的响应方式是通过执行一个与之对应的（）来实现的。,（,6,）在,VB,中事件过程的名字由（）、（）所构成。,（,7,）若将窗体,Form1,隐藏起来，可调用其方法（）来实现，,（,8,）若用户单击了窗体,Form1,，此时被执行的事件过程的名字应为（）,（,9,）在,VB,集成开发环境中，运行应用程序的方法有两种，分别是（）、（）,二、选择题,（,1,）下列（）项不能作为安装,VB6.0,所需的操作平台。,A.DOS7.0 B.Windows95 C.Windows98 D.WindowsNT,（,2,）用代码改变,Form1,的“,Caption”,属性设置为“时钟”，正确的书写形式是（）,A.Form1.Caption“,时钟”,B.Form1.Caption=“,时钟”,C.Caption=“,时钟”,D.Form1.Caption,（“时钟”）,（,3,）,VB,的标准控件位于,IDE,中的（）项窗口内。,A.,工具栏,B.,工具箱,C.,对象浏览器,D.,窗体设计器,（,4,）保存文件时，窗体文件的扩展名是（），整个工程文件的扩展名是（）,A.*.PRG B.*.Frm C.*.VBP D.*.EXE,（,5,）以下叙述中正确的是（）,A.,窗体的,Name,属性指定窗体的名称，用来标识一个窗体。,B.,窗体的,Name,属性值是显示在标题栏中的文本。,C.,可以在运行期间改变对象的,Name,属性的值。,D.,对象的,Name,属性值可以为空。,三、应用题,设计如图所示界面，单击“确定”按钮，显示第二个标签，其标题是文本框中的姓名和“编写的程序”。,第四讲,VB,语言基础,一、数据,二、运算符和表达式,三、常用函数,四、编码规则,一、,数 据,能被计算机接收和处理的符号的集合。,是程序的重要组成部分，也是程序处理的对象和处理的结果。,1,、,常见数据类型,数据类型,关键字,类型符,举例,整型,Integer,%,123,-123,123%,长整型,Long,&,123&,-1234567&,单精度,Single,!,1230.0,！, 1.23E3,双精度,Double,#,1230.0#, 1.230D3,字符型,String,$,VB,程序设计, 12,逻辑型,Boolean,无,True, False,日期型,Date,无,#03/02/2010#, #10:30#,变体型,Variant,无,2,、,变量与常量,s = 3.14 * r 2,变量,：在程序运行中用来存储数据，且其值可以改变的量，其实质是在内存中开辟的临时存储单元。,常量：在程序运行中其值不改变的量。,a.,以字母或汉字开头，其后可跟汉字、字母、数字或下划,线，长度不超过,255,个字符；,b.,不要使用,VB,中的关键字；,c.,变量名中的字母不区分大小写；,（,1,）变量名的命名规则,（,2,）,变量声明,：变量的名称、类型,a,、,用,Dim,显式声明变量,形式：,Dim,变量名,AS,类型,Dim,变量名,类型符,例,Dim i As integer , s As single,等价于,Dim i%, s!,注意：变量类型的确定，需一一说明,变量的赋值 变量名,=,表达式,将值赋给已定义类型的变量时，系统会将数值转化成变量的类型,未经定义类型的变量的数据类型是由赋给它的值的类型决定,b,、,隐式声明,未进行上述的声明而直接使用，其类型为,Variant,类型。,建议不使用。,注意,:,在通用声明处加,Option Explicit,语句可强制显式声明,变量。,（,3,）,常量,a,、,直接常量,100,，,100%,，,True,，,#3:45#,，,vb,程序设计, ,vb, ,程序设计,&o23,&H3D,b,、,用户声明常量,形式：,Const,常量名,AS,类型, =,表达式,省略,AS,类型,，常量的类型由表达式值的类型决定。,为使与变量名区分，一般常量名使用大写字母。,例,Const MAX=100,c,、,系统提供的常量,系统定义常量位于对象库中，可通过“对象浏览器”查看。,例：,VbRed,、,VbCrLf,等,练习,1,、说明下列哪些量是,VB,合法的直接常量，分别属于什么类型。,（,1,）,100.0,（,2,）,%100,（,3,）,1E1,（,4,）,123D3,（,5,）,123,，,46,（,6,）,ASDF,（,7,）,1234,（,8,）,#2000/10/7#,（,9,）,100#,（,10,）,&O100,(11),True,(12) T,（,13,）,-123,！,（,14,）,VB,$,（,15,）,姓名,（,16,） 姓名,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,）,abcd,3,二 、,运算符和表达式,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,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,4,、 逻辑运算符及逻辑表达式,将操作数进行逻辑运算，结果是逻辑值：,表达式书写举例,（,1+xy,）,6,(1+x*y)6,单位招聘员工：,年龄,小于,40,岁,法律,专业,，,学历,专科或本科,年龄,=0 and x=100,正确的,VB,表达式：,3=x And x =7,错误的,VB,表达式：,3=x=7,或,3=x Or x 3,？,123 3,？,1234512345 & ABC,x,为偶数：,VB,函数是：能完成一定运算并将结果（,有且只有一个,）返回的程序，有,标准函数,和,用户自定义函数,两种。,函数的构成：,函数名,(,参数表,),如：,Abs(-3),Time( ),注意：函数不是语句，大部分函数调用的时候必须作为语句的组成部分，而不能直接出现。,如：,a=Abs(-3),?Abs(-3),Abs(-3),第五讲,VB,语言基础,三、常用内部函数,1,、,数学函数,函数名,举例,结果,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(N1,N2),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),之间的随机小数,.,若要每次运行程序产生的随机数序列不同，应在调用,Rnd,函数的语句前，执行,Randomize,语句,若要产生,A,B,之间的随机数可用,Int(Rnd()*(B-A+1)+A,如,: Int(Rnd()*31)+20,产生的是,20,50,举例,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,位开始取,取到最后,3,、日期和时间函数,函数名,举例,结果,Date(),Date(),2010-03-31,Time(),Time(),02:30:15,Now(),Now(),2010-03-31 02:30:15,Year(D),Year(Date(),2010,4,、转换函数,函数名,举例,结果,Val(C),Val(23)+2,Val(23A2)+2,23A2,+2,Val(A23)+2,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( ),转换成字符时,最前面留有一位符号位,5,、测试函数,函数名,举例,结果,TypeName(X),TypeName(10),TypeName(10.0),Integer,Double,IsNumeric(X),IsNumeric(23 ),True,IsDate(X),IsDate(02/02/2004 ),True,6,、格式输出函数,函数名,举例,结果,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,7,、,Shell,函数,Shell(Calc.exe ),调用计算器,Shell(Notepad.exe ),调用记事本,例题,四、,编码规则,语句的一般形式：,语句体,Dim a As Integer,a=3,Print a,2. VB,代码不区分字母的大小写,系统保留字自动转换每个单词的首字母为大写；,用户自定义以第一次为准。,3.,语句书写自由,一行可书写几句语句,之间用,冒号,分隔；,如：,A=1,：,B=2,：,C=3,一条语句可分若干行书写，用续行符,（空格,_,）,连接，一行,=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),的结果是在,( ),范围内的整数,第六讲 基本控制结构,语言元素组成语句，语句组成程序，语句需要按一定的顺序执行才能实现既定功能，而语句的执行顺序由控制结构控制，任何问题的解决只需三种结构：,顺序结构,分支结构（选择结构）,循环结构（重复结构）,理解控制结构是如何控制程序的执行顺序的，从而掌握如何根据功能需要用控制结构来组织所需要的语句。,一、顺 序 结 构,顺序结构即按语句的先后，顺序执行程序。顺序结构没控制语句，主要涉及,赋值语句、,Print,方法、,InputBox,和,MsgBox,函数（,MsgBox,过程）。,例,8,输入半径,求圆面积和球体积。,1,、,InputBox,函数（,输入数据,）,注意：函数返回的数据是,字符类型,。,函数形式：变量,=InputBox(,提示,标题,默认值,),r= InputBox(,请输入半径,r,：, ,输入数据, 4),2,、,MsgBox,函数和,MsgBox,过程（,输出提示信息,）,函数形式：,变量,= MsgBox(,提示,图标,+,按钮,，标题,),a = MsgBox(,密码错误！, 16 + 1, ,登录,),过程形式：,Call,MsgBox (,提示,图标,+,按钮,标题,),MsgBox,提示,图标,+,按钮,标题,图标类型,参数值,红色,Stop,标志,16,询问信息 ？,32,警告信息 ！,48,信息,I,64,按钮,参数值,0,1,2,3,4,5,按下的按钮,返回值,1,2,3,4,5,6,7,思考,例,8,输入半径,求圆面积和球体积。,二 、分支结构,简单分支,双分支,多分支,如果五一节放假，那么，我就去旅游。,如果五一节放假，那么,我就去旅游，,否则，,我到机房做,vb,作业。,如果假期是,清明节：去濮塘；,五一节：去采石；,端午节：回老家；,暑 假：去上海。,1. If,Then,语句,(,单分支结构,),If Then,语句块,End If,或,If Then ,问题 ：,输入两个数存放在,x,和,y,中 ，比较大小，保证大数放在,x,中，小的数放在,Y,中。,2. If,Then,Else,语句,(,双分支结构,),If Then,Else,End If,If Then Else ,问题：,判断一个整数的奇偶性,注意：单分支和双分支如果写成,块,形式，,If,和,End If,必须成对出现，写成,行,形式就不能带,End If,例,10,帐号和密码,（,1,）运行效果,（,2,）目的：分支结构及分支结构的嵌套,（,3,）分析：,布局：两个标签，两个文本框和两个命令按钮,控制逻辑：略,（,4,）设计：,5,思考,2,：,判断一个数是整数还是小数，如果,是整数再判断其奇偶性 。,思考,1,：,设计最多可输入,3,次校验密码的程序。,1,、,赋值语句,2,、,InputBox,（）,3,、,MsgBox,（）、,MsgBox,过程,4,、,Print,方法,注意：标点符号（分号、逗号）和,Tab(),、,Space,（）函数的使用,5,、分支结构,单分支、双分支、分支嵌套,回顾,Y=,0.8x,(x=100,元,),0.7x,(x=200,元,),0.5x,(x300,元,),第七讲 基本控制结构,问题：书店优惠售书,（,x,：合计金额，,y,：实付金额）,If x = 100 Then,y = 0.8 * x,Else,If x = 200 Then,y = 0.7 * x,Else,If x = 300 Then,y = 0.5 * x,Else,y = 0.3 * x,End If,End If,End If,3.,多分支语句,(,情况语句,),Select Case,变量,Case,表达式列表,1,语句块,1,Case,表达式列表,2,语句块,2,Case Else,语句块,n+1,End Select,Case,后的表达式有四种形式：,表达式 一个数：,2,枚举表达式,(,用逗号分隔,),多个数：,2,4,6,8,表达式,1 To,表达式,2,一个范围,60 To 100,Is,关系运算符表达式 一个范围,Is 60,例,11,书店优惠售书,思考：,设计一个计程车收费程序,思考：,书店优惠售书,If x = 100 Then,y = 0.8 * x,If x = 200 Then,y = 0.7 * x,If x 300 Then,y = 0.3 * x,思考：设计一个测属相程序,1. For,循环语句,(,用于循环次数已知,),形式,For,循环变量初值,to,终值,Step,步长,循环体,Next,循环变量,思考 ：,输入,10,个数，输出偶数之和。,思考 ：,输入,10,个数，输出偶数平均值。,三、 循 环 结 构,步长为正,1,时，步长可省略；若终值,初值，步长应为负值；,问题,:,输入,10,个数，输出累加之和。,例,12,求,S=1+2+3+100,思考：,求,S=1+3+5+9,9,思考：求,s=1+1/2+1/3+1/10,2. DoLoop,循环语句,(,用于控制循环次数未知,),形式,2,：,Do,循环体,Loop While|Until ,注意：,形式,1,是,先判断后执行,，形式,2,是,先执行后判断,，所以形式,1,中，循环体有可能,1,次都不执行,，形式,2,中，循环体,至少执行一次,。,While,方式是条件成立的时候执行循环体,，,until,是条件不成立的时候执行循环体。,S=1+2,2,+3,2,+,+10,2,，计算并输出,s,例,13,S=1+2,2,+3,2,+n,2,，,问,n,为多少时，,s,的值大于,100000,？,形式,1,：,Do While|Until ,循环体,Loop,要注意：,出了循环，循环控制变量值的问题。,例程序段：,For i=2 To 13 Step 3,Print i ,Next i,Print,I=,;,i,2,5,8,11,I=14,在循环体内对循环控制变量可多次引用；但最好不要对其赋值，否则影响原来的循环控制规律。,例,.,循环控制变量的改变对循环的影响。,Private Sub Command1_Click(),j = 0,For,i,= 1 To 10 Step 2,i,=,i,+ 3,j = j + 1,Print ,第,; j; ,次循环,i=; i,Next i,Print ,退出循环后,i=; i,End Sub,第,1,次循环,i=4,第,2,次循环,i=9,退出循环后,i=11,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,四、其他辅助控制语句,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 Loop,循环,Do while ,循环体,Loop,Case,后的表达式有四种形式：,表达式 一个数：,2,枚举表达式,(,用逗号分隔,),多个数：,2,4,6,8,表达式,1 To,表达式,2,一个范围,60 To 100,Is,关系运算符表达式 一个范围,Is Max Then,End If,Next i,Print,Print ,最大值,=; Max,End Sub,Max = 100,Max = x,Int(Rnd * 101 + 100),思考题,：,输入十个数，输出其中的最大数和最小数,思考题,:,7,个裁判给选手打分,要求去掉最高分和最低分,求平均分。,6,、计数,(1),统,计,1100,之间能被,3,整除和能被,7,整除的数各有多少个,?,(2),统计字符串中字母“,A”,出现的次数,(,不区分大小写,),思考题,：统计字符串中大写字母、小写字母、数字字符的个数分别是多少？,7,、,简单图形输出,思考题：,求,M,，,N,的最大公约数和最小公倍数,4.6,常 见 错 误,1.,不循环或死循环的问题,主要是循环条件、循环初值、循环终值、循环步长的设置有问题。,2,.,循环结构中缺少配对的结束语句,For,少 配对的,Next,3,.,循环嵌套时,内外循环交叉,4,.,累加、连乘时，存放累加、连乘结果的变量赋初值问题,(1),一重循环,在一重循环中,存放累加、连乘结果的变量初值设置应在循环语句前。,（,2,）多重循环,这要视具体问题分别对待。,第十讲 数 组,一、 数组的引入,二、 程序举例（三）,一、数组的引入,1.,引例,例 求,10,个学生某门课的平均成绩，统计高于平均分的人数。,按以前简单变量的使用和循环结构相结合，求平均成绩程序段如下：,S = 0,For i = 1 To 10,X = Val(InputBox(,输入第,& i &,位学生的成绩,),S = S + X,Next i,aver = S / 10,请注意：,x,里存放的是最后一个同学的成绩！,能不能给多个变量起相同的名字呢？,2,、,什么是数组,数组是有,相同名称,的,一组,变量的集合。这些变量称为数组的元素，每个数组元素都有一个编号，这个编号叫下标。,4,、数组的声明,3,、数组的分类,根据下标个数 ：,1,维，,2,维,根据元素个数是否确定：静态数组，动态数组,动态数组,Dim,数组名,( ) as,类型,ReDim,数组名,(,变量,),静态数组,格式：,Dim,数组名,(,常量,) as,类型,如：,Dim x(10) As Integer,Dim x(1 to 10) As Integer,Dim x(3,5),5,、,数组赋值,数组赋值是指给数组元素赋值，不能给数组名赋值。,说明：,（,1,）系统默认下标下限是,0,，也可以在通用声明段用,option base 1,限制下标从,1,开始,（,2,）和数组有关的函数：,Array(), LBound(), UBound(),67,87,56,78,95,56,74,69,45,66,解决刚才的问题：,第一步,:,定义一个数