2.2.2賦值語句和輸入輸出語句 (6)

1、求圓的面積程序： Private sub command1_click() Const PI as single=3.14 Dim s As Single, r as single r=InputBox(“r=”,”輸入r的值”) s=PI*r*r Print “圓的面積s=”;sEnd Sub 知識回顧 在此程序中，r=inputbox(“r=”,”請輸入半徑”)，s=pi*r*r的含義分別是將賦值號右邊的函數(shù)inputbox(“r=”,”請輸入半徑”)的值賦給變量r, 將賦值號右邊的表達(dá)式pi*r*r的值賦給變量s。它們的作用都是將表達(dá)式的值賦給左邊的變量，這種語句稱為賦值語句。第二章 程

2、序設(shè)計基礎(chǔ) 2.2 程序的順序結(jié)構(gòu)2.2.2 賦值語句和輸入輸出語句環(huán)縣第四中學(xué) 劉建宏1.格式：變量=表達(dá)式 如：r=InputBox(“r=”,”輸入r的值”) s=3.14*r*r一、賦值語句2.含義： 這里的“=”是賦值符號，它的含義是將表達(dá)式的值賦給左邊的變量。賦值語句具有賦值與計算雙重功能，并且是先計算后賦值 。（1）A=B（2）A=123（3）A=A+10 (4) A=30 B=40 T=A A=B B=T3、觀摩將變量的值賦給變量A，但B的值不改變將數(shù)值123賦給變量A將變量A+10計算后的值賦給變量A實現(xiàn)變量A、B之間數(shù)值的交換A=40 B=30 (1) 賦值符號“=”: 與

3、數(shù)學(xué)中的等號意義不同。 例: X=X+1思考：賦值語句中：a=b與 b=a相同嗎?說明:(2)賦值符號左邊必須是變量,不能是常量、或表達(dá)式(3)變量名類型應(yīng)與表達(dá)式類型相容。(4)變量未賦值時，數(shù)值型變量值自動為0，字符型變 量值自動為空串“ ”。二、輸入數(shù)據(jù)的函數(shù)1.格式：InputBox(提示信息, 標(biāo)題, 默認(rèn)值,位置) 例如：a=InputBox(“a=”,“輸入”,12, 100,20) 2.含義：（1）提供從鍵盤輸入數(shù)據(jù)的函數(shù)。產(chǎn)生一個輸入對話框，等待用戶輸入數(shù)據(jù)，并返回輸入的內(nèi)容。（2）InputBox（）函數(shù)的返回值是一個字符串。參數(shù)說明：(1)提示信息：字符串表達(dá)式，對輸入數(shù)

4、據(jù)的提示，顯示在彈出的對話框中，不能省略。(2)標(biāo)題：字符串表達(dá)式，運行函數(shù)后彈出對話框的標(biāo)題。(3)默認(rèn)值：彈出對話框中的默認(rèn)輸入數(shù)據(jù)值。(4)位置：運行函數(shù)后彈出的對話框左上角在屏幕上的坐標(biāo)位置。 不可以省略可以省略InputBox(“提示信息”,”標(biāo)題”,默認(rèn)值, 位置) Private Sub Command1_Click() Dim a As Integer a=InputBox(“a=”,”輸入”,12,100,20) End Sub 運行結(jié)果：觀摩：Print 是輸出數(shù)據(jù)的一個重要方法。在求圓的面積和周長的程序中，print “圓的面積s=”;s, “圓的周長c=”;c就是利用p

5、rint語句來實現(xiàn)輸出到窗體的。1、基本格式： Print 輸出內(nèi)容2、含義：是將變量和表達(dá)式的值輸出到窗體上的方法，具有輸出和計算雙重功能，對于表達(dá)式先計算后輸出。3、輸出內(nèi)容可以是數(shù)、變量、表達(dá)式、也可以是用引號括起來的字符串。三、輸出數(shù)據(jù)的方法說明：1、如果輸出的內(nèi)容是數(shù)、變量、表達(dá)式，則輸出的是它們的值；如果是引號引起來的字符串，則原樣輸出。三、輸出數(shù)據(jù)的方法觀察下列程序的輸出結(jié)果：（1）print “s=”（2）print 100（3）x=5 y=10 print （x+y）/3 運行結(jié)果：s= 運行結(jié)果：100 運行結(jié)果：5說明： 2、輸出內(nèi)容可以是一個或多個。如果是多個，則各輸出

6、內(nèi)容之間可以用逗號或分號分隔。（1）逗號:按照標(biāo)準(zhǔn)格式輸出（分區(qū)格式輸出）；（2）分號:按照緊湊格式輸出，即后一個輸出緊跟前一個輸出。三、輸出數(shù)據(jù)的方法例如：若A=5 ，B=3,則執(zhí)行下面的語句：（1）print “A=”;A , “B=”;B（2）print “A=”;A ; “B=”;B 運行結(jié)果：A=5 B=3 運行結(jié)果：A=5B=3說明： 3、如果輸出內(nèi)容后面沒有符號，則表示下一個Print換行輸出；如果Print中沒有輸出內(nèi)容，則表示輸出一個空行。三、輸出數(shù)據(jù)的方法例如：若A=5 ，B=3,則執(zhí)行下面的語句：（1）print “A=”;A print “B=”;B（2）print “

7、A=”;A print print “B=”;B 運行結(jié)果：A=5 B=3 運行結(jié)果：A=5 B=3閱讀下列程序，寫出程序的運行結(jié)果，并上機(jī)進(jìn)行驗證。練習(xí)1Private sub command1_click（） A=10 B=20 A=A+B B=A-B A=A-B Print “A=”;A, ”B=”;BEnd Sub 運行結(jié)果：A=20 B=10 上述程序中一共有8條語句，執(zhí)行時按照語句出現(xiàn)的順序執(zhí)行。即當(dāng)執(zhí)行完第一條語句后，必然從第二條語句繼續(xù)，順序執(zhí)行所有的語句，直到執(zhí)行完最后一條語句為止。像這樣的控制結(jié)構(gòu)稱為程序的順序結(jié)構(gòu)。順序結(jié)構(gòu)的最大特點就是在這個結(jié)構(gòu)內(nèi)按由上到下的書寫順序執(zhí)行

8、，它只有一個入口和一個出口，這是一種最簡單、最基本的結(jié)構(gòu)。說明 程序的順序結(jié)構(gòu)運行流程如下圖所示。程序中的“語句1；語句2；語句N；”，便是一個順序結(jié)構(gòu)的部分。說明開始語句1語句2語句N結(jié)束下面將通過實例，來學(xué)習(xí)設(shè)計程序的順序結(jié)構(gòu)的方法。練習(xí)22-2：通過編寫程序?qū)崿F(xiàn)，輸入長方體的長寬高，求長方體的全面積和體積。 （1）分析問題 設(shè)長、寬、高、全面積、體積分別為A、B、C、S、V， 則S=2*（A*B+A*C+B*C）,V=A*B*C。 （2）設(shè)計算法 輸入A、B、C值； 計算S的值； 計算V的值； 輸出S、V的值。 （3）編寫程序 （4）調(diào)試程序參考程序代碼Private Sub Command1_Click() Dim A As Single, B As Single Dim C As Single, S As Single Dim V As Single A = InputBox(A=, 輸入) B = InputBox(B=, 輸入) C = InputBox(C=, 輸入) S = 2 * (A * B + A * C + B * C) V = A * B * C Print 全面積S=; S, 體積V=; VEnd Sub調(diào)試程序作業(yè)設(shè)置1、試編寫一個程序，求平面內(nèi)兩點之間的距離。 假定平面內(nèi)兩點分