程序的基本結(jié)構(gòu)正式

1、程序的基本結(jié)構(gòu)n任何正規(guī)的程序都可以分解為三種基任何正規(guī)的程序都可以分解為三種基本結(jié)構(gòu)，即本結(jié)構(gòu)，即順序結(jié)構(gòu)順序結(jié)構(gòu)選擇結(jié)構(gòu)選擇結(jié)構(gòu)循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu)n意義：牢固掌握這三種基本結(jié)構(gòu)，是意義：牢固掌握這三種基本結(jié)構(gòu)，是學(xué)習(xí)程序設(shè)計(jì)的基本要求，是編寫(xiě)出學(xué)習(xí)程序設(shè)計(jì)的基本要求，是編寫(xiě)出結(jié)構(gòu)清晰、易讀易懂的程序的前提。結(jié)構(gòu)清晰、易讀易懂的程序的前提。輸入數(shù)據(jù)的兩種方式1. 利用文本框輸入的方式如：r=val(text1.text)2. 利用彈出對(duì)話框的方式輸入如：R=Inputbox(“輸入圓的半徑”）輸出數(shù)據(jù)的兩種主要方式1. 利用改變對(duì)象屬性的方法 如： Text1.text=str(x*3.141

2、6*r) label1.caption=“春節(jié)快樂(lè)”2. 利用消息對(duì)話框的方法 如：Msgbox(“Hello”)順序結(jié)構(gòu)n實(shí)驗(yàn)一：實(shí)驗(yàn)一： 請(qǐng)同學(xué)們仔細(xì)觀看實(shí)驗(yàn)操作，并總結(jié)解請(qǐng)同學(xué)們仔細(xì)觀看實(shí)驗(yàn)操作，并總結(jié)解決問(wèn)題的具體步驟。決問(wèn)題的具體步驟。的具體操作步驟：的具體操作步驟：1、將、將1號(hào)瓶里的墨水倒入號(hào)瓶里的墨水倒入3號(hào)空瓶；號(hào)空瓶；2、將、將2號(hào)瓶里的水倒入號(hào)瓶里的水倒入1號(hào)瓶；號(hào)瓶；3、將、將3號(hào)瓶里的墨水倒入號(hào)瓶里的墨水倒入2號(hào)瓶。號(hào)瓶。順序結(jié)構(gòu)想一想：想一想：n在編程的過(guò)程中，如果讓你交換兩個(gè)在編程的過(guò)程中，如果讓你交換兩個(gè)變量的值，你要怎樣做？變量的值，你要怎樣做？練習(xí)練習(xí)1：n

3、請(qǐng)?jiān)囍谀愕木毩?xí)本上寫(xiě)出主要語(yǔ)句。請(qǐng)?jiān)囍谀愕木毩?xí)本上寫(xiě)出主要語(yǔ)句。程序運(yùn)行練習(xí)練習(xí)2 2：【3333頁(yè)實(shí)踐（頁(yè)實(shí)踐（1 1）】n 請(qǐng)畫(huà)出相應(yīng)的流程圖，填寫(xiě)在課本請(qǐng)畫(huà)出相應(yīng)的流程圖，填寫(xiě)在課本33頁(yè)。頁(yè)。根據(jù)程序填寫(xiě)根據(jù)程序填寫(xiě):Private Sub cmdChang_Click()Dim a As Single, b As Single, c As Singlea = InputBox(輸入a)b = InputBox(輸入b)Print 交換前：a = ;a,b = ; bc = aa = bb = cMsgBox 交換后a = & a & b = & b, vbOKOnly, 交換結(jié)果

4、End Sub 實(shí)踐任務(wù)二實(shí)踐任務(wù)二n題目：你知道自己已經(jīng)出生了多少天、多少小題目：你知道自己已經(jīng)出生了多少天、多少小時(shí)嗎？請(qǐng)編寫(xiě)一段程序，輸入自己的出生日期，時(shí)嗎？請(qǐng)編寫(xiě)一段程序，輸入自己的出生日期，輸出答案。輸出答案。Step1：分析問(wèn)題：分析問(wèn)題要求出生天數(shù)、出生小時(shí)數(shù)共需要幾個(gè)量？要求出生天數(shù)、出生小時(shí)數(shù)共需要幾個(gè)量？n兩個(gè)變量：分別表示出生日期和現(xiàn)在日期。兩個(gè)變量：分別表示出生日期和現(xiàn)在日期。（ dtmBirthday dtmBirthday 、 dtmNowdate)dtmNowdate)實(shí)踐任務(wù)二Step2：分析程序執(zhí)行步驟，畫(huà)出流程圖：分析程序執(zhí)行步驟，畫(huà)出流程圖開(kāi)始開(kāi)始結(jié)束結(jié)

5、束輸入出生日期輸入出生日期輸出出生天數(shù)、出生小時(shí)數(shù)輸出出生天數(shù)、出生小時(shí)數(shù)計(jì)算出生天數(shù)：當(dāng)前日期計(jì)算出生天數(shù)：當(dāng)前日期 出生日期出生日期計(jì)算出生小時(shí)數(shù)：出生天數(shù)計(jì)算出生小時(shí)數(shù)：出生天數(shù)24+24+今天已經(jīng)過(guò)去的小時(shí)數(shù)今天已經(jīng)過(guò)去的小時(shí)數(shù)求出當(dāng)前日期求出當(dāng)前日期實(shí)踐任務(wù)二Step2：分析程序執(zhí)行步驟，畫(huà)出流程圖：分析程序執(zhí)行步驟，畫(huà)出流程圖執(zhí)行步驟：執(zhí)行步驟：1 1、輸入出生日期、輸入出生日期2 2、求出當(dāng)前日期、求出當(dāng)前日期3 3、出生天數(shù)、出生天數(shù)= =當(dāng)前日期當(dāng)前日期 - - 出生日期出生日期4 4、出生小時(shí)數(shù)、出生小時(shí)數(shù)= =出生天數(shù)出生天數(shù)24+24+今天已經(jīng)過(guò)去的今天已經(jīng)過(guò)去的小時(shí)數(shù)

6、小時(shí)數(shù)5 5、輸出出生天數(shù)、出生小時(shí)數(shù)、輸出出生天數(shù)、出生小時(shí)數(shù)實(shí)踐任務(wù)二Step3：設(shè)計(jì)界面：設(shè)計(jì)界面實(shí)踐任務(wù)二各對(duì)象及其屬性值各對(duì)象及其屬性值對(duì)象對(duì)象屬性屬性屬性值屬性值Label1Caption請(qǐng)輸入自己的出生日期：請(qǐng)輸入自己的出生日期：Label2Caption您已經(jīng)出生了您已經(jīng)出生了Label3Caption天天 共共Label4Caption小時(shí)小時(shí)Text1Text空空Text2Text空空Text3Text空空Command1Caption計(jì)算計(jì)算實(shí)踐任務(wù)二Step4：編寫(xiě)代碼Private Sub Command1_Click() Dim dtmNowdate, dtmBir

7、thday As Date dtmNowdate = Date dtmBirthday = CDate(text1.Text) text2.Text = dtmNowdate - dtmBirthday text3.Text = (dtmNowdate - dtmBirthday) * 24 + Hour(Time()End Sub實(shí)踐任務(wù)二Step5：調(diào)試運(yùn)行：調(diào)試運(yùn)行n選擇結(jié)構(gòu)：選擇結(jié)構(gòu)：根據(jù)不同的條件判斷來(lái)決定程序執(zhí)根據(jù)不同的條件判斷來(lái)決定程序執(zhí)行走向的結(jié)構(gòu)，我們把它稱(chēng)為選擇行走向的結(jié)構(gòu)，我們把它稱(chēng)為選擇結(jié)構(gòu)。結(jié)構(gòu)。選擇結(jié)構(gòu)：IF語(yǔ)句語(yǔ)句單分支選擇結(jié)構(gòu)：?jiǎn)畏种нx擇結(jié)構(gòu)：If 條件條件 T

8、hen語(yǔ)句或語(yǔ)句組語(yǔ)句或語(yǔ)句組 語(yǔ)句組是指多條語(yǔ)句的情況語(yǔ)句組是指多條語(yǔ)句的情況End If條件條件滿足滿足語(yǔ)句語(yǔ)句格式1 (單分支結(jié)構(gòu)) : IF Then 語(yǔ)句塊語(yǔ)句塊 End If例：有兩個(gè)數(shù)例：有兩個(gè)數(shù)x 和和y，比較它們的大小，若，比較它們的大小，若x小于小于y,則交換則交換x和和y 值，使得值，使得x大大于于y。Private sub form_click( ) x = inputbox (“請(qǐng)輸入請(qǐng)輸入x”) y = inputbox (“請(qǐng)輸入請(qǐng)輸入y”) If x y Then t = x x = y y = t End if print “x”; x , ”y”;yEnd

9、sub 雙分支選擇結(jié)構(gòu)：雙分支選擇結(jié)構(gòu)：If 條件條件 Then語(yǔ)句或語(yǔ)句組語(yǔ)句或語(yǔ)句組1Else語(yǔ)句或語(yǔ)句組語(yǔ)句或語(yǔ)句組2End If條件條件滿足滿足語(yǔ)句或語(yǔ)句或語(yǔ)句組語(yǔ)句組1不滿足不滿足語(yǔ)句或語(yǔ)句或語(yǔ)句組語(yǔ)句組2實(shí)例：“神舟號(hào)”飛行狀況P35 中間黃色的方框格式2 (雙分支結(jié)構(gòu)) :IF Then Else End If例：輸出例：輸出x、y兩個(gè)數(shù)中值較大的一個(gè)。兩個(gè)數(shù)中值較大的一個(gè)。Private sub form_click( ) x = inputbox (“請(qǐng)輸入請(qǐng)輸入x”) y = inputbox (“請(qǐng)輸入請(qǐng)輸入y”) If x y Then print x else pri

10、nt y end if End sub 練習(xí)題：練習(xí)題：1.分析下面一段VB程序，該程序運(yùn)行后y的值是（ ）x = 3IF x 3 Then y = x * xElse y = 2 * xEnd if A. 2 B. 3 C. 9 D.62. 若整型變量a的值為2，b的值為3，則在下列程序段運(yùn)行后整型變量c的值為（ ）If a 5 Then If b 3 Then c = a * b else c = a mod b End IfA. 2 B. -1 C. 1 D. 6求下列程序運(yùn)行結(jié)果：nPrivate Sub Command1_click ( ) Dim m , n As Integer

11、m = 10 If m = 8 then n = 6 * m Else n = 2 * m End if Print n = ; n; End sub 輸出：602. Private Sub Command1_click ( ) Dim a , b ，m As Integer a = 3 ：b = 2 ：c = 1 (在在VB中，將多個(gè)語(yǔ)句合在一行上的并行符是中，將多個(gè)語(yǔ)句合在一行上的并行符是 ：) If a b then m = a Else m = b End if If c 2 then a = 10 Else If （10 / 2） = 6 Then a = 20 Else a = 3

12、0 End if End if Print a End sub 輸出：30多分支結(jié)構(gòu)多分支結(jié)構(gòu)If 條件條件1 Then語(yǔ)句或語(yǔ)句組語(yǔ)句或語(yǔ)句組1ElseIf 條件條件2 Then語(yǔ)句或語(yǔ)句組語(yǔ)句或語(yǔ)句組2ElseIf 條件條件n Then語(yǔ)句或語(yǔ)句組語(yǔ)句或語(yǔ)句組nElse語(yǔ)句或語(yǔ)句組語(yǔ)句或語(yǔ)句組n+1End If條件條件1滿足滿足語(yǔ)句或語(yǔ)句或語(yǔ)句組語(yǔ)句組1不滿足不滿足條件條件2滿足滿足語(yǔ)句或語(yǔ)句或語(yǔ)句組語(yǔ)句組2不滿足不滿足語(yǔ)句或語(yǔ)句或語(yǔ)句組語(yǔ)句組3條件條件3滿足滿足不滿足不滿足語(yǔ)句或語(yǔ)句或語(yǔ)句組語(yǔ)句組4?當(dāng)有N個(gè)條件時(shí)我們將會(huì)面臨什么問(wèn)題？nSelect Case語(yǔ)句：語(yǔ)句：Select C

13、ase 表達(dá)式表達(dá)式Case 表達(dá)式列表表達(dá)式列表1語(yǔ)句組語(yǔ)句組1Case 表達(dá)式列表表達(dá)式列表2語(yǔ)句組語(yǔ)句組2Case Else語(yǔ)句組語(yǔ)句組nEnd Select實(shí)例：“神舟號(hào)”具體飛行狀況P36 下面黃色的方框解決方法討論交流n試比較什么情況下適合用試比較什么情況下適合用If語(yǔ)句，語(yǔ)句，什么情況下適合用什么情況下適合用Select Case語(yǔ)語(yǔ)句？句？3、 循環(huán)結(jié)構(gòu)：循環(huán)結(jié)構(gòu)：根據(jù)條件判斷其是否成立，如果條件成立則重復(fù)執(zhí)行循環(huán)體根據(jù)條件判斷其是否成立，如果條件成立則重復(fù)執(zhí)行循環(huán)體（循環(huán)結(jié)構(gòu)中某語(yǔ)句序列），直到條件不成立，退出循環(huán)結(jié)（循環(huán)結(jié)構(gòu)中某語(yǔ)句序列），直到條件不成立，退出循環(huán)結(jié)構(gòu)為止。

14、構(gòu)為止。循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu)ForNext的語(yǔ)句格式為：的語(yǔ)句格式為：for 循環(huán)變量循環(huán)變量 = 初值初值 to 終值終值 step 步長(zhǎng)值步長(zhǎng)值 循環(huán)體循環(huán)體 next 循環(huán)變量循環(huán)變量注：當(dāng)注：當(dāng)“step 步長(zhǎng)值步長(zhǎng)值”為為1時(shí)，此項(xiàng)可省略。時(shí)，此項(xiàng)可省略。 循環(huán)結(jié)構(gòu)：ForNext語(yǔ)句格式：語(yǔ)句格式：For 變量賦初值變量賦初值 To 終值終值 Step 步長(zhǎng)步長(zhǎng)關(guān)鍵語(yǔ)句關(guān)鍵語(yǔ)句N(xiāo)ext變量變量變量變量=終值終值滿足滿足循環(huán)體循環(huán)體不滿足不滿足語(yǔ)句語(yǔ)句變量賦初值變量賦初值變量變量=變量變量+步長(zhǎng)步長(zhǎng)循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) nFor 循環(huán)控制變量循環(huán)控制變量 = 初值初值 to 終值終值 ste

15、p 步長(zhǎng)步長(zhǎng)值值 (說(shuō)明：當(dāng)步長(zhǎng)值為1時(shí)可省略step 1即 For 循環(huán)控制變量 = 初值 to 終值)n 循環(huán)語(yǔ)句組循環(huán)語(yǔ)句組nNext 循環(huán)控制變量循環(huán)控制變量意義說(shuō)明：通過(guò)循環(huán)控制變量的初值到終值，以步長(zhǎng)值為增進(jìn)幅度（負(fù)數(shù)時(shí)為減少幅度），控制循環(huán)語(yǔ)句組重復(fù)執(zhí)行的次數(shù)。當(dāng)循環(huán)控制變量的增進(jìn)值大于終值時(shí)結(jié)束循環(huán)（步長(zhǎng)為負(fù)數(shù)時(shí)，減少值小于終值時(shí)結(jié)束循環(huán)） s=0如：for i=1 to 10 step 2 s=s+iNext iDo WhileLoop語(yǔ)句格式：語(yǔ)句格式：Do While 條件條件循環(huán)體循環(huán)體Loop條件條件滿足滿足循環(huán)體循環(huán)體不滿足不滿足語(yǔ)句語(yǔ)句語(yǔ)句語(yǔ)句Do WhileLo

16、op語(yǔ)句格式：語(yǔ)句格式：n如：n i=1nDo while i=10n s=s+ini=i*2nloop討論交流n試比較什么情況下適合用試比較什么情況下適合用ForNext語(yǔ)句語(yǔ)句，什么情況下適合，什么情況下適合用用Do WhileLoop語(yǔ)句語(yǔ)句？“希望工程希望工程”：假設(shè)你從今年開(kāi)始，第一個(gè)月假設(shè)你從今年開(kāi)始，第一個(gè)月為為“希望工程希望工程”存入存入1元錢(qián)，第二個(gè)月存入元錢(qián)，第二個(gè)月存入2元元錢(qián)，第三個(gè)月存入錢(qián)，第三個(gè)月存入3元錢(qián)元錢(qián)以此類(lèi)推，兩年以此類(lèi)推，兩年時(shí)間你將為時(shí)間你將為“希望工程希望工程”存入多少錢(qián)？存入多少錢(qián)？把剛才的把剛才的ForNext程序段程序段改寫(xiě)成改寫(xiě)成Do Whi

17、leLoop程序：程序：Dim n As Integer, intSum As IntegerintSum=0n=1Do While n=24 intSum=intSum+n n=n+1LooplblSum.Caption=“兩年共存入：兩年共存入：”& intSum & “元元”1. 完善程序。 編程計(jì)算編程計(jì)算1+4+7+10+ +100 的值。的值。 Dim s,i As Integer s=0 For i=_ To _ s=s+i Next i Print s 2. 完善程序。 編程計(jì)算編程計(jì)算1+4+7+10+ +100 的值。的值。 Dim s,i As Integer s=0 i

18、=1 Do While _ s= s+i i=_ Loop Print s 1100 step 3i=100i+3三、課堂鞏固：三、課堂鞏固：1、完善程序計(jì)算、完善程序計(jì)算1+3+5+7+99的值，并寫(xiě)出結(jié)果。的值，并寫(xiě)出結(jié)果。 private sub command1_click() Dim i , s As integer s=0 For i=1 to s=s+(2*i-1) print “s=“;s End Sub50NextS=2500三、課堂鞏固：三、課堂鞏固：2、閱讀程序回答問(wèn)題：、閱讀程序回答問(wèn)題： x=3:y=64 Do While xsqr(y) x=x+2 Loop 語(yǔ)句語(yǔ)

19、句x=x+2執(zhí)行的次數(shù)是：執(zhí)行的次數(shù)是：3結(jié)束結(jié)束程序的三種結(jié)構(gòu)n順序結(jié)構(gòu)n選擇結(jié)構(gòu)n循環(huán)結(jié)構(gòu)順序結(jié)構(gòu)的主要的三種語(yǔ)句形態(tài)n賦值語(yǔ)句n輸入（函數(shù)）n輸出（過(guò)程）輸入數(shù)據(jù)的兩種方式1. 利用文本框輸入的方式如：r=val(text1.text)2. 利用彈出對(duì)話框的方式輸入如：R=Inputbox(“輸入圓的半徑”）輸出數(shù)據(jù)的兩種主要方式1. 利用改變對(duì)象屬性的方法 如： Text1.text=str(x*3.1416*r) label1.caption=“春節(jié)快樂(lè)”2. 利用消息對(duì)話框的方法 如：Msgbox(“Hello”)格式1 (單分支結(jié)構(gòu)) : IF Then 語(yǔ)句塊語(yǔ)句塊 End I

20、f例：有兩個(gè)數(shù)例：有兩個(gè)數(shù)x 和和y，比較它們的大小，若，比較它們的大小，若x小于小于y,則交換則交換x和和y 值，使得值，使得x大大于于y。Private sub form_click( ) x = inputbox (“請(qǐng)輸入請(qǐng)輸入x”) y = inputbox (“請(qǐng)輸入請(qǐng)輸入y”) If x y Then t = x x = y y = t End if print “x”; x , ”y”;yEnd sub 格式2 (雙分支結(jié)構(gòu)) :IF Then Else End If例：輸出例：輸出x、y兩個(gè)數(shù)中值較大的一個(gè)。兩個(gè)數(shù)中值較大的一個(gè)。Private sub form_click(

21、 ) x = inputbox (“請(qǐng)輸入請(qǐng)輸入x”) y = inputbox (“請(qǐng)輸入請(qǐng)輸入y”) If x y Then print x else print y end if End sub 練習(xí)題：練習(xí)題：1.分析下面一段VB程序，該程序運(yùn)行后y的值是（ ）x = 3IF x 3 Then y = x * xElse y = 2 * xEnd if A. 2 B. 3 C. 9 D.62. 若整形變量a的值為2，b的值為3，則在下列程序段運(yùn)行后整形變量c的值為（ ）If a 5 Then If b 3 Then c = a * b else c = a mod b End IfA.

22、 2 B. -1 C. 1 D. 6求下列程序運(yùn)行結(jié)果：nPrivate Sub Command1_click ( ) Dim m , n As Integer m = 10 If m = 8 then n = 6 * m Else n = 2 * m End if Print “n = ” ; n End sub 輸出：2. Private Sub Command1_click ( ) Dim a , b ，m As Integer a = 3 ：b = 2 ：c = 1 (在在VB中，將多個(gè)語(yǔ)句合在一行上的并行符是中，將多個(gè)語(yǔ)句合在一行上的并行符是 ：) If a b then m = a

23、 Else m = b End if If c 2 then a = 10 Else If （10 / 2） = 6 Then a = 20 Else a = 30 End if End if Print a End sub 輸出：30格式格式3 (雙分支結(jié)構(gòu)雙分支結(jié)構(gòu)) :IF 條件條件1 Then 語(yǔ)句塊語(yǔ)句塊1 Else If 條件條件2 Then 語(yǔ)句塊語(yǔ)句塊2 Else 語(yǔ)句塊語(yǔ)句塊 n+1 End If 程序運(yùn)行到程序運(yùn)行到Else If 語(yǔ)句時(shí)，依次判斷條件，如果找到一個(gè)滿足的條件，則執(zhí)行語(yǔ)句時(shí)，依次判斷條件，如果找到一個(gè)滿足的條件，則執(zhí)行它下面的語(yǔ)句塊，然后跳到它下面的語(yǔ)句塊，

24、然后跳到End If，執(zhí)行后面的程序。如果列出的條件都不滿足，執(zhí)行后面的程序。如果列出的條件都不滿足，則執(zhí)行則執(zhí)行Else 語(yǔ)句后面的語(yǔ)句塊；如果列出的條件都不滿足，又沒(méi)有語(yǔ)句后面的語(yǔ)句塊；如果列出的條件都不滿足，又沒(méi)有Else 子句，子句，則直接跳過(guò)則直接跳過(guò)End If ,不執(zhí)行任何語(yǔ)句塊。不執(zhí)行任何語(yǔ)句塊。例題分析：輸入一學(xué)生的成績(jī)，評(píng)定其等級(jí)。方法是： 90100分為“優(yōu)秀”，8090分為“良好”，7079分為“中等”，6069分為“及格”，60分以下為“不及格”。Private Sub Form _ click ( ) Dim x as single x = inputbox(“請(qǐng)輸入要評(píng)估的成績(jī)”) If x = 90 Then Print “優(yōu)秀” Else If x = 80 The