1、問題：從1加到100的和是多少？解題思路： s=s+1 100條語句s=s+2 s=s+3 s=s+100VB三種結構的流程圖語句1語句2順序結構條件語句1語句2分支結構YN條件循環體YN循環結構FOR_NEXT循環語句FOR循環算法：For i = 1 to 100S = S + iNext i（Step 1）2格式：For 循環變量=初值 To 終值 step 循環變量增量循環體next 循環變量注意： 循環變量的初值、終值、循環變量增量 都是數值型。 循環增量可正可負。如果沒有設置step， 則增量為缺省值1。for_next循環的執行過程： 循環變量取初值 循環變量與終值相比較，沒有超

2、過終值轉，否則循環結束，接著執行循環語句的后繼語句 執行一次循環體 循環變量增加一個增量 循環變量循環變量=循環變量循環變量+循環變量增量循環變量增量 重復步驟 注意：1、 For語句與next語句必須成對出現，而且 它們當中的“循環變量”必須是同一個變量。 2、當循環變量增量為正時，循環變量超過終值 指循環變量的值大于終值，當循環變量增量 為負時，指循環變量的值小于終值。問題1：求100以內的偶數和問題2：正序和反序輸出字母表問題3：計算10！ 10！=1*2*3*4*9*10利用循環畫圖形利用循環畫圖形基本結構基本結構For i= 初值初值1 to 終值終值1 step 增量增量1 pri

3、nt tab（x）；）； For j= 初值初值2 to 終值終值2 step 增量增量2 print 語句語句1 ； Next j PrintNext i1、外循環 i控制輸出的行數2、tab函數控制每行第一個輸出的位置3、內循環j控制每行輸出的個數利用循環畫圖形利用循環畫圖形例例:完善程序并保存，是單擊窗體時，在窗體上輸出如下圖案。完善程序并保存，是單擊窗體時，在窗體上輸出如下圖案。 * * * * * * * * * * * * * * * * * * * * * * *Private Sub Form_Click() Dim i As Integer Dim j As Integer

4、Print For i = -3 To Print Tab(3); For j = 1 To 3 - Print Next j Print Next iEnd Sub 3 abs(i)+1 “*”;窮舉算法窮舉算法 利用計算機高速的計算能力，我們讓計算機對利用計算機高速的計算能力，我們讓計算機對所有可能的答案逐個排查，將所有滿足條件的答案所有可能的答案逐個排查，將所有滿足條件的答案都列舉出來。窮舉法也可稱為枚舉法、列舉法。都列舉出來。窮舉法也可稱為枚舉法、列舉法。利用窮舉法解決問題通常包括三個步驟：利用窮舉法解決問題通常包括三個步驟： 1、確定范圍、確定范圍2、驗證條件、驗證條件3、優化條件、

5、優化條件適用窮舉法解決的問題通常有：水仙花數、雞兔同適用窮舉法解決的問題通常有：水仙花數、雞兔同籠、百雞百錢問題等。籠、百雞百錢問題等。窮舉算法窮舉算法例：例：將一張將一張100元面值的人民幣換成若干元面值的人民幣換成若干5元、元、1元、元、5角面值的人民幣，但角面值的人民幣，但要求要求100元換成的零錢共元換成的零錢共100張，且每種面值不少于張，且每種面值不少于1張，問張，問5元、元、1元、元、5角各多少張，請輸出每種可能的組合。角各多少張，請輸出每種可能的組合。Private Sub Command1_Click()Dim wuyuan As IntegerDim yiyuan As I

6、ntegerDim wujiao As IntegerFor wuyuan = 1 To 20 For yiyuan = 1 To wujiao = 100 - wuyuan - If wuyuan * 5 + yiyuan * 1 + wujiao * 0.5 = 100 Then Print wuyuan= & wuyuan & yiyuan= & yiyuan & wujiao= & wujiao Next yiyuanNext wuyuanEnd Sub 100 yiyuan end ifFor_next小結： a）VB語言最后一種結構：循環。 b) FOR語句幾大要素：循環變量的 初、終值及每次變化情況 c)循環變量的增量的確定