2022年高中信息技术《算法与程序设计VB》 .pdf

第 1 页第一章算法与算法的描述1算法的定义算法：就是解决问题的思想方法，对解题过程的精确描述。计算机解决问题的步骤为分析问题、设计算法、编写程序、调试程序。算法是程序设计的“灵魂”，最核心过程。2法的特征一个算法应该具有以下五个重要的特征：1、有穷性：一个算法必须保证执行有限步之后结束；2、确定性：算法的每一步骤必须有确切的定义；3、输入：一个算法有0 个或多个输入，以刻画运算对象的初始情况，所谓0 个输入是指算法本身定出了初始条件；4、输出：一个算法有一个或多个输出，以反映对输入数据加工后的结果。没有输出的算法是毫无意义的； 5 、可行性：算法中执行的任何计算步都是可以被分解为基本的可执行的操作步，即每个计算步都可以在有限时间内完成；（也称之为有效性）3算法的描述方法算法的描述：可分多种表达方法，一般用自然语言、流程图和伪代码进行描述。（1）自然语言描述法：指用人们日常生活中使用的语言（本国语言），用自然语言描述符合我们的习惯，且容易理解。例 1：求圆的周长和面积算法如下：（自然语言描述法）（1）输入半径r ；(2) 计算周长 c=2* *r ；(3) 计算面积 s= *r*r ； (4) 输出周长 c，输出面积s ； (5) 结束例 2：工人每天工作8 小时 , 每小时 9 元 , 超过 8 小时的每小时增加15% 的加班费 , 计算工人每天的应发的日工资。（1）输入工作小时X （2）判断 X 值，分别计算X小于 8，工资 =X*9 X大于 8，工资 =X*9 (X-8)*9*0.15 （3）输出工资（4）结束练习：求三个数中的最大数。（用自然语言描述）（2）流程图描述：也称程序框图，它是算法的一种图形化表示方法。且描述算法形象、直观，更易理解。常用的“流程图”所用的基本符号及功能程序框名称功能开始 / 结束框表示算法的开始或结束输入 / 输出框表示算法中变量的输入或输出处理框表示算法中变量的赋值与计算判断框表示算法中的条件判断流程线表示算法中的流向连接点表示算法中的连接名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 15 页 - - - - - - - - - 第 2 页例 1：求圆的周长和面积练习：求三个数中的最大数。（用流程图描述）（3）伪代码描述法：是介于自然语言和计算机程序语言之间的一种算法描述。是专业软件开发人员常用方法。流程图的基本图形及功能：例 1：求圆的周长和面积input r c=2* *r s=*r*r print c,s 练习：求三个数中的最大数。（用伪代码描述）4程序与程序语言（1）程序的定义：程序实际上是一组及其操作的指令或语句的序列，是算法的一种描述（2）程序的基本特征：程序一共有七个基本特征1、程序中，每一个算法的步骤对应着程序设计语言的一个或多个语句，每个语句对应一个或者多个操作。每个操作都要求有执行对象，并且根据对象状态变化形成动作的效果，同事可变的对象用变量来表示，变量的值的变化则可通过操作赋值来完成。2、除非特殊索命程序都是从第一条语句开始顺序开始向下执行。3、程序总是施行与操作与某些对象，这些对象通常称为数据。4、这些数据一般应该有属性和取值范围，即类型说明。5、有时语句要求执行者作出判断，即在某种条件成立情况下执行一条或一组语句，否则执行另一条或一组语句。6、一条或一组语句可能需要执行一次以上，当一条或一组语句要重复时，必须指明重复的次数或重复的条件。7、程序本身是一个静态的实体，而执行语句的进程是动态的。（3）程序的基本结构：顺序结构、选择结构、循环结构。（4）程序设计语言的的产生和发展1、机器语言：二进制代码指令2、汇编语言：类似英语缩略词且带有助记性符号的语言，每条汇编指令和一条机器指令相对应，只是指令码和操作数都采用符号形式。而这种语言是不能被机器直接接受，必须用一种语言翻译器将程序中的每条语句翻译成机器语言才能执行。3、高级语言：高级语言本身不是一种语言，只是一类语言的分类。用高级语言编写的程序必须经过翻译器将其翻译成机器语言，才能在计算机上执行。常见的高级语言：C语言、 C+、pascal 、java 、C#、VB 、Basic （5）程序的编辑和翻译1、程序的编辑：以汇编语言或者高级语言所编写的程序被称为“源代码”，这些代码需要我们逐一的输入到计算机中。并把他们以文件的形式保存起来，这个过程称为程序的编辑2、程序的翻译：前面的学习中使我们知道，计算机只能识别和执行二进制的机器语言代码，而我们用级语言或汇编语言编写的程序要想被计算机执行，必须翻译成机器语言程序，最终才能被计算机执行。高级语言的翻译程序一般则有两种类型：编译程序和解释程序。练习题 : 1 下面对算法描述正确的一项是：（）A、算法只能用自然语言来描述B、算法只能用图形方式来表示C、同一问题可以有不同的算法D、同一问题的算法不同，结果必然不同2下面关于算法描述正确的是（）(A) 算法不可以用自然语言表示开始结束c2* *r s*r*r 输入 r 输出 c,s 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 15 页 - - - - - - - - - 第 3 页(B) 算法只能用框图来表示(C) 一个算法必须保证它的执行步骤是有限的(D) 算法的框图表示法有0 个或多个输入，但只能有一个输出3、图形符号 在算法流程图描述中表示( ). A 处理或运算的功能 B 输入输出操作C 用来判断条件是否满足需求 D 算法的开始或结束4、以下哪个是算法的描述方法?( ) A 流程图描述法 B 枚举法 C 顺序法 D 列表法5、下面的语句是一个计算机程序的操作说明：（1）初始值为x=1，y=1，z=0，n=0；（2） n=n+1（将当前n+1 的值赋予新的n） ；（3） x=x+2（将当前x+2 的值赋予新的x） ；（4） y=2y（将当前2y 的值赋予新的y） ；（5） z=z+xy（将当前z+xy 的值赋予新的z） ；（6）如果 z7，则执行语句（7） ，否则返回语句（2）继续进行；（7）打印 n，z；（8）程序终止由语句（ 7）打印出的数值为 _,_. 6、以下属于计算机程序语言的有（） A、汇编语言 B、高级语言 C、机器语言 D、低级语言7、执行程序时，程序中的每一条语句至少要运行一次（）8、最早的程序设计语言是汇编语言（）9、程序设计语言是指人们编制程序所使用的计算机语言，VB是低级语言（）10、高级语言翻译程序有两种类型：解释程序和编译程序（）第二章程序设计基础第一节常量、变量的定义VB程序的一般包括如下部分：（1）数据类型说明部分（2）数据的输入部分（3）数据的处理部分（4）数据的输出部分例: 求圆的周长和面积Private Sub Command1_Click() Dim r As Single /定义 r 为单精度型Dim c As Single /定义 c 为单精度型Dim s As Single /定义 s 为单精度型r = inputbox(“输入半径r ”) /输入半径r c = 2 * 3.14159 * r /计算周长s = 3.14159 * r * r /计算面积print c /输出周长print s /输出面积End Sub 一、常量 ：在程序进行过程中不变的量，在VB中一般分数值常量与字符常量两种。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 15 页 - - - - - - - - - 第 4 页数值常量：就是数学中说的常数，分整型常量和实型常量两种整型常量：即整数，指不带小数点的数值如1、 0、-10 、+35 等都是合法的整数实型常量：即实数，指带小数点的数值。实型常量又分为定点数和浮点数两种。例：定点数：3.14159 和-6.8 ， 1.99 浮点数： 2E6、1E5 例： 1.2345 103 可表示为1.2345E3 ，字母 E表示底数10 浮点数就是数学上的科学计数法。字 符 串常 量： 被一 对 双引 号括 起来 的 若干 个合 法的 字符 称 为字 符串 常量 。例 如 ： ”China” 、 ”Visual Basic ”、” 18”、” 3.1415 ”等，双引号中字符，不包括双引号本身。符号常量：如果多次用到同一个常量，则可用一个有意义的名字表示这个常量。二、变量 ：在程序执行过程中，其值可以改变的量称为变量变量命名注意要点：1、必须以字母开头, 不能以数字或其他字符开头。2、只能由字母、汉字、数字学或下划线组成，不能含有小数点、空格等字符。3、最长不超过255 个字符4、不能以VB保留字作变量名，如语句定义符、函数名等。5、VB不区分变量名中字母大小写。如HELLO 和 Hello是同一个变量。表 2-1 常用数据类型整型Integer 从-32768 到 32767 长整型Long 从-2147483648 到 2147483647 单精度实型Single 负数 -3.402823E+38到-1.401298E-45 正数 1.40129E-45到 3.402823E38 但它只有7 位有效数字双精度实型Double 绝对值小于10308的数，它有15 位有效数字日期型Date(Time) 如： #2008-01-31# #01/31/2008# 字符型String 如：“中国”，“ zhongguo”布尔型Boolean True 或 False 三、常量和变量的定义符号常量的声明：Const 常量名 As 常量类型 = 常量值如： Const pi As Single = 3.14159 常量名为pi 变量的声明：Dim As 如： Dim a As Integer 定义一个整型变量，变量名为a 变量的赋值 : 变量 = 表达式例： Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Dim str As String a = 54 b = 114 c = a + b str = Hello World Print a=; a, b=; b, c=; c Print str End Sub 四、运算符1、 算术运算：+ - * / mod 加减乘乘方除整除取余 指数例： 22 = 4 / （浮点）除例： 5 / 2 = 2.5 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 15 页 - - - - - - - - - 第 5 页 整除例： 5 2 = 2 Mod 求余数例： 5 Mod 2 = 1 2、关系运算= = = 等于大于小于大于等于小于等于不等于注意：关系表达式的运算结果为布尔值True 或 False 例： 3 2 结果为 True( 真或是 ) 3、逻辑运算Not（取反） And（与） Or （或）运算结果为布尔型（Boolean ）True 或 False 逻辑运算符的优先级为：No And Or 4、日期运算符与日期表达式日期表达式是用日期运算符“+”或“- ”将算式表达式、 日期型常量、 日期型变量、 日期函数等连接起来的式子，如表达式“ #2003/09/01# +30”的运算结果是“2003-10-1 ” ；表达式“ #2003/10/20# - #2003/10/10#”的运算结果为整数10 5、字符运算字符串连接符为“+”和“ &”“123” + “45” = “12345”“123” & “45” = “12345”123 + “45” = 168“123” + 45 = 168运算符的执行顺序：在VB中，当一个表达式中同时出现多种运算符时，运算次序由运算符的优先级决定，优先级高的运算符先运算，优先级相同的从左向右进行运算。不同性质的运算符优先级如下。算术运算符 字符串运算符 关系运算符 逻辑运算符6、常用函数函数名说明示例结果Sin （X）X弧度的正弦Sin（0）0 Cos (X) X弧度的余弦 Cos (0) 1 Tan（X）X弧度的正切Tan（0）0 Atn（X）X用弧度表示的反正切值Atn（0）0 Abs（X）X的绝对值 Abs （-3.5 ）3.5 Exp（X）e 的指定次幂，即exExp（3）20.086 Log（X）一个数值X 的自然对数Log（10）2.3 Sqr（X）X的平方根Sqr（9）3 Sgn（X）符号函数： X0,得到 1，X0,得到 -1 ，X=0 得到 0 Sgn （-3.5 ）-1 Int （X）不大于给定数X的最大整数Int （-1.6 ）-2 Fix （X）X的整数部分 Fix （-1.6 ）-1 Cint （X）类型为： Integer -32276832767 小数部分四舍五入CLng（X）类型为： Long -2147483648 2147483647 小数部分四舍五入Mid（C,N1,N2）从 C中 N1位开始取出长度为N2的子串Mid( “ABCDEFG”， 3，2) “CD ”Right(C,N) 返回字符串右边N个字符Right( “ABCDEFG”,3) “EFG ”Left(C,N) 返回字符串左边N个字符Left( “ABCDEFG”,3) “ABC ”Len(C,N) 测量字符串的长度Len(“VB学习的开始”) 7 Space(N) 产生 N个空格组成的字符串“ABC ”&“Space(N) ”& “113”“ABC 123”名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 15 页 - - - - - - - - - 第 6 页Date() 返回当前系统日期（yy-mm-dd）Date() 或 Date 04-12-18 Time() 返回系统时间Time() 或 Time 10:36:08 练习题：1、下列变量名写法错误的是( ) A、abc_123 B 、123abc C 、 abc123 D 、abc 2、下列语句中定义了一个实型变量的是 ( ) A、Dim end as Integer B、Dim sum As Single C、Dim Name As String D、其它三项都不对3、在 VB中，以下关于符号常量的声明，声明正确的是:( ) A、Dim TAG as String B、Const TAG as String Visual + Basic C、Const TAG as String =Visual Basic D、 Const TAG as String 4、下面 ( )不是字符串常量A、True B、#False# C、 D、 你好 5、分析 s=113 + 11 Mod 3，s 的值是 ( ). A、5 B 、6 C 、4 D、3 6、下面表达式的值是false的有 ( ). A、969 n97 B、Int(4.99) len(basic) C、str(2000) 2 7、设 a=2, b=3,在 VB中，表达式ab Or b3值是 :( ) A、False B、True C、-1 D、1 8、Visual Basic中，下列 ( )函数是求绝对值的。A、ABS （X） B 、SQR(X ） C 、INT（X） D 、GN （ X) 9、表达式Abs(-3.6)*sqr(100)的值是 ( )。A、-36 B、 360 C、36 D 、-360 10、下列 ( )数据类型不是数值型。A、Date B、Single C、Double D、Integer 11、下列函数中，返回值是字符串的是 ( ). A、Mid B、Instr C、Val D、Len 12、代数表达式221gt表达式后错误的是( ) A、g*t*t/2 B、1/2*g*t2 C、g*t2/2 D、gt2/2 13、数学式子abba42在 VB中的正确写法是： （）A、 (2*a+b)/4*a B 、(2*a+b)/(4ab) C 、(2a+b)(4ab) D 、(2*a+b)/(4*a*b)14、判断 x 是否在区间 a, b上，在 VB中以哪个逻辑表达式是正确的?( ) A 、ax and x=b B 、 ax=b C、ax and x=b 15、向 n 变量存入1 个 2 位整数，要使此2 位数十位和个位上的值分别存入x, y变量。正确的算法是( )。选项 : x、 x=Left(n, 1) y=n-x*10 Print x:Print y B、 x=Left(n, 1) y=Right(n, 1) Print x:Print y C、 x=n/10 y=n-x*10 Print x:Print y D、 x=Int(n/10) y=n-x*10 Print x:Print y 16、向 x 变量中输入任意一个小写字母，再将x 变量中的小写字母转成大写字母。正确的算法是( ). 选项 : A、输人字母到x a=Asc(x)-32 x=chr(x) Print x B、输人字母到x a=Asc(x)+32 x=chr(x) Print x C、输人字母到x a=Val(x)一 32 x=Chr(x) Print x D、输人字母到x a=Val(x)+32 x=Chr(x) Print x 第二节程序的顺序结构名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 15 页 - - - - - - - - - 第 7 页一、赋值语句1. 格式：变量名 = 表达式功能：将右边的表达式的值赋给左边的变量（1） “变量”可以是简单变量，也可以是字符变量；（2） “=”是赋值符号，它的含义将表达式的值赋给左边的变量。（3）表达式代表一个数值或一个字符串。例 1：A=123；A=B；B=2*3；A=A+10 ；C$ =“CHINA ”2. 赋值语句的功能：计算功能和赋值功能3. 注意事项（1）赋值语句不是代数等式，赋值号与等号形同而意不同；（2）赋值语句类型必须匹配；（3）把字符串赋给串变量时，该字符串必须用双引号括起来；（4）变量单元每次只能存一个数据，但可以多次赋值。如：C$= “COMPUTER” 注意：“ $”是区分字符串变量的的标志，即要在变量名后加“$”构成字符串变量，同时，字符串用双引号括起来，然后才赋给字符串变量。二、输入数据的函数InputBox （）是提供从键盘输入数据的函数。利用它可产生一个对话框，提示用户输入数据并单击命令按钮。该函数返回值是字符串类型（string） 。InputBox （）的语法格式为：InputBox （提示信息，标题，默认值，位置）提示信息：指对输入数据的提示，显示在对话框中，不能省略标题：指运行此函数后弹出的对话框的标题。默认值：指默认的输入数据值位置：指运行此函数后弹出的对话框的左上角在屏幕上的位置注意：提示信息和标题是用引号引起来的字符串三、输出数据的方法1、基本格式： Print 输出内容注意： 1、输出内容可以是数、变量、表达式，也可以是用引号括起来的字符串；2、如果输出内容是数，变量，表达式，则输出的是数，变量，表达式，如果是用引号引起来的字符串，则原样输出；3、多个输出内容， 可以用逗号或分号分隔；如果用分号， 则后面一个输出紧跟前一个输出；如果是逗号，则分区格式输出；4、如果输出内容后面没有符号，则表示下一个Print换行输出，如果print中没有输出内容，则表示输出一个空行。程序设计的顺序结构：代码按照由上到下的顺序一行一行地执行。程序执行过程中没有分支、没有重复，这种结构称为顺序结构。例 1：交换两个变量中的数据。Private Sub cmdSwap_Click() Dim x As Single, y As Single Dim m As Single x = inputbox(“请输入X的值” ) y = inputbox(“请输入Y的值” ) m = x x = y y = m /交换数据 print x，y End Sub 例 2：从键盘上输入一个三位数，然后将它反向输出，如：输入456，输出 654。(1) 分析问题设 X 为输入的三位整数,Y 为 X 的方向输出。因为 X 的百位、十位、个位分别为：X1=X100 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 15 页 - - - - - - - - - 第 8 页X2=(X-X1*100)10 X3=X-X1*100-X2*10 所以 Y=X3*100+X2*10+X1 (2) 设计算法输入 X的值计算： X1=X100 计算： X2=(X-X1*100)10 计算： X3=X-X1*100-X2*10 计算： Y=X3*100+X2*10+X1 输出 Y的值（3）编写程序 Private sub command_click() Dim x as integer, x1 as integer, x2 as integer, x3 as integer, y as integer X=inputbox(“x=”, ”输入” ) X1=X100 X2=(X-X1*100)10 X3=X-X1*100-X2*10 Y=X3*100+X2*10+X1 Print “y=”;y End sub （4）调试程序练习题：1、以下是一段VB程序：a = 1 b = a + 1 c = a + b 它的基本结构属于（）A、顺序结构 B 、选择结构 C 、循环结构 D 、树型结构2、下列 VB程序运行后，变量x 的值为 ( ). x=2 Print x+l Print x+2 3、执行以下程序，在弹出的第1 个输入框输入“ 10”，第2 个输入框输入“ 15”, 则输出的结果为（） 。Dim a As Integer, b As Integer a = InputBox(输入 ,a=) b = InputBox(输入 ,b=) Print a; +;b; =,a+b A. b+a=25 B. 10+15=25 C. a+b=25 D. 15+10=25 4、已知 A，B，C，D是整型变量，且都已有互不相同的值，执行语句“B=8：A=C ：D=A: D=B ”后，其值相等的变量是（） 。A. A ，D B. A，C C. C，B D. B，A 5、要交换变量A 和 B之值，应使用的语句组是（） 。A. A=B：B=C ：C=A B. C=A：A=B：B=C C. A=B：B=A D. C=A：B=A：B=C 6、有如下Visual Basic程序段： m = VB n = is t = easy t = m + n + t 该程序段运行后，变量t 的值为。7、试编写一个程序，实现输入一个四位数的数，然后将它倒序输出。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 15 页 - - - - - - - - - 第 9 页第三节程序设计的分支结构一、行 If语句行 If是指在一行中写完的If语句。其一般格式为：格式一： If条件 Then 语句功能： 执行这种形式的If语句时， 首先对条件进行判断。若条件成立， 则执行 Then 后面的语句； 若条件不成立，则执行 If语句后继程序行的语句格式二： If条件 Then 语句 1 Else 语句 2 功能： 执行这种形式的语句时，先进行判断。若条件成立，则执行语句1；否则执行语句2。例 1：输入三个不相同的数，求出其中最小数。Private Sub Form_Click() Dim a As Single, b As Single, c As Single Dim Min As Single a = InputBox(输入 a, 输入框 ) b = InputBox(输入 b, 输入框 ) c = InputBox(输入 c, 输入框 ) If a b Then Min = a Else Min = b If c = 60 Then Print 及格 End If If a =0 then x1=(-b+sqr(d)/2 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 15 页 - - - - - - - - - 第 10 页else x1=(-b-sqr(d)/2 end if print “x1=”;x1, ”x2=”;x2 End Sub 练习题 : 1、以下是一段Visual Basic程序 : If I=1 Then X=X+1 Else X=X*2 End If 它的基本结构属于( ). A、选择结构 B、循环结构C、顺序结构D、树型结构2、下列程序段运行后，变量Value 的值是（）x = 20 If x = 10 Then Value = 5 * x Else Value = 4 * x End If A、100 B 、 80 C 、90 D、70 3、如要完成 : 从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。比较好的算法是 ( ) 选项 : A、输人的数存人n 变量 f=(n/2=Int(n/2)如果 f 中的值为True 就显示 n 中值B、输人的数存人n 变量 f=(n/2=Int(n/2)如果 f 中的值为False 就显示 n 中值C、输人的数存人n 变量如果n/2=Int(n/2)成立，就显示n 中值D、输人的数存人n 变量如果n/2=Int(n/2)不成立，就显示n 中值4、下面是判断变量x 是不是能被5 整除的偶数的程序，横线上的逻辑表达式应为( ) Private Sub commandl_Click() Dim x As Integer x=Val(Text1. Text) If _ = 0 Then Print “这个数是能被5 整除的偶数” Else Print “这个数不是能被5 整除的偶数” End If 选项：A、(x Mod 5) = 0 And (x Mod 2 ) = 0 B、x Mod 10 = 0 C、x Mod 5 = 0 D、x Mod 2 = 0 5、如要完成 : 从键盘输入一个正整数，判断是否是偶数，如是就在屏幕上显示。比较好的算法是 ( )。选项 : A、输入的数存人n 变量 f=(n/2=Int(n/2)如果 f 中的值为True 就显示 n 中值B、输入的数存人n 变量 f=(n/2=Int(n/2)如果 f 中的值为False 就显示 n 中值C、输入的数存人n 变量如果n/2=Int(n/2)成立，就显示n 中值D、输入的数存人n 变量如果n/2=Int(n/2)不成立，就显示n 中值6、下列程序段运行后,m 的值为 ( ) A=2: b=1: c=5 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 15 页 - - - - - - - - - 第 11 页If A b Then m = A Else m = b If c m Then m = c 选项：A、1 B、2 C、5 D、提示错误，无答案第四节程序设计的循环结构一、 For-Next循环For 循环变量一般形式是：For 循环变量 =初值 To 终值 Step 循环变量增量循环体Nxt 循环变量例 1：求 s1+2+3+4.+100 Private Sub Form_Click() Dim i As Integer Dim sum As Integer sum = 0 For i = 1 To 100 step 1 sum = sum + i 循环体 Next i Print sum=; sum End Sub 循环变量的初值、终值、循环变量增量都是数值型。其中要重复执行的操作称为循环体，增量可正可负，如果没有设置 Step ，则增量的缺省值为1 1、 循环变量取初值；2、 循环变量与终值比较，没有超过终值转3，否则循结束，接着执行循环语句的后继语句；3、 执行一次循环体4、 循环变量增加一个增量5、 重复步骤24。以上可以看出，For-Next循环变量是一种当型循环。说明（a）For 语句与 Next 语句必须成对出现，而且它们当中的“循环变量”必须是同一个变量，如上例中均为 I 。（b）当循环变量为正时，循环变量超过终值，是指循环变量的值大于终值时；若为负，则是指循环变量的值小于终值。A P 入口出口名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 15 页 - - - - - - - - - 第 12 页例 2： 编写程序，使能打印下面所示的图案。 程序：Private Sub Form_Click() Dim i As Integer Dim j As Integer For i = 1 To 6 For j = 1 To i Print “ ”; Next j Print Next i End Sub 一个 FOR循环里包含了另一个FOR ，我们称它为嵌套循环。练习题 : 1、阅读如下程序，跟踪程序的执行过程，观察变量A 的值的变化，写出循环结束时变量A的值、循环次数和程序的运行结果。privaate sub command1_click() for A=1 TO 10 print A Next A End Sub privaate sub command1_click() For A=1 To 100 S=S+A Next A Pint “S=”;S End Sub privaate sub command1_click() For A=100 To 1 step -1 S=S+A Next A Print “s=”;s End Sub privaate sub command1_click() For A=1 To 10 A=A+1 Print A Next A End Sub 2、阅读下面程序，输出结果是 ( ) Private Sub Form_Click() Dim i As Integer:Dim s As Integer s = 0 For i = 1 To 5 s = s + i Next i 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 15 页 - - - - - - - - - 第 13 页 Print s,i End Sub 选项 : A、15 6 B、 s=15 i=6 C、 6 5 D、s=6 i=5 3、试编写一个程序，求出100 以内能被3 整除的所有正整数。4、试编写一个程序，求出1*2*3 ,*100 积。二、 Do Loop 循环For-Next循环的次数是确定的，但是有的问题只知道循环结束的条件，重复执行的次数事先并不知道，这是需要 Do-Loop 循环格式一：Do While 条件循环体Loop 例 3：求最大公约数Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim r As Integer a = InputBox(输入 a) b = InputBox(输入 b) r = a Mod b Do While r 0 a = b b = r r = a Mod b Loop Print b End Sub 当 VB执行 Do While-Loop循环时，先判断指定的条件是否为真，若条件为真，执行循环体，条件为假时退出循环。格式二： Do 循环体Loop Until条件这种循环的执行过程如图所示。进入循环体后， 先执行一次循环体A，然后再检查条件P是否成立。 如果不成立，就重复执行循环体A，直到条件P成立退出循环体。例 4：如果我国人口每年以平均1.5%的速度增长，问多少年后我国人口达到或超过15 亿？设现在人口为12.3亿。A P N 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 15 页 - - - - - - - - - 第 14 页Private Sub Form_Click() Dim p As Single Dim r As Single Dim n As Integer p = 1230000000 r = 0.015 n = 0 Do p = p * (1 + r) n = n + 1 Loop Until p = 1500000000 Print n; 年后 , 人口 =; p End Sub 练习题 : 1、在 VB中，以下程序段: x=0 Do While x50 x=(x+2)*(x+3) Loop 执行后， x 的值为 :( ). A、168 B 、50 C 、 72 D 、 0 4、要求计算机打印出100 至 200 之问所有偶数的平方根值。正确的算法是( )。选项 : A、 i=100 Do While i200:Print i，Sqr(i):Loop B、 i=100 Do While i200:Print i，Sqr(i):i=i+1:Loop C、For i=100 To 200 Step 2:Print i，Sqr(i):Next i D、For i=100 To 200:Print i，Sqr(i):Next i 5、下列程序段中，循环体执行的次数是( ) y = 2 Do While y = 8 y = y+y Loop 选项 : A、2 B、3 C、 4 D、5 6、阅读下面程序，当单击窗体之后，m的值是 ( ). Private Sub Form_Click() Dim m As Integer:Dim i As Integer m = 0 For i = 1 To 3 m = m + 2 Next i Print m End Sub 选项：A、0 B、4 C 、6 D 、8 7、在 VB中，假定有以下程序段: For i=1 To 3 Step 2 Print VB Next i 则语句 Print VB的执行次数是：( )。A、1 B、2 C、3 D、4 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 15 页 - - - - - - - - - 第 15 页8、下列程序段中，循环体执行的次数是( ) x=0 For y=1 To 10 step -1 x=x+1 Next y A、1 B、0 C、10 D、4 9、在 VB中，假定有以下程序段: For i=3 To 1 Print