程序基本結(jié)構(gòu)(1)

1、.2.3程序基本結(jié)構(gòu)程序基本結(jié)構(gòu).執(zhí)行語句a執(zhí)行語句b開始結(jié)束語句語句2語句語句1條件條件NY開始結(jié)束執(zhí)行a執(zhí)行b條件開始結(jié)束NY順序結(jié)構(gòu)順序結(jié)構(gòu)選擇結(jié)構(gòu)選擇結(jié)構(gòu)循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu).執(zhí)行語句a執(zhí)行語句b開始結(jié)束 P33例Private Sub Command1_Click()Dim a As Single, b As Single, c As Singlea = Val(InputBox(輸入a)b = Val(InputBox(輸入b)Print 交換前:a=; a, b=; bc = aa = bb = cMsgBox “交換后a=” & a & “b=” & b,

2、vbOKOnly, “交換結(jié)果”End Sub. 使用對(duì)話框使用對(duì)話框 一、一、輸入框（輸入框（InputBoxInputBox） a=Vala=Val（inputbox(“inputbox(“輸入輸入a”)a”) 二、二、信息對(duì)話框信息對(duì)話框(MsgBox) msgbox msgbox 交換后交換后a= & a & b= & b ,vbOKOnly ,a= & a & b= & b ,vbOKOnly ,交換結(jié)果交換結(jié)果 .條件語句序列語句序列1TrueFalse單分支選擇結(jié)構(gòu)例Private Sub Form_Click()Dim a As

3、Doublea = Val(InputBox(請(qǐng)輸入一個(gè)數(shù))If a = 7.91 Then lblshow.Caption = 飛船成功飛行Else lblshow.Caption = 飛船不能升空End IfEnd Sub.多分支選擇結(jié)構(gòu)多分支選擇結(jié)構(gòu).0-59不及格60-69及格70-79中等80-89良好90-100優(yōu)秀.Select case 表達(dá)式 case 表達(dá)式列表1 語句組1 case 表達(dá)式列表2 語句組2. case else 語句組nEnd Select.Private Sub Form_Click()Dim x As Singlex = Val(InputBox(請(qǐng)輸

4、入成績(jī))If x = 90 Then Print 優(yōu)秀ElseIf x = 80 Then Print 良好ElseIf x = 70 Then Print 中等ElseIf x = 60 Then Print 及格Else Print 不及格End IfEnd SubPrivate Sub Form_Click()Dim x As Singlex = Val(InputBox(請(qǐng)輸入成績(jī))Select Case x Case Is = 90 Print 優(yōu)秀 Case Is = 80 Print 良好 Case Is = 70 Print 中等 Case Is = 60 Print 及格 C

5、ase Else Print 不及格End SelectEnd Sub.For 循環(huán)變量=初始值 To 終止值（Step步長） 循環(huán)體Next 循環(huán)變量Private Sub Form_Click()Dim i As IntegerFor i = 1 To 10 Print iNext i End SubFor Next循環(huán)循環(huán).Private Sub Form_Click()Dim i As Integer, s As Integer s = 0For i = 1 To 100 s = s + iNext iPrint 1-100之間所有數(shù)的和是; sEnd Sub開始S=0I=100S=s

6、+i輸出s結(jié)束I=I+1NY.小猴在某天摘桃子若干個(gè)，當(dāng)天吃掉一半多一個(gè)；第2天吃了剩下的桃子的一半多一個(gè)；以后每天都吃尚存桃子的一半多一個(gè)，到第7天要吃時(shí)只剩下一個(gè)，問小猴共摘了多少個(gè)桃子？分析：這是一個(gè)“遞推”問題，先從最后一天推出倒數(shù)第2天的桃子樹，再從倒數(shù)第2天的桃子推出倒數(shù)第3天的桃子數(shù)設(shè)第n天的桃子為X n,那么它是前一天的桃子數(shù)為X n-1的一半減1，即X n-1=( X n+1)*2.For 循環(huán)變量=初始值 To 終止值（Step步長） 循環(huán)體Next 循環(huán)變量Do while 條件 循環(huán)體LoopDo while loop循環(huán)循環(huán) 和和 DoLoop whlie循環(huán)循環(huán)Do

7、循環(huán)體Loop while 條件先判斷，后執(zhí)行先執(zhí)行，后判斷.Private Sub Form_Click()Dim i As IntegerFor i = 1 To 10 Print iNext i End SubPrivate Sub Form_Click()Dim i As Integeri = 1Do While i = 10 Print i i = i + 1LoopEnd Sub.Private Sub Form_Click()Dim i As Integerdim s As Integeri = 1s = 0Do While i = 100s = s + ii = i + 1Lo

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

9、Private Sub Form_Click()Dim p As Single, r As Single, i As Integerp = 12r = 0.015i = 0Do While p 20 p = p * (1 + r) i = i + 1LoopPrint I ; “年后，我國人口將達(dá)到” ; p ; 億End Sub.For 循環(huán)變量=初始值 To 終止值（Step步長） 循環(huán)體Next 循環(huán)變量1、編程計(jì)算S=1+2+3+100的值2、編程計(jì)算1到100之間所有偶數(shù)的和，要求Step值為23、在程序運(yùn)行過程中任意輸入一個(gè)自然數(shù)n,求1到n之間所有偶數(shù)的和.請(qǐng)用for-next循

10、環(huán)結(jié)構(gòu)編寫如下圖所示的圖形結(jié)論：如果想讓下一個(gè)print 語句顯示的內(nèi)容與上一個(gè)print語句的內(nèi)容連在一起，則在上一個(gè)Print后面加一個(gè)“分號(hào)”即可。我們稱之為續(xù)行符。.如何用for-next循環(huán)結(jié)構(gòu)實(shí)現(xiàn)如圖所示的圖形雙重循環(huán)雙重循環(huán)循環(huán)體內(nèi)部還有循環(huán)語句的循環(huán)叫做多重循環(huán)多重循環(huán)，又叫多層循環(huán)或嵌套循環(huán)。如果內(nèi)部只有一層循環(huán)，叫雙重循環(huán)雙重循環(huán)。.Private Sub Form_Click()Dim i As Integer, j As IntegerFor i = 1 To 5 For j = 1 To 5 Print *; Next jPrintNext iEnd Sub內(nèi)循環(huán)，j 控制每行的*個(gè)數(shù)外循環(huán)，i控制輸出的行數(shù).Private Sub Form_Click()Dim i As Integer, j As IntegerFor i = 1 To 5 For j = 1 To 2*i-1 Print *; Next jPrintNext iEnd Sub.1、雙重循環(huán)的執(zhí)行過程是外循環(huán)執(zhí)行一次，內(nèi)循環(huán)執(zhí)行一遍，在內(nèi)循環(huán)結(jié)束后，再進(jìn)行下一次外循環(huán)，如此反復(fù)，直到外循環(huán)結(jié)束。2、對(duì)于雙重循環(huán)，各層循環(huán)的循環(huán)控制變量不能同名。3、外循環(huán)必須完全