1、2.3程序基本結構,1,PPT學習交流,順序結構,選擇結構,循環(huán)結構,程序基本結構：,2,PPT學習交流,一、順序結構,P33例 Private Sub Command1_Click() Dim a As Single, b As Single, c As Single a = Val(InputBox(輸入a) b = Val(InputBox(輸入b) Print 交換前:a=; a, b=; b c = a a = b b = c MsgBox “交換后a=” s End Sub,Y,12,PPT學習交流,小猴在某天摘桃子若干個，當天吃掉一半多一個；第2天吃了剩下的桃子的一半多一個；以后

2、每天都吃尚存桃子的一半多一個，到第7天要吃時只剩下一個，問小猴共摘了多少個桃子？,分析：這是一個“遞推”問題，先從最后一天推出倒數(shù)第2天的桃子樹，再從倒數(shù)第2天的桃子推出倒數(shù)第3天的桃子數(shù)設第n天的桃子為X n,那么它是前一天的桃子數(shù)為X n-1的一半減1，即X n-1=( X n+1)*2,13,PPT學習交流,For 循環(huán)變量=初始值 To 終止值（Step步長） 循環(huán)體 Next 循環(huán)變量,Do while 條件 循環(huán)體 Loop,Do while loop循環(huán) 和 DoLoop whlie循環(huán),Do 循環(huán)體 Loop while 條件,先判斷，后執(zhí)行,先執(zhí)行，后判斷,14,PPT學習交

3、流,Private Sub Form_Click() Dim i As Integer For i = 1 To 10 Print i Next i End Sub,Private Sub Form_Click() Dim i As Integer i = 1 Do While i = 10 Print i i = i + 1 Loop End Sub,15,PPT學習交流,Private Sub Form_Click() Dim i As Integer dim s As Integer i = 1 s = 0 Do While i = 100 s = s + i i = i + 1 Loo

4、p Print 和是：; s End Sub,Private Sub Form_Click() Dim i As Integer dim s As Integer s = 0 For i = 1 To 100 s = s + i Next i Print 和是; s End Sub,16,PPT學習交流,注：ForNext語句和Do whileLoop語句在許多情況下是可以通用的，但是ForNext語句更適合用于循環(huán)次數(shù)容易確定的情況，而Do whileLoop語句的使用則更靈活些。,例： 假設我國現(xiàn)有人口12億，若年增長率為1.5%，試計算多少年后我國人口將增加到20億。,r為年增長率，i為

5、年數(shù)，則i年后人口數(shù)為p=p(1+r)i,17,PPT學習交流,Private Sub Form_Click() Dim p As Single, r As Single, i As Integer p = 12 r = 0.015 i = 0 Do While p 20 p = p * (1 + r) i = i + 1 Loop Print I ; “年后，我國人口將達到” ; p ; 億 End Sub,18,PPT學習交流,三、循環(huán)結構-雙重循環(huán),For 循環(huán)變量=初始值 To 終止值（Step步長） 循環(huán)體 Next 循環(huán)變量,復習回顧For-next循環(huán)結構：,1、編程計算S=1+

6、2+3+100的值 2、編程計算1到100之間所有偶數(shù)的和，要求Step值為2 3、在程序運行過程中任意輸入一個自然數(shù)n,求1到n之間所有偶數(shù)的和,19,PPT學習交流,例1:,請用for-next循環(huán)結構編寫如下圖所示的圖形,結論：如果想讓下一個print語句顯示的內(nèi)容與上一個print語句的內(nèi)容連在一起，則在上一個Print后面加一個“分號”即可。我們稱之為續(xù)行符。,20,PPT學習交流,提出問題，思考,如何用for-next循環(huán)結構實現(xiàn)如圖所示的圖形,雙重循環(huán),循環(huán)體內(nèi)部還有循環(huán)語句的循環(huán)叫做多重循環(huán)，又叫多層循環(huán)或嵌套循環(huán)。如果內(nèi)部只有一層循環(huán)，叫雙重循環(huán)。,21,PPT學習交流,Pr

7、ivate Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To 5 For j = 1 To 5 Print *; Next j Print Next i End Sub,內(nèi)循環(huán)，j 控制每行的*個數(shù),外循環(huán)，i控制輸出的行數(shù),例2:,22,PPT學習交流,例3:,Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To 5 For j = 1 To 2*i-1 Print *; Next j Print Next i End Sub,23,PPT學習交流,補充知識點：,1、雙重循環(huán)的執(zhí)行過程是外循環(huán)執(zhí)行一次，內(nèi)循環(huán)執(zhí)行一遍，在內(nèi)循環(huán)結束后，再進行下一次外循環(huán)，如此反復，直到外循環(huán)結束。 2、對于雙重循環(huán)，各層循環(huán)的循環(huán)控制變量不能同名。 3、外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉。,總結：,24,PPT學習交流,Private Sub Form_Click() For i = 1 To 7 Print Tab(10 - i); For j = 1 To 2 * i - 1 Prin