數(shù)據(jù)庫應(yīng)用08 vba結(jié)構(gòu)化程序設(shè)計

1、第8章 VBA程序設(shè)計基礎(chǔ),程序概念,維基解釋（） /zh-cn/%E7%A8%8B%E5%BA%8F%E8%AE%BE%E8%AE%A1%E8%AF%AD%E8%A8%80,另一種解釋,參見Wiki解釋http:/ 計算機(jī)程序或者軟件程序（通常簡稱程序）是指一組指示計算機(jī)每一步動作的指令，通常用某種程序設(shè)計語言編寫，運(yùn)行于某種目標(biāo)體系結(jié)構(gòu)上。打個比方，一個程序就像一個用漢語（程序設(shè)計語言）寫下的紅燒肉菜譜（程序），用于指導(dǎo)懂漢語的人（體系結(jié)構(gòu)）來做這個菜。 通常，計算機(jī)程序要經(jīng)過編譯和鏈接而成為一種人們不易理解而計算

2、機(jī)理解的格式，然后運(yùn)行。未經(jīng)編譯就可運(yùn)行的程序通常稱之為腳本程序。,A Joke（SQL版）,某女技術(shù)人員的征婚信息,SELECT * FROM 男人 WHERE (未婚=true or 離異=true) and 窮光蛋=false and 有房=true and 有車=true 結(jié)果有人回帖： (0 row(s) affected),A Joke（C語言版）,姑娘愛小伙(偽C語言版),result love(boy, girl ) if( boy.有房() and boy.有車() boy.set(nothing); return girl. 嫁給(boy); ,姑娘愛小伙(搞笑版),if(

3、 girl.愿意等 () while(!(boy.賺錢 100,000 and girl.感情 8 ) for ( day=1; day =365; day+) if( (day = 情人節(jié) or day = girl.生日) /for /while,姑娘愛小伙(搞笑版),if( boy.有房() and boy.有車() ) boy.set(nothing); return girl.嫁給(boy); else 年齡+; girl.感情-; return girl.goto( another_boy); ,姑娘愛小伙(搞笑版)完整版,result love(boy, girl ) if( b

4、oy.有房() and boy.有車() boy.set(nothing); return girl. 嫁給(boy); if( girl.愿意等 () while(!(boy.賺錢 100,000 and girl.感情 8 ) for ( day=1; day =365; day+) if( (day = 情人節(jié) or day = girl.生日) ,程序可讀性,縮格 對齊 注釋,8 結(jié)構(gòu)化程序設(shè)計基礎(chǔ),程序設(shè)計過程 算法 程序流程圖及示例,8.1 程序設(shè)計過程,程序設(shè)計即是計算機(jī)用戶根據(jù)解決某一問題的步驟，按一定的邏輯關(guān)系，將一系列的指令組合在一起。,8.2 算法（1）,程序的設(shè)計過程，

5、核心問題是設(shè)計一個合理、有效的算法。 一般認(rèn)為，算法就是在有限的時間內(nèi)，可以根據(jù)明確規(guī)定的運(yùn)算規(guī)則，在有窮步驟內(nèi)得出確切計算結(jié)果的機(jī)械步驟或能運(yùn)行的計算程序。,8.2 算法（2）,算法特性： (1)有序性：每個步驟被執(zhí)行的順序是確定的。 (2)有限性：即解題步驟是有限的，無窮的步驟意味無解。 (3)確定性：多次運(yùn)行同樣一個程序，其結(jié)果相同。 此外，算法可以沒有輸入（因為輸入由計算機(jī)自動產(chǎn)生），但一定要有輸出，輸出用來表示問題是否有解。,8.2 算法（3）,三種基本控制結(jié)構(gòu)：順序、分支、循環(huán) 順序結(jié)構(gòu)是程序設(shè)計中最基本的結(jié)構(gòu)。在該結(jié)構(gòu)中，程序的執(zhí)行是按命令出現(xiàn)的先后順序依次執(zhí)行的。 分支結(jié)構(gòu)是按

6、給定的選擇條件成立與否來確定程序的走向。分支結(jié)構(gòu)可分為雙重分支選擇和多重分支選擇。在任何條件下，無論分支多少，只能選擇其一。,8.2 算法（4）,三種基本控制結(jié)構(gòu)：順序、分支、循環(huán) 循環(huán)結(jié)構(gòu)是一種重復(fù)結(jié)構(gòu)，即某一程序段將被反復(fù)執(zhí)行若干次。按循環(huán)的嵌套層次，循環(huán)可分為簡單循環(huán)結(jié)構(gòu)和循環(huán)嵌套（也稱為多重循環(huán)）結(jié)構(gòu)。按循環(huán)體執(zhí)行的條件性質(zhì)，循環(huán)又可分為While循環(huán)和Until循環(huán)。無論何種類型的循環(huán)結(jié)構(gòu)，都要確保循環(huán)的重復(fù)執(zhí)行能夠終止。,8.2 算法（5）,結(jié)構(gòu)化程序是指僅由三種基本控制結(jié)構(gòu)組成的程序，它具有以下特點(diǎn)： (1) 整個程序模塊化。 (2) 每個模塊只有一個入口和一個出口。 (3) 每

7、個模塊都應(yīng)能單獨(dú)執(zhí)行，且無死循環(huán)。 (4) 采用黑箱的思想，宏觀地描述任何一個程序，可以將它看成為順序結(jié)構(gòu)。,8.3 程序流程圖及示例,ANSI流程圖 N-S圖,1. ANSI流程圖（1）,1. ANSI流程圖（2）,順序結(jié)構(gòu),1. ANSI流程圖（3）,條件分支結(jié)構(gòu),1. ANSI流程圖（4）,循環(huán)結(jié)構(gòu),Until型循環(huán)結(jié)構(gòu),While型循環(huán)結(jié)構(gòu),1. ANSI流程圖（5）,多重條件分支結(jié)構(gòu),2. N-S圖 （1）,順序結(jié)構(gòu),2. N-S圖 （2）,條件分支結(jié)構(gòu),2. N-S圖 （3）,多重分支選擇語句,2. N-S圖 （4）,循環(huán)結(jié)構(gòu),Until型循環(huán)結(jié)構(gòu),While型循環(huán)結(jié)構(gòu),8.3 程

8、序的控制語句結(jié)構(gòu),順序結(jié)構(gòu)程序 分支結(jié)構(gòu)程序 循環(huán)結(jié)構(gòu)程序,2.分支結(jié)構(gòu)程序（1）,雙重分支選擇語句,語句格式： If Then Else End If,2.分支結(jié)構(gòu)程序（2）,雙重分支選擇語句,條件,真,假,語句格式： If Then Else End If,2.分支結(jié)構(gòu)程序（3）,多重分支選擇語句,If Then ElseIf Then . ElseIf Then Else End If,2.分支結(jié)構(gòu)程序（4）,多重分支選擇語句,If Then ElseIf Then . ElseIf Then Else End If,例：根據(jù)輸入的X值, 決定輸出Y的值。,江西財經(jīng)大學(xué)信息管理學(xué)院數(shù)據(jù)庫

9、應(yīng)用課程組2007,35,Public Sub 求Y的值() Dim x As Double x = InputBox(請輸入x的值, 輸入x) If x 0 Then Debug.Print y=1 ElseIf x = 0 Then Debug.Print y=0 Else Debug.Print y=-1 End If End Sub,例：根據(jù)輸入的X值, 決定輸出Y的值。,Public Sub 判斷奇偶性() Dim strx As String Dim x As Integer strx = InputBox(請輸入x, 提示) x = Val(strx) If x Mod 2 =

10、0 Then Debug.Print 該數(shù)為偶數(shù)！ Else Debug.Print 該數(shù)為奇數(shù)！ End If End Sub,例：輸入一個數(shù)，判別其奇偶性。,【例1】輸入任意的兩個數(shù)，將它們按升序輸出。 方法一：比較大小，按大小順序輸出,，共有多少種輸出 ？（2種） 方法二：能否只有一種輸出？,算法應(yīng)用舉例分支結(jié)構(gòu),江西財經(jīng)大學(xué)信息管理學(xué)院數(shù)據(jù)庫應(yīng)用課程組2007,38,算法應(yīng)用舉例,結(jié)束,【例】輸入任意的三個數(shù)，將它們按升序輸出。 方法一： 思想：比較大小，按大小順序輸出。 ？共有多少種輸出,算法應(yīng)用舉例,用流程圖表示以下算法,輸入任意的三個數(shù)，將它們按升序輸出。（方法一）,輸入任意的三

11、個數(shù)，將它們按升序輸出。 （方法二:即最終輸出時按X，Y，Z的順序顯示）,第1步與第2步比較，保證了X中放的是最小數(shù)； 第3步比較保證了Y中放的是次小數(shù)。,輸入任意的三個數(shù)，將它們按升序輸出。（P145例8-2）,X為最小數(shù),Y為次小數(shù),如何交換變量對X,Y的值：,1：Z X 2：X Y 3：Y Z,2. 分支結(jié)構(gòu)程序（5）,例6-8：從鍵盤隨機(jī)輸入成績分?jǐn)?shù)，根據(jù)成績分?jǐn)?shù)來判斷該成績屬于優(yōu)、良、中還是差。規(guī)定： 90成績100為優(yōu)； 80成績90為良； 60成績80為中； 成績60為差； 其它為非法輸入。,例4：輸入一個百分制成績到變量x，輸出對應(yīng)的等級A, B, C, D或E。,思考以下問題

12、： x100 | x0? 稱為異常處理(完備？) 注意條件的書寫順序，一般采用的方法是從一端到另一端的排斥法。,x,改進(jìn)后的流程圖為：,x,2. 分支結(jié)構(gòu)程序（6）,Public Sub multicase() Dim grade As Integer grade = Val(InputBox(請輸入成績) If grade = 90 Then Debug.Print Str(grade) 輸出s的結(jié)果，理解每次累加結(jié)果的變化 i = i + 1 改變循環(huán)變量的值 Loop Debug.Print s 循環(huán)體外輸出結(jié)果 End Sub,3.循環(huán)結(jié)構(gòu)程序DO WHILE循環(huán),循環(huán)閱讀理解 循環(huán)條

13、件是什么？ 什么時候進(jìn)入循環(huán)？ 什么時候退出循環(huán)？ 循環(huán)體內(nèi)如何改變循環(huán)條件？ 循環(huán)變量的作用？,2021/4/18,計算機(jī)科學(xué)導(dǎo)論,63,求1至N之間的所有自然數(shù)之和。,i=N,1、前后項的關(guān)系 2、初始值、循環(huán)條件與循環(huán)體的關(guān)系,循環(huán)結(jié)構(gòu)的關(guān)鍵,初始值、循環(huán)條件與循環(huán)體是不是唯一的?,Public Sub s1() Dim n As Integer n = Val(InputBox(請輸入一個正整數(shù)：) s = 0 i = 1 Do While i = n s = s + i i = i + 1 Loop Debug.Print i; s End Sub,江西財經(jīng)大學(xué)信息管理學(xué)院數(shù)據(jù)庫應(yīng)用

14、課程組2007,64,3.循環(huán)結(jié)構(gòu)程序DO WHILE循環(huán),2021/4/18,計算機(jī)科學(xué)導(dǎo)論,65,簡單，代碼我會了！,2021/4/18,計算機(jī)科學(xué)導(dǎo)論,66,n1000?,例：輸出3位數(shù)中所有既能被3整除又能被5整除的數(shù)，并統(tǒng)計其個數(shù)。,循環(huán)？分支？,回顧解題思路,混合結(jié)構(gòu)：循環(huán)中包含分支,任何分支結(jié)束后都要為下一次循環(huán)做準(zhǔn)備！,Public Sub s1() Dim m, n As Integer m = 0 n = 100 Do While n = 999 If n Mod 3 = 0 And n Mod 5 = 0 Then m = m + 1 Debug.Print n End

15、If n = n + 1 Loop Debug.Print m End Sub,67,江西財經(jīng)大學(xué)信息管理學(xué)院數(shù)據(jù)庫應(yīng)用課程組2007,3.循環(huán)結(jié)構(gòu)程序DO WHILE循環(huán),Public Sub s1() Dim m, n As Integer m = 0 n = 100 Do While n = 999 If Int(n / 15) = n / 15Then m = m + 1 Debug.Print n End If n = n + 1 Loop Debug.Print m End Sub,課后練習(xí),從鍵盤上輸入一個數(shù)，若它既能被3又能被5整除則輸出該數(shù)，否則，最多允許出錯3次。,江西財經(jīng)

16、大學(xué)信息管理學(xué)院數(shù)據(jù)庫應(yīng)用課程組2007,68,Public Sub three() Dim a, b, i As Integer i = 0 Do While i 3 a = Val(InputBox(please input a number) b = a Mod 15 If b = 0 Then Debug.Print a, 可以被15整除; Exit Do Else i = i + 1 Debug.Print a, 不可以被15整除，請重新輸入 End If Loop End Sub,3.循環(huán)結(jié)構(gòu)程序For循環(huán),For循環(huán)語句格式：,For = To Step Exit For Nex

17、t,求：S=1+2+3+.+100,Public Sub s1for() s = 0 For i = 1 To 100 Debug.Print i s = s + i Debug.Print s; Next Debug.Print s End Sub,Public Sub sum_example() s = 0 i = 1 Do While i = 100 Debug.Print i s = s + i Debug.Print s; i = i + 1 Loop Debug.Print s End Sub,3.循環(huán)結(jié)構(gòu)程序For循環(huán),如果在上述FOR循環(huán)體內(nèi)部再添加i=i+1，則輸出結(jié)果將如何

18、呢？,s = 0 For i = 1 To 100 Debug.Print i s = s + i Debug.Print s; Next Debug.Print s,s = 0 For i = 1 To 100 Debug.Print i s = s + I i=i+1 Debug.Print s; Next Debug.Print s,結(jié)果為5050,結(jié)果為,?,2500,3.循環(huán)結(jié)構(gòu)程序For循環(huán),2021/4/18,計算機(jī)科學(xué)導(dǎo)論,72,求N!,i=N,3.循環(huán)結(jié)構(gòu)程序For循環(huán),求s=1!+2!+.N!,例6-15：求N！，即求N的階乘。,Public Sub 求階乘() Dim i

19、, n, p As Integer p = 1 n = Val(InputBox(請輸入n的值:) For i = 1 To n Step 1 Step 1可以省略。 p = p * i 循環(huán)不變式，完成累乘。 Next Debug.Print Str(n) s End Sub,Public Sub s1() Dim i As Integer Dim s As Double i = 1 s = 1 While i = 99 s = s + (-1) i * (1 / (i + 1) i = i + 1 Wend Debug.Print s=; s End Sub,2021/4/18,計算機(jī)科學(xué)

20、導(dǎo)論,76,作業(yè),1、求1000以內(nèi)既能被5整除又能被7整除的數(shù)之和，并統(tǒng)計這些數(shù)的個數(shù)。 2、求,3、求1+(1+2)+(1+2+3)+(1+2+3+10)。 提示: 在循環(huán)中每次計算(1+2+n),4、求,求1000以內(nèi)既能被5整除又能被7整除的數(shù)之和，并統(tǒng)計這些數(shù)的個數(shù)。,Public Sub 統(tǒng)計57() Dim n, i, s As Double i = 0 s = 0 For n = 1 To 1000 If n Mod 35 = 0 Then i = i + 1 s = s + n End If Next Debug.Print i, s End Sub,江西財經(jīng)大學(xué)信息管理學(xué)院

21、數(shù)據(jù)庫應(yīng)用課程組2007,77,Public Sub 統(tǒng)計57() Dim n, i, s As String i = 0 s = 0 For n = 35 To 1000 Step 35 i = i + 1 s = s + n Next Debug.Print i, s End Sub,3. 循環(huán)結(jié)構(gòu)程序含EXIT,循環(huán)結(jié)構(gòu)中的Exit Do命令,Do While If Exit Do End If Loop,Do Until Exit Do Loop,3. 循環(huán)結(jié)構(gòu)程序含EXIT,循環(huán)的嵌套 循環(huán)體內(nèi)又嵌套循環(huán)的情況稱為多重循環(huán)或循環(huán)嵌套。 處于循環(huán)體內(nèi)的循環(huán)稱為內(nèi)循環(huán)，處于外層的循環(huán)稱為

22、外循環(huán)。 內(nèi)外循環(huán)的層次必須分明，不允許有交叉現(xiàn)象出現(xiàn)。 內(nèi)外循環(huán)的循環(huán)變量不要同名。 在嵌套情況下，Exit Do語句使控制跳到下方離其最近的Loop之后。,3. 循環(huán)結(jié)構(gòu)程序含EXIT,求S=1+2+3+8+9+100,Public Sub exitdo() s = 0 i = 1 Do While True If i 100 Then Exit Do End If s = s + i i = i + 1 Loop Debug.Print s=; s End Sub,3. 循環(huán)結(jié)構(gòu)程序含EXIT,Public Sub sum_example() s = 0 i = 1 Do While i

23、 = 100 s = s + i i = i + 1 Loop Debug.Print s End Sub,Public Sub 求階乘() Dim i, n, p As Integer p = 1 n = Val(InputBox(請輸入n的值:) Do While True If n = 0 Then Exit Do End If For i = 1 To n p = p * i Next Debug.Print Str(n) s = s + i End If Next Debug.Print Debug.Print 2 - 100間的素數(shù)和s為; s,江西財經(jīng)大學(xué)信息管理學(xué)院數(shù)據(jù)庫應(yīng)用課

24、程組2007,94,求s=1+1/2+2/3+3/5+.前20項之和,Public Sub t11() Dim m, n, t, i, s As Double s = 0 m = 1 n = 2 For i = 1 To 20 s = s + n / m t = n n = n + m m = t Next Debug.Print s End Sub,江西財經(jīng)大學(xué)信息管理學(xué)院數(shù)據(jù)庫應(yīng)用課程組2007,95,如何采用雙重循環(huán)編程打印有規(guī)則的圖形？,小專題：,3. 循環(huán)結(jié)構(gòu)程序（14）,例8-13：打印如圖所示對稱三角圖形，要求第一行的*在第10列。,Public Sub 三角狀星型輸出() Di

25、m i, j As Integer For i = 1 To 4 控制輸出的行數(shù) Debug.Print Tab(11 - i); *; 確定每行第一個*所在的列數(shù) For j = 1 To 2 * i - 2 控制每行除第一個以外的星號的個數(shù) Debug.Print *; 輸出后繼的* Next j Debug.Print 輸出另起一行 Next i End Sub,* * * *,江西財經(jīng)大學(xué)信息管理學(xué)院數(shù)據(jù)庫應(yīng)用課程組2007,98,Public Sub 三角狀星型輸出1() Dim i, j As Integer For i = 1 To 4 Debug.Print Tab(11 -

26、i); For j = 1 To 2 * i - 2 Debug.Print *; Next j Debug.Print Next i End Sub,Public Sub 三角狀星型輸出2() Dim i, j As Integer For i = 1 To 4 Debug.Print Tab(i); *; For j = 1 To 2 * (4 - i) Debug.Print *; Next j Debug.Print Next i End Sub,Public Sub 三角狀星型輸出3() Dim i, j As Integer For i = 1 To 4 Debug.Print T

27、ab(13 - 2 * i); *; For j = 1 To 2 * i - 2 Debug.Print *; Next j Debug.Print Next i End Sub,Public Sub 三角狀星型輸出4() Dim i, j As Integer For i = 1 To 4 Debug.Print Tab(11); *; For j = 1 To 2 * i - 2 Debug.Print *; Next j Debug.Print Next i End Sub,Public Sub 三角狀星型輸出5() Dim i, j As Integer For i = 1 To 4

28、 Debug.Print Tab(11 - i); Str(i); For j = 1 To 2 * i - 1 Debug.Print Str(i); Next j Debug.Print Next i End Sub,Public Sub 三角狀星型輸出6() Dim i, j As Integer For i = 1 To 4 Debug.Print Tab(i); Str(5 - i); For j = 1 To 2 * (4 - i) + 1 Debug.Print Str(5 - i); Next j Debug.Print Next i End Sub,Public Sub 三角

29、狀星型輸出7() Dim i, j As Integer For i = 1 To 4 Debug.Print Tab(i); Chr(64 + i); For j = 1 To 2 * (4 - i) Debug.Print Chr(64 + i); Next j Debug.Print Next i End Sub,Public Sub 三角狀星型輸出8() Dim i, j As Integer For i = 1 To 4 Debug.Print Tab(13 - i); Chr(64 + i); For j = 1 To 2 * i - 2 Debug.Print Chr(64 +

30、i); Next j Debug.Print Next i End Sub,8.3 數(shù)組的應(yīng)用,數(shù)組在使用之前，必須加以定義，然后才能使用該數(shù)組。 數(shù)組定義或數(shù)組說明語句格式為： DIMENSION(,.),(,.).,例子,dimension A(N) dimension B(n,m),B(1,1)，B(1,2)，.，B(1,m) B(2,1)，B(2,2)，.，B(2,m) B(n,1)，B(n,2)，.，B(n,m),例子：排序,例6-21：隨機(jī)輸入N個數(shù)據(jù)到數(shù)組，并對數(shù)組的數(shù)據(jù)進(jìn)行降序排列。,例子：排序程序,江西財經(jīng)大學(xué)信息管理學(xué)院數(shù)據(jù)庫應(yīng)用課程組2007,106,Public Sub

31、 數(shù)據(jù)排序() Dim a(1 To 10), i, j, t As Double For i = 1 To 10 a(i) = Val(InputBox(請輸入數(shù)據(jù)到數(shù)組 Next i End Sub,每行只能輸出5個數(shù) If i Mod 5 = 0 Then Debug.Print End If,隨機(jī)數(shù)的問題,Public Sub ForMaxMin() Dim i, n, max, min As Integer n = Val(InputBox(請輸入整數(shù)n) ReDim x(1 To n) As Integer Randomize For i = 1 To n x(i) = Int(940 * Rnd + 60) 產(chǎn)生60-999之間的隨機(jī)數(shù)n個 Debug.Print Spc(5 - Len(Str(x(i); x(i); 輸出這些數(shù),5個一行 If i Mod 5 = 0 Then Debug.Print End If Next,江西財經(jīng)大學(xué)信息管