Visual Basic程序设计讲义第5章 循环结构程序设计.docVIP

第5章 循环结构程序设计 5.1 循环结构程序设计的概念 实际的数据处理中，常需要进行一些大量重复的操作如求： 1+2+3+……+n 1!+2!+3!+…..+n! 这些操作都可有用循环结构实现 VB中有多种循环结构，最常用的有Do….Loop结构和For….Next结构 5.2 Do…Loop语句 DO循环的格式 ⑴无条件循环 DO 循环体 LOOP ⑵当循环前测试型 DO WHILE 继续循环的条件 循环体 LOOP ⑶当循环后测试型 DO 循环体 LOOP WHILE 继续循环的条件 ⑷直到循环前测试 DO UNTIL 终止循环的条件 循环体 LOOP ⑸直到循环后测试型 DO 循环体 LOOP UNTIL 终止循环的条件 ◇另外可以用EXIT DO语句终止循环 例(p94-1.vbp)用exit do 退出循环操作 Private Sub Command1_Click() Dim Sum As Single, x As Single Sum = 0 Do x = Val(InputBox(enter a value)) If x = 0 Then Exit Do Sum = Sum + x Print sum=; Sum Loop End Sub [例5-1](P95-1.VBP)计算1+2+3+…..+100 可以用当循环来实现。 Private Sub Command1_Click()‘当循环 Dim s As Integer, n As Integer s = 0: n = 1 Do While n = 100 s = s + n n = n + 1 Loop Label2.Caption = 1+2+3+...+100= s End Sub Private Sub Command2_Click()‘直到循环 Dim s As Integer, n As Integer s = 0: n = 1 Do Until n 100 s = s + n n = n + 1 Loop Label2.Caption = 1+2+3+...+100= s (直到循环) End Sub Private Sub Form_Load() Label1.Caption = 今有100个数：1、2、3、……、100，试计算其累加和。 Label2.Caption = Command1.Caption = C 计算 End Sub [例5-2](p96-1.vbp)判断一个正整数是否是素数。选用当循环。 Private Sub Command1_Click() Dim n As Integer, i As Integer, a As String Select Case Val(Text1.Text) Case Is 3 MsgBox 请输入一个大于2的整数！, vbInformation + vbOKOnly, 注意 Case Is 2147483647 MsgBox 此数太大！, vbInformation + vbOKOnly, 注意 Case Else n = Val(Text1.Text) s = 0: i = 2 Do While i = Sqr(n) And s = 0 If n Mod i = 0 Then s = 1 Else i = i + 1 End If Loop If s = 0 Then a = 是一个素数 Else a = 不是一个素数 End If Label1.Caption = Str(n) a End Select Text1.SetFocus End Sub [例5-3](p97-1.vbp)计算π。计算公式： 分析:分子为2保持不变 若第n项的分母为,则第n+1项的分母为 第1项除外，第2项的分母为，p的初值为0 若前n项的乘积为，则前n+1项乘积为 第1项的乘积为2，s的初值为2 通过前后两个乘积的差，来控制循环。 从而得流程图： Private Sub Command1_Click() Dim m As Integer, p