VB程序 循环结构、列表框和组合框 幻灯片.pptVIP

小结 本章主要介绍For…Next语句、Do…Loop语句、Do While…Loop语句、Do…Loop While语句、Do Until…Loop语句和Do…Loop Until语句。本章最后介绍了列表框和组合框的使用。 * 具体格式： Do 循环体 [Exit Do] Loop Until 条件表达式 5、Do …Loop Until语句 * 首先执行一次循环体内的语句，执行到Loop Until 语句时，判断条件表达式的值是否为False。若为False，则返回到循环体的开始语句，再次执行循环体，这样一直到条件表达式的值为True时才退出循环。 执行循环体 条件为真？ Y N * 例【5-6】：编写程序在标签中显示1~100之间既能被3整除又能被7整除的整数，并计算它们的和。要求用Do…Loop While和Do…Loop Until两种语句分别编写循环体部分。 * 编程思路：程序的循环次数是确定的，即从1到100。对于用Do…Loop While语句编写循环体部分，While后的条件表达式是满足条件执行循环，所以条件表达式是“n = 100” ；对于用Do…Loop Until语句编写循环体部分，Until后的条件表达式是满足条件将退出循环，所以条件表达式是“n 100”。 * Private Sub ComputeCmd _Click() Dim n As Integer, s As Integer Dim t As String n = 1：s = 0：t = Do If n Mod 3 = 0 And n Mod 7 = 0 Then t = t Str(n) t = t , s = s + n End If n = n + 1 Loop While n = 100 NumLabel.Caption = t SumLabel.Caption = s End Sub * Private Sub ComputeCmd _Click() Dim n As Integer, s As Integer Dim t As String n = 1：s = 0：t = Do If n Mod 3 = 0 And n Mod 7 = 0 Then t = t Str(n) t = t , s = s + n End If n = n + 1 Loop Until n 100 NumLabel.Caption = t SumLabel.Caption = s End Sub * 按下列公式计算： e=1+1/1！+1/2！+1/3！+…+1/n！+… 使1/n！小于0.000001 Private Sub Form_Click() Dim e As Double Dim i As Integer Dim fact As Double Dim result As Long e = 0: i = 1: fact = 1: result = 1 Do fact = 1 / result e = e + fact result = result * i i = i + 1 Loop While fact 0.000001 Label1.Caption = Val(e) End Sub * S=1*(1+2)*(1+2+3)*…*(1+2+3+…+n) 编程求S不大于20000时最大的n值 * Private Sub Form_Click() Dim sum As Long Dim s As Long Dim n As Integer sum = 0: s = 1: n = 0 Do n = n + 1 sum = sum + n s = s * sum Loop Until s 20000 Label3.Caption = Val(n - 1) End Sub * 定义：在一个循环体中含有另一个循环结构，这就构成了循环的嵌套。以上几节介绍的循环语句都可以实现循环嵌套。两层的循环嵌套，称为二重循环，三层以上的循环嵌套，称为多重循环。 5.2 循环嵌套 * (1) 对于For…Next的循环嵌套，在每层循环中的控制变量要使用不同的变量名。 (2) 内循环结构语句必须完整地嵌在外循环体中，不可交叉。Do…Loop或For…Next语句需成对使用，Visu