2017信息技术vb选修知识点

选修知识点（一）计算机解决问题的流程图I I j I I 一分析问题一设计算法 J编写程序,矗瑞 一（二）算法一、 算法定义：是解决问题的方法和步骤。算法是程序设计的“灵魂”。算法+数据结构=程序。二、算法的描述方法：分自然语言、流程图和伪代码三种。1、自然语言：人们日常生活中的语言（本国语言），用自然语言描述符合我们的习惯，且容易理解。2、流程图：也称程序框图，它是算法的一种图形化表示方法。且描述算法形象、直观，更易理解。3、伪代码：是介于自然语言和计算机程序语言之间的一种算法描述。是专业软件开发人员常用方法。1、有穷性：执行有限步之后结束，且每一步的执行时间也都是有限的。2、确定性：每一步都有确切的含义。3、可行性：原则上能精确运行，用纸和笔做有限次运算后即可完成。4、输入：有零个或多个输入。5、输出：至少产生一个输出。（三）程序设计基础计算机程序设计语言经历了机器语言、汇编语言、高级语言的发展过程。常用高级语言：BASIC VB Pascal C、C+、Java、Delphi Fortran、Powerbuilder 等。面向对象的程序设计语言，如 vb:其中的对象主要是系统设计好的对象，包括 窗体、控件等。控件：是指工具箱中的工具在窗体中画出的能实现一定功能的部件，如标签、文本框、命令按钮等。控件对象的类型前缀名字举例窗体Formfrmfrmfind命令按钮Commandcmdcmdok标签Labellbllblinput文本框TextBoxtxttxtClock右命令按钮（Command#勺Enabled属性设置为 True时按钮后效，设置为False时按钮无效常用控件：对象的三要素：属性、方法、事件属性Name设置对象的名称Font设置控件中字体格式Caption决定控件中显示的内容BackColor设置控件背景色Text决定窗体中文本框中显示的内容ForeColor设置控件的前景色(即文字颜色)Height决定控件高度Top决定控件与窗体顶部的距离Width决定控件宽度Left决定控件与窗体左边的距离Visible设置控件是否可见BorderStyle设置控件的边框风格Alignment即标签义字对齐属性：(0)Left Justify时文本左对齐；(1)Right Justify时文本右对畀；设直为(2)Center 时文本居中。对象中属性可以在设计界面时通过属性窗中设置，也可以在运行时通过赋值语句在代码窗口设置:对象名.属性名=属性值例：给文本框 Txt123的Text属性赋值为字符串“20，代码如下：Txt123.text =20 ”注意：如果直接给对象名赋值的话，是赋值给对象的默认属性。例：Txt123 =20 ” 相当于Txt123.text =20 ”都是给文本框 Txt123的text属性赋值。如果要获取对象的状态或特性，这时就要读取对象的属性值，方法如下：变量名=对象名.属性名例：读取文本框“ txt123 ”的“Text”属性的代码如下：a = txt123.text方法 常见的方法如下： Print Cls Move Show格式：对象.方法参数名表例：Form1.Print 欢迎使用事件及事件驱动常见的事件如下：Click 、DblClick 、KeyPress、Load、MouseUp等。事件是对象对外部操作的响应，如在程序执行时，单击命令按钮会产生一个Click事件。如需要命令按钮响应Click事件，就把完成 Click事件功能的彳t码写到 Click事件的事件过程中，与事件对应。事件过程的形式如下： Private Sub对象名_事件名()(事件过程代码)End Sub一、常量：指在程序进行过程中不变的量，在VB中一般分数值常量与字符常量两种数值常量：就是数学中说的常数，分整型常量和实型常量两种整型常量：即整数，指不带小数点的数值如1、0、-10、+35等都是合法的整数实型常量：即实数，指带小数点的数值。实型常量又分为定点数和浮点数两种。例：定点数：3.14159 和-6.8 , 1.99浮点数：2E6、1E5、88E例：1.23 45 X 103可表示为1.2345E3,字母E表示底数10浮点数就是数学上的科学计数法。字符串常量：被一对英文双引号括起来的若干个合法的字符称为字符串常量。例如：China、VisualBasic、“18“、”3.1415”等，是指英文双引号中的字符，不包括英文双引号本身。符号常量：如果多次用到同一个常量，则可用一个有意义的名字表示这个常量。、变量：在程序执行过程中，其值可以改变的量称为变量。变量命名注意要点：1、必须以字母或汉字 开头，不能以数字或其他字符开头。2、只能由字母、汉字、数字或下划线 组成，不能含有小数点、空格等字符。3、最长不超过255个字符4、不能以VB保留字作变量名，如语句定义符、函数名（ Integer、End、Print、Dim）等。5、VB不区分变量名中字母 大小写。如HELLO和Hello是同一个变量。三、数据及运算数据关键字所占内存取俄范围1、常用数据类型：（框选的内容都要熟记）整型Integer2字节长楂型Long4字节单圻度鳖Single4字节双达甩型Double8字节字挣串型String1U字节+刍符串是度布尔型B 凶 lean2字节日期里Date8字节-32768-32767-21474X364K 21474X3647员数:-3.4O2823E38-L40129SE-45正数：1.40129SE-45 3.4O2823E38贵 ft： -1J97693134E308 - -4.940656458E-324正效：4.940656458E324- L797693134E3O8建长字符串：0-65535个字苻不定长字希审t 020亿个字苻True 或 False100/1/1 - 9999/J 2/312句）2、常量和变量的命名、声明及赋值 （注意：符号常量声明和赋值必须一起完成，变量却必须分符号常量的声明和赋值Const常量名As常量类型=常量值（或表达式）如：Const pi As Single = 3.14159常量名为 pi注意：常量必须在声明的时候 立马赋值，如果没有“=3”部分就是错误的。变量的声明：Dim 变量名As 变量类型如：Dim a As Integer定义一个整型变量，变量名为 a变量的赋值 VB中使用“=给变量赋值，其形式为：变量名=表达式四、运算符1、算术运算符（注意：算术运算符的优先级问题、区分 / Mod 三个运算符）算术还算符含义运第优先现实例*指指1r o(24注意：和 mod取负r一-5+23的运算率法5+420量如果/除J5/22.5带小数， 要先四里除45 2n舍五人Mot!求金51取整，再加或fi20+520-52515作运算。2、字符串运算符“ + ”和&作用是将运算符两边的字符串连接为一个新的字符串。使用&运算符时应注意前后加空格。注意特例：当数值型和字符型连接时，+把数据都转化成数值型然后相加，返回一个数值型数据。例如：123+ 45”= 12345”123 +45” = 168123 & 45” = 12345123 &45” = 12345”3、关系运算符 （优先级相同） 注意：关系表达式的运算结果为布尔值True或False= 等于 小于号 不等于 大于号= 大于等于号 99,结果为 False 。（3）数值型与可转换为数值型的数据，按数值比较。例:29 189,结果为False 。4、逻辑运算符Not （取反） And （与） Or （或）优先级依次降低Not对一个逻辑量进行运算，And和Or是对两个逻辑量进行运算，运算结果都为逻辑值True或False运算符说明优先级说明举例结果Not非1当操作数为假时，结果为真Not FalseTrueAnd与2操作数均为真时，结果才为真True And FalseFalseOr或3操作数中件-个为真时，结果为真False Or TrueTrue5、日期运算符与日期表达式日期表达式是用“+”或“-”将算式表达式、日期型常量、日期型变量、日期函数等连接起来的式子。例如： 表达式 “#2003/09/01# + 30 ”的运算结果是“ 2003-10-1 ”表达式 “#2003/10/20# - #2003/10/10#” 的运算结果为整数 106、运算符的执行顺序：算术运算符 字符串运算符 关系运算符 逻辑运算符如 a = 2: b = 3: c = 4: d = 5则表达式 a b And 2 * a c Or c w等。下表中列出了一些代数式对应的VB表达式。代数注vBa达式说明2a +b(2*a+b)/(4 *a*b：在V昧达式中无法写分式，乘法运算符*不能省略4abg* tA2/2v即不能使用上标，指数必须用 VB1算符a表示abca=b And b0Sgn(x) =0 x=0-1 x0Sin(x)正弦函数Sin(x), x 的单位为弧度Cos(x)余弦函数Cos(x), x的单位为弧度Tan(x)正切函数Tan(x), x 的单位为弧度注意：(1) Int (x)是取小于等于x的最大整数。例如：Int (3.12) =3Int (2.1+3) =5Int ( -4. 6) = -5Int ( -1-2. 5) = -4(2) Rnd函数产生0,1)之间的一个随机数，它常与Randomize (以初始化随机数生成器)结合使用, 如果要产生0 , A )间的随机整数，表达式为Int (Rnd *A)产生A , B) 间的随机数：Rnd*(B-A) +A产生A , B间的随机整数：Int(Rnd * (B-A+1)+A函数功能实例结果Len（字符串）求字符串的长度（字符个数）Len (2008 奥运”)6Left（字符串，n ）截取字符串左边n个字符Left ( 2008 奥运，4)2008”Mid（字符串，m n ）从字符串第m字符开始截取n个字符Mid (2008 奥运，3, 2)08”Mid（字符串，m ）从字符串第mt字符开始截取剩余字符Mid (2008 奥运，3)08奥运”Right（字符串，n ）截取字符串右边n个字符Right ( 2008 奥运”,2)奥运”String （ n ，字符串）生成指定长度的指定字符的字符串String (3, 89)888”nStr（字符串1,字符串2）在字符串1中查找字符串2. 并返回其出现的位置InStr(2008 奥运，奥)5注意：（1） String函数只返回n个指定的字符串的 首字符。（2）Left（字符串，n ）和Right（字符串，n ）中，当n的值大于字符串的长度时，返回整个字符串.（3） Mid（字符串，n n）函数中，如果m大于字符串的长度，则返回空串，如果省略n,则返回m开始的全部字符。3、常用转换函数函数功能实例结果Val（数值型字符串）将数值型字符串转换为数值Val (99) +Val (88)187Str(数彳1)将数值转换为字符串Str (5)5Chr（字符代码）将字符的Asc码转换为对应的字符Chr (65)AAsc（字符）求字符对应的ASCII码Asc (A)65CInt（表达式）将表达式结果作四舍五入处理CInt(3.6)4Fix（表达式）将表达式结果的小数部分截去Fix(3.8)3注意（1）对于Str（数彳1）函数，如果其中的数值为正数，则返回的字符串的第一个字符为空格（符号位）。如Str（5）的结果为两个字符长度的字符串5,如要得到不含符号位的字符串，可使用 CStr（）函数。（2） CInt（表达式）当表达式的值对应的小数位为.5 的时候比较特殊，函数结果为离表达式的值最近的一个偶数。如CInt （4.5） =4（3） Asc（字符）函数，只求字符中的第一个字符的 ASCII码值，如：Asc（AB ）=65（4） ASCII码的大小：空格 数彳1 大写字母 小写字母常用字符的ASCII码值：空格的ASCII码为：320 的ASCII码为：48A的ASCII码为：65a 的ASCII码为：97其他数字和英文字母按序依次类推。（5）字母转换。因大写字母的 ASCII码比对应的小写字母小32,所以可通过Chr和Asc函数互相转换。例：a转 A Chr （ Asc （a） - 32） A 转 a Chr （Asc （A） + 32 ） 注意 式子中”不能省略(1) Date()、Time()、Now()。这三个函数 没有参数，分别返回计算机系统的当前日期、时间、日期与时间。如 2011 年5月 29 日，Print Date() 或者 Print Date 都会打印出 2011-5-29(2) Year()、Month()、Day()。这三个函数必须有参数，即必须指定一个日期，分别返回指定日期的年、月和日。函数实例结果Day(#8/18/2008#)18Month(#8/18/2008#)8Year (#8/18/2008#)20085、定位函数(与Print语句配合使用的)，以控制输出数据的格式，主要包括Tab、Space等。(1) Tab函数。功能：将被输出的内容放在由参数n所指定的位置(列数)处，在书写时，被输出的内容要放在Tab函数的右面，并用分号分隔。例：Print Tab (15);姓名;Tab (30);成绩(2) Space函数。功能产生由n个空格所组成的字符串。6、用户交互函数VB提供InputBox()和MsgBox()函数用于人机交互。1) ) InputBox ()格式：InputBox(提示,标题，默认值,X坐标,Y坐标)功能：在程序中调用InputBox函数，将产生一个提示用户输入内容的输入框，等待用户输入信息，并返回字符串类型的数据。用户要想得到InputBox ()函数的返回值，就必须将函数的结果赋值给指定的变量。格式为： 变量=InputBox(提示,标题,默认值)注意：每执行一次InputBox()函数，用户只能输入一个数 据。输入框的样式是固定的，我们可以改变的是输入框 的提示”和标题”的内容。例如：r = InputBox (请输入r,输入圆半径)2) MsgBox()格式为：MsgBox(提示信息,按钮,标题)功能：用于在程序运行过程中产生一个消息框，可以看作是输出对话框，该函数的返回值为数值型数据。格式：MsgBox(提示信息,按钮,标题)例如：p=MsgBox(你输入的密码不正确，是否继续？ , vbYesNo ,错误提示)错误提示您输入的密码不正确，是否维埃?当用户单击消息框中的一个按钮后，消息框即从屏幕上消失。在上面的语句中，将函数的返回值赋 给变量P,在程序中可引用 P作相应的处理。六、常用语句1、赋值语句格式1: Let 变量=表达式功能：将右边表达式的结果赋给左边变量通常情况，Let可以省略。=为赋值号。它与数学中的=是不同的。特别要 跟方程式区分开。如：X=5即把数值5赋值给变量XY =5 Mod 2 + 7即先计算表达式5 Mod 2 + 7 的值，再将值8赋值给变量YN =N + 1即将 弼值加1后后再赋给NX=Y即将变量Y的值赋值给变量X也可以在一行内给多个变量赋值，两条语句之间用冒号隔开，如： s=0: a=l: b=2格式2:对象名.属性名产表达式如果省略属性名，则直接赋值给对象的默认属性。如：Text1. Text =你好！即把字符串你好！ 赋给Text l 的Text属性。注意：赋值语句一般都独立成行，如果有类似赋值的语句出现在一些结构中，大家要会辨别。例如跟在以下关键字之后If x=5 While x=5 Until x=5 Print x=5以上结构中的x=5 不再是赋值语句，因为 =在这里是个关系运算符，判断左右是否相等，所 以x=5是一个关系表达式，其值应该是个逻辑型，不是 True 就是False 。2、Print 语旬格式：对象名.Print 表达式列表功能：Print方法具有计算和输出双重功能。对于表达式，它先计算其值，然后再在指定的对 象上输出文本，对于常量、变量则直接输出其值。对象可以是窗体、图片框、打印机等。 可以省略，省略时表示在当前窗体上输出数据。；或，隔开。如果用逗号分 逗号后的表达式在下一个区段输说明：(1)表达式列表可以是一个或多个表达式，之间用英文的 隔，则按标准输出格式 输出各数据，此时以14个字符位置为一个区段, 出；如果之间用 分号分隔，则按 紧凑格式 输出数据。7,后面再执行Print例：Print 1 ; 2 ; 3 ; 4 + 3 Print l , 2,3,4 + 3输出结果为：1 2 3 7输出结果为：1(2)如果Print语句末尾没有逗号或分号，表示该Print输出完结果后自动换行时将在下一行的起始位置输出数据；如果在Print语句末尾使用逗号，则在同一行上跳到下一个输出区段输出下一个Print所输出的内容。如果在Print语句的末尾加上一个分号，表示下一个Print输出的内容将 按紧凑格式紧跟在前一个Print所输出的内容后面；(3)当一个Print语句的后面无任何表达式 时，则输出一空行或 换行。注意：与Tab ()函数结合使用，掌握各种图形的输出。3、注释语句丫计添加注释语句的方法为了提高程序的可读性，通常需要在程序的适当位置加上必要的注释。在 为在字符 后加注释内容或采用Rem注释内容两种形式。 格式1:注释内容用 写的注释语句既可以单独写一行，也可以跟在其他语句后。格式2： Rem注释内容用Renlf的注释语句必须单独写一行。4、结束语旬格式：End功能：强制程序结束运行。Private Sub Command1_Click（）EndEnd Sub该过程用于结束程序，即单击命令按钮Commandl时，结束程序的运行。（四）程序设计的三大基本结构一、顺序结构代码按照由上到下的顺序一行一行地执行。程序执行过程中没有分支、没有重复。二、分支结构（选择结构）If语句和Select语句。1、If语句分为单分支、双分支和多分支三类程序在运行时会根据不同的条件决定程序的走向。实现选择结构的语句有（1）单分支if结构：（注意：行if和 块if的区别只在书写格式上。）行if 语句：IF 条件表达式 Then语句A块if 语句：IF 条件表达式 Then语句AEnd if（2）双分支if结构：行if 语句：IF 条件表达式 Then 语句A Else 语句B块if 语句：IF 条件表达式 Then语句AELSE语句BEND IF(3)多分支If语句If ThenElseIf ThenElse语句块 n+1 End If2、Select Case 语句Select Case测试表达式Case 表达式列表1注意：要会区分选择结构和循环结构的流程图。如上图：甲为循环结构，有向上回到条件框的箭头。乙为选择结构（双分支）。语句组1Case 表达式列表2语句组2Case ELSE语句组N+1End SelectSelect/Case语句的执行过程 是：先求测试表达式的值，然后顺序测试该值符合哪一个CaseT句的情况，如果找到了，则直接执行该Case子句下面的语句块，然后执行End Select的后续语句；如果没找到，则执行Case Else下面的语句块，然后执行 End Select的后续语句。说明：(1)测试表达式可以是数值型或字符串型表达式。(2)表达式列表形式有以下4种。一个表达式或用逗号隔开的若干表达式，例如2, 4, 6, 8。表达式1 To表达式2,例如60 To 80 。 注意，表达式1应该小于 表达式2Is关系运算符表达式，例如Is 80 。表达式，例如x+3 。三、循环结构1、For-Next循环(适合于解决循环次数事先能够确定的问题。)For循环变量一般形式是：For循环变量=初值To终值Step 步长值 循环体Next 循环变量说明：(1)循环变量，必须为数值型。循环初值、循环终值也是数值型或数值表达式。(2)循环的有效区间是由循环初值、循环终值所限定的闭区间。(3)步长值是循环变量的增量，是一个数值表达式。若步长值为正，则初值就应小于终值，否则循环体一次都不执行；若步长值为负，则初值应大于终值，否则循环体一次都不执行。如果步长值是1, Step 1可略去不写。但若步长值为 0,会造成死循环，这是要避免的，可用 Ctrl+Break 结束程序。(4)循环体是For语句和Next语句之间的语句序列，也是需要重复执行的语句组。(5) Next后的循环变量与For语句中的循环变量必须相同。(6)循环的次数=(循环终值-循环初值)步长值+ 1For/ Next循环语句的执行过程：(1)系统将初值赋给循环变量，并自动记下终值和步长。(2)检查循环变量的值是否越过终值。如越过就结束循环，执行Next后面的语句；否则执行一次循环体。(3)执行Next语句：将循环变量增加一个步长值再赋给循环变量，转到第2步继续执行循环。2、Do Loop循环(对于不能预先确定次数，但需要执行多次的情况，可以使用Do/Loop循环。)格式一 ： Do While条件表达式循环体Loop先判断条件是否为真，若条件为真，执行循环体，条件为假时退出循环。因此可能一次都不执行循环。格式二： Do循环体Loop While 条件表达式先执行一次循环体，再判断条件是否为真，若条件为真，执行循环体，条件为假时退出循环。因此至少 执行一次循环体。格式三： Do循环体Loop Until 条件表达式先执行一次循环体，再判断条件是否为假，若条件为假，执行循环体，条件为真时退出循环。因此至少 执行一次循环体。格式四： Do Until 条件表达式循环体Loop先判断条件是否为假，若条件为假，执行循环体，条件为真时退出循环。因此可能一次都不执行循环。注意：If 语句 和Do语句中都有的条件表达式,一般是一个关系表达式或逻辑表达式，其值不是True就是False。但如果是数值型的表达式的话，会进行强制转换，即数字 0转换成False ，非0转 换成True。（五）算法与问题解决一、解析法解析法又称公式法。解析法就是在分析具体问题的基础上，抽取出一个数学模型，这个数学模型能用若干个解析表达式表示出来。求解了这些表达式，问题也就得以解决。如：求解一元二次方程 a*xA2+b*x+c=0的实根dim x1 as double , x2 as doubledim a AS Double,b AS Double,c AS Doubleif b*b-4*a*c=0 thenx1=(-b+sqr(b*b-4*a*c)/(2*a)x2=(-b-sqr(b*b-4*a*c)/(2*a)text1.text =str(x1)text2.text = str(x2)elseprint方程无解”end if分析：X=一b :b2 -4ac2ax1=(-b+sqr(b*b-4*a*c)/(2*a)x2=(-b-sqr(bA2-4*a*c)/(2*a)二、穷举法穷举法是将求解对象一一列举出来，然后逐一加以分析、处理，并验证 结果是否满足给定的条件, 穷举完所有对象，问题将最终得以解决。穷举法也叫枚举法、列举法。穷举法关键是如何列举所有可能的情况，不能遗漏，也不能重复。注意取值范围，减少计算机工作量。适用编程问题：水仙花问题、鸡兔同笼问题、百钱百鸡问题、素数问题。如：已知公鸡每只3元，母鸡每只5元，每3只小鸡1元。用100元钱买100只鸡，应各买多少只鸡？Dim a As Integer, b As Integer,c As IntegerDim a As Integer, b As IntegerFor a=0 to 33公鸡数Dim c As IntegerFor b=0 to 20母鸡数For a=0 to 33公鸡数For c=0 to 100小鸡数For b=0 to 20母鸡数If a+b+c=100 and a*3+b*5+c/3=100thenc=100-a-b小鸡数Print a;b;cIf a*3+b*5+c/3=100thenend ifPrint a;b;cNext cend ifNext bNext bNext aNext a三、数组及其应用数组是一组相同类型的变量集合。数组用一个统一的名字代表逻辑上相关的一批数据，每个元素靠下标变量来区分。有一个下标的数组称为一维数组。数组中的数据，逻辑上是相互关联的。1、使用数组要先声明数组的大小和数据类型。声明数组的格式如下：Dim 数组名(最大下标常量)As 数据类型例 1: Dim s (9) As Integer表示：名称为s的一维数组中包含10个元素，下标从 GU 9。用来存放整型数据。也可以指定下标的起始值。例 2: Dim x (2 to 10) As Single这个数组含有9个元素，下标从2到10,数据类型属于单精度实型。还可以说明多维数组。例 3: Dim D (4, 2 To 6, 3 To 9) As long说明了一个3维数组，一共5*5*7个数组成员，数据类型属于长整型。2、应注意的问题：(1)在同一个程序中，任何数组只能声明一次。例如：Dim s(5) As IntegerDim s(10) As Integer 这样，运行时会报错：当前范围内的声明重复。(2)下标必须是常量且为整数(若不是整数，程序运行时自动4舍5入为整数)。(3)同一个程序中，数组名不能与变量名相同。例如：Dim s As IntegerDim s (10) As Integer 这样，运行时会报错：变量与数组不能同名。(4)数组必须先声明后使用否则运行时会报错：子程序或函数未定义。(5)数组使用时，下标不能超出声明的范围。例如：Dim s (10) As IntegerPrint s(11)这样运行时会报错：下标越界。(6)数组声明时和变量一样，要注意类型。 例如：Dim s (10) As IntegerS(3)=40000这样运行时会报错：溢出。3、数组的应用数组的赋值、计算、输出通常都与ForNext循环结合使用。For语句中的循环变量作为数组元素的下标，通过循环变量的不断改变，达到对每个数组元素依次进行处理的目的。例子：利用数组实现：输出10个1,100的随机数，并输出它们的和与平均值。271294349476741.32南值为:34. TDim a(9) As Integer数组的定义Dim s As IntegerRandomize将RND数随机化Fori = 0 To 9a ( i ) = Int(100 - 1 + 1) * Rnd) + 1Print a( i ) s = s + a( i )Next iPrint 和为：;sPrint 平均值为：;s/10 四、顺序查找顺序查找是查找算法中简单、易行的算法。进行查找时一般从数据的第一个元素开始，按照数据的 顺序查找指定的关键值。如果被查数据和该关键值相匹配，则表示找到；如果所有数据与关键值都不匹 配，则表示被查数据中不存在该关键值，查找失败。顺序查找的数据不要求是有序的。五、二分法查找(二分法查找也叫折半查找)二分法查找要求被查数据是有序的查找思路：对于有序数列(从小到大排)，设定下界low (最小元素下标)和上界 high (最大元素下标)，当满足条件lowhigh ,则说明找不到。Dim a(9) As IntegerDim mid As Integera(0)=12 : a(1)=20 : a(2)=27 : a(3)=36 : a(4)=45 : a(5)=50 : a(6)=55 : a(7)=60 : a(8)=79 : a(9)=105low = 0 : high = 9Do While low = highmid = (low + high) 2注意：mid 是中点位置，而 a(mid) 是中点位置的值If a(mid) = 55 ThenPrint 找到了Exit Do ElseIf a(mid) high Then print 没有 55!六、冒泡排序排序的种类有交换排序、选择排序、快速排序等。“冒泡法排序”也叫“起泡法排序”，是一种比较简单、易懂的交换排序方法。它通过将相邻元素进行比较和交换，逐步将一个无序序列排列为一个有序序列。简单说：就是对相邻数据两两比较，将符合条件的数据冒上来(沉下去)，然后用同样的方法再冒泡处理余下的数据，直至全部数据完成排序。(1)标准的从后往前的升序Dim a(9) As IntegerFori = 0 To 9a(i) = Int(100 - 1 + 1) * Rnd) + 1Print a(i);Next i定义数组给数组的每个元素赋值1,100的随机数并输出Forj = 1 To 9For i = 9 To j step -1If a(i ) a(i+1) Then t = a(i+ 1) a(i+ 1) = a(i) a(i) = tEnd IfNext iNext j将数组中元素从小到大冒泡排序从a(0)开始比较、交换(大的往后换)外循环控制排序的趟数内循环控制每一趟排序比较的成员和次数For k= 0 To 9 Print a(k);Next k显示排序后的数组兀素七、递归法1、自定义函数：编程者自己编写的函数。自定义函数定义格式:Function 函数名称 ( 参数列表 )As 类型 局部常量、变量说明语句组函数名=返回值End Function自定义函数的调用有三种格式：格式1:变量=函数名称(参数)格式2： Call函数名称(参数)格式3:函数名称参数2、递归法 如果一个函数在定义时，直接或间接地调用了自己，这种算法称为递归法。例如函数A自己调用了自己。另外如果 函数A调用了函数 B,函数B反过来再调用函数 A的算法，这也是递归算法。 用递归写出的算法往往十分简洁。递归法一般需要自定义函数或过程来实现。例1:用递归函数求 n! 注意 给函数名s赋的值，就是该函数的返回结果值。Function s(n As Integer)自定义递归函数的过程分析：5!=5*4!If n=1 thens=1 Elses=n*s(n-1)4!=4*3!End Function3!=3*2!2!=2*1!Private Sub Command1_Click()1!=1Dim n As Integern!=n*(n-1)!n = Val(InputBox( 请输入 N 的值)如果用s(n)来表小n!,Print s(n)调用递归函数当 n=1 时，s(n)=?End Sub当 n1 时，s(n)=?例2:求两个自然数，它们的和是 667,最小公倍数与最大公约数之比是60 : 1。分析：设两个自然数中较小的一个为3 显然m = 1是不满足条件的，mm勺取值范围应是2333,那么另外一个就是 667 -m。处理方法：对 mmi2到333检查，当bei= yue * 60 时，输出mW667 -m。主程序：Private Sub Form_Click ()Dim m As Integer , yue As Integer , bei As IntegerFor m =2 To 333yue = gys ( m , 667 - m)bei = gbs( m , 667 - m)If bei =yue * 60 Then Print m , 667 - mnext mEnd Sub自te义函数gys()求最大公约数自定义函数gbs()求最小公倍数Function gys(a As Integer , b As Integer) As IntegerDim i As IntegerFor i = a To 1 Step -1If (a Mod i = 0) And (b Mod i = 0) ThenFunction gbs( a As Integer , b As Integer) Dim i As longi=bDo While i Mod a 0As longgys = iExit Functioni=i+bLoopEndIfNext igbs = iEnd FunctionEnd Function