chap6（循环结构程序设计）.pptVIP

* * * * 例 输入两个正整数，求它们的最大公约数。 ☆ 原数 步骤 被除数b 除数c 余数y 结果 36和24 一 36 24 12 二 15和7 一 15 7 1 二 24 12 12 0 7 1 0 1 Private Sub Form_Click() Dim b%, c%, y%, t% b = InputBox(请输入第一个整数) c = InputBox(请输入第二个整数) If b c Then t = b: b = c: c = t y=b mod c Do while y0 b = c c= y y= b Mod c Loop Print 最大公约数是: ; c End Sub 6.4 多重循环 多重循环------(也称为循环嵌套) 在一个循环结构的循环体内含有另一个循环结构。 例 输出由1、2、3三个数字组成的所有三位数。 Private sub form_click() Dim i%,j%,k% for i=1 to 3 for j=1 to 3 for