第6章 循环结构程序设计电子课件 中职 高教版 Visual Basic程序设计（第4版）

第6章 循环结构程序设计电子课件 中职 高教版 Visual Basic程序设计（第4版） 单元六 循环结构程序设计 程序设计中的循环结构（简称循环）是指在程序中，从某处开始有规律地反复执行某一操作块（或程序块）的现象。被重复执行的该操作块（或程序块）称为循环体，循环体的执行与否及次数多少视循环类型与条件而定。当然，无论何种类型的循环结构，其共同的特点是：必须确保循环体的重复执行能被终止（即非无限循环）。 单元六 循环结构程序设计 For 循 环 1 Do 循 环 2 列表框与组合框控件 3 常 用 算 法 实 例 4 6.1 For循环 6.1.1 For循环的简单设计 求1 + 3 + 5 + … + 99的值。 Private Sub Command1_Click() Dim s As Integer, n As Integer s = 0 For n = 1 To 100 Step 2 s = s + n Next n Label2.Caption = s End Sub For〈循环变量〉=〈初值〉To〈终值〉[Step〈步长〉] [ 语句组1 ] [Exit For] [ 语句组2 ] Next [ 循环变量 ] For语句的执行过程：进入For循环后，首先把〈初值〉赋给〈循环变量〉，检查〈循环变量〉的值是否超过〈终值〉。如果超过就停止执行循环体，跳出循环，执行Next后面的语句；否则执行一次循环体，然后把〈循环变量〉+〈步长〉的值赋给〈循环变量〉，重复上述过程。 6.1.2 For循环的循环次数 循环体为： For n = 1 To 100 Step 2 s = s + n Next n 循环体执行次数= Int((100-1)/2+1)= Int(99/2+1)= Int(49.5+1)= Int(50.5)= 50次。 【相关知识】 （1）For循环遵循“先检查，后执行”的原则，即先检查〈循环变量〉是否超过〈终值〉，然后决定是否执行循环体。因次，循环的最少执行次数为0次。 （2）循环次数通过下式计算： 循环次数=INT((终值-初值)/步长+1) 如果计算出的循环次数小于或者等于0，循环次数为0，这时系统将不执行循环体。 6.1.3 利用For循环实现图形的输出 Private Sub Form_Load() Print: Print: Print Show For i = 1 To 5 Print Tab(5 + i); String(6 – i, "★"); Spc(6); String(i, "▲"); Spc(6); String(6 – i, "★") Next i End Sub 6.1.4 For循环的嵌套 Private Sub Form_Load() Show FontSize = 12 Print Tab(25); "九九表" Print Print " * "; For i = 1 To 9 Print Tab(i * 6); i; Next i Print For j = 1 To 9 Print j; " "; For k = 1 To 9 m = j * k Print Tab(k * 6); m; " "; Next k Print Next j End Sub 返回目录 6.2 Do循环 6.2.1 前测型Do循环语句 设有一张厚为x mm，面积足够大的纸，将它不断地对折。试问对折多少次后，厚度可达珠穆朗玛峰的高度。 Private Sub Command1_Click() n = 0 h = Text1.Text Do While h < 8848000 n = n + 1 h = 2 * h Loop Text2.Text = n Text2.Locked = True End Sub 已知s = 1×2×3×…×n，计算出s不大于5000时的最大n值。 Private Sub Command1_Click() Dim n As Integer, s As Long CurrentY = Label2.Height + 200 n = 1 s = 1 Do Until s > 5000 n = n + 1 s = s *