计算机二级vb总复习要点市公开课一等奖省赛课微课金奖课件

VB程序设计复习关键点第1页第一章VB概述属性(Property)：指对象性质、特征。方法(Method)：指对象能执行动作。事件(Event)：指能够被对象识别动作。程序代码中使用以下格式语句来改变属性值：

对象名.属性＝属性值经过以下格式为变量赋值： 变量＝对象名.属性使用方法格式：控件名.方法VB采取事件驱动编程方式，事件过程普通格式：PrivateSub控件名_事件名（[参数表]）（程序代码）EndSub

第2页第二章创建用户界面窗体类相关属性、方法和事件属性方法事件NameCaptionBackcolorForecolorEnabledVisibleFontLeftTopWidthHeightHideShowPrintClsClickLoadActiveDeactive第3页第二章创建用户界面控件类名属性方法事件文本框TextBoxNameTextPasswordCharMultiLineSetFocusChangeKeyPress标签LableCaptionAutoSize命令按钮CommandButtonCaptionEnabledSetFocusClick第4页第二章创建用户界面控件类名属性方法事件列表框ListBoxListListCountListIndexTextAddItemClearRemoveItemClick组合框ComboBoxStyleTextAddItemClearRemoveItemClick图象控件Image图片框控件PictureBoxPictureAutosizePrintClsClick第5页第二章创建用户界面控件类名属性方法事件选项按钮OptionButton复选框CheckBoxCaptionValueClick框架FrameCaption水平滚动条Hscrollbar垂直滚动条VscrollbarValueMax和MinLargeChangeSmallChangeChange计时器TimerIntervalTimer第6页第三章VB语言基础VB应用程序窗体文件标准模块文件申明部分事件过程通用过程全局申明部分模块申明部分通用过程类模块文件第7页第三章VB语言基础语句：VB程序最基本成份一个语句可经过续行符号“_”（一个空格加一个下划线）分成多行写；多个语句也可经过分行符号“：”（冒号）写在一行上。注释语句：[格式一]：Rem<注释语句>[格式二]：’<注释语句>第8页第三章VB语言基础整型数浮点型数整型长整型单精度数双精度数程序运行中取值一直保持不变数据称为“常量”数值常量：八进制数（数字前加&O)和十六进制（数字前加&H)<底数>E<指数>或<底数>D<指数>，其中以E分隔数为单精度数，以D分隔数为双精度数字符常量：用引号括起来一串字符逻辑型常量：只有True（真）和False（假）两个取值日期型常量：用#作为界定符，mm/dd/yy表示日期，hh:mm:ss表示时间符号常量：以符号形式表示常量[Public|Private]Const<常量名>[AsType]=<表示式>第9页第三章VB语言基础以符号形式出现在程序中，且取值能够发生改变数据称为“变量”，变量名命名规则以下：必须以字母开头长度不超出255个字符在作用域内必须唯一字符串内不得包含点号和用于类型说明符号％、&、！、＃、@、$，也不能有空格不得使用系统保留字（如EndPrivateSub）第10页第三章VB语言基础变量说明语句局部变量(包含静态变量）——在过程中申明Static|Dim<变量名>[As<类型>]窗体/模块级变量——在模块“通用”部分申明

Private|Dim<变量名>[As<类型>]

全局变量——在模块“通用”部分申明

Public<变量名>[As<类型>]第11页第三章VB语言基础变量初始值：当对一个变量进行说明后，系统会自动为其赋一个默认初始值。数值型数据初值为0；字符型数据初值为空串“”；逻辑型数据初值为False；日期型数据初值为1899-12-30，0：00：00一条语句申明多个变量：必须对每个变量都逐一申明 例：Dimx,yasInteger第12页第三章VB语言基础变量赋值：变量名=表示式隐式说明——类型说明符(P47，表3-4)例：k%=1：Country$=“China”定长字符串说明：Private|Dim|Static|Public<变量名>AsString*<长度>

例：DimString1AsString*10第13页第三章VB语言基础OptionExplicit语句功效：系统自动检验模块中全部未加显式说明变量，一旦发觉便产生犯错信息提醒使用者更正错误。该语句应在模块通用说明部分输入强制显式说明好处：一个变量假如不被定义，会被看成变体类型来进行处理，从而降低程序效率；变量定义之后，若事后使用了错误变量名，则系统检测到错误变量名时会发觉其没有被申明，便会提醒用户输入错误。第14页第三章VB语言基础算术运算符加（+）、减（-）、乘（*）、除（/）、整除（\）、取余（Mod）、乘方（^）、字符串连接（&）优先级：^-（负号）*和/\Mod+和-&关系运算符：＝、>、<、>=、<=、<>逻辑运算符：非（Not）、与（And）、或（Or）、异或（Xor）优先级：NotAndOrXor第15页第三章VB语言基础运算规则：先算术运算，再关系运算，最终逻辑运算（）可用来改变运算优先次序不一样数据类型数据进行运算：结果为存放长度较长数据类型，但除法运算结果都为双精度型要注意表示式可能溢出情况第16页第三章VB语言基础公共函数：VB系统已预先定义好完成某特定功效程序段，公共函数可供编程者直接调用使用。算术函数（P50表3-6）字符函数（P51表3-7）转换函数（P51表3-8）日期与时间函数（P52表3-8）第17页第三章VB语言基础格式化函数format[$](<算术表示式>,fmt$)[格式控制字符]：

数位控制符：#、0

标点控制符：.、，

指数输出控制符：E+、E-

符号控制符：%、$、-、+例：X=123456.78PrintFormat(x,”00000000.0000”)PrintFormat(x,”###，###，###.#”)00123456.7800123,456.8第18页第四章算法基础及VB基本语句任何算法都可由以下三种基本结构实现：次序结构、分支结构、循环结构语句1语句2条件满足?语句块1语句块2TrueFalse语句块TrueFalse条件第19页第四章算法基础及VB基本语句分支结构If条件成立Then[A组语句]Else[B组语句]EndIf注意：语句体和Then或Else不能够写在同一行2.当分支结构中A组或者B组语句仅有一条时，可省略“EndIf”，但必须将全部语句写在同一行：If条件成立Then<语句1>Else<语句2>

第20页第四章算法基础及VB基本语句多分支结构If条件1Then

语句块1

ElseIf条件2Then语句块2……

ElseIf条件nThen语句块n

Else

语句块n+1

EndIfSelectCase测试表示式

Case测试项1语句块1

Case测试项2语句块2……

CaseElse语句块n＋1EndSelect第21页第四章算法基础及VB基本语句条件？循环体TrueFalse条件？循环体FalseTrue

DoWhile<条件><循环体>

LoopDo<循环体>LoopWhile<条件>“当(while)型”循环——条件成立时，执行循环体第22页第四章算法基础及VB基本语句条件？循环体FalseTrue条件？循环体TrueFalse“直到(Until)型”循环——条件成立时，结束循环

DoUntil<条件><循环体>

LoopDo<循环体>LoopUntil<条件>第23页第四章算法基础及VB基本语句For-Next循环For<计数变量>=<初值>To<终值>[Step<步长>] 循环体Next<计数变量>注意：计数变量应为整型或单精度型，初值、终值和步长值为对应类型表示式；步长值能够为正，也可为负，省略时默认步长值为1；第24页第四章算法基础及VB基本语句ExitDo用于直接退出循环，可在任意Do-Loop结构循环体中出现，普通形式为：If条件成立ThenExitDo循环体中可出现ExitFor语句，用于无条件退出循环第25页第四章算法基础及VB基本语句赋值语句普通形式为：var=<表示式>其中：var表示某个变量名或属性名,赋值语句左边不能是表示式或常量第26页第四章算法基础及VB基本语句变量（数值型）＝表示式（数值型）将表示式值类型先转换为变量类型再赋值变量（字符型）＝表示式（数值型）将表示式值先转换为数字字符再赋给变量变量（逻辑型）＝表示式（数值型）

非零值转换为True赋给变量，0值转换为False赋给变量变量（数值型）＝表示式（逻辑型）

True转换为－1赋给变量，False转换为0赋给变量变量（字符型）＝表示式（逻辑型）True转化为“True”赋给变量，False转化为“False”赋给变量变量（数值型）＝表示式（字符型）报错第27页第四章算法基础及VB基本语句InputBox函数v=InputBox[$](<Prompt>[,<Title>][,<Default>][,<x,y>])MsgBox函数MsgBox[(Prompt[,Button][,Title][,HelpFile,Context])]1.等同为一个方法使用,不加括号；例：MsgBox"非法数据！",,"警告"2.使用Print方法例:Print

MsgBox("非法数据！",,"警告")3.需要用户响应结果，将函数返回结果(P63,表4－3）赋给一个变量例：Response=MsgBox("真删除该项吗？",

4+48,"提醒信息")第28页第五章数组数组：一组含有相同类型有序变量集合数组必须先定义后使用。数组定义:Public|Private|Static|Dim数组名([<下界1>To]<上界1>[，[<下界2>To]<上界2>,…])As类型说明：<下界>TO<上界>决定了每一维大小，下界指下标最小值，上界指下标最大值，默认下界是从0开始，若想使下标从1开始，可在模块“通用”部分中使用语句“OptionBase1”上、下界必须是常量或常量表示式，不得是变量，上、下界应是整数，若不是，则自动四舍五入第29页第五章数组返回上、下界函数：UBound(数组名[,d]）：返回数组某维维上界值LBound(数组名[,d]）：返回数组某维维下界值Erase：初始化固定大小数组元素（依据数组类型给元素赋初值），或释放动态数组存放空间。ForEachElementIn<数组名> 语句组 [ExitFor] 语句组 Next[Element]说明：Element必须是个Variant变量，它逐一代表数组中每一个元素。第30页第五章数组数组元素赋值经过循环逐一给数组元素赋值（用InputBox函数）变体变量名=Array([n1,n2,...]) 数组元素输出按矩阵格式输出数组数组元素引用经过数组名和下标来引用，但元素下标一定要在定义上下界范围之内，不然便会报出“数组越界”错误。第31页第五章数组动态数组Dim数组名()as类型ReDim[Preserve]<数组名>(维界定义)控件数组：由一组含有相同名称同类型控件组成，每个控件共享同一事件过程控件数组中每个控件都由其下标属性Index标识控件数组第一个元素下标为0第32页第五章数组Loadobject(index)Unloadobject(index)用于添加和删除控件数组中控件，但添加和删除控件只能针对现有控件数组操作index能够跳序；Unload语句只能删除由Load语句添加控件；由Load语句添加控件，其Visible属性为False,所以要在程序中将刚装载控件Visible属性设置为True，才能在窗体上可见；另外，新控件大小、位置与原控件一样，隐藏在其背后，所以还要重新设置它Top、Left等属性；第33页第五章数组排序选择法排序直接排序冒泡排序直接插入排序二分查找第34页第五章数组选择法排序：Fori=1toN-1Forj=i+1toNIfA(i)<A(j)ThenTEMP=A(i)A(i)=A(j)A(j)=TEMPEndIfNextjNexti第35页第五章数组冒泡排序Fori=1ton-1Forj=1ton-iIfa(j)<a(j+1)ThenTEMP=A(j)A(j)=A(j+1) A(j+1)=TEMPEndIfNextjNexti第36页将待排序N个数据存放在数组SORT中，首先将SORT（1）认为已排序子序列，然后依次将SORT（2）、SORT（3）、…SORT（N）插入到已排好序子数列中。每插入一个元素都依次进行以下三个操作。1.先将待插元素SORT（I）放入变量Temp中；2.寻找插入位置：将temp依次与SORT（I-1）、SORT（I-2）、…进行比较，一旦SORT（k）<temp，则停顿比较，插入位置即是SORT（K）之后；3.空出位置，将元素插入：将SORT（k+1）至SORT（I-1）元素依次后移一位，再将变量temp值放入SORT（K+1）中；注意：为防止元素值丢失，必须先将SORT（I-1）赋给SORT（I），SORT（I-2）赋给SORT（I-1），…，直至SORT（K+1）赋给SORT（K+2）.……重复上述操作，将每个元素都插入到指定位置中。[例8-11]：直接插入排序法——从小到大次序。第37页3615436154616565463Temp2265432排序前排序后直接排序示例第38页PrivateSubinsertion(sort()AsInteger)DimkAsInteger,iAsInteger,tempAsInteger,UbAsIntegerUb=UBound(sort)Fori=2ToUbtemp=sort(i)k=i-1DoWhiletemp<sort(k)sort(k+1)=sort(k)k=k-1Ifk<=0ThenExitDoLoopsort(k+1)=tempNextiEndSub取待排序元素一边比较一边后移temp比已排序全部元素都小则结束寻找第一个比temp小元素位置为temp插入位置K指向前一个元素第39页[分析]：二分查找是一个快捷有效查找方法，使用二分查找前提是数据序列已排好序。假设有n个数已经按照从小到大次序排列，并存放在数组A中，设Left为查找区间下界——下标，初值为1；Right为查找区间上界，初值为n；设需要查找数为x；二分查找算法以下：（1）求出查找区间中间位置Mid=Int((Left+Right)/2)（2）若A（Mid）=x，则找到，结束比较（3）若A（Mid）<x，则表明x在A（Mid+1）到A（Right）区间内，查找区间缩小二分之一，设置Left=Mid+1（4）若A（Mid）>x，则表明x在A（Left）到A（Mid-1）区间内，查找区间缩小二分之一，设置Right=Mid-1（5）重复执行以上操作（6）结束循环条件有两个：已经找到；找不到--Left>Right二分查找第40页341111059678x=8LeftRightMidLeftRightMidRightLeftMid231111049678x=5LeftRightMidMidRightLeftMidLeftLeftMidLeftMid第41页Left=LBound(a)Right=UBound(a)x=InputBox("请输入要查找数据")DoWhileLeft<=RightMid=Int((Left+Right)/2)Ifa(Mid)=xThen

ExitDoElseIfa(Mid)<xThenLeft=Mid+1Else Right=Mid-1EndIfLoopIfLeft<=RightThen Print"要查找";x;"是A（";Mid;")"Else Print"没找到！";xEndIf二分查找第42页第八章过程过程Sub过程Function过程Property过程事件过程通用过程窗体事件过程控件事件过程公有过程私有过程第43页第八章过程窗体事件过程普通形式以下：PrivateSubForm_事件名（[参数列表]）[局部变量和常数申明]语句块EndSub窗体事件过程InitializeLoadActivateGotfocus窗体事件过程名中不使用其详细名称，而固定用Form窗体事件固定为“Private”，说明它是模块级第44页第八章过程控件事件过程普通形式以下：PrivateSub控件名_事件名（[参数列表]）[局部变量和常数申明]语句块EndSub控件事件过程名中必须使用其详细名称控件事件固定有“Private”关键字，说明它是模块级第45页第八章过程通用过程[Private|Public][Static]Sub<过程名>([<参数列表>])<过程体>EndSub缺省作用域申明时，系统默认为Public；在一个窗体模块中调用另一窗体模块公有过