327-第5章 循环结构程序设计.pptVIP

第5章　循环结构程序设计 §5.1　循环结构程序设计的概念 §5.2 Do…Loop语句 一、前测型Do…Loop循环 一、前测型Do…Loop循环 二、后测型Do…Loop循环 §5.4　列表框与组合框 二、组合框 §5.5　算法举例 第5章　循环结构程序设计　回顾 作业： 1．由三个三角形构成的图形 Private Sub Form_Click() For h = 1 To 20 ForeColor = vbRed Print Tab(21 - h); String(2 * h - 1, X); ForeColor = vbBlue Print Spc(15); String(41 - 2 * h, Y); ForeColor = vbGreen Print Spc(15); String(2 * h - 1, “Z) Next h End Sub 2．求N到M的和 Private Sub Command1_Click() Dim Sum As Long, N As Long, M As Long Dim i As Integer N = Val(Text1.Text) M = Val(Text2.Text) For i = N To M Sum = Sum + i Next i Label4.Caption = Sum End Sub 3．Page 100例5-5 Private Sub Command1_Click() Dim n As Integer, a As String For n = 37 To 1000 Step 37 a = a n vbCrLf Next n Text1 = a End Sub Private Sub Command1_Click()先用属性窗口进行设置，然后用代码修改 Dim i As Integer For i = 0 To 6 List1.List(i) = String(i + 1, *) Next i End Sub Private Sub Command2_Click() Print List1.List(5) End Sub Private Sub List1_Click() Label1.Caption = List1.ListIndex End Sub Dim n%, g%, s%, b%, k% For n = 100 To 999 g = n Mod 10 s = n \ 10 Mod 10 b = n \ 100 If g ^ 3 + s ^ 3 + b ^ 3 = n Then List1.AddItem n 是水仙花数 List1.AddItem b ^ 3 = Format(b ^ 3, @@@) List1.AddItem s ^ 3 = Format(s ^ 3, @@@) List1.AddItem g ^ 3 = Format(g ^ 3, @@@) List1.AddItem String(20, _) k = k + 1 End If Next n Label1.Caption = 共有 k 个水仙花数 End Sub * §5.1　循环结构程序设计的概念 §5.2 Do…Loop语句 §5.3 For…Next语句 §5.4　列表框与组合框 §5.5　算法举例 一、循环的概念 　　循环结构是程序设计中的一种基本结构。当程序中出现需要反复执行相同的代码时，就要用到这种结构。循环结构既可以简化程序，又可以提高程序的效率。 因为VB继承了所有Basic语言中的各种循环语句，所以在VB中实现循环结构的语句最多。但因循环只有当型和直到型两种基本的结构，我们只需要掌握其中最常用的Do…Loop语句和For…Next语句就足够用了。 两种类型的循环结构 条件表达式 成立？ 循环体 False True 条件表达式 成立？ 循环体 False True 先判断后执行：当型 先执行后判断：直到型 二、两种基本循环结构 一、前测型Do…Loop循环 二、后测型Do…Loop循环 　这种循环是先判断条件，后执行循环体；从结构上看，它属于当型循环。 1．格式： 　　Do While|Until 　条件表