第四部分算法基础及VB的基本语句教学课件

《第四部分算法基础及VB的基本语句教学课件》由会员分享，可在线阅读，更多相关《第四部分算法基础及VB的基本语句教学课件（96页珍藏版）》请在装配图网上搜索。

1、江苏省计算机等级考试 Visual Basic 程序设计程序设计第四章第四章 算法基础及算法基础及VBVB的基本语句的基本语句江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计21 1、了解结构化程序设计的基本概念、了解结构化程序设计的基本概念2 2、掌握、掌握VB VB 程序设计中的常用语句程序设计中的常用语句3 3、掌握顺序、选择、和循环结构、掌握顺序、选择、和循环结构及相应的语句及相应的语句教学要求教学要求江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计3教学内容教学内容4.1 4.1 算法及程序设计基础算法及程序设计基础4.

2、2 4.2 赋值语句及赋值语句及InputBoxInputBox、MsgBoxMsgBox函数函数4.3 4.3 分支结构与分支结构语句分支结构与分支结构语句4.4 4.4 循环结构与循环结构语句循环结构与循环结构语句4.5 4.5 程序示例程序示例江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计44.1 4.1 算法及程序设计基础算法及程序设计基础：l有人认为：有人认为：对数据的描述对数据的描述：指定所用数据的类型，作用域和数据的：指定所用数据的类型，作用域和数据的 组织形式，即数据结构（组织形式，即数据结构（data structure）。）。对操作的描述对

3、操作的描述：即操作步骤，也就是算法（：即操作步骤，也就是算法（algorithm）。）。数据结构数据结构+算法算法=程序程序程序程序=算法算法+数据结构数据结构+程序设计方法程序设计方法+语言工具和环境语言工具和环境江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计51 1、算法的概念、算法的概念l算法算法即解决某个问题或处理某件事的方法和步骤；即解决某个问题或处理某件事的方法和步骤；“采用什么采用什么结构，使用什么语句以及如何安排这些语句结构，使用什么语句以及如何安排这些语句”。l算法分类：算法分类：数值计算算法数值计算算法非数值计算算法非数值计算算法l算法算法

4、优劣优劣：正确性，效率，占用系统资源，便于理解，易于调试等。正确性，效率，占用系统资源，便于理解，易于调试等。江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计61810M N R8108 2 8 2 0 2 0R=8R=2R=0M=2即即最大公约数最大公约数求最大公约数求最大公约数 题目题目：求两个自然数的最大公约数：求两个自然数的最大公约数 分析分析：求最大公约数的常用方法是辗转相除法：求最大公约数的常用方法是辗转相除法(欧几里德算法欧几里德算法)。2 2、算法示例、算法示例江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计7 算

5、法描述算法描述：S1 S1 输入两个自然数：输入两个自然数：M M，N N；S2 S2 求求M M除以除以N N的余数的余数R R；S3 S3 使使M=NM=N，即用，即用N N代换代换M M；S4 S4 使使N=RN=R，即用，即用R R代换代换N N；S5 S5 若若R0R0，则重复执行，则重复执行S2,S3,S4,S2,S3,S4,否则转至否则转至S6S6S6 S6 输出输出M M，M M即为即为M M，N N的最大公约数。的最大公约数。江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计83 3、算法的特征、算法的特征2 确定性确定性2 可行性可行性2 有穷

6、性有穷性2 输入性输入性2 输出性输出性江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计94 4、算法的描述、算法的描述 l程序流程图程序流程图求最大公约数求最大公约数江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计10程序编码程序编码实现算法实现算法l算法仅提供解题思路，计算机不可直接执行。算法仅提供解题思路，计算机不可直接执行。l用用某一程序设计语言所提供的语言成分，根据该语言的特某一程序设计语言所提供的语言成分，根据该语言的特点，并利用该语言的各种工具和手段，遵照规定的语法规点，并利用该语言的各种工具和手段，遵照规定的语法规

7、则去实现算法，得到原程序代码，计算机可识别并执行。则去实现算法，得到原程序代码，计算机可识别并执行。江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计115.5.基本算法结构基本算法结构1 1）.顺序结构顺序结构语句语句1语句语句2语句块语句块结构化程序设计结构化程序设计江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计12l2）选择结构）选择结构条件满足?块1块2TrueFalse结构化程序设计结构化程序设计江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计13l3）循环结构）循环结构块块TrueFal

8、se条件条件结构化程序设计结构化程序设计江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计14三种基本结构的共同特点三种基本结构的共同特点l只有单一入口和单一出口；只有单一入口和单一出口；l结构中的每一部分都有被执行的可能；结构中的每一部分都有被执行的可能；l结构内不应出现永不终止的死循环。结构内不应出现永不终止的死循环。江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计154.2 4.2 赋值语句及赋值语句及InputBoxInputBox、MsgBoxMsgBox函数函数4.2.1 赋值语句赋值语句4.2.2 InputBoxIn

9、putBox函数函数4.2.3 MsgBoxMsgBox函数函数江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计164.2.1 赋值语句赋值语句 格式格式：=功能功能：先计算表达式的值，再将该值赋予左端的变量。：先计算表达式的值，再将该值赋予左端的变量。说明说明：-赋值号左端不仅可以是变量名，还可以是对象的属性；赋值号左端不仅可以是变量名，还可以是对象的属性；-表达式的类型和变量的类型要一致表达式的类型和变量的类型要一致 -赋值语句是按语句出现的先后顺序执行的（顺序结构）赋值语句是按语句出现的先后顺序执行的（顺序结构）举例举例：str1=Nice to meet

10、 you number%=72 Lable1.Caption=Filename is:Text.FontSize=12 改变字号改变字号江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计17使用下面的方法可以获取一个对象的属性值：使用下面的方法可以获取一个对象的属性值：var=object.Property 例如：例如：Label1.Caption=Text1.Text 式中，式中，varvar是变量名、是变量名、objectobject是对象名、是对象名、propertyproperty是该对是该对象的某个属性名。象的某个属性名。特别注意：特别注意：属性也存在数

11、据类型，所以在获取对象的属性值时，属性也存在数据类型，所以在获取对象的属性值时，最好使用具有相同数据类型的变量。最好使用具有相同数据类型的变量。说明说明 江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计18注意：赋值号（注意：赋值号（=）与比较运算符（）与比较运算符（=）不同）不同v 赋值是独立的一条语句；赋值是独立的一条语句；由运算符（由运算符（=）连结两个操作数的关系表达式是）连结两个操作数的关系表达式是语句的一部语句的一部分分,不可单独存在不可单独存在v 比较运算符不会改变操作数的值；比较运算符不会改变操作数的值；赋值语句会，改变赋值号左边的量，所以必须是

12、可以被赋赋值语句会，改变赋值号左边的量，所以必须是可以被赋值的变量或属性值的变量或属性Dim x As Integer,y As Integer,z As Booleanx=3 :y=4:y=xz=x=yPrint x,y,z江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计19Private Sub Form_Click()Dim a As Integer,b As Integer a=10 b=3*a Print a,bEnd SubPrivate Sub Form_Click()Dim a As Integer,b As Integer b=3*a a=10

13、 Print a,bEnd Sub例：单击窗体，下列两段程序的执行结果分别是例：单击窗体，下列两段程序的执行结果分别是（）（）和和（）（）。提示：利用赋值语句给变量赋值后，在未有新的提示：利用赋值语句给变量赋值后，在未有新的赋值语句再次给它赋值前，变量值保持不变。赋值语句再次给它赋值前，变量值保持不变。江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计20例：交换两个变量的值。例：交换两个变量的值。Private Sub Form_Click()Dim a As Integer,b As Integer a=10:b=2 Print a,b 填入程序代码填入程序代

14、码 Print a,bEnd Sub正确答案正确答案Dim Temp As IntegerTemp=a :a=b :b=Temp题目说明题目说明单击窗体程序执行结果为：单击窗体程序执行结果为：10 210 2 2 10 2 10 注意注意 变量变量a a和和b b为两个不定值的变为两个不定值的变量，因此不能直接用量，因此不能直接用 a=2 :b=10a=2 :b=10语句来解决这个问题。语句来解决这个问题。一旦利用赋值语句给变量赋一旦利用赋值语句给变量赋新值，会覆盖原值，所以不能新值，会覆盖原值，所以不能直接用直接用 a=b :b=aa=b :b=a语句来解决这个问题。语句来解决这个问题。江苏

15、计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计21例：求一元一次方程例：求一元一次方程x+5=0 x+5=0的解。的解。Private Sub Form_Click()Dim x As Integer 3*x+5=0 Print“x=”;xEnd SubPrivate Sub Form_Click()Dim x As Integerx=(0-)/3 -Print“x=”;xEnd Sub 语句语句是该例题的算法。是该例题的算法。错误程序错误程序正确程序正确程序总结：总结：利用程序设计语言处理问题，我们首先要知道的是利用程序设计语言处理问题，我们首先要知道的是怎么怎

16、么解决问题解决问题，其次要知道怎么将解决问题的方法，其次要知道怎么将解决问题的方法用程序设计语用程序设计语言来表达言来表达。江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计224.2.2 InputBox4.2.2 InputBox函数函数 格式格式：InputBox$(,)功能功能：弹出对话框，用户输入数据后回车或单击弹出对话框，用户输入数据后回车或单击“确定确定”按钮后，按钮后，将输入内容赋值给相应的变量；按将输入内容赋值给相应的变量；按ESCESC键或单击键或单击“取消取消”按钮，按钮，返回返回空串空串。江苏计算机等江苏计算机等级考试级考试 Visual

17、Basic 程序设计程序设计23 说明说明（1 1）promptprompt：必选项。对话框中的提示信息。：必选项。对话框中的提示信息。（2 2）titletitle：可选。对话框的标题。省略则为应用程序名。：可选。对话框的标题。省略则为应用程序名。（3 3）defaultdefault：可选。显示在用户编辑框中的缺省值，省略为空。：可选。显示在用户编辑框中的缺省值，省略为空。（4 4）x,y:x,y:可选。指定对话框的显示位置，省略则居中。可选。指定对话框的显示位置，省略则居中。例：例：i=InputBox(“i=InputBox(“输入数组元素输入数组元素”+Chr(10)+“+Chr(1

18、0)+“第一个元素为第一个元素为:”:”，程序示例程序示例,100100)缺省值缺省值标题标题提示字符串提示字符串江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计24例：用例：用InputBox函数输入出生日期，计算年龄。函数输入出生日期，计算年龄。Option ExplicitOption ExplicitPrivate Sub Form_Click()Private Sub Form_Click()Dim BirthDay Dim BirthDay As Date,Age As Integer As Date,Age As Integer BirthDay

19、BirthDay=InputBox(=InputBox(输入出生日期输入出生日期,计算年龄计算年龄)Age=Year(Date)-Year(BirthDay Age=Year(Date)-Year(BirthDay)Print Print 你今年：你今年：;Age;Age;岁岁 End SubEnd Sub江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计25如果赋值号左端的变量为数值型或日期型等非字符型变量，如果赋值号左端的变量为数值型或日期型等非字符型变量，输入字符数据输入字符数据 单击单击“取消取消”按钮按钮 不输入直接按回车不输入直接按回车键，则系统都会提

20、示出错：键，则系统都会提示出错：Dim x As Integerx=InputBox(输入数组元素输入数组元素+Chr(10)+第一个元素为：第一个元素为：,示例示例,10,100,100)注意注意 江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计264.2.3 MsgBox4.2.3 MsgBox函数函数格式格式：MsgBox(Prompt,Button,Title,HelpFile,Context)功能功能：向用户发布提示信息，并要求用户作出必要的响应。：向用户发布提示信息，并要求用户作出必要的响应。说明说明：（1 1）Prompt:Prompt:必选项。字

21、符串表达式，对话框中的提示信息。必选项。字符串表达式，对话框中的提示信息。（2 2）Button:Button:指定显示按钮的数目及形式，使用的图标样式，指定显示按钮的数目及形式，使用的图标样式，这是一个由这是一个由4 4个数值常量组成的式子，形式为个数值常量组成的式子，形式为c1+c2+c3+c4c1+c2+c3+c4，用，用于决定信息框中按钮的个数和类型以及出现在信息框中的图标于决定信息框中按钮的个数和类型以及出现在信息框中的图标类型，各个参量的可选值及其功能类型，各个参量的可选值及其功能;详见详见P.62P.62表表4.24.2 （3 3）Title:Title:对话框标题栏的显示信息。

22、对话框标题栏的显示信息。江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计27MsgBox MsgBox 需要重新来一次需要重新来一次?,2+32+256+4096,?,2+32+256+4096,询问询问 MsgBox MsgBox 数据非法，请重输！数据非法，请重输！,1+16+0+4096,1+16+0+4096,警告警告 举举 例例江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计28方法一方法一：发布提示信息，无须用户响应，在程序中作为独立语发布提示信息，无须用户响应，在程序中作为独立语句存在句存在,不加括号；不加括号；例：

23、例：MsgBox 非法数据！非法数据！,警告警告如果省略其中参数，如果省略其中参数，逗号不能省略逗号不能省略MsgBox函数的用法函数的用法方法二方法二：需要用户响应，和普通函数调用方法相同。需要用户响应，和普通函数调用方法相同。例：例：Response=MsgBox(真的删除该项吗？真的删除该项吗？,4+48,提示信息提示信息)If Response=vbYes Then Else End If江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计294.3 4.3 分支结构与分支结构语句分支结构与分支结构语句4.3.1 If-Then-Else-End If语句语

24、句4.3.2 Select-Case-End Select语句语句江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计301、If-Then-Else语句语句格式格式1：If Then Else End If4.3.1 If-Then-Else-End If4.3.1 If-Then-Else-End If语句语句逻辑变量、关系表达逻辑变量、关系表达式、逻辑表达式式、逻辑表达式B组语句组语句条件？条件？不成立不成立成立成立A组语句组语句 逻辑框图逻辑框图：功能功能：如果条件成立，则执行如果条件成立，则执行A A组语句，组语句，否则执行否则执行B B组语句。组语句。说

25、明说明：IfIf和和End IfEnd If语句成对出现，缺一不可；语句成对出现，缺一不可；ElseElse和和B组语句组语句部分可以省略部分可以省略,当条件不成立时当条件不成立时,直接执行直接执行End IfEnd If的的后继语句；后继语句；江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计31Private Sub cmdCalculate_Click()Dim x as Single x=Val(text1.text)If x=0 Then Text2.text=Str(Sqr(x)Else Text2.text=数据小于数据小于0，错误！，错误！End

26、IfEnd SubPrivate Sub cmdExit_Click()EndEnd SubPrivate Sub cmdClear_Click()Text1.Text=Text2.Text=Text1.SetFocusEnd Sub例：从键盘输入一个数，求它的平方根。例：从键盘输入一个数，求它的平方根。缩格输入缩格输入江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计32例：计算分段函数例：计算分段函数y y的值。的值。0672025xxxexyxPrivate Sub cmdCalculate_Click()Dim x As Single,y As Singl

27、e x=Val(Text1.Text)If x=0 Then y=2*Sqr(x+7)-6 Else y=5*x+Exp(x)-2 End If Text2.Text=Str(y)End SubcmdCalculate江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计33 格式格式22：单行：单行If-Then-ElseIf-Then-Else语句语句 If If Then Then 1 Else Else 2 说明说明：（1 1）在）在A组语句组语句和和B组语句组语句都只有一个语句时，可使用该格式；都只有一个语句时，可使用该格式；（2 2）End IfEnd I

28、f语句省略。语句省略。例：上例可改写为以下程序段。例：上例可改写为以下程序段。Private Sub cmdCalculate_Click()Dim y As Single,x As Single x=Val(Text1.Text)If x=0 Then y=2*Sqr(x+7)-6 Else y=5*x+Exp(x)-2 Text2.Text=Str(y)End Sub江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计34条件满足条件满足?块块1TrueFalse 格式格式33：If Then End If格式格式4:4:If Then 逻辑框图逻辑框图江苏计算

29、机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计352.2.嵌套的嵌套的IfIf结构结构 在在If语句的语句的“语句块语句块”中包含另一个中包含另一个If语句，叫做嵌套的语句，叫做嵌套的If结构。结构。If Then 外层外层 If Then 内层内层 Else If then Else 最内层最内层 End IfElse If Then End IfEnd If用于解决有多用于解决有多种情况的问题种情况的问题江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计36开始开始边长边长0?是否能组成三角形是否能组成三角形计算计算输出输出出错信息出

30、错信息结束结束是是否否是是否否例：输入三角形的三边例：输入三角形的三边a a、b b、c c，求三角形的面积，求三角形的面积P 64 例例4-1a0 and b0 and c0a+bc and b+ca and a+cb江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计37Private Sub cmdCalculate_Click()Dim a As Single,b As Single,c As Single,p As Single,s As Single a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)I

31、f (1)Then If a+bc And b+ca And c+ab Then p=(a+b+c)/2 s=Sqr(p*(p-a)*(p-b)*(p-c)Text4.Text=Str(s)Else Text4.Text=“不能构成三角形不能构成三角形”End If Else Text4.Text=“边长不能小于边长不能小于0 0”End IfEnd Sub计算公式：计算公式：其中：其中：)()(cpbpappS2cbapa0 And b0 And c0江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计38例：计算分段函数例：计算分段函数y y的值。的值。55xl

32、nxx054x3x0 x5x1y2Private Sub cmdCalculate_Click()Dim x As Single,y As Single x=Val(Text1.Text)If x0 Then y=1/(x-5)Else If x5 Then y=3*x2+4*x+5 Else y=Log(x)End If End If Text2.Text=Str(y)End Sub05江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计39例：输入分数并判断等级分。计算规则如下：例：输入分数并判断等级分。计算规则如下：分数分数 100-90 89-80 79-7

33、0 69-60 60100-90 89-80 79-70 69-60 =90 And Score=80 Then Degree=B Else If Score=70 Then Degree=C Else If Score=60 Then Degree=D Else Degree=E End If End If End If End If Text2.Text=Degree End IfEnd Sub缺点：缺点：嵌套层次过多，结构嵌套层次过多，结构不清晰，容易出错不清晰，容易出错。从文本框取数据从文本框取数据向文本框放数据向文本框放数据江苏计算机等江苏计算机等级考试级考试 Visual Basi

34、c 程序设计程序设计403 3、多分支、多分支If-Then-ElseIfIf-Then-ElseIf语句语句 格式格式：IfIf 1 ThenThen ElseIf ElseIf 2 ThenThen ElseIf ElseIf Thenn Then Else Else End If End If 功能功能：-对条件自上而下依次判断对条件自上而下依次判断,若条件若条件i i成立成立,则执行相应的则执行相应的Ai组语句组语句；-若所有条件都不成立，则执行若所有条件都不成立，则执行An+1组语句组语句。-无论执行了哪个语句块，都将执行无论执行了哪个语句块，都将执行End IfEnd If的后继语

35、句。的后继语句。条件条件1条件条件2假假假假真真真真语句块语句块1语句块语句块2条件条件 n真真假假语句块语句块n语句块语句块n+1江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计41（1 1）该语句结构可以解决多分支问题，只有一个）该语句结构可以解决多分支问题，只有一个End End IfIf语句，语句，避免避免IfIf语句嵌套层数过多的情况；语句嵌套层数过多的情况；（2 2）ElseElse语句可以省略；语句可以省略；（3 3）该结构是一个单出口的结构，即该结构是一个单出口的结构，即只会执行只会执行一组语句一组语句，若，若条件中有两个成立，则按语句的顺序执行

36、前面的条件中有两个成立，则按语句的顺序执行前面的一组语句。一组语句。说说 明明江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计42Private Sub Text1_KeyPress(KeyAscii As Integer)Dim Score As Integer,Degree As String If KeyAscii=13 Then Score=Val(Text1.Text)If Score=90 And Score=80 Then Degree=B ElseIf Score=70 Then Degree=C ElseIf Score=60 Then Deg

37、ree=D Else Degree=E End If Text2.Text=Degree End IfEnd Sub特点：特点：结构清晰。结构清晰。将上例用将上例用If-Then-ElseIfIf-Then-ElseIf语句改写：语句改写：90Score=80?江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计43格式格式：Select Case Case Case Case Case Else End Select 功能功能：计算测试表达式的值，自计算测试表达式的值，自上而下检查测试条件上而下检查测试条件;若表达式的值符合测试若表达式的值符合测试 i i，则执行

38、相应的语句块则执行相应的语句块 i i；若所有条件都不成立，则若所有条件都不成立，则执行语句块执行语句块n+1n+1。无论执行了。无论执行了哪个语句块，都将执行哪个语句块，都将执行End End SelectSelect的后继语句。的后继语句。4.3.2 4.3.2 多分支多分支Select-Case-End SelectSelect-Case-End Select语句语句江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计44（1 1）测试表达式可以是算术表达式或字符表达式；）测试表达式可以是算术表达式或字符表达式；（2 2）测试条件有四种形式：）测试条件有四种形

39、式：v 常量，如常量，如2 2、3 3、“A”A”等等v 闭区间闭区间，如，如3 3 ToTo 78 78、“B”B”ToTo“H”“H”等等v 开区间，如开区间，如IsIs2020、IsIs“P”“P”等等v 以上三种形式的组合，以以上三种形式的组合，以逗号间隔逗号间隔，条件组合是，条件组合是或或的关系，的关系，不能表示与的关系不能表示与的关系 （3 3）Case ElseCase Else语句部分可以省略；语句部分可以省略；（4 4）以）以End SelectEnd Select语句结束；语句结束；（5 5）该结构是一个单出口的结构，即该结构是一个单出口的结构，即只会执行一个语句块只会执行

40、一个语句块，若条，若条件中有两个成立，则按语句的顺序执行前面的语句块。件中有两个成立，则按语句的顺序执行前面的语句块。说说 明明江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计45例：将上例用例：将上例用Select CaseSelect Case语句改写。语句改写。Private Sub Text1_KeyPress(KeyAscii As Integer)Dim Score As Integer,Degree As String If KeyAscii=13 Then Score=Val(Text1.Text)Select Case Score Case 9

41、0 To 100 Degree=A Case 80 To 89 Degree=B Case 70 To 79 Degree=C Case 60 To 69 Degree=D Case Is60 Degree=E End Select Text2.Text=Degree End IfEnd Sub江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计46练习：练习：键盘输入三个数，将它们从大到小依次排列输出。键盘输入三个数，将它们从大到小依次排列输出。Private Sub Form_Click()Dim a As Integer,b As Integer,c As I

42、nteger,temp As Integer a=InputBox(输入输入a,顺序输出顺序输出)b=InputBox(输入输入b,顺序输出顺序输出)c=InputBox(输入输入c,顺序输出顺序输出)If a b Then temp=a a=b b=temp End If If a c Then Print a,b,c Else Print a,c,b End IfEnd Sub保证保证a为为a,b两数中的大值两数中的大值江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计47分支结构的适用情况分支结构的适用情况l验证用户输入数据的合法性验证用户输入数据的合法性l

43、分段函数计算分段函数计算l用于区分等级用于区分等级l其他须根据条件不同执行不同操作的情况其他须根据条件不同执行不同操作的情况江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计484.4 4.4 循环结构与循环结构语句循环结构与循环结构语句4.4.1 Do-loop循环结构语句循环结构语句（条件循环）（条件循环）4.4.2 For-Next 循环结构语句循环结构语句（计数循环）（计数循环）4.4.3 循环嵌套循环嵌套江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计49 由一定的条件控制，反复执行某个程序段的程序结构称由一定的条件控制，

44、反复执行某个程序段的程序结构称为为循环结构循环结构。用于解决一些需要重复进行某些操作的问题。用于解决一些需要重复进行某些操作的问题。循环要素：循环要素：&循环控制条件循环控制条件 条件或逻辑表达式条件或逻辑表达式&循环体循环体 重复执行的语句块重复执行的语句块&为防止死循环，在循环体内必须要有对应语句，为防止死循环，在循环体内必须要有对应语句，使得循环控制条件会不满足，结束循环运行。使得循环控制条件会不满足，结束循环运行。基本概念基本概念江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计50例：在窗体上打印例：在窗体上打印10行行“Hello”。循环控制条件循环控

45、制条件 是否已打印了是否已打印了1010行行 循环体循环体在窗体上打印一行在窗体上打印一行“Hello”Hello”提示：要设立一个变量，用于记录已打印的行数，每打提示：要设立一个变量，用于记录已打印的行数，每打印一行，计数变量要加印一行，计数变量要加1 1，循环控制条件即计数变量小于等于，循环控制条件即计数变量小于等于1010江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计51一、一、“当型当型”循环循环条件成立时，执行循环体条件成立时，执行循环体条件？条件？循环体循环体成立成立循环循环的后继语句的后继语句不成立不成立条件？条件？循环体循环体不成立不成立循环循

46、环的后继语句的后继语句成立成立图图2 2：先执行一次循环体，然后再判断条件，决定是否继续执行循：先执行一次循环体，然后再判断条件，决定是否继续执行循环，此结构环，此结构至少执行一次循环体至少执行一次循环体。图图 1图图 2图图1 1：先判断条件，当条件成立则执行循环体，否则执行循环结构：先判断条件，当条件成立则执行循环体，否则执行循环结构的后续语句。的后续语句。江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计52二、二、“直到型直到型”循环循环条件不成立时，执行循环体条件不成立时，执行循环体条件？条件？循环体循环体不成立不成立循环循环的后继语句的后继语句成立成立

47、条件？条件？循环体循环体成立成立循环循环的后继语句的后继语句不成立不成立图图3 3：先判断条件，条件不成立则执行循环体，直到条件不成立，：先判断条件，条件不成立则执行循环体，直到条件不成立，执行循环结构的后续语句。执行循环结构的后续语句。图图 3图图 4图图4 4：先执行一次循环体，再判断条件，决定是否继续执行循环。：先执行一次循环体，再判断条件，决定是否继续执行循环。江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计53 4.4.1 Do-Loop 4.4.1 Do-Loop 循环结构语句循环结构语句格式一格式一 Do While Loop条件？条件？循环体循环

48、体成立成立Loop的后继语句的后继语句不成立不成立执行步骤：执行步骤：1 判断条件是否成立。如果条件判断条件是否成立。如果条件不成立，转向第不成立，转向第4步步2 执行循环体；执行循环体；3 转向执行第转向执行第1步；步；4 执行执行Loop语句的后继语句。语句的后继语句。当型循环当型循环江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计54Private Sub Form_click()Private Sub Form_click()Dim i as integer Dim i as integer i=0 i=0 Do While i10 Do While i

49、10 print “hello”print “hello”i=i+1 i=i+1 Loop LoopEnd SubEnd Sub上例的实现：上例的实现：缩格缩格江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计55例例 求求S=1+2+3+4+100Private Sub Form_click()Dim n as Integer,s as Long n=1 s=0 Do While n=100 s=s+n n=n+1 Loop Print“1+2+3+100=”;sEnd Sub实现累加实现累加江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设

50、计程序设计56格式二格式二：Do Loop While 条件？条件？循环体循环体不成立不成立Loop的后继语句的后继语句成立成立执行步骤：执行步骤：1 执行循环体；执行循环体；2 判断条件是否成立。如果条判断条件是否成立。如果条件成立，转向第件成立，转向第 1 步步3 条件不成立，则结束循环，条件不成立，则结束循环，执行执行Loop语句的后继语句。语句的后继语句。当型循环当型循环江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计57格式三格式三 Do Until Loop条件？条件？循环体循环体不成立不成立Loop的后继语句的后继语句成立成立执行步骤：执行步骤：1

51、 判断条件是否成立。如果条判断条件是否成立。如果条件成立，转向第件成立，转向第4步步2 执行循环体；执行循环体；3 转向执行第转向执行第 1 步；步；4 执行执行Loop语句的后继语句。语句的后继语句。直到型循环直到型循环江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计58格式四格式四 Do Loop Until 条件？条件？循环体循环体不成立不成立Loop的后继语句的后继语句成立成立执行步骤：执行步骤：1 执行循环体；执行循环体；2 判断条件是否成立。如果条判断条件是否成立。如果条件不成立，转向第件不成立，转向第 1 步，若条步，若条件成立，则执行件成立，则执

52、行 第第3步步 3 执行执行Loop语句的后继语句。语句的后继语句。直到型循环直到型循环江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计59（1 1）While While 短语总是在条件成立时，继续进行循环；条件短语总是在条件成立时，继续进行循环；条件不成立时，结束循环。因此用于不成立时，结束循环。因此用于“当型当型”循环；循环；（2 2）Until Until 短语总是在条件不成立时，执行循环体；条件短语总是在条件不成立时，执行循环体；条件成立时，则结束循环。因此称为成立时，则结束循环。因此称为“直到型直到型”循环；循环；（3 3）上述两条短语是可以相互转换

53、的。）上述两条短语是可以相互转换的。总总 结结 Do While i=10 print “hello”i=i+1 Loop江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计60格式五（特殊形式）格式五（特殊形式）：Do Loop执行过程：反复执行循环体。执行过程：反复执行循环体。该结构称为该结构称为“死循环死循环“，在循环体，在循环体内必须通过内必须通过 Exit Do 语句强制退出语句强制退出循环体。循环体。Exit Do语句一般与语句一般与If-then语句结合语句结合使用，即当满足某一条件时，才强使用，即当满足某一条件时，才强制退出循环。制退出循环。If T

54、hen Exit Do循环体循环体Loop后续语句后续语句 Do print “hello”i=i+1 If i=10 then Exit Do Loop江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计61（1 1）DoDo和和LoopLoop为循环结构关键字，必须成对出现，缺一不可；为循环结构关键字，必须成对出现，缺一不可；（2 2）循环体为可执行语句组成）循环体为可执行语句组成,可以嵌套分支结构和循环结构；可以嵌套分支结构和循环结构；（3 3）语句）语句 Exit Do Exit Do 用于无条件退出循环，可在任意用于无条件退出循环，可在任意Do-LoopD

55、o-Loop语语句结构的循环体中出现。句结构的循环体中出现。（4 4）使用循环结构，一定要避免死循环的出现。）使用循环结构，一定要避免死循环的出现。Do-Loop Do-Loop语句使用说明语句使用说明江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计62 算法算法分析分析：求最大公约数的常用方法是：求最大公约数的常用方法是 辗转相除法。辗转相除法。例：求两个数的最大公约数。例：求两个数的最大公约数。P 68 例例4-31810M N R8108 2 8 2 0 2 0R=8R=2R=0M=2即即最大公约数最大公约数江苏计算机等江苏计算机等级考试级考试 Visua

56、l Basic 程序设计程序设计63 在该例中，我们使用了三个变量，分别表示被除数（在该例中，我们使用了三个变量，分别表示被除数（m m）、）、除数（除数（n n）及余数（）及余数（r r）。）。Do r=m Mod n m=n n=rLoop Until r=0最大公约数是（最大公约数是（）？）？江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计64 由于输入的数据由于输入的数据M M和和N N要求是自然数，在程序中应加入对要求是自然数，在程序中应加入对数据的合法性进行检验的部分；数据的合法性进行检验的部分；考虑到程序的应用范围，数据类型可选用长整型。考虑到程序

57、的应用范围，数据类型可选用长整型。问题分析及界面设计问题分析及界面设计江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计65Private Sub Command1_Click()Dim m As Long,n As Long,r As Long m=Val(Text1.Text)取数据取数据M n=Val(Text2.Text)取数据取数据N If m Int(m)Or m 1 Or n Int(n)Or n 1 Then Text3.Text=数据错误！数据错误！Else Do 求最大公约数求最大公约数 r=m Mod n m=n n=r Loop Until

58、 r=0 Text3.Text=CStr(m)输出最大公约数输出最大公约数 End If End Sub Private Sub Command2_Click()Text1.Text=Text2.Text=Text3.Text=End Sub Private Sub Command3_Click()End End Sub检验数据检验数据合法性合法性Mod 前后加空格前后加空格江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计66例：将十进制数转换成二进制。例：将十进制数转换成二进制。算法分析算法分析：十进制向二进制转换，十进制向二进制转换，采取的是除采取的是除2

59、2取余法。取余法。4522221112122252101001高位高位低位低位（45）10=（101101）2解决这类问题必须考虑的是如下几点：解决这类问题必须考虑的是如下几点：（1 1）需要重复运行的操作）需要重复运行的操作除除2 2取余取余（2 2）终止循环的条件）终止循环的条件商为商为0 0a=0?a Mod 2a=a2F结束循环结束循环T江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计67注意：注意：在循环控制条件中必须出现变量，且该变量在循环体中一定在循环控制条件中必须出现变量，且该变量在循环体中一定要改变值，否则会造成要改变值，否则会造成“死循环死循

60、环”，即无休止的循环。，即无休止的循环。若在运行程序过程若出现若在运行程序过程若出现“死循环死循环”，用，用Ctrl+BreakCtrl+Break可可以强制终止程序的执行。以强制终止程序的执行。Private Sub Command1_Click()Dim a As Integer,r as Integer,s As String a=Val(Text1.Text)Do While a 0 r=a Mod 2 a=a 2 Loop Text2.Text=sEnd Subs=Cstr(r)&s将余数逆序输出，即将最新获得的余数，将余数逆序输出，即将最新获得的余数，连接在已获得的余数串的前面连接

61、在已获得的余数串的前面江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计68练习练习1 1：计算圆周率的近似值。计算公式如下：计算圆周率的近似值。计算公式如下：2222)12(1513118n计算精确到通项的值小于计算精确到通项的值小于1010-7-7。提示提示：s=s+s=s+可实现累加。可实现累加。解决求累加和的问题，关键注意两点：解决求累加和的问题，关键注意两点：（1 1）通项的表示；）通项的表示；（2 2）循环的结束条件；）循环的结束条件；江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计69Private Sub Form_

62、Click()Dim Pi As Single,s As Single,r As Single Dim n As Integer n=1:s=0ss为累加器为累加器 Do r=1/(2*n-1)2求通项求通项 s=s+r n=n+1 Loop While r 1e-7 Pi=Sqr(8*s)Print PiEnd Sub江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计701119171513114计算精确到通项的绝对值小于计算精确到通项的绝对值小于1010-4-4。练习练习2 2：若公式改为：若公式改为江苏计算机等江苏计算机等级考试级考试 Visual Basi

63、c 程序设计程序设计71Private Sub Form_Click()Dim Pi As Single,s As Single,r As Double Dim n As Integer n=1:s=0 Do r=(-1)(n+1)*1/(2*n-1)求通项求通项 s=s+r n=n+1 Loop While Abs(r)0.0001 Pi=4*s Print PiEnd Sub江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计72 格式格式：For For=To To Step Step 循环体循环体 Next Next 功能功能：由计数变量控制，由计数变量控制

64、，有限次地执行循环体。有限次地执行循环体。4.4.2 4.4.2 计数循环（计数循环（For-NextFor-Next循环）循环）步骤步骤：1.1.计算初值、终值和步长值，将初值计算初值、终值和步长值，将初值赋予计数变量；赋予计数变量；2.2.比较计数变量和终值，若计数变量比较计数变量和终值，若计数变量大于终值，结束循环；大于终值，结束循环；3.3.计数变量小于终值，执行循环体；计数变量小于终值，执行循环体；4.4.计数变量计数变量=计数变量计数变量+步长值步长值5.5.转向第转向第2 2步。步。计数变量计数变量=初值初值计数变量计数变量终值终值是是循环体循环体计数变量计数变量=计数变量计数变

65、量+步长值步长值否否计算初值，终值，步长计算初值，终值，步长江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计73v For-Next For-Next是关键字，成对出现，缺一不可；是关键字，成对出现，缺一不可；v 循环体由可执行语句组成，可嵌套分支结构和循环结构；循环体由可执行语句组成，可嵌套分支结构和循环结构；v 计数变量应为计数变量应为整型或单精度型整型或单精度型，初值、终值和步长值为相应，初值、终值和步长值为相应类型的表达式；类型的表达式；v 步长值可以为正，也可以为负，省略时默认步长值为步长值可以为正，也可以为负，省略时默认步长值为1 1；v 循环次数为

66、：循环次数为：Int(Int(终值终值-初值）初值）/步长值）步长值）+1+1v Exit For Exit For语句可以出现在循环体中，用于无条件退出循环语句可以出现在循环体中，用于无条件退出循环 说说 明明江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计74Private Sub Form_Click()For i=1 To 10 Step 2 Print i;Next i Print i=;iEnd Sub 执行本程序，窗体上将显示：执行本程序，窗体上将显示：1 3 5 7 9 i=111 3 5 7 9 i=11。它表明循环一共执行了它表明循环一共执行了5 5次，退出循环时，次，退出循环时，i i的取值为的取值为1111。例：请写出窗体上打印的内容，以及循环执行的次数。例：请写出窗体上打印的内容，以及循环执行的次数。P 70江苏计算机等江苏计算机等级考试级考试 Visual Basic 程序设计程序设计75 循环控制变量主要是用于控制循环的执行次数循环控制变量主要是用于控制循环的执行次数,但我们通过但我们通过合理的设置合理的设置,可以在循环体中