VB程序設(shè)計(jì)第講循環(huán)嵌套ppt課件

1、編程小貼士編程小貼士設(shè)置屬性確定事件；設(shè)置屬性確定事件；構(gòu)思算法草擬代碼；構(gòu)思算法草擬代碼；多寫注釋調(diào)整思緒；多寫注釋調(diào)整思緒；全面檢查就這一招！全面檢查就這一招！編程思想：編程思想：“初始化初始化 輸入輸入 處置處置 輸出輸出本講內(nèi)容：循環(huán)的嵌套小強(qiáng)：我們做個(gè)游戲吧！小強(qiáng)：我們做個(gè)游戲吧！小白：什么游戲？小白：什么游戲？小強(qiáng)：咱吃一口飯唱一句歌，直到吃飽。小強(qiáng)：咱吃一口飯唱一句歌，直到吃飽。小白：為什么呢？小白：為什么呢？ 循環(huán)體中包含循環(huán)，稱循環(huán)嵌套，或稱多重循環(huán)循環(huán)體中包含循環(huán)，稱循環(huán)嵌套，或稱多重循環(huán) 嵌套一層稱為二重循環(huán)嵌套一層稱為二重循環(huán) 多重循環(huán)中遇多重循環(huán)中遇Exit For(

2、Do)Exit For(Do)，只跳出當(dāng)前一層循環(huán)，只跳出當(dāng)前一層循環(huán)For i =1 To 10For i =1 To 10 For j=1 To 20 For j=1 To 20 Next j Next j Next iNext iFor i=1 To 10For i=1 To 10 For j=1 To 20 For j=1 To 20 Next i Next iNext jNext j錯(cuò)誤錯(cuò)誤內(nèi)外循環(huán)不要交叉內(nèi)外循環(huán)不要交叉正確正確For i = 1 To 10For i = 1 To 10 For i= 1 To 10 For i= 1 To 10 Next i Next iNext

3、 iNext iFor i = 1 To 10For i = 1 To 10 Next iNext iFor i = 1 To 10For i = 1 To 10 Next iNext i內(nèi)外循環(huán)變量不應(yīng)同名內(nèi)外循環(huán)變量不應(yīng)同名錯(cuò)誤錯(cuò)誤正確正確 00 Dim i%, j%, k% 00 Dim i%, j%, k% 10 For i=1 To 12 Step 3 10 For i=1 To 12 Step 3 20 For j=6 To 2 Step -2 20 For j=6 To 2 Step -2 30 k=j 30 k=j 40 Label1.Text = i & j 40 L

4、abel1.Text = i & j 50 Next j 50 Next j 60 Next i 60 Next i 70 Label1.Text = i & j & k 70 Label1.Text = i & j & k分析第分析第2020、3030句執(zhí)行的次數(shù)，句執(zhí)行的次數(shù)，7070句輸出結(jié)果句輸出結(jié)果例：循環(huán)嵌套例：循環(huán)嵌套 九九乘法表九九乘法表P.165 素?cái)?shù)是一個(gè)大于素?cái)?shù)是一個(gè)大于2 2，且只能被，且只能被1 1和本身整除的整數(shù)和本身整除的整數(shù) 判別某數(shù)判別某數(shù)m m能否為素?cái)?shù)的方法能否為素?cái)?shù)的方法: :對(duì)于對(duì)于m m 從從 i=2 i=2，

5、3 3，m-1m-1判別判別m m能否被能否被i i整整除，只需有一個(gè)能整除，除，只需有一個(gè)能整除，m m不是素?cái)?shù)，否那么不是素?cái)?shù)，否那么m m是是素?cái)?shù)。素?cái)?shù)。1. 1. 素素 數(shù)數(shù)常用算法：常用算法：判別某數(shù)判別某數(shù)m m能否為素?cái)?shù)能否為素?cái)?shù)For i=2 to m-1For i=2 to m-1 if m mod i=0 then Exit For if m mod i=0 then Exit For 被整除被整除Next iNext iExit For 退出當(dāng)前循環(huán)退出當(dāng)前循環(huán)If i=m then If i=m then Label1.Text =Label1.Text =“m m是素

6、數(shù)是素?cái)?shù) Else Else Label1.Text =Label1.Text =“m m非素?cái)?shù)非素?cái)?shù)End ifEnd ifInt(Math.sqrt(m)Int(Math.sqrt(m)For m = 3 To 99 Step 2 Next m【例】【例】 顯示顯示3100之間的一切素?cái)?shù)之間的一切素?cái)?shù)For i = 2 To Int(Math.Sqrt(m)For i = 2 To Int(Math.Sqrt(m) If m Mod i = 0 Then Exit For If m Mod i = 0 Then Exit For Next iNext iIf i Int(Math.Sqrt

7、(m) Then Label1.Text &= mIf i Int(Math.Sqrt(m) Then Label1.Text &= m【例】【例】 100 100元買元買100100只雞，公雞每只只雞，公雞每只5 5元，母雞每只元，母雞每只3 3元，元，小雞小雞3 3只只1 1元，可買公、母、小雞各多少只？元，可買公、母、小雞各多少只？設(shè)公雞設(shè)公雞X X只，母雞只，母雞Y Y只，小雞只，小雞Z Z只，列出方程：只，列出方程： X+Y+Z=100 X+Y+Z=100 5X+3Y+Z/3=100 5X+3Y+Z/3=100可窮舉可窮舉X X、Y Y、Z Z的每一種取值，符合就是其

8、中一種方案的每一種取值，符合就是其中一種方案 2. 2. 窮舉法窮舉法窮舉法：列舉一切能夠方案，找出符合要求的窮舉法：列舉一切能夠方案，找出符合要求的Z=100-X-YZ=100-X-Y求得，因此可改為二重循環(huán)求得，因此可改為二重循環(huán)For X = 0 To 100For X = 0 To 100 For Y = 0 To 100 For Y = 0 To 100 Z = 100 - X - Y Z = 100 - X - Y If 5 If 5 * * X + 3 X + 3 * * Y + Z / 3 = 100 _ Y + Z / 3 = 100 _ Then Label1.Text &

9、amp;= X & Y & ZThen Label1.Text &= X & Y & Z Next Y Next YNext XNext X現(xiàn)實(shí)上現(xiàn)實(shí)上X X和和Y Y的循環(huán)可的循環(huán)可分別為分別為0 0到到2020和和0 0到到3333 假設(shè)干數(shù)求最大值，先假設(shè)一較小數(shù)為初值，假設(shè)無(wú)法估計(jì)較小數(shù)，那么取第一個(gè)數(shù)為最大值初值；然后將每一個(gè)數(shù)與最大值比較，假設(shè)該數(shù)大于最大值，將該數(shù)交換為最大值；依次逐一比較。 求最小值應(yīng)設(shè)置一較大數(shù)為初值。3. 3. 求最大或最小值求最大或最小值例例 隨機(jī)產(chǎn)生隨機(jī)產(chǎn)生1010個(gè)個(gè)100100200200之間的數(shù)，求最大值。之間的數(shù)，求最大值。 x = Int(Rnd x = Int(Rnd * * 101 + 100) 101 + 100) max = x max = x For i = 1 To 9 For i = 1 To 9 x = Int(Rnd x = Int(Rnd * * 101 + 100) 101 + 100) If x max Then max = x I