1、2.2程序的順序結(jié)構(gòu)粵教版龍口第一中學(xué)馬名峰算法與程序設(shè)計(jì)(選修1)思考：如何測(cè)量金字塔的高度M在水平面上選取一條與N點(diǎn)處在同一直線的線段AB作為基線NABa AB長(zhǎng)度a、AM與AN之間的夾角和BM與BN之間夾角都可以通過測(cè)量得到AM與AN之間的夾角為仰角，BM與BN之間的夾角為仰角MNABa由三角形知識(shí)可知：在 RTANM中AN=MN/tan，同理BN= MN/tan而a=BN-AN= MN(1/tan-1/tan)討論MNABaMN=a/(1/ tan-1/ tan) 測(cè)量不可抵達(dá)物體高度”問題一、分析問題：本質(zhì)上是具體問題=數(shù)學(xué)問題 MN=a/(1/ tan-1/ tan) 二、設(shè)計(jì)算法

2、三、編寫程序四、調(diào)試程序MNABaMN=a/(1/ tan-1/ tan) 二、設(shè)計(jì)算法1、輸入基線a的長(zhǎng)度和仰角、的值2、計(jì)算1/ tan、1/ tan3、計(jì)算MN的值4、輸出結(jié)果MNABa測(cè)量不可抵達(dá)物體高度”問題一、分析問題：本質(zhì)上是具體問題=數(shù)學(xué)問題 MN=a/(1/ tan-1/ tan) 二、設(shè)計(jì)算法： 1、輸入基線a的長(zhǎng)度和仰角、的值 2、計(jì)算1/ tan、1/ tan 3、計(jì)算MN的值 4、輸出結(jié)果三、編寫程序四、調(diào)試程序Private Sub Command1_Click()Const pi As Single = 3.14Dim r As Single, s As Sing

3、ler = InputBox(“r=”, “輸入半徑”)s = pi * r * rPrint 圓的面積S=; sEnd Sub數(shù)據(jù)類型說明部分?jǐn)?shù)據(jù)輸入部分?jǐn)?shù)據(jù)輸出部分?jǐn)?shù)據(jù)處理部分程序中應(yīng)該有哪些內(nèi)容？他山之石:MN=a/(1/ tan-1/ tan) 數(shù)據(jù)的說明：常量說明語(yǔ)句： Const 常量 As 類型 = 表達(dá)式變量說明語(yǔ)句： Dim 變量 As 類型a1/ tan1/ tanMN單精度類型（Single）a1/ tan1/ tanMN J1 J2 COT1 COT2 MN數(shù)據(jù)說明部分的代碼：Const Pi as single =3.14159Dim Mn As Single, A

4、As singleDim J1 As Single,j2 As SingleDim Cot1 As Single,Cot2 As Single任務(wù)1：賦值語(yǔ)句的學(xué)習(xí) 登錄LearnSite學(xué)習(xí)網(wǎng)站，進(jìn)入我的學(xué)案。點(diǎn)擊學(xué)案“程序的順序結(jié)構(gòu)”處的鏈接。在學(xué)案界面按照提示進(jìn)行操作。數(shù)據(jù)的輸入和處理變量賦值的特性：1、變量中的值被引用后，其值保持不變2、變量被重新賦值后，其總保持最后一次被賦予的值未賦值前賦值后被引用后重新賦值后任務(wù)2：輸入數(shù)據(jù)的函數(shù)inputbox 點(diǎn)擊段落后方的“輸入數(shù)據(jù)的函數(shù)inputbox.PPT”鏈接，將本部分的PPT資源下載，保存至本地磁盤。用PowerPoint打開，按功

5、能鍵F5進(jìn)行播放，進(jìn)行InputBox（）函數(shù)的學(xué)習(xí)。2、 InputBox()函數(shù)將接收的數(shù)據(jù)默認(rèn)為字符型數(shù)據(jù)！1、如果函數(shù)中有缺省內(nèi)容，對(duì)應(yīng)位置的間隔符，不能缺少！ 例：A=InputBox(“A的值為”， ， ，300，90)X=InputBox( 提示信息，標(biāo)題，默認(rèn)值，坐標(biāo)位置) 提示信息 標(biāo)題 默認(rèn)值 坐標(biāo)位置使用InputBox( )函數(shù)時(shí)應(yīng)注意的問題：例：Age=InputBox(請(qǐng)輸入你的年齡：, 調(diào)查, 18) 當(dāng)該語(yǔ)句被執(zhí)行時(shí)，單擊“確定”按鈕后，Age的值為字符串“18”觀察下面三組代碼執(zhí)行后的結(jié)果思考：為什么會(huì)出現(xiàn)這種現(xiàn)象？代碼3Private Sub command

6、3_click()Dim A As Integer, B As IntegerA = InputBox(A=, 輸入A的值)B = InputBox(B=, 輸入B的值)A = A + BPrint “代碼3的結(jié)果為; AEnd Sub代碼1Private Sub command1_click()A = InputBox(A=, 輸入A的值)B = InputBox(B=, 輸入B的值)A = A + BPrint 代碼1的結(jié)果為; AEnd Sub代碼2Private Sub command2_click()A = Val(InputBox(A=, 輸入A的值)B = Val(InputBo

7、x(B=, 輸入B的值)A = A + BPrint 代碼2的結(jié)果為; AEnd Sub程序運(yùn)行時(shí)：兩次分別輸入123，456數(shù)據(jù)輸入部分的代碼：A=Inputbox(基線A=,輸入基線A的長(zhǎng)度)J1=Inputbox(仰角=,輸入仰角的弧度值)J2=Inputbox(仰角 =,輸入仰角的弧度值)數(shù)據(jù)處理部分的代碼：Cot1=1/Tan(J1*Pi/180)Cot2=1/Tan(J2*Pi/180)Mn=A/(Cot2-Cot1)任務(wù)3：輸出語(yǔ)句print 點(diǎn)擊段落后方的“輸出語(yǔ)句print.PPT”鏈接，將本部分的PPT資源下載，保存至本地磁盤。用PowerPoint打開，按功能鍵F5進(jìn)行播

8、放，進(jìn)行輸出語(yǔ)句Print的學(xué)習(xí)。輸出數(shù)據(jù)的語(yǔ)句Print格式：Print 輸出內(nèi)容,輸出內(nèi)容, 輸出內(nèi)容可以是數(shù)、變量、表達(dá)式，也可以是用雙引號(hào)括起來的字符串。輸出內(nèi)容可以是一項(xiàng)，也可以是多項(xiàng)。 多項(xiàng)輸出格式有2種： 1.輸出項(xiàng)目間用逗號(hào)隔開為分區(qū)輸出格式 2.輸出項(xiàng)目間用分號(hào)隔開為緊湊輸出格式數(shù)據(jù)輸出的代碼：Print 被測(cè)物的高度為;Mn;米 各組成部分的代碼已經(jīng)齊備了，只須將各部分代碼按照其邏輯順序匯總一起，就形成了整個(gè)程序的代碼。三、編寫程序Private Sub command1_click()Const Pi as single =3.14159Dim Mn As Single,

9、 A As singleDim J1 As Single,j2 As SingleDim Cot1 As Single,Cot2 As SingleA=Inputbox(基線A=,輸入基線A的長(zhǎng)度)J1=Inputbox(仰角=,輸入仰角的弧度值)J2=Inputbox(仰角 =,輸入仰角的弧度值)Cot1=1/Tan(J1*Pi/180)Cot2=1/Tan(J2*Pi/180)Mn=A/(Cot2-Cot1)Print 被測(cè)物的高度為;Mn;米End Sub數(shù)據(jù)輸出部分?jǐn)?shù)據(jù)處理部分?jǐn)?shù)據(jù)輸入部分?jǐn)?shù)據(jù)類型說明部分構(gòu)建程序界面、輸入程序代碼： 打開VB程序界面，將窗體調(diào)整至合適大小。在窗體內(nèi)添加

10、一個(gè)命令按鈕（CommandBox1），雙擊CommandBox1按鈕，將網(wǎng)站上“代碼資源”處提供的代碼復(fù)制至 Private Sub command1_click() 和 End Sub 兩行之間。代碼錄入：測(cè)量不可抵達(dá)物體高度”問題一、分析問題：本質(zhì)上是具體問題=數(shù)學(xué)問題 MN=a/(1/ tan-1/ tan) 二、設(shè)計(jì)算法： 1、確定基線a的長(zhǎng)度和仰角、的值 2、計(jì)算1/ tan、1/ tan 3、計(jì)算MN的值 4、輸出結(jié)果三、編寫程序四、調(diào)試程序運(yùn)行調(diào)試程序：1、檢查程序代碼中的語(yǔ)法錯(cuò)誤2、檢查程序的功能性錯(cuò)誤 檢查方法：?jiǎn)卧~拼寫之類的錯(cuò)誤在編輯期間系統(tǒng)能查出報(bào)錯(cuò)，其他錯(cuò)誤在程序運(yùn)行

11、時(shí)會(huì)自動(dòng)報(bào)錯(cuò)。 檢查方法：用測(cè)試數(shù)據(jù)驗(yàn)證a、的取值分別為20、38.4、22.8MNABa 由于幾何原理的原因，這里角、之間隱藏了一個(gè)約束關(guān)系，角永遠(yuǎn)大于角 再運(yùn)行一次程序，a值不變，、的值 互換:a、的取值分別為20、22.8、38.4測(cè)量不可抵達(dá)物體高度”問題一、分析問題： MN=a/(1/ tan-1/ tan) 二、設(shè)計(jì)算法： 1、確定基線a的長(zhǎng)度和仰角、的值 2、計(jì)算1/ tan、1/ tan 3、計(jì)算MN的值 4、輸出結(jié)果三、編寫程序四、調(diào)試程序單步執(zhí)行代碼，監(jiān)控程序詳細(xì)運(yùn)行過程： 1、在代碼中選中要監(jiān)控的表達(dá)式，打開VB界面“調(diào)試”菜單，選擇“快速監(jiān)視”，將要監(jiān)控的表達(dá)式逐一添加

12、。 2、打開“調(diào)試”菜單，選擇“逐語(yǔ)句”，然后單擊程序界面的命令按鈕執(zhí)行程序，出現(xiàn)黃色提示后，繼續(xù)按功能鍵F8可執(zhí)行后續(xù)代碼，同時(shí)在監(jiān)視窗口內(nèi)可觀察到表達(dá)式值的變化。 從程序語(yǔ)句執(zhí)行流向的角度上看（程序結(jié)構(gòu)上），此程序是一典型順序結(jié)構(gòu)的程序特點(diǎn)：1.這個(gè)結(jié)構(gòu)按由上到下書寫的順序執(zhí)行。2.只有一個(gè)入口和一個(gè)出口。這是一種最簡(jiǎn)單，最基本的結(jié)構(gòu)。 什么是順序結(jié)構(gòu)？ 執(zhí)行時(shí)按語(yǔ)句排列的先后順序依次執(zhí)行的控制結(jié)構(gòu)稱為順序結(jié)構(gòu)。開 始結(jié) 束語(yǔ)句1語(yǔ)句2語(yǔ)句N流程圖 同時(shí)，從解決問題的模式來看，此程序又是典型的用解析法來解決問題的方法 所謂解析法是指通過分析問題中各要素之間的關(guān)系，用最簡(jiǎn)練的語(yǔ)言或形式化的符號(hào)來表達(dá)它們的關(guān)系，得出解決問題所需的表達(dá)式，然后設(shè)計(jì)程序求解問題的方法。 簡(jiǎn)單的說，解析法就是把具體問題中的各種關(guān)系轉(zhuǎn)化成數(shù)學(xué)公式，用解數(shù)學(xué)題的模式解決具體問題。評(píng)測(cè)與練習(xí)： 點(diǎn)右上方的“返回”按鈕，在LearnSite學(xué)習(xí)網(wǎng)站主界面上方的導(dǎo)航欄中單擊“常識(shí)測(cè)驗(yàn)”一欄，在右側(cè)找到 “開始測(cè)驗(yàn)”按鈕，進(jìn)行測(cè)驗(yàn)。答題結(jié)束后在相同位置單擊“查看答案”按鈕可查看參考答案。鼠標(biāo)指向題目后方的“提示”位置時(shí)可以查閱本題的分析解釋。小結(jié)：1、什