第4章结构化的程序设计优秀课件.ppt

《第4章结构化的程序设计优秀课件.ppt》由会员分享，可在线阅读，更多相关《第4章结构化的程序设计优秀课件.ppt（78页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第第4章结构化的程序章结构化的程序设计设计第1页，本讲稿共78页4.1.1 结构化程序设计方法的基本原则 结构化程序设计方法的基本思路：把一个复杂的求解过程分阶段进行，每个阶段处理的问题都控制在人们容易理解和处理的范围内。每个阶段的处理都用一个相对独立的过程来完成；整个程序由若干个过程组合而成。结构化程序设计方法的主要原则：（1）自顶向下 （2）逐步求精 （3）模块化 （4）限制使用GOTO语句 结构化程序设计方法要求:只能使用三种基本结构来组成程序。4.1结构化程序设计方法结构化程序设计方法简介简介顺序结构、选择结构、循环结构。第2页，本讲稿共78页1.算法 在计算机中，把解题过程的准确而完

2、整地描述称为解题算法，它是为了求解某个特定的问题而设计的有限多个操作步骤的集合。4.1.2算法及算法的特性算法及算法的特性2.算法的特性 （1）有穷性 （2）确定性 （3）有效性 （4）有零个或多个输入 （5）有一个或多个输出 第3页，本讲稿共78页1.自然语言表示法自然语言：就是指人们日常使用的语言，可以是汉语、英语或其它语言。4.1.3算法的表示算法的表示 表示算法的方法有许多种，如自然语言、伪代码、传统流程图、结构化流程图等。例例4.1求两个正整数的求两个正整数的最大公约数最大公约数的的欧几里德算法欧几里德算法。从键盘输入两个正整数m和n的值；求出m除以n的余数r；若r=0，则转至第步，

3、否则，执行第步；用n取代m，用r取代n；转到第步，继续求新的m和n的最大公约数；输出n的值，n的值即为当初那两个数的最大公约数。第4页，本讲稿共78页伪代码：是用介于自然语言和计算机语言之间的文字和符号(包括数学符号)来描述算法。2.伪代码表示法伪代码表示法用伪代码描述的欧几里德算法为：从键盘输入两个正整数m和n的值；r=m Mod n；If r=0 then 转至第步；m=n:n=r 转到第步；Print n。第5页，本讲稿共78页处理框起止框I/O框判断框流程线连接点(1)流程图中的基本符号3.流程图表示法流程图表示法第6页，本讲稿共78页顺序结构顺序结构语句1语句2选择结构选择结构(2)

4、三种基本结构的表示三种基本结构的表示基本结构的特点:（1）只有一个入口 （2）只有一个出口 （3）不存在死语句 （4）不存在死循环条件语句1语句2YNN条件Y语句组Y条件语句组N循环结构循环结构第7页，本讲稿共78页例例4.2用用流程图流程图表示表示欧几里德算法欧几里德算法第8页，本讲稿共78页N-S流程图是对流程图表示法加以改进之后得到的一种新的、符合结构化程序设计思想的流程图形式。语句A语句B顺序结构顺序结构语句A语句B条件YN选择结构选择结构4.用用N-S流程图表示算法流程图表示算法a)当型循环语句组当条件成立b)直到型循环语句组直到条件成立循环结构循环结构第9页，本讲稿共78页例例4.

5、3用用N-S流程图流程图表示表示欧几里德算法欧几里德算法第10页，本讲稿共78页N-S流程图示例流程图示例例4.4：从100个数中选出最大的数第11页，本讲稿共78页PrivateSubForm_Click()Dimn%,w%,i%,r%InputBox是输入数据的函数n=Val(InputBox(请输入一个正整数！请输入一个正整数！,判别素数的程序判别素数的程序,17)w=1:i=2 w=1表示假设n是素数Do DoLoop是循环控制语句r=nModi Mod是除取余数的运算符Ifr=0Thenw=0 余数r=0表示n能被i整除i=i+1 先求i+1的值，再把结果送给iLoopUntil(i

6、=nOrw=0)Ifw=1ThenMsgBox(n&是一个素数！是一个素数！)Else MsgBox是输出数据的函数MsgBox(n&不是一个素数！不是一个素数！)EndIfEndSub例4.6 用VB语言表示出判别素数的算法.5.用计算机语言表示算法用计算机语言表示算法第12页，本讲稿共78页4.2顺序结构程序设计顺序结构程序设计4.2.1 4.2.1 注释语句注释语句 注释语句是在编程工作中经常使用的语句之一，在程序中对一些关键的语句加以注释,可以提高整个程序结构的清晰度，使得程序更加易于理解。注释语句的一般形式为：Rem 注释内容 注释语句的简化应用形式为：注释内容 例如：Rem 本程序

7、的功能是计算球的体积 Const PI as Double=3.1415926535 定义符号常量PI 注意:注释语句用的单引号必须在英文输入状态下输入 V=4/3*PI*R3 :Rem 计算球的体积 Rem 计算球的体积 :V=4/3*PI*R3第13页，本讲稿共78页4.2.2赋值语句赋值语句 功能：功能：将表达式的值赋值给变量名或指定对象的属性。将表达式的值赋值给变量名或指定对象的属性。一般用于给变量赋值或对控件设定属性值一般用于给变量赋值或对控件设定属性值.例：例：sRate!=0.1Text1.Text欢迎使用欢迎使用VisualBasic6.0”说明：说明：执行过程：先求表达式的值

8、，然后将值赋值给左边的变量。执行过程：先求表达式的值，然后将值赋值给左边的变量。右边的表达式可以是变量、常量、函数调用等特殊的表达式。右边的表达式可以是变量、常量、函数调用等特殊的表达式。不要将不要将“”理解为数学上的等号：理解为数学上的等号：A=A+1将将表达式表达式A+1的的值值放回到放回到变量变量A中。中。1赋值语句的一般形式 LET =LET .属性名=第14页，本讲稿共78页赋值符号赋值符号“=”两边的两边的数据类型数据类型一般一般要求应一致要求应一致。不一致不一致就就自动转换自动转换，不能转不能转则则出错出错！2赋值语句对数据类型的要求赋值语句对数据类型的要求3赋值操作过程中的数据

9、类型转换赋值操作过程中的数据类型转换当类型不一致时,VB系统会自动地 将表达式的值转换成变量的类型。例:iA%=10 /3 iA中的结果为3 iA%=11 /3 iA中的结果为4(四舍五入)iA%=-11 /3 iA中的结果为-4(四舍五入)iA%=38000 出错，数据溢出。第15页，本讲稿共78页当表达式是数字字符串，变量是数值类型时，系统自动地将数字字符串转换成数值再赋值；当表达式中含有非数字字符时，则出错。例：iA%=123 iA中的结果为123 iA%=123abc 错误，类型不匹配！逻辑型值赋值给数值型变量；系统自动转换。例：iA%=True iA中的结果为-1 iA%=Flase

10、 iA中的结果为0非字符类型值赋值给字符型变量时，系统自动转换。例：cA$=True cA中的结果为True cA$=123 cA中的结果为123 cA$=#2003/3/12#结果为2003-3-12iA%=Val(123abc)3赋值操作过程中的数据类型转换赋值操作过程中的数据类型转换第16页，本讲稿共78页例如：例如：d$=123&abc:d2$=d&abc(1)赋值符号赋值符号“=”左边一定左边一定只能只能是是变量名变量名或或对象的属性对象的属性引用，引用，不能不能是是常量常量或或表达式表达式。如：如：5=X:Abs(X)=20(2)赋值号两边的数据类型赋值号两边的数据类型不兼容不兼容

11、时，时，编译时编译时就会就会出错出错。例如：例如：x%=abc编译错误编译错误。x%=50000编译错误编译错误，-32768，32767。(3)VB不能在一个赋值语句中同时给多个变量赋值。不能在一个赋值语句中同时给多个变量赋值。(4)同一个语句行同一个语句行中的中的多个赋值语句多个赋值语句必须必须用用冒号冒号隔开隔开。例如：例如：x%=5,y%=8编译错误，编译错误，应更改为：应更改为：x%=5:y%=8(5)注意：注意：连接运算符连接运算符&的的两边两边应有应有空格空格隔开隔开。Dim x%,y%:x=y=1004赋值操作中的常见错误赋值操作中的常见错误x=100:y=100第17页，本讲

12、稿共78页Print方法的一般格式：对象名.Print，|；说明：说明：对象名对象名.可以是窗体名、图片框名，也可是立即窗口可以是窗体名、图片框名，也可是立即窗口“Debug”。若省略对象，则表示在当前窗体上输出。若省略对象，则表示在当前窗体上输出。用用Print方法在图片框和立即窗口对象中输出与在窗体方法在图片框和立即窗口对象中输出与在窗体对象中输出完全相同。对象中输出完全相同。4.2.3数据的输入与输出数据的输入与输出1.Print方法方法第18页，本讲稿共78页Format函数的一般格式：Format(,格式字符串)2.Format函数函数将表达式的值按指定的格式转换成字符串 第19页，

13、本讲稿共78页 例如：有下列语句如下:x%=Val(InputBox(请输入一个数,输入框,100)语句执行后打开如下对话框。缺省值标题提示3.InputBox函数函数$=InputBox(,标题 ,默认值 ,x坐标 ,Y坐标)第20页，本讲稿共78页4.MsgBox函数和函数和MsgBox过程过程 函数形式:变量%=MsgBox(,按钮图标+缺省按钮+模式，标题)过程形式:MsgBox ,按钮图标+缺省按钮+模式,标题说明：说明：“标题标题”和和“提示提示”与与InputBox函数函数中对应的参数中对应的参数相同相同；“按钮图标按钮图标+缺省按钮缺省按钮+模式模式”是是整型表达式整型表达式，

14、决定信，决定信息框按钮数目、出现在信息框上的图标类型及操作模式息框按钮数目、出现在信息框上的图标类型及操作模式若程序中需要返回值，则使用函数，否则可调用过程。若程序中需要返回值，则使用函数，否则可调用过程。第21页，本讲稿共78页按钮及图标值如下:MsgBox常用参数常用参数说明说明根据用户所选按钮，函数返回值17！MsgBox ,按钮图标+缺省按钮+模式,标题第22页，本讲稿共78页MsgBox函数示例函数示例MsgBox 李钢是不是计算机学院的?,3+32,我要找李钢 第23页，本讲稿共78页5.利用利用文本框文本框和和标签标签控件控件来来输入输入/输出输出数据数据例4.10 编写程序，利

15、用文本框（Text1）输入一个三位的整数，计算这个三位数的逆序数，并用文本框（Text2）和标签控件（Label2）两种方式同时输出运算结果。Private Sub Command1_Click()Dim m%,n%,a%,b%,c%m=Val(Text1.Text)a=m100 b=(m mod 100)10 c=m mod 10 n=c*100+b*10+a Text2=n 省略了属性名Text Label2=m&的逆序数是:&nEnd Sub输入数据输出数据 第24页，本讲稿共78页4.2.4字体、字形和字体、字形和颜色色1Font属性组 FontName FontSize FontBo

16、ld FontItalic FontStrikethru FontUnderline 第25页，本讲稿共78页长整数2颜色属性及颜色值颜色属性主要有ForeColor(前景色)和BackColor(背景色)两种.RGB函数 RGB(红色值,绿色值,蓝色值)0255 QBColor函数 QBColor(颜色值)015 颜色常量 vbBlack、vbRed、vbGreen、vbYellow、vbBlue、vbMagenta、vbCyan、vbWhite等。颜色值(用十六进制表示的数)&H004080FF&红色值绿色值蓝色值(1)在属性窗口中设置颜色(2)在在代码代码中设置中设置颜色颜色十六进制第2

17、6页，本讲稿共78页4.3选择结构选择结构 Visual Basic用关系运算或逻辑运算来判断条件是否能够得到满足，并根据计算的结果决定程序的不同流程，实现选择结构的程序设计。Visual Basic用来实现选择的结构化语句是If条件语句和Select Case语句，也可以使用更为简捷的选择函数来实现较为简单的选择功能。第27页，本讲稿共78页4.3.1单行结构的单行结构的If语句语句单行结构If语句的一般形式：If Then Else 说明：表达式一般为关系表达式或逻辑表达式,也可以是算术表达式。若为算术表达式，则表达式的值非零时为TRUE，零为FALSE。语句块可以是一个语句，也可以是多个

18、语句，多个语句之间一定要用冒号分隔。If ab Then max=a Else max=b第28页，本讲稿共78页例例4.11计算计算分段函数分段函数的的y值。值。Private Sub Form_Click()Dim x!,y!x=Val(InputBox(请输入一个数x)If x=0 then y=x*x+3 else y=x*x*x+2 Print x=;x;y=;yEnd SubPrivate Sub Form_Click()Dim x!,y!x=Val(InputBox(请输入一个数x)y=x*x*x+2 If xy Then m=xElse m=yEnd If例如:求出两个变量x和

19、y的大者m的块语句为：m=yIfxyThenm=xEndIfIfxyThenm=xElsem=yEndIfIf Then Else End If必须换行!m=yIfxyThenm=xEndIf第30页，本讲稿共78页4.3.3多分支的多分支的If语句语句1.多分支If语句的一般形式：IfThenElseIfThenElseIfThenElseEndIfElseIf 不能分开只能有一个End IfElseIf第31页，本讲稿共78页2.多分支的多分支的If语句语句的流程图的流程图只能有一个分支得到执行第32页，本讲稿共78页Private Sub Form_Click()Dim s!,f!s=V

20、al(InputBox(输入里程数（单位：公里）)If s=3 Then f=5 ElseIf s=10 Then f=5+(s-3)*1.2 Else f=5+7*1.2+(s-10)*1.5 End If Print Taxi行驶:;s;公里，收费:;f;元!End Sub例例4.13计算计算Taxi收费金额收费金额第33页，本讲稿共78页4.3.4SelectCase语句语句1.Select Case语句的一般形式：SelectCaseCaseCaseCaseElseEndSelect可含变量，只能是数值型或字符串型 只能包含常量，且必须与类型相同！Case 与 之间要用空格隔开！四种形

21、式之一：Case 85 Case 71,75,78 Case 60 to 69 Case Is 60可混合使用：Case 78，80 to 85第34页，本讲稿共78页Private Sub Form_Click()Dim s!,f!s=Val(InputBox(输入里程数(单位：公里)Select Case s Case Is=3 f=5 Case Is=10 f=5+(s-3)*1.2 Case Else f=5+7*1.2+(s-10)*1.5 End Select Print Taxi行驶:;s;公里，收费:;f;元!End Sub例例4.14计算计算Taxi收费金额收费金额2第35页

22、，本讲稿共78页4.3.5条件结构的嵌套条件结构的嵌套If s=3 Then f=5Else IF s=10 Then f=5+(s-3)*1.2 Else f=5+7*1.2+(s-10)*1.5 End If End IfIfs=10ThenIFs=3Thenf=5Elsef=5+(s-3)*1.2EndIfElsef=5+7*1.2+(s-10)*1.5EndIf第36页，本讲稿共78页IIf函数的使用格式：函数的使用格式：IIf（，）说明：说明：（1）与与If语句语句中的中的相同，相同，用来描述选择条件用来描述选择条件。（2）当）当为真时，函数返回为真时，函数返回的值的值;当当为假时，

23、函数返回为假时，函数返回的值。的值。（3）、可以是任何表达式。可以是任何表达式。例如：例如：Max=IIf（XY,X,Y）它与下面语句等价：它与下面语句等价：IFXYThenMax=XElseMax=Y4.3.6条件函数条件函数1.IIf函数第37页，本讲稿共78页Choose函数使用格式：函数使用格式：Choose（，.）说明：说明：Choose函函数数根根据据的的值值来来决决定定返返回回其其后后中中的的那那个个表表达达式式的的值值。如如果果的的值值为为1，则则返返回回的的值值，如如果果的的值值为为2，则则返返回回的的值值，以以此此类类推推。若若的的值值小小于于1或或大大于于n，则函数返回，

24、则函数返回Null(空空)。例例如如：根根据据Nop的的值值，得得到到+、-、*，/的的运运算算符符，可可由由下下面语句来实现。面语句来实现。Nop=Int（Rnd*4）+1OP=Choose（Nop,+,-,*,/）2.Choose函数函数f=Choose(Nop,汉族,蒙古族,回族,藏族)第38页，本讲稿共78页Switch函数形式是：Switch（条件表达式（条件表达式1，条件表达式，条件表达式1为为True时的值时的值，条件表达式，条件表达式2，条件表达式，条件表达式2为为True时的值时的值）3.Switch函数自左至右，只能返回一个值。例如：根据Nop的值，得到+、-、*，/的运算

25、符，也可由下面的语句来实现。Nop=Int（Rnd*4）+1 OP=Switch(Nop=1,+,Nop=2,-,Nop=3,*,Nop=4,/)f=Switch(m=1,汉族,m=2,蒙古族,m=3,回族,m=4,藏族)第39页，本讲稿共78页例4.17 求一元二次方程的根 4.3.7选择结构选择结构应用程序举例应用程序举例Private Sub Form_Click()Dim a!,b!,c!,disc!,p!,q!a=Val(InputBox(请输入系数a)b=Val(InputBox(请输入系数b)c=Val(InputBox(请输入系数c)Print 方程:&a&*x*x+(&b&)

26、*x+(&c&)=0 If a=0 Then Print a=0，该方程不是二次方程!Else disc=b*b-4*a*c p=Round(-0.5*b/a,2)q=Round(0.5*Sqr(Abs(disc)/a,2).End IfEnd SubSelect Case disc Case 0 Print 有两个相等的实跟：x1=x2=&p Case Is 0 Print 有两个不相等的实跟:x1=&p+q&_ ,x2=&p-q Case Else Print 有两个共轭复跟：x1=&p&+_&q&!;Print ,x2=&p&-&q&!End Select第40页，本讲稿共78页Priv

27、ateSubForm_Click()Dimy%,flagAsBooleany=Val(InputBox(请输入年号请输入年号)IfyMod4=0ThenIfyMod100=0ThenIfyMod400=0Thenflag=TrueElseflag=flaseEndIfElseflag=TrueEndIfElseflag=flaseEndIfPrinty;IIf(Flag,年是闰年年是闰年!,年不是闰年年不是闰年!)EndSub例4.16 闰年问题判断某年是否为闰年的两个条件：该年年号能被4整除，但不能被100整除；该年年号能被400整除。能被4整除能被100整除所有年号能被400整除Priva

28、te Sub Form_Click()Dim y%,flag As Boolean y=Val(InputBox(请输入年号)flag=(y Mod 4=0)And(y Mod 100 0)flag=flag Or(yMod400=0)Print y;IIf(Flag,年是闰年!,年不是闰年!)End Sub第41页，本讲稿共78页For 循环变量初值 to 终值 Step 步长 语句块1 Exit For 语句块2Next 循环变量循环体0:初值=终值=1:可省略=终值=0:死循环 步长4.4循环结构程序设计循环结构程序设计4.4.1.For循环语句循环语句循环次数一般用于循环次数已知的循环

29、结构第42页，本讲稿共78页例:For I=2 To 13 Step 3 Print I;Next I Print I=;I 循环体执行次数:Int(13-2)/3+1)=4输出I的值分别为:2 5 8 11 出了循环输出为:I=14For循环语句循环语句示例示例For I=2 To 13 Step -3 Print I,Next I Print I=,I 循环体执行次数:0出了循环输出为:I=2第43页，本讲稿共78页例例4.18编程计算：编程计算：S=1+3+5+7+99Dim S%,I%S=0 累加前变量S为0For I=1 to 99 Step 2 S=S+INext IPrint S

30、=,S 当N=99I=I+2打印SS=0,I=1S=S+I例4.18的算法流程图For循环循环示例示例4.18注意：注意：在循环体内对循环控制变量可多次引用；但最好不要对其赋值，否则影响原来的循环控制规律。求：求：S=1+2+3+100Dim S%,I%Dim S%,I%S=0S=0 累加前变量累加前变量S S为为0 0For I=1 to 100 For I=1 to 100 Step 1Step 1 S=S+I S=S+INext INext IPrint Print S=S=,S,S 第44页，本讲稿共78页Private Sub Command1_Click()j=0 For i=1

31、To 20 Step 2 i=i+3 j=j+1 Print 第;j;次循环i=;i Next i Print 退出循环后i=;i End Sub补充例题：改变改变循环变量循环变量对循环的对循环的影响影响。没有语句没有语句i=i+3时的循环执行情况：时的循环执行情况：i=1,3,5,7,9,11,13,15,17,19共共10次！次！第45页，本讲稿共78页例题4.19 通过通过改变改变循环变量循环变量，控制控制循环循环提前结束提前结束。题目：打印出最小的水仙花数(一个三位数，其值等于它的三个数位的值的立方之和，例如：371=33+73+13)。Private Sub Form_Click()

32、Dim m%,a%,b%,c%For m=100 To 999 a=m 100 c=m Mod 10 b=(m-a*100)10 If m=a3+b3+c3 Then Print m;End If Next m PrintEnd SubPrivate Sub Form_Click()Dim m%,a%,b%,c%For m=100 To 999 a=m 100 c=m Mod 10 b=(m-a*100)10 If m=a3+b3+c3 Then Print m m=1000 End If Next mEnd SubExitForFor m=999 To 100 Step -1第46页，本讲稿

33、共78页形式1：（当型循环）Do While 语句块1 Exit Do 语句块2 Loop4.4.2DoWhileLoop循环语句循环语句形式2：（当型循环）Do 语句块1 Exit Do 语句块2Loop While 第47页，本讲稿共78页例4.20 求两个整数的最大公约数Dim n%,m%,r%m=Val(InputBox(m=)n=Val(InputBox(n=)r=m mod nDo While(r 0)m=n n=r r=m mod nLoopPrint 最大公约数=,n循环结构循环结构示例示例4.20辗转相减法求最大公约数求最大公约数当 mn时：m=m-n当 nm时：n=n-m

34、重复操作直到m=n时为止 m=n即为最大公约数DoWhilemnm n IfmnThen14 6m=mn8 6Else2 6n=nm2 4EndIf2 2LoopDo r=mmodn m=n n=rLoop While(r0)Print最大公约数最大公约数=,m第48页，本讲稿共78页4.4.3DoLoopUntil循环语句循环语句形式1：（直到型循环）Do 语句块1 Exit Do 语句块2 Loop Until 形式2：（直到型循环）Do Until 语句块1 Exit Do 语句块2Loop第49页，本讲稿共78页Private Sub Form_Click()Dim t#,pi#,n&

35、pi=1:n=1:t=1 第1项t的值为1 Do n=n+1 从第2项开始累加 t=IIf(n Mod 2=1,1,-1)/(2*n-1)IIf(n Mod 2=1,1,-1)与 (-1)(n+1)等价 pi=pi+t Loop Until Abs(t)0.000001 Print pi=&pi*4End Sub例例4.21程序运行的结果为：pi=3.14159465358569Until Abs(t)0.000001 第50页，本讲稿共78页（1 1）当当使使用用WhileWhile 构构成成循循环环时时，当当条条件件为为“真真”，则反复则反复执行循环体执行循环体，当条件为，当条件为“假假”

36、，则退出循环。，则退出循环。（2）当当使使用用Until构构成成循循环环时时，当当条条件件为为“假假”，则则反复反复执行循环体执行循环体，直到条件成立，即为，直到条件成立，即为“真真”时，则退出循环。时，则退出循环。（3）在）在循环体循环体内一般应有一个专门用来内一般应有一个专门用来改变条件改变条件表达式中表达式中变量的语句，以变量的语句，以使使随着随着循环循环的执行，的执行，条件条件趋于趋于不成立不成立（或成立）（或成立），最后达到退出循环。，最后达到退出循环。（4）语句）语句ExitDo的作用是的作用是退出退出它所在的它所在的循环结构循环结构，它只能，它只能用在用在DO/Loop结构中，并

37、且常常是同结构中，并且常常是同选择结构选择结构一起出现在循环一起出现在循环结构中，用来实现结构中，用来实现当满足当满足某一某一条件条件时时提前退出提前退出循环循环。与与DoLoop语句语句有关的说明：有关的说明：Do没有条件的没有条件的DoLoop语句语句语句块语句块1IfThenExitDo语句块语句块2Loop第51页，本讲稿共78页While Wend4.4.4WhileWend语句语句说明说明:与与DoWhile.Loop语句语句实现的循环实现的循环基本相同基本相同,只是只是不能不能用用Exit提前提前退出循环退出循环！例4.22 判断一个给定的整数是否为素数。Private Sub

38、Form_Click()Dim n%,w%,i%,r%n=Val(InputBox(请输入一个正整数！)i=2:w=0 w=0表示先假定没有数能被n整除 While (w=0 And i=n-1)没有数能整除 并且i=n-1，继续 r=n Mod i If r=0 Then w=1 在这儿找到一个能整除，w改为1 i=i+1 Wend Print n&IIf(w=0,是,不是)&一个素数！End SubWhile (i=n-1)r=n Mod i If r=0 Then w=1:i=n i=i+1Wend 第52页，本讲稿共78页4.4.5用用Goto语句语句和和If语句语句构成循环构成循环P

39、rivate Sub Form_Click()Dim x%,s%s=0 abc:x=Val(InputBox(输入一个数，输入0结束程序!)Print x;s=s+x if(x0)Then goto abc Print The total sum is;sEnd Sub例4.23 从键盘输入一组数据，以0作为结束输入数据的 标志，求这组数据之和。语句标号 语句标号 第53页，本讲稿共78页多重循环结构 如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套。例如：4.4.6循环的嵌套循环的嵌套（1）ForI=1To10.ForJ=3To8.NextJ.NextI（2）ForI=1

40、0To80.DoWhilex10.Loop.NextI（3）DoWhilex10.ForJ=2To7.NextJ.Loop（4）DoWhilex=10.Loop第54页，本讲稿共78页PrintTab(36);九九乘法表九九乘法表Fori=1To9Forj=1To9se=i&j&=&i*jPrintTab(j-1)*9+1);se;NextjPrintNexti例例4.24：打印九九乘法表：打印九九乘法表.i第55页，本讲稿共78页Dim n%,Factor%,First As Boolean n=InputBox(请输入一个大于2的整数)First=True :Factor=2 第1个可能的

41、质因素是2Do While n Mod Factor=0 相同的质因素可能有多个 Print IIf(First,n&=&Factor,*&Factor);First=False 第1个已输出 n=n/Factor 从整数中分离出这个质因素 Wend Factor=Factor+1 预期的下1个因素Loop Until n=1例例4.25：分解分解出出一个正整数一个正整数的的所有所有质因素质因素.输入360，输出：360=2*2*2*3*3*5第56页，本讲稿共78页 (1)内循环变量与外循环变量不能同名；(2)外循环必须完全包含内循环，不能交叉；(3)不能从循环体外转向循环体内，也不能 从外

42、循环转向内循环.循环嵌套循环嵌套注意事项注意事项：Fori=1To10Forj=1To20NextiNextjFori=1To10Fori=1To20NextiNexti语法上没问题语法上没问题Fori=1To10Forj=1To20abc:PrintjNextjIfi=8ThenGotoabcNextiFori=1To10Forj=1To20Ifj=8ThenGotoabcNextjabc:PrintiNexti第57页，本讲稿共78页 此类问题都要使用循环，根据问题的要求，确定循环变此类问题都要使用循环，根据问题的要求，确定循环变量的初值、终值或结束条件及用来表示计数、和、阶乘的变量的初值

43、、终值或结束条件及用来表示计数、和、阶乘的变量的初值。量的初值。4.4.7应用程序举例应用程序举例1.求累加和、连积的问题求累加和、连积的问题1100的5或7的倍数的和 Sum=0 For i=1 To 100 If i Mod 5=0 Or i Mod 7=0 Then Sum=Sum+i End If Next i Print Sum 310的乘积 t=1 For i=3 To 10 t=t*i Next i Print t思考：若把循环体前面置各变量初值的语句放在循环体内，程序运行时会产生什么情况？第58页，本讲稿共78页例例4.28求求s=n!+(n+1)!+(n+2)!.+m!。正整

44、数。正整数n=n Then 从n!开始求累加和 s=s+jc If i=n Then Print i&!;Else Print +&i&!;End If Next i Print =&sEnd Sub如：如：8!+9!+10!+11!+12!=522950400第59页，本讲稿共78页 在若干个数中求最大值,一般先假设一个较小的数为最大值的初值,若无法估计较小的值，则取第一个数为最大值的初值；然后将每一个数与最大值比较，若该数大于最大值，将该数替换为最大值；依次逐一比较。例4.29 随机产生10个100200之间的数，求最大值。Private Sub Command1_Click()Max=1

45、00 For i=1 To 10 x=Int(Rnd*101+100)Print x;If x Max Then Max=x Next i Print Print 最大值=;MaxEnd Sub2.2.极值问题极值问题第60页，本讲稿共78页Private Sub Form_Click()Dim i%,x%,m%m=Val(InputBox(输入第一个数)For i=2 To 10 x=Val(InputBox(输入一个数)Print x;If m x Then m=x Next i Print Print Min=&mEnd Sub例例4.30 4.30 从从键盘键盘输入输入1010个数，并

46、求出它们的个数，并求出它们的最小值最小值第61页，本讲稿共78页“穷举法穷举法”也称为“枚举法枚举法”或“试凑法试凑法”，即将所有所有可能出现的各种情况可能出现的各种情况一一测试，判断是否满足条件。如求水仙花数、求极值求水仙花数、求极值的算法的算法都是都是用的用的“穷举法穷举法”。例例4.31 百元买百鸡问题百元买百鸡问题。设公鸡,母鸡,小鸡各为x,y,z只，列出以下方程为：x+y+z=100 3x+5y+z/3=100 三个未知数，两个方程，只能用“试凑法”。先导出y与x的关系式：y=(200-8x)/14 x=0,1,2,32533;y=(200-8x)/14(只要y是正整数即可);z=1

47、00-x-y3.穷举法穷举法第62页，本讲稿共78页“百元买百鸡百元买百鸡”程序程序Private Sub Form_Click()Dim x%,y%,z%For x=0 To 25 y=(200-8*x)14 赋值时去掉了小数 z=100-x-y 可以保证鸡数是100 If 3*x+5*y+z/3=100 Then 验算钱数也必须是100 Print 公鸡;x;只；母鸡;y;只；小鸡;z;只!End If Next xEnd SubPrivate Sub Form_Click()Dim x%,y%,z%For x=0 To 33 100块钱最多能买33只公鸡 For y=0 To(100-3

48、*x)5 剩钱最多母鸡数 z=(100-3*x-5*y)*3 再剩下的钱买小鸡 If x+y+z=100 Then 验算是否100只鸡 Print 公鸡;x;只；母鸡;y;只；小鸡;z;只!End If Next y Next xEnd Sub公鸡 4 只；母鸡 12 只；小鸡 84 只!公鸡 11 只；母鸡 8 只；小鸡 81 只!公鸡 18 只；母鸡 4 只；小鸡 78 只!公鸡 25 只；母鸡 0 只；小鸡 75 只!第63页，本讲稿共78页例例4.32：爱因斯坦的阶梯问题：爱因斯坦的阶梯问题 设有一阶梯，每步跨2阶，最后余1阶；每步跨3阶，最后余2阶；每步跨5阶，最后余4阶；每步跨6阶

49、，最后余5阶；每步跨7阶时，最后正好到达阶梯顶。问共有多少阶梯？Private Sub Form_Click()Dim i%i=7 Do While(i Mod 3 2)Or(i Mod 5 4)Or(i Mod 6 5)i=i+14 Loop Print 共有;i;个阶梯End Sub奇数7的倍数第64页，本讲稿共78页 长度为321米的钢材料，要将它截取成17米和27米的短料,问分隔成a,b各多少段后，剩余的残料 r 最少？分析，该题利用“穷举法”通过循环求残料r的最小值。程序如右：Rem 打印出所有可能的情况Private Sub Form_Click()Dim a%,b%,r%For

50、b=1 To 321 27 a=(321-b*27)17 r=321-b*27-a*17 Print a,b,r Next bEnd Sub例4.33 实际应用，求最短残料。Rem 打印出残料小于3的情况Private Sub Form_Click()Dim a%,b%,r%For b=1 To 321 27 a=(321-b*27)17 r=321-b*27-a*17 If r3 Then Print a,b,r Next bEnd SubPrivate Sub Form_Click()Dim a%,b%,r%,ma%,mb%,mr%mr=321 For b=1 To 321 27 a=(3