vb控制结构-循环结构程序的设计说明.pptVIP

6.5 嵌套结构 Exit Do和Exit For语句在循环嵌套时的作用 6.5 嵌套结构 例：打印九九乘法表. For i = 1 To 9 For j = 1 To 9 se = i × j = i * j Picture1.Print Tab((j - 1) * 9 + 1); se; Next j Picture1.Print Next i 6.5 嵌套结构 6.5 嵌套结构 例: 编一程序，显示出所有的水仙花数。所谓水仙花数，是指一个三位数，其各位数字立方和等于该数字本身。例如，153是水仙花数，因为： 6.5 嵌套结构 Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Dim n As Integer For i = 1 To 9 i表示百位上的数 For j = 0 To 9 j表示十位上的数 For k = 0 To 9 k表示个位上的数 n = i * 100 + j * 10 + k If i ^ 3 + j ^ 3 + k ^ 3 = n Then Print n Next k Next j Next i End Sub 解法一: 6.5 嵌套结构 解法二: Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Dim n As Integer For n = 100 To 999 i = n \ 100 得到百位上的数字 j = n \ 10 - i * 10 得到十位上的数字 k = n Mod 10 得到个位上的数字 If i ^ 3 + j ^ 3 + k ^ 3 = n Then Print n Next n End Sub 6.5.2 循环结构与选择结构的嵌套 在循环结构中可以完整嵌套选择结构,即整个选择结构都属于循环体。在选择结构中嵌套循环结构时，则要求整个循环结构必须完整地嵌套在一个分支内，一个循环结构不允许出现在两个或两个以上的分支内。 6.5 嵌套结构 （1）For I=…… …… IF … Then …… End IF …… Next I （6） IF … Then …… For I=…… …… End IF …… Next I （5）Select Case …… For I=…… …… Case …… …… Case …… …… Next I ……… End Select （3）For I=…… …… IF … Then …… Next I …… End IF （2）IF … Then …… For I=…… …… Next I …… End IF （4）For I=…… …… Select Case … Case …… …… Case …… …… End Select …… Next I × × × 6.5 嵌套结构 6.6强制退出循环 6.6.1用Exit for语句强制退出For循环 Exit For 语句可以使程序从For循环中退出来，转到Next语句后面的程序继续执行，而不必等到循环变量到达终值时才退出来。 注意：