新VisualBasic程序设计（第二版） 丁爱萍 第6章 循环结构设计.pptVIP

第6章 循环结构设计 6.1 Do...Loop循环语句 6.2 For...Next语句 6.3 列表框与组合框 习题六 6.1 Do...Loop循环语句 6.1.1 前测型Do...Loop循环 前测型Do...Loop循环结构首先判断条件，根据条件决定是否执行循环体，执行循环体的最少次数为0。 其语法为 Do [{ While | Until }〈条件〉] [〈语句列1〉] [Exit Do] [〈语句列2〉] Loop 【例6-1】 用Do...Loop语句求1 + 2 + 3 + ... + 100的值。 设计步骤如下： (1) 建立应用程序用户界面并设置对象属性，如图6.1所示。 (2) 编写事件代码。采用当型循环结构编写“计算”命令按钮Command1的Click事件代码为 图6.1 建立用户界面 Private Sub Command1_Click() Dim s As Integer, n As Integer s = 0 : n = 1 累加器赋初值0，计数器赋初值1 Do While n = 100 当型循环 s = s + n 累加 n = n + 1 计数 Loop Text1.Text = s Text1.Locked = True End Sub “计算”命令按钮Command1的Click事件代码还可以改为直到型： Private Sub Command1_Click() Dim s As Integer, n As Integer s = 0: n = 1 Do Until n 100 直到型循环 s = s + n n = n + 1 Loop Text1.Text = s Text1.Locked = True End Sub 该事件代码还可以利用Exit Do来编写： Private Sub Command1_Click() Dim s As Integer, n As Integer s = 0: n = 1 Do 图6.2 程序运行结果 s = s + n n = n + 1 If n 100 Then Exit Do 跳出循环 Loop Text1.Text = s Text1.Locked = True End Sub 程序运行结果如图6.2所示。 【例6-2】 设有一张厚为x mm，面积足够大的纸，将它不断地对折。试问对折多少次后，其厚度可达珠穆朗玛峰的高度(8848 m)。 (1) 建立应用程序用户界面并设置对象属性，如图6.3所示。 (2) 编写程序代码。命令按钮Command1的Click事件代码为 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 程序运行结果如图6.3所示。 图6.3 用户界面及程序运行结果 【例6-3】 设s = 1×2×3×...×n，求s不大于400 000时最大的n。 (1) 建立用户界面并设置对象属性，如图6.4所示。 (2) 编写事件代码。命令按钮的Click事件代码为 图6.4 程序界面与运行结果 Private Sub Command1_Click() Dim n As Integer, s As Long CurrentY = Label1.Height + 200 n = 1 s = 1 Do While s = 400000 n = n + 1 s = s * n Print n, s 通过本行可以看到循环过程 Loop Label2.Caption = n = Str(n - 1) End Sub 程序运行结果如图6.4所示。 6.1.2 后测型Do...Loop循环 后测型Do...Loop循环结构首先执行循环体，然后判断条件，根据条件决定是否继续执行循