高中信息技术《算法与程序设计VB(选修)》

1、精选优质文档-倾情为你奉上第一章 算法与算法的描述1算法的定义算法：就是解决问题的思想方法，对解题过程的精确描述。计算机解决问题的步骤为分析问题、设计算法、编写程序、调试程序。算法是程序设计的“灵魂”，最核心过程。2法的特征一个算法应该具有以下五个重要的特征： 1、有穷性： 一个算法必须保证执行有限步之后结束； 2、确定性： 算法的每一步骤必须有确切的定义； 3、输入：一个算法有0个或多个输入，以刻画运算对象的初始情况，所谓0个输入是指算法本身定出了初始条件； 4、输出：一个算法有一个或多个输出，以反映对输入数据加工后的结果。没有输出的算法是毫无意义的； 5、可行性：算法中执行的任何计算步都是

2、可以被分解为基本的可执行的操作步，即每个计算步都可以在有限时间内完成；（也称之为有效性）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） 判

3、断X值，分别计算l X小于8，工资=X*9l X大于8，工资=X*9(X-8)*9*0.15（3） 输出工资（4） 结束练习：求三个数中的最大数。（用自然语言描述）（2）流程图描述：也称程序框图，它是算法的一种图形化表示方法。且描述算法形象、直观，更易理解。常用的“流程图”所用的基本符号及功能 程序框名称功能 开始/结束框表示算法的开始或结束 输入/输出框表示算法中变量的输入或输出 处理框表示算法中变量的赋值与计算 判断框表示算法中的条件判断 流程线表示算法中的流向 连接点表示算法中的连接例1：求圆的周长和面积c2*rs*r*r输出c

4、,s输入r结束开始练习：求三个数中的最大数。（用流程图描述）（3）伪代码描述法：是介于自然语言和计算机程序语言之间的一种算法描述。是专业软件开发人员常用方法。流程图的基本图形及功能：例1：求圆的周长和面积input rc=2*rs=*r*rprint c,s练习：求三个数中的最大数。（用伪代码描述）4程序与程序语言（1）程序的定义：程序实际上是一组及其操作的指令或语句的序列，是算法的一种描述（2）程序的基本特征：程序一共有七个基本特征1、程序中，每一个算法的步骤对应着程序设计语言的一个或多个语句，每个语句对应一个或者多个操作。每个操作都要求有执行对象，并且根据对象状态变化形成动作的效果，同事可

5、变的对象用变量来表示，变量的值的变化则可通过操作赋值来完成。2、除非特殊索命程序都是从第一条语句开始顺序开始向下执行。3、程序总是施行与操作与某些对象，这些对象通常称为数据。4、这些数据一般应该有属性和取值范围，即类型说明。5、有时语句要求执行者作出判断，即在某种条件成立情况下执行一条或一组语句，否则执行另一条或一组语句。6、一条或一组语句可能需要执行一次以上，当一条或一组语句要重复时，必须指明重复的次数或重复的条件。7、程序本身是一个静态的实体，而执行语句的进程是动态的。（3）程序的基本结构：顺序结构、选择结构、循环结构。（4）程序设计语言的的产生和发展1、机器语言：二进制代码指令2、汇编语

6、言：类似英语缩略词且带有助记性符号的语言，每条汇编指令和一条机器指令相对应，只是指令码和操作数都采用符号形式。而这种语言是不能被机器直接接受，必须用一种语言翻译器将程序中的每条语句翻译成机器语言才能执行。3、高级语言：高级语言本身不是一种语言，只是一类语言的分类。用高级语言编写的程序必须经过翻译器将其翻译成机器语言，才能在计算机上执行。常见的高级语言：C语言、C+、pascal、java、C#、VB、Basic（5）程序的编辑和翻译1、程序的编辑：以汇编语言或者高级语言所编写的程序被称为“源代码”，这些代码需要我们逐一的输入到计算机中。并把他们以文件的形式保存起来，这个过程称为程序的编辑2、程

7、序的翻译：前面的学习中使我们知道，计算机只能识别和执行二进制的机器语言代码，而我们用级语言或汇编语言编写的程序要想被计算机执行，必须翻译成机器语言程序，最终才能被计算机执行。高级语言的翻译程序一般则有两种类型：编译程序和解释程序。练习题:1 下面对算法描述正确的一项是：（）A、算法只能用自然语言来描述B、算法只能用图形方式来表示 C、同一问题可以有不同的算法 D、同一问题的算法不同，结果必然不同2下面关于算法描述正确的是     （   ）(A) 算法不可以用自然语言表示(B) 算法只能用框图来表示(C) 一个算法必须保证它

8、的执行步骤是有限的(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）；

9、（6）如果z7，则执行语句（7），否则返回语句（2）继续进行；（7）打印n，z；（8）程序终止由语句（7）打印出的数值为 _,_.6、以下属于计算机程序语言的有（ ） A、汇编语言 B、高级语言 C、机器语言 D、低级语言7、执行程序时，程序中的每一条语句至少要运行一次（ ）8、最早的程序设计语言是汇编语言（ ）9、程序设计语言是指人们编制程序所使用的计算机语言，VB是低级语言（ ）10、高级语言翻译程序有两种类型：解释程序和编译程序（ ）第二章 程序设计基础第一节 常量、变量的定义VB程序的一般包括如下部分： （1）    数据类型说明部分（2） &#

10、160;  数据的输入部分（3）    数据的处理部分（4）    数据的输出部分例:求圆的周长和面积Private Sub Command1_Click()Dim r As Single /定义r为单精度型Dim c As Single /'定义c为单精度型Dim s As Single /定义s为单精度型r = inputbox(“输入半径r”) /输入半径rc = 2 * 3.14159 * r /计算周长s = 3.14159 * r * r /计算面积print c /输出周长print s /输出面积En

11、d Sub 一、常量：在程序进行过程中不变的量，在VB中一般分数值常量与字符常量两种。数值常量：就是数学中说的常数，分整型常量和实型常量两种整型常量：即整数，指不带小数点的数值如1、0、-10、+35等都是合法的整数实型常量：即实数，指带小数点的数值。实型常量又分为定点数和浮点数两种。例：定点数：3.14159和-6.8，1.99浮点数：2E6、1E5例：1.2345×103 可表示为1.2345E3，字母E表示底数10浮点数就是数学上的科学计数法。字符串常量：被一对双引号括起来的若干个合法的字符称为字符串常量。例如：”China”、”Visual Basic”、”18”、”3.14

12、15”等，双引号中字符，不包括双引号本身。 符号常量：如果多次用到同一个常量，则可用一个有意义的名字表示这个常量。二、变量：在程序执行过程中，其值可以改变的量称为变量变量命名注意要点：1、必须以字母开头,不能以数字或其他字符开头。2、只能由字母、汉字、数字学或下划线组成，不能含有小数点、空格等字符。3、最长不超过255个字符 4、不能以VB保留字作变量名，如语句定义符、函数名等。5、VB不区分变量名中字母大小写。如HELLO和Hello是同一个变量。表2-1常用数据类型整型Integer从-32768到32767长整型Long从-到单精度实型Single负数-3.E+38到-1.E-

13、45正数1.40129E-45到3.E38 但它只有7位有效数字双精度实型Double绝对值小于10308的数，它有15位有效数字日期型Date(Time)如：#2008-01-31# #01/31/2008#字符型String如：“中国”，“zhongguo”布尔型BooleanTrue或False三、常量和变量的定义符号常量的声明：Const 常量名 As 常量类型 = 常量值如：Const pi As Single = 3.14159 常量名为pi变量的声明：Dim <变量名 >As <变量类型> 如：Dim a As Integer 定义一个整型变量，变量名为a

14、变量的赋值:变量 = 表达式例：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 strEnd Sub四、运算符1、 算术运算：+-*/mod加减乘乘方除整除取余 指数 例：22 = 4/ （浮点）除 例：5 / 2 = 2.5 整除

15、 例： 5 2 = 2Mod 求余数 例：5 Mod 2 = 12、关系运算=><>=<=<>等于大于小于大于等于小于等于不等于注意：关系表达式的运算结果为布尔值True 或 False例：3 > 2 结果为 True(真或是)3、逻辑运算Not（取反）And（与） Or（或）运算结果为布尔型（Boolean）True 或 False逻辑运算符的优先级为：No > And > Or4、日期运算符与日期表达式日期表达式是用日期运算符“+”或“-”将算式表达式、日期型常量、日期型变量、日期函数等连接起来的式子，如表达式“#2003/09/01#

16、 +30”的运算结果是“2003-10-1”；表达式“#2003/10/20# - #2003/10/10#”的运算结果为整数105、字符运算字符串连接符为“+”和“&”“123” + “45” = “12345”“123” & “45” = “12345”123 + “45” = 168“123” + 45 = 168运算符的执行顺序：在VB中，当一个表达式中同时出现多种运算符时，运算次序由运算符的优先级决定，优先级高的运算符先运算，优先级相同的从左向右进行运算。不同性质的运算符优先级如下。算术运算符 > 字符串运算符 >  关系运算符 >

17、60;逻辑运算符6、常用函数函数名说明示例结果Sin（X）X弧度的正弦Sin（0）0 Cos (X)X弧度的余弦 Cos (0)1Tan（X）X弧度的正切Tan（0）0Atn（X）X用弧度表示的反正切值Atn（0）0Abs（X）X的绝对值 Abs（-3.5）3.5Exp（X）e的指定次幂，即exExp（3）20.086Log（X）一个数值X的自然对数Log（10）2.3Sqr（X）X的平方根Sqr（9）3Sgn（X）符号函数：X>0,得到1，X<0,得到-1，X=0得到0 Sgn（-3.5）-1Int（X）不大于给定数X的最大整数Int（-1.6）-2Fix（X）X的整数部分 Fi

18、x（-1.6）-1Cint（X）类型为：Integer -32767小数部分四舍五入CLng（X）类型为：Long - 小数部分四舍五入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学习的开始”)7Space(N)产生N个空格组成的字符串“ABC”&“Space(N) ”& “113”“ABC 123”Da

19、te()返回当前系统日期（yy-mm-dd）Date()或Date04-12-18Time()返回系统时间Time()或Time10:36:08练习题：1、下列变量名写法错误的是( )A、abc_123 B、123abc C、abc123 D、abc2、下列语句中定义了一个实型变量的是 ( )A、Dim end as Integer B、Dim sum As SingleC、Dim Name As String D、其它三项都不对3、在VB中，以下关于符号常量的声明，声明正确的是:( )A、Dim TAG as String B、Const TAG as String "Visual

20、" + "Basic"C、Const TAG as String ="Visual Basic" D、Const TAG as String4、下面( )不是字符串常量A、"True" B、#False# C、" " D、"你好"5、分析 s=113 + 11 Mod 3，s的值是( ).A、5 B、6 C、4 D、36、下面表达式的值是false的有( ).A、"969" < "n97" B、Int(4.99) <> len(

21、"basic") C、str(2000) < "1997"D、3 > 27、设a=2, b=3,在VB中，表达式a>b Or b>3值是:( )A、False B、True C、-1 D、18、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、-36010、下列( )数据类型不是数值型。A、Date B、Single C、Double D、Integer11、下

22、列函数中，返回值是字符串的是 ( ).A、Mid B、Instr C、Val D、Len12、代数表达式表达式后错误的是( )A、g*t*t/2 B、1/2*g*t2 C、g*t2/2 D、gt2/213、数学式子在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 、a<x and x<=b B、 a<x<=b C、a<x and xb D 、a>x and x<=b15

23、、向n变量存入1个2位整数，要使此2位数十位和个位上的值分别存入x, y变量。正确的算法是( )。选项:x、x=Left(n, 1) y=n-x*10 Print x:Print yB、x=Left(n, 1) y=Right(n, 1) Print x:Print yC、x=n/10 y=n-x*10 Print x:Print yD、x=Int(n/10) y=n-x*10 Print x:Print y16、向x变量中输入任意一个小写字母，再将x变量中的小写字母转成大写字母。正确的算法是( ).选项:A、输人字母到x a=Asc(x)-32 x=chr(x) Print xB、输人字母到

24、x a=Asc(x)+32 x=chr(x) Print xC、输人字母到x a=Val(x)一32 x=Chr(x) Print xD、输人字母到x a=Val(x)+32 x=Chr(x) Print x第二节 程序的顺序结构一、 赋值语句1.格式：变量名 = 表达式 功能：将右边的表达式的值赋给左边的变量（1）“变量”可以是简单变量，也可以是字符变量；（2）“=”是赋值符号，它的含义将表达式的值赋给左边的变量。（3）表达式代表一个数值或一个字符串。例1：A=123；A=B；B=2*3；A=A+10；C$ =“CHINA” 2.赋值语句的功能：计算功能和赋值功能3.注意事项（1）赋值语句不

25、是代数等式，赋值号与等号形同而意不同；（2）赋值语句类型必须匹配；（3）把字符串赋给串变量时，该字符串必须用双引号括起来；（4）变量单元每次只能存一个数据，但可以多次赋值。 如：C$=“COMPUTER” 注意：“$”是区分字符串变量的的标志，即要在变量名后加“$”构成字符串变量，同时，字符串用双引号括起来，然后才赋给字符串变量。 二、输入数据的函数InputBox（）是提供从键盘输入数据的函数。利用它可产生一个对话框，提示用户输入数据并单击命令按钮。该函数返回值是字符串类型（string）。InputBox（）的语法格式为：InputBox（提示信息，标题，默认值，位置）提示信息： 指对输入

26、数据的提示，显示在对话框中，不能省略标题 ：指运行此函数后弹出的对话框的标题。默认值：指默认的输入数据值位置：指运行此函数后弹出的对话框的左上角在屏幕上的位置注意：提示信息和标题是用引号引起来的字符串三、输出数据的方法1、基本格式： Print 输出内容注意：1、输出内容可以是数、变量、表达式，也可以是用引号括起来的字符串；2、如果输出内容是数，变量，表达式，则输出的是数，变量，表达式，如果是用引号引起来的字符串，则原样输出；3、多个输出内容，可以用逗号或分号分隔；如果用分号，则后面一个输出紧跟前一个输出；如果是逗号，则分区格式输出；4、如果输出内容后面没有符号，则表示下一个Print换行输出

27、，如果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，yEnd Sub例2：从键盘上输入一个三位数，然后将它反向输出，如：输入456，输出654。(1) 分析

28、问题设X为输入的三位整数,Y为X的方向输出。因为 X的百位、十位、个位分别为：X1=X100X2=(X-X1*100)10X3=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 integerX=inputb

29、ox(“x=”,”输入”)X1=X100X2=(X-X1*100)10X3=X-X1*100-X2*10Y=X3*100+X2*10+X1Print “y=”;yEnd sub（4）调试程序练习题：1、以下是一段VB程序：a = 1b = a + 1c = a + b它的基本结构属于（ ）A、顺序结构 B、选择结构 C、循环结构 D、树型结构2、下列VB程序运行后，变量x的值为( ).x=2Print x+lPrint x+23、执行以下程序，在弹出的第1个输入框输入“10”，第2个输入框输入“15”,则输出的结果为（   ）。Dim a As Integer, b As

30、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之值，

31、应使用的语句组是（   ）。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、试编写一个程序，实现输入一个四位数的数，然后将它倒

32、序输出。第三节 程序设计的分支结构一、行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 Sin

33、gle a = InputBox("输入a", "输入框") b = InputBox("输入b", "输入框") c = InputBox("输入c", "输入框") If a < b Then Min = a Else Min = b If c < Min Then Min = c Print "最小数" MinEnd Sub二、块If语句行If-then语句只能根据条件的真假是否执行一条语句，当Then部分和Else部分包含的内容较多时，

34、则可选用“块If语句”结构。格式一：If 条件 Then 语句块 End If例2：当从输入一个数时，当该数大于或等于60时显示"及格"，该数小于60时显示"不及格"。Private Sub Command1_Click() Dim a As Singlea = InputBox("输入a") If a >= 60 ThenPrint "及格" End IfIf a < 60 ThenPrint "不及格" End IfEnd Sub格式二：If 条件 Then 语句块1 Else

35、语句块2 End If例3：编写一程序，求一个一元二次方程ax2+bx+c=0的两个根。Private Sub Form_Click() Dim a As Single, b As Single, c As Single Dim d As Single, x1 As Single, x2 As Single a = InputBox("输入a", "输入框") b = InputBox("输入b", "输入框") c = InputBox("输入c", "输入框")d=b2-

36、4*a*cIF d>=0 then x1=(-b+sqr(d)/2elsex1=(-b-sqr(d)/2end ifprint “x1=”;x1,”x2=”;x2End Sub练习题:1、以下是一段Visual Basic程序: If I=1 Then X=X+1 Else X=X*2 End If它的基本结构属于( ).A、选择结构 B、循环结构C、顺序结构D、树型结构2、下列程序段运行后，变量Value的值是（ ）x = 20If x >= 10 Then Value = 5 * xElse Value = 4 * xEnd IfA、100 B、80 C、90 D、703、如要

37、完成:从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。比较好的算法是( )选项: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.

38、Text) If _ = 0 Then Print “这个数是能被5整除的偶数” Else Print “这个数不是能被5整除的偶数” End If选项：A、(x Mod 5) = 0 And (x Mod 2 ) = 0B、x Mod 10 = 0C、x Mod 5 = 0D、x Mod 2 = 05、如要完成:从键盘输入一个正整数，判断是否是偶数，如是就在屏幕上显示。比较好的算法是( )。选项:A、输入的数存人n变量f=(n/2=Int(n/2)如果f中的值为True就显示n中值B、输入的数存人n变量f=(n/2=Int(n/2)如果f中的值为False就显示n中值C、输入的数存人n变量如

39、果n/2=Int(n/2)成立，就显示n中值D、输入的数存人n变量如果n/2=Int(n/2)不成立，就显示n中值6、下列程序段运行后,m的值为( )A=2: b=1: c=5If A < b Then m = A Else m = bIf c < m Then m = c选项：A、1B、2C、5D、提示错误，无答案第四节 程序设计的循环结构一、For-Next循环For循环变量一般形式是：For循环变量=初值To终值Step循环变量增量 循环体Nxt循环变量例1：求s1+2+3+4.+100Private Sub Form_Click() Dim i As Integer Dim

40、 sum As Integer sum = 0 For i = 1 To 100 step 1 sum = sum + i ' 循环体 Next i Print "sum=" sumEnd Sub循环变量的初值、终值、循环变量增量都是数值型。其中要重复执行的操作称为循环体，增量可正可负，如果没有设置Step，则增量的缺省值为11、 循环变量取初值；2、 循环变量与终值比较，没有超过终值转3，否则循结束，接着执行循环语句的后继语句；3、 执行一次循环体4、 循环变量增加一个增量5、 重复步骤24。以上可以看出，For-Next循环变量是一种当型循环。说明（a） For

41、语句与Next语句必须成对出现，而且它们当中的“循环变量”必须是同一个变量，如上例中均为I。（b） 当循环变量为正时，循环变量超过终值，是指循环变量的值大于终值时；若为负，则是指循环变量的值小于终值。AP入口出口例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 iEnd Sub一个FOR循环里包含了另一个FOR，我们称它为嵌套循环。练习题:1、阅读如下程序，跟踪程序的

42、执行过程，观察变量A的值的变化，写出循环结束时变量A的值、循环次数和程序的运行结果。 privaate sub command1_click()for A=1 TO 10print ANext AEnd Sub privaate sub command1_click() For A=1 To 100 S=S+A Next A Pint “S=”;SEnd Sub privaate sub command1_click() For A=100 To 1 step -1 S=S+A Next A Print “s=”;sEnd Sub privaate sub command1_click()Fo

43、r A=1 To 10 A=A+1Print A Next AEnd Sub2、阅读下面程序， 输出结果是( ) Private Sub Form_Click() Dim i As Integer:Dim s As Integer s = 0 For i = 1 To 5 s = s + i Next i Print s,iEnd Sub选项:A、156 B、 s=15 i=6 C、6 5 D、s=6 i=53、试编写一个程序，求出100以内能被3整除的所有正整数。4、试编写一个程序，求出1*2*3*100积。二、DoLoop循环For-Next循环的次数是确定的，但是有的问题只知道循环结束的

44、条件，重复执行的次数事先并不知道，这是需要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 bEnd Sub当VB执行Do While-Loop循环时，

45、先判断指定的条件是否为真，若条件为真，执行循环体，条件为假时退出循环。格式二： Do 循环体Loop Until条件这种循环的执行过程如图所示。进入循环体后，先执行一次循环体A，然后再检查条件P是否成立。如果不成立，就重复执行循环体A，直到条件P成立退出循环体。APN例4：如果我国人口每年以平均1.5%的速度增长，问多少年后我国人口达到或超过15亿？设现在人口为12.3亿。Private Sub Form_Click() Dim p As Single Dim r As Single Dim n As Integer p = r = 0.015 n = 0 Do p = p * (1 + r) n = n + 1 Loop Until