必修3第一单元

知识梳理知识梳理要点突破要点突破第一第一单元算法及元算法及VB语言言知识梳理知识梳理要点突破要点突破考试标准考试标准考考试内容内容考考试要求要求 考考试属性属性1.算法的基本概念及常用表示方法算法的基本概念及常用表示方法b加加试2.面向面向对象程序象程序设计的基本思想与方法的基本思想与方法b3.类、对象象、属属性性、方方法法、事事件件和和事事件件处理理的的概概念念及及应用用c4.VB应用程序的用程序的调试及运行及运行c5.VB基本数据基本数据类型、常量、型、常量、变量与数量与数组c6.VB各各类基本运算、表达式与常用的基本运算、表达式与常用的标准函数准函数c7.常用常用VB语句句c8.过程与自定程与自定义函数函数c知识梳理知识梳理要点突破要点突破VB应用用程程序序是是按按模模块化化的的方方式式组成成的的，一一个个程程序序模模块是是程程序序的的一一部部分分，每每个个模模块负责解解决决整整个个应用用问题的的一一部部分分任任务。程程序序模模块分分为过程和函数两种。程和函数两种。知识梳理知识梳理要点突破要点突破一、过程一、过程可可以以将将程程序序划划分分成成一一个个个个较小小的的逻辑单元元，这样每每个个逻辑单元元可可以以构构成成一一个个过程程。过程程中中的的代代码可可以以被被重重复复调用用，从从而而避避免免了不必要的代了不必要的代码的重复的重复编制，减少了制，减少了编程的工作量。程的工作量。构造事件构造事件处理理过程程Sub事件事件处理理过程名程名(参数表参数表)语句句块End Sub其其中中，事事件件处理理过程程名名必必须符符合合下下面面的的规则：对象象名名_事事件件的的标准名。准名。VB的一些常用的一些常用对象上的常象上的常见事件的事件的标准名准名见下表：下表：知识梳理知识梳理要点突破要点突破对象象事件事件处理理过程名程名说明明文本框文本框TextText_Click在文本框内在文本框内单击鼠鼠标Text_DblClick在文本框内双在文本框内双击鼠鼠标Text_KeyPress文本框被激活后，用文本框被激活后，用户在在键盘上按下上按下了某个了某个键命令按命令按钮CommandCommand_Click在命令按在命令按钮上上单击鼠鼠标标签LabelLabel_Click在在标签上上单击鼠鼠标窗体窗体FormForm_Load窗体装窗体装载知识梳理知识梳理要点突破要点突破通通过过程程：是是一一个个独独立立的的程程序序段段，不不同同的的事事件件可可能能需需要要使使用用同同一一个个程程序序段段时，可可以以把把这个个程程序序段段单独独地地建建立立成成一一个个通通用用过程程，供供其他事件其他事件处理理过程或其他通用程或其他通用过程程调用。用。知识梳理知识梳理要点突破要点突破二、函数二、函数函函数数是是类似似于于过程程的的另另一一种种程程序序模模块，不不同同之之处是是函函数数执行行完完成成后后，函函数数的的计算算结果果被被送送到到函函数数的的调用用点点上上，供供程程序序的的后后继部分部分继续进行行处理。理。自定自定义函数格式：函数格式：Function函数名函数名(参数表参数表)As类型名型名语句句块End Function知识梳理知识梳理要点突破要点突破函函数数名名是是为函函数数指指定定的的名名称称，参参数数表表是是对一一函函数数需需要要的的原原始始数数据据类型型一一一一地地进行行说明明，As后后的的类型型名名，是是说明明函函数数的的计算算结果果，即即函函数数返返回回值的的数数据据类型型。自自定定义函函数数的的语句句块中中至至少少要要有有一一个个形形如如“函函数数名名表表达达式式”的的语句句，这样，表表达达式式的的计算算结果果才才能能作作为函数的返回函数的返回值，被，被VB送到函数的送到函数的调用点上。用点上。知识梳理知识梳理要点突破要点突破过程程：将将程程序序划划分分为一一个个个个较小小的的逻辑单元元，每每个个逻辑单元元构构成成一一个个过程程。过程程中中的的代代码可可以以被被重重复复地地调用用。过程程分分成成两两类：事事件件处理理过程和通用程和通用过程。程。事件事件处理理过程：程：Sub事件事件处理理过程名程名(参数表参数表)语句句块End Sub知识梳理知识梳理要点突破要点突破VB预设的的事事件件有有：Click(单击)、DblClick(双双击)、KeyPress(按按键)、Load(装装载)、Change(改改变)等。等。VB的一些常用的一些常用对象上的常象上的常见事件的事件的标准名有：准名有：文文本本框框Text：Text1_Click、Text1_DblClick、Text1_KeyPress、Text1_Change命令按命令按钮Command：Command1_Click标签Label：Label1_Click窗体窗体Form：Form_Load(窗体装窗体装载)知识梳理知识梳理要点突破要点突破【典例【典例1】某某VB程序如下：程序如下：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii13 Then Text2.TextText1.TextStr(5)End IfEnd Sub程序运行程序运行时，能触，能触发该事件事件过程的是程的是()A.单击文本框文本框Text1B.单击文本框文本框Text2C.文本框文本框Text1被激活后，用被激活后，用户在在键盘上按下某一个上按下某一个键D.文本框文本框Text2被激活后，用被激活后，用户在在键盘上按下某一个上按下某一个键知识梳理知识梳理要点突破要点突破解解析析事事件件处处理理过过程程名名必必须须符符合合规规则则：对对象象名名_事事件件的的标标准准名名。Text1_KeyPress(KeyAscii As Integer)中中Text1是是这这个个事事件件过过程程的的触触发发对对象象，所所以以排排除除B、D选选项项。KeyAscii是是事事件件过过程程的的参参数数，意意思思是是键键盘盘输输入入后后传传递递给给程程序序的的ASCII码码。结结合合if语语句句，当当按按下下键键盘盘上上某某一一个个键键传传递递给给程程序序的的ASCII码码值值等等于于13的的时时候候执执行行then后后面的语句。所以答案选面的语句。所以答案选C。答案答案C知识梳理知识梳理要点突破要点突破【变式【变式1】有如下有如下VB程序段：程序段：Dim i As Integer，c As String，s As String，t As Strings“China2014IT”：t“”“”For i1 To Len(s)cMid(s，i，1)If c“a”And c“z”Then ttcNext iLabel1.Captiont该程序段运行后，程序段运行后，标签Label1中中显示的内容是示的内容是()A.2014 B.ChinaIT C.hina D.CIT知识梳理知识梳理要点突破要点突破解析解析该程序的功能是取出字符串该程序的功能是取出字符串s中的小写字母。中的小写字母。答案答案C知识梳理知识梳理要点突破要点突破【典典例例2】下下面面VB程程序序的的功功能能为：在在文文本本框框Text1和和Text2中中输入入两两个个整整数数，单击按按钮对象象Command1，在在标签对象象Label1中中显示示这两个数的差。两个数的差。Function lsc(x，y)As IntegerIf xy Then lscxyElse lscyxEnd IfEnd FunctionPrivate Sub Command1_Click()知识梳理知识梳理要点突破要点突破Dim a1 As Integer，a2 As Integera1Val(Text1.Text)a2Val(Text2.Text)Label1.Caption_End Sub要要实现上述功能，程序画上述功能，程序画线处应填入的填入的语句句为()A.lsc(x，y)B.lsc(Text1.Text，Text2.Text)C.lscD.lsc(a1，a2)知识梳理知识梳理要点突破要点突破解解析析自自定定义义函函数数lsc用用于于求求两两个个整整数数的的差差，由由于于输输入入的的整整数数为为a1、a2，因此画线处应填的语句为，因此画线处应填的语句为lsc(a1，a2)，答案为，答案为D。答案答案D知识梳理知识梳理要点突破要点突破【变式【变式2】某某VB应用程序的两个事件用程序的两个事件过程如下：程如下：Private Function out(x As Integer，y As Integer，z As Integer)As IntegerDim temp As IntegerIf xy Then tempy Else tempxIf tempz Then tempzouttempEnd FunctionPrivate Sub Command1_Click()知识梳理知识梳理要点突破要点突破Dim a As Integer，b As Integer，c As Integera1b2c3Text1.Textout(a，b，c)End Sub程程序序运运行行时，单击命命令令按按钮command1后后，在在文文本本框框Text1中中显示示的内容是的内容是()A.0 B.1 C.2 D.3知识梳理知识梳理要点突破要点突破解解析析自自定定义义函函数数out的的功功能能是是求求三三个个数数中中的的最最小小数数，1、2、3三三个数中的最小数为个数中的最小数为1，因此答案为，因此答案为B。答案答案B知识梳理知识梳理要点突破要点突破【典典例例3】小小明明在在VB中中定定义了了以以下下函函数数，功功能能是是求求a和和b的的最最大大公公约数。数。Function gcd(a As Integer，b As Integer)As IntegerDo While b0 ca Mod b ab bcLoopEnd Function知识梳理知识梳理要点突破要点突破调试中中发现计算算结果果一一直直是是0。经过仔仔细观察察与与分分析析，发现错误的原因是的原因是()A.函数名有函数名有错B.变量量c没有定没有定义C.函数没有返回函数没有返回值D.b0应该改改为b0解解析析A选选项项函函数数名名的的命命名名规规则则同同变变量量名名。VB中中可可以以省省略略一一些些变变量量的的定定义义，未未定定义义的的变变量量即即为为通通用用类类型型，即即根根据据赋赋值值变变化化数数据据类类型型，所所以以B选选项项局局部部变变量量c未未定定义义，不不影影响响程程序序运运行行。D选选项项把把循循环环条条件件改改成成b0反反而而会会使使Do WhiheLoop循循环环进进入入死死循循环环。所以正确答案是所以正确答案是C。答案答案C知识梳理知识梳理要点突破要点突破【变变式式3】在在VB中中，设已已定定义函函数数过程程f，它它有有三三个个实型型传值参参数数。设a，b，c为实型型变量量，则下下列列能能调用用该函函数数的的正正确确语句句是是()A.f B.f(ab，bc)C.f(ab，bc，ca)D.fab，bc，ca解析解析注意函数的格式。注意函数的格式。答案答案C知识梳理知识梳理要点突破要点突破【典典例例4】(20133月月浙浙江江会会考考)如如果果一一个个整整数数是是另另一一个个整整数数的的平平方方，则称称该数数是是“完完全全平平方方数数”。如如：111，422，933，所所以以1、4、9是是完完全全平平方方数数。下下列列VB程程序序可可以以求求出出1到到n(1n1 000)之之间的所有完全平方数之和：的所有完全平方数之和：Private Sub Command1_Click()Dim s As Long用于存用于存储1到到n之之间所有完全平方数之和所有完全平方数之和Dim i As Integer，n As IntegernVal(Text1.Text)s0For i1 To n知识梳理知识梳理要点突破要点突破 If ok(i)Then ssi当当ok函函数数返返回回值为True时，执行行ssiNext iLabel1.CaptionStr(s)End Subok函数用于判断函数用于判断变量量t的的值是否是否为完全平方数完全平方数Function ok(t As Integer)As BooleanDim k As IntegerIf k*kt Then okTrue Else okFalseEnd Function知识梳理知识梳理要点突破要点突破方框中的正确方框中的正确语句是句是()A.kInt(Sqr(t)B.tInt(Sqr(k)C.kt2 D.tk2解解析析在在判判断断t是是否否为为完完全全平平方方数数之之前前，先先取取出出k的的值值，使使kInt(Sqr(t)，若若正正好好有有k*kt，则则得得出出结结论论：t是是完完全全平平方方数数，okTrue。答案答案A知识梳理知识梳理要点突破要点突破【典例【典例5】(201510月浙江选考月浙江选考)某数据加密方法描述如下：某数据加密方法描述如下：(1)以字以字节为单位位进行加密行加密处理；理；(2)将将1个字个字节的的8位二位二进制数分割成前制数分割成前4位与后位与后4位两个二位两个二进制数；制数；(3)分分别将上述两个将上述两个4位二位二进制数制数转换为十十进制数；制数；(4)将每个十将每个十进制数制数转换为1个加密字符，个加密字符，对应的的“密密码表表”如下：如下：值(十十进制制)0123456789101112131415加密字符加密字符IlikeCHNpostcard小小明明按按照照上上述述方方法法，设计了了一一个个字字符符串串(仅包包含含ASCII字字符符)加加密密的的VB程程序序，功功能能如如下下：单击“加加密密”按按钮Command1，程程序序依依次次将将文文本本框框Text1中中每每个个字字符符的的ASCII码值作作为1个个字字节转换为两两个个加加密密字字符符，连接接这些些加加密密字字符符，最最后后在在文文本本框框Text2中中输出出加加密密结果。下表果。下表显示了字符串中一个字符的加密示了字符串中一个字符的加密过程：程：知识梳理知识梳理要点突破要点突破程序运行效果如程序运行效果如图所示。所示。知识梳理知识梳理要点突破要点突破实现上述功能的上述功能的VB程序如下：程序如下：(1)请在画在画线处填入合适代填入合适代码。Private Sub Command1_Click()Dim n As Integer，s As String，i As Integer，ss As StringDim a As Integer存存储加密前字符的加密前字符的ASCII码Dim b1 As Integer，b2 As Integer分分别存存储分分割割、转换后后的两个十的两个十进制数制数sText1.Text _ _For i1 To n aAsc(Mid(s，i，1)知识梳理知识梳理要点突破要点突破 b1a16 b2a Mod 16 ssssCode2Char(b1)Code2Char(b2)Next iText2.TextssEnd Sub十十进制制值转换为加密字符的函数加密字符的函数Function Code2Char(c As Integer)As StringDim s As Strings“IlikeCHNpostcard”Code2Char_End Function知识梳理知识梳理要点突破要点突破(2)若若将将“密密码表表”中中值为“0”对应的的加加密密字字符符“I”改改成成“i”，加加密密后的密文可能无法解密，原因是后的密文可能无法解密，原因是_。解解析析本本题题考考查查过过程程和和自自定定义义函函数数，常常用用标标准准函函数数等等。(1)根根据据题题意意，对对文文本本框框Text1中中输输入入的的字字符符串串逐逐个个字字符符加加密密，需需算算出出字字符符串串的的长长度度n，作作为为循循环环变变量量的的终终值值，即即nLen(s)。加加密密后后的的字字符符串串(密密文文)存存储储于于字字符符串串变变量量ss中中。自自定定义义函函数数Code2Char()中中，根根据据密密码码表表对对应应的的每每个个十十进进制制数数转转换换为为1个个加加密密字字符符，第第一一个个加加密密字字符符对对应应十十进进制制值值为为0，故故当当十十进进制制数数值值为为6时时，对对应应的的字字符符H是是第第61个个字字符符位位置置，即即当当十十进进制制数数值值为为c时时，对对应应的的字字符符是是第第c1个个字字符符位位置置，用用取取子子串串函函数数Mid(s，c1，1)。(2)若若密密码码表表中中值值为为0对对应应的的加加密密字字符符I改改为为i，造造成成同同时时对对应应加加密密字字符符i，当当解解密密时时，加加密密字字符符i对对应应的的十十进进制制有有两两个个值值0和和2，不不唯唯一一而而出出错错，从从而无法解密。而无法解密。知识梳理知识梳理要点突破要点突破答案答案(1)nLen(s)或或nLen(Text1.Text)Mid(s，c1，1)(2)加密字符加密字符i对应两个两个值0，2