第五課順序結構

1、三種基本結構的傳統(tǒng)表示三種基本結構的傳統(tǒng)表示 （1）順序結構）順序結構 條件 語句1語句2 YN 語句1 語句2 （2）選擇結構）選擇結構 條件 ( a ) 條件 語句組 （3）循環(huán)結構）循環(huán)結構 a) 當型循環(huán)當型循環(huán)b) 直到循環(huán)直到循環(huán) Y N Y N ( b ) 語句組 腦筋急轉彎：腦筋急轉彎： 如何將大象放到冰箱里？ 開始 打開冰箱 把大象放進去 關上冰箱 結束 什么是順序結構 在現(xiàn)實生活中，事物的發(fā)展總是按照一定 順序來進行的。 這種事物發(fā)展的順序反映到程序設計上， 就是一種順序結構。 順序結構就是一步一步執(zhí)行，做完一步再 做下一步，在程序運行的時候表現(xiàn)為執(zhí)行 完一個步驟，再按順序

2、執(zhí)行下一個步驟。 任務一：求圓的面積題 分析問題：求任意半徑的圓的面積。 設計算法： （1）輸入半徑R （2）求圓的面積S。 （3）輸出S的值 VBVB程序的結構分析程序的結構分析 Private Sub Command1_Click() 數(shù)據(jù)類型說明部分 數(shù)據(jù)輸入部分 數(shù)據(jù)處理部分 數(shù)據(jù)輸出部分 Const PI As Single = 3.14 r = text1.text Dim r As Single, s As Single s = PI * r * r Print 圓的面積s=; s Text2.text=s 程序過程名 類型類型符號符號取值取值實例實例 整型整型Integer(-

3、32768+32767)或 (0216) 如:245,-99 長整型長整型Long (-2147483648+2147483647) 或(0232) 如:58723 實型實型 單精度 Single有效位是7位內(科學記數(shù)法)如:123.875,1.75643E+9 日期型日期型Date可以有各種表示形式#2007-03-05# 字符型字符型String要用英文的雙引號“china” “中國” 邏輯型邏輯型BooleanTrue False性別:true false VB數(shù)據(jù)類型數(shù)據(jù)類型 賦值語句 下面具體看下代碼演示：下面具體看下代碼演示： Private Sub Command1_Click

4、() Dim A As Integer Dim B As Integer 定義定義A、B、C三個變量三個變量 Dim C As Integer A = 12 B = 13 C = A * B A 和和 B進行算術運算，然后得出結果再賦予進行算術運算，然后得出結果再賦予C。 print C 把結果通過把結果通過“消息框消息框”打印出來。打印出來。 End Sub 下面具體看下代碼演示：下面具體看下代碼演示： Private Sub Command1_Click() Dim A As Integer Dim B As Integer 定義定義A、B、C三個變量三個變量 Dim C As Integ

5、er 都定義成整數(shù)類型都定義成整數(shù)類型 A = 12 B = 13 Text1.text = A * B A 和和 B先進行算術運算，先進行算術運算， 然后得出結果在文本框中顯示出來。然后得出結果在文本框中顯示出來。 End Sub 除了左邊必須是變量、或對象屬性外， 賦值符號兩邊的數(shù)據(jù)類型必須保持一致。如： A = 12 B = 13 Text1.Text = A * B 如果兩邊的類型不同，則以左邊變量或如果兩邊的類型不同，則以左邊變量或 對象屬性的數(shù)據(jù)類型為基準。對象屬性的數(shù)據(jù)類型為基準。 Dim A as Integer Dim B as Integer A = 12 . 1 B =

6、13 Text1 . Text = A * B Dim A As String Dim B As Integer A = “abc” B = A Msgbox B InputBox輸入語句的應用輸入語句的應用 InputBox功能：功能： 彈出對話框，供用戶輸入信息。彈出對話框，供用戶輸入信息。 Private Sub Command1_Click() Dim A As String A = InputBox(請輸入放入變量請輸入放入變量A中的值中的值) MsgBox A End Sub InputBox的用法 語法：語法：Inputbox（prompt，title，default，xpos，

7、ypos） 提示提示，標題，標題，默認值，默認值，x坐標位置坐標位置，y坐標位置坐標位置 Private Sub Command1_Click() Dim A As String A = InputBox(我的地盤我做主) MsgBox A End Sub Private Sub Command1_Click() Dim A As String A = InputBox(我的地盤我做主，“這是另一個”) MsgBox A End Sub Private Sub Command1_Click() Dim A As String A = InputBox(我的地盤我做主，“這是另一個”，“2012”) MsgBox A End Sub Private Sub Command1_Click() Dim A As String A = InputBox(我的地盤我做主，“這是另一個”， “2012”，“1000”，“2000”) MsgBox A End Sub 作業(yè)：作業(yè)： 身體質量指數(shù)（BMI） 是衡量身體健康與否的一 種標準，一般認為身體質量指數(shù)（BMI）在18 至25 之間是健康的。 計算BMI 的公式：體重（w）除以身高（h）的平 方，體重單位為千克，身高單位為米。編程先求自己 的BMI，然后將