《项目二3ppt课件.ppt》由会员分享，可在线阅读，更多相关《项目二3ppt课件.ppt（31页珍藏版）》请在三一文库上搜索。
1、项目二经典计算,之循环结构,1,主要内容,2,循环结构 For语句 Do语句 循环的嵌套 GoTo语句,循环结构,循环是在指定的条件下多次重复执行一组语句。顺序结构和分支结构的程序执行时，每个语句只能执行一次，循环结构则可以使计算机在一定条件下反复多次执行同一段程序。 VB.NET中提供了两种类型的循环语句： 计数型循环语句 条件型循环语句,3,学习支持,编程实践-累加,例1：编写程序，求S=1+2+3+N的值。在文本框中输入项数值N，单击“累加”按钮，在标签中显示计算结果，程序界面如图所示。,4,编程实践-累加,分析 S=1+2+3+N，这是求表达式之和。从公式中可以看出，前n项和是前n-1
2、项和加上n，即s=s+n。这是一个通式，如果能使n从1变化到n，并重复执行s=s+n即可。,5,编程实践-累加,Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s As Long, n, i As Short s = 0 n = Val(TextBox1.Text) For i = 1 To n s += i Next i Label2.Text = “1-“ & Str(n) &
3、“的和是：“ & Str(s) End Sub End Class,6,FOR语句-1,For语句 For循环语句又称“计数”型循环控制语 句。通常用于已知循环次数的程序中。 For语句的一般形式为： For = To Step Exit For Next ,7,学习支持,FOR语句-2,其中： 循环变量：必须为数值型，用于控制循环是否执行。每执行一次循环体语句后，循环变量的值自动按指定的步长变化。 初值、终值、步长：数值型表达式。 步长：可正可负。若为正，循环变量从小到大变化（初值小于等于终值）；若为负，循环变量从大到小变化（初值大于等于终值）；缺省时步长为1。 循环体：可以是一句或多句语句
4、，是被重复执行的部分。 Exit For：表示当遇到该语句时，提前结束循环，执行Next的下一句语句，通常与条件判断语句（如IF）联合使用。,8,学习支持,FOR语句-3,For语句的功能： 用循环计数器（循环变量）来控制循环体内的语句的执行次数。 For语句执行过程： 1.计算初值、终值及步长表达式的值，并将初值赋给循环变量； 2.判断循环变量的值是否在终值内，如果是，执行循环体；如果否，退出循环，执行Next的下一句语句； 3.执行Next语句，循环变量增加一个步长； 4.重复步骤(2)(3)，直到超出循环变量的终值,学习支持,9,FOR语句-4,For循环语句的流程图,学习支持,10,F
5、OR语句-5,注意 步长为0时，必须有Exit For语句，否则会发生死循环。 循环变量被赋初值，它仅被赋一次初值。 循环变量的值是否在终值内：当步长为正时，循环变量的值终值时，结束循环，当步长为负时，循环变量的值终值时，结束循环。 循环次数：n=Int(终值-初值)/步长+1) 在循环体内对循环控制变量可多次引用，但不要对其赋值，否则影响原来的循环控制规律。,学习支持,11,编程实践-连乘,例2：求N！ 分析：N！=123N 与累加的例子基本相同。应注意的是存放结果的变量在初始化时不能为0。 界面设计,12,编程实践-连乘,Private Sub Button1_Click(ByVal se
6、nder As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim t As Long, n, i As Short n = Val(TextBox1.Text) t = 1 For i = 1 To n t *= i Next i Label2.Text = Str(n) & “!=“ & Str(t) End Sub,13,编程实践-1,例3：计算n个数的和，当输入的数为负数时结束计算。 界面设计,学习支持,14,FOR语句-7,程序如下： Public Class Form1 Private Sub
7、Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs)Handles Button1.Click Dim s As Long, n, i, t As Short s = 0 n = Val(TextBox1.Text) For i = 1 To n t = InputBox(“请输入一个整数“) If t = 0 Then s += t Else Exit For End If Next i Label2.Text = Str(s) End Sub End Class,学习支持,15,习题讲解,项目
8、二活动二的实践活动5 Dim x As String, p As String Dim a,b,y As Single,n As Integer x=LTrim(TextBox1.text) a=Val(x) n=Len(Ltrim(a) p=Mid(x,n+1,1) b=Val(Mid(x,n+2) ,16,Do语句-1,Do循环语句又称“循环条件”控制语句，通常用于循环次数未知的循环结构。此种语句有两种格式。 Do语句格式 格式一： Do While|Until Exit Do Loop 其中： 循环条件是一个逻辑表达式。 While是当条件为True时执行循环 Until是在条件变为Tr
9、ue之前执行循环,学习支持,17,Do语句-2,Do语句的功能： 当指定的“循环条件”为True或直到指定的“循环条件”变为True之前重复执行一组语句（即循环体）。 Do WhileLoop语句的流程图：,学习支持,18,编程实践,用Do_While语句改写例3程序： Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs)Handles Button1.Click Dim s As Long, t As Short s = 0 Do W
10、hile t=0 t = InputBox(“请输入一个整数“) s += t Loop Label1.Text = Str(s) End Sub End Class,19,注意：一定要在循环体中使t的值有变化,与用For语句比较，这段程序更适合用Do-While语句,Do语句-5,格式二： Do Exit Do Loop While|Until Do Loop Until语句的流程图：,学习支持,20,编程实践,用Do_Loop While语句改写例3程序： Public Class Form1 Private Sub Button1_Click(ByVal sender As System
11、.Object, _ ByVal e As System.EventArgs)Handles Button1.Click Dim s As Long, t As Short s = 0 Do t = InputBox(“请输入一个整数“) s += t Loop While t=0 Label1.Text = Str(s) End Sub End Class,21,循环嵌套,在一个循环结构的循环体内含有另一个循环结构，这就构成了循环的嵌套，又称多重循环。循环嵌套对For循环语句和DoLoop循环语句均适用。 注意： 外层循环必须完全包含内层循环，循环体之间不能交叉。 For循环的嵌套，内循环变
12、量与外循环变量不能同名。,学习支持,22,编程实践-1,例4：求 Sum=1!+2!+3!+N! 分析：求阶乘、求和 For j=1 to n t=1 For i = 1 To j t *= i Next i Sum += t Next j Label2.Text = “阶乘的和=“ & Str(Sum),23,循 环 嵌 套,编程实践-2,Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sum, t As Long,
13、n, i, j As Short sum = 0 n = Val(TextBox1.Text) For j = 1 To n t = 1 For i = 1 To j t *= i Next i sum += t Next j Label2.Text = “阶乘的和=“ & Str(sum) End Sub,24,编程实践-3,打印九九乘法表的程序 For i = 1 To 9 For j = 1 To 9 yy = i & “ & j & “=“ & i * j Label1.Text &= yy & Space(9 - Len(yy) Next j Label1.Text &= vbCrL
14、f Next i,25,打印乘法表，利用循环变量，将其作为乘数和被乘数的数据来源,编程实践-4,例，打印九九乘法表，运行界面如图所示（呈下三角）。,学习支持,26,循环的嵌套-4,程序如下： Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs)Handles MyBase.Load Dim yy As String, i, j As Integer Label1.Text = vbCrLf & Space(40) & “九九乘法表“ & vb
15、CrLf Label1.Text &= Space(40) & “-“ & vbCrLf For i = 1 To 9 For j = 1 To i yy = i & “ & j & “=“ & i * j Label1.Text &= yy & Space(9 - Len(yy) Next j Label1.Text &= vbCrLf Next i End Sub End Class,学习支持,27,GoTo语句-1,GoTo语句有又称条件转移语句，它通过与语句“标号”的结合来控制程序的流程。 GoTo语句格式： GoTo 标号|行号 GoTo语句的功能： 当程序执行该语句时，无条件地将程
16、序转移到标号或行号所标识的语句行上，并从该行向下执行。,学习支持,28,GoTo语句-2,注意： “标号”是一个以冒号结束的标识符，用以标明GoTo语句转移的位置。 GoTo语句可以改变程序的执行顺序，由它可以构成分支结构的循环结构。 通常GoTo语句与If语句共同使用，否则会出现“死”循环。 为了保证程序有一个良好和可读性，建议尽量少用或者最好不用GoTo语句。,学习支持,29,GoTo语句-3,例，计算2100的偶数和，程序段如下： Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer, s As Integer s = 0 i = 2 re: If i = 100 Then s = s + i i = i + 2 GoTo re End If Label1.Text = “2100的偶数和是：“ & s End Sub End Class,学习支持,30,作业,复习P88-95 作业：P95实践活动1、2、3、5 虚拟磁盘名：作业23,31,