【正文】 程序結(jié)構(gòu)和編碼規(guī)則 此處只能寫此 類 語 句 模塊級變量位置 不能再往前寫 程序自動生成的代碼，可查看不要修改 事件過程和自定義過程，塊結(jié)構(gòu)，位置前后沒有關(guān)系 本章目錄 本書目錄 87 程序結(jié)構(gòu)和編碼規(guī)則 編碼規(guī)則 (1) 關(guān)鍵字 首字母自動轉(zhuǎn)換成大寫 ， 其余字母轉(zhuǎn)換成小寫 。 (2) 語句書寫自由 一行上可書寫多句語句 (用冒號分隔 )， 一行最多 255個字符 。 單行語句可分若干行書寫 ， 在本行后加入續(xù)行符 (空格和下劃線 )。 本章目錄 本書目錄 88 綜合應(yīng)用 例 模仿字處理軟件中字符串替換功能和字幕滾動 。 設(shè)計思路： 利用 Shell函數(shù)調(diào)用 Word程序觀察其替換對話框 。 本例字符串替換功能實現(xiàn)方法： 利用替換 (Replace)函數(shù)實現(xiàn) 標(biāo)題顯示 :=Space(n) amp。 顯示文字 要產(chǎn)生滾動效果 ， 可用時鐘 (Timer1)控件和 Space函數(shù) ，改變空格數(shù)達(dá)到自右向左滾動字幕效果 。 本章目錄 本書目錄 89 本章小節(jié) 變量：在程序運行中其存儲的值可以改變 值類型變量 、 引用類型變量 變量聲明 Dim 變量名 [As 類型 ][=初始值 ] ?運算符 算術(shù)運算符 、 字符串運算符 、 關(guān)系運算符和邏輯運算符 名稱空間導(dǎo)入 Imports 名稱空間 數(shù)學(xué)函數(shù)使用 Imports Shell函數(shù) 調(diào)用各種應(yīng)用程序 本章目錄 本書目錄 90 第四章 基本的控制結(jié)構(gòu) 順序結(jié)構(gòu) 選擇結(jié)構(gòu) 循環(huán)結(jié)構(gòu) 其它輔助控制語句 綜合應(yīng)用 程序調(diào)試 本章目錄 本書目錄 91 順序結(jié)構(gòu) 順序結(jié)構(gòu) 選擇結(jié)構(gòu) 循環(huán)結(jié)構(gòu) 它們是程序設(shè)計的基礎(chǔ) 。 本章目錄 本書目錄 92 賦值語句 形式： 變量名＝表達(dá)式 計算右邊表達(dá)式的值 ， 然后賦給左邊的變量 。 sngRate= 39。 sngRate為單精度變量 ， 賦值 ＝ 39。 清除文本框的內(nèi)容 ＝ 歡迎使用 本章目錄 本書目錄 93 復(fù)合賦值語句 復(fù)合賦值運算符，其作用簡化程序代碼。 語句形式： 變量名 復(fù)合賦值運算符 表達(dá)式 復(fù)合賦值運算符： +=、 =、 *=、 \=、 /=、 ^=、amp。= 例如： a *= b+4 等價于 a = a*(b+4) 本章目錄 本書目錄 94 常用復(fù)合賦值語句 ?累加 sum +=x 等價于 sum = sum+x ?計數(shù) n += 1 等價于 n = n+1 ?顯示多行信息 利用 amp。= 來實現(xiàn) 例如： = amp。 vbCrLf amp。= 程序設(shè)計教程 本章目錄 本書目錄 95 賦值語句注意點 賦值語句不允許寫成 表達(dá)式＝變量 。 賦值號左邊的變量只能是 變量 或 對象 .屬性 ，不能是常量、常數(shù)符號、表達(dá)式。下面均為錯誤的賦值語句： Now()=x+y 39。左邊是表達(dá)式 (函數(shù) ) 5=sqrt(s)+x+y 39。 左邊是常量 本章目錄 本書目錄 96 選擇結(jié)構(gòu) 選擇結(jié)構(gòu) ， 有 If條件語句和 Select情況語句等 。 它們都是對條件進(jìn)行判斷 ， 根據(jù)判斷結(jié)果 ， 選擇執(zhí)行不同的分支 。 本章目錄 本書目錄 97 If條件語句 1. If… Then語句 (單分支結(jié)構(gòu) ) If 表達(dá)式 Then 語句塊（可以是一句或多句語句） End If 或 If 表達(dá)式 Then 語句 表達(dá)式：關(guān)系表達(dá)式、邏輯表達(dá)式，算術(shù)表達(dá)式。 該語句的作用是當(dāng)表達(dá)式的值為 True，執(zhí)行 Then后面的語句塊，否則不做任何操作。 表達(dá)式 語句塊 T F 本章目錄 IF演示 本書目錄 98 單分支結(jié)構(gòu) 例： 已知兩個數(shù) x和 y，比較它們的大小，使得 x大于 y。 If xy Then t=x x=y y=t End If 或 If xy Then t=x: x=y: y=t 簡單 If形式無 End If時，只能是一句語句或語句間用冒號分隔，而且必須在一行上書寫。 ? ? ? t y x 本章目錄 本書目錄 99 雙分支結(jié)構(gòu) 2. If… Then… Else語句 If 表達(dá)式 Then 語句塊 1 Else 語句塊 2 End If 或 If 表達(dá)式 Then 語句 1 Else 語句 2 當(dāng)表達(dá)式的值為 True時 ， 執(zhí)行 Then后面的語句塊 1， 否則執(zhí)行 Else后面的語句塊 2 表達(dá)式 F 語句塊 1 T 語句塊 2 本章目錄 本書目錄 100 雙分支結(jié)構(gòu)例 計算分段函數(shù) y x x xx x x x? ? ? ?? ? ??????sinc os231 03 0 單分支 if x = 0 then y=cos(x)－ x^3+3*x 結(jié)構(gòu)實現(xiàn) If x0 Then y=sin(x)+sqrt (x*x+1) If x0 Then 雙分支 y=sin(x)+sqr (x*x+1) Else 結(jié)構(gòu)實現(xiàn) y=cos(x)－ x^3+3*x End If 本章目錄 本書目錄 101 多分支結(jié)構(gòu) 3. If…Then…ElseIf 語句 If 表達(dá)式 1 Then 語句塊 1 ElseIf 表達(dá)式 2 Then 語句塊 2 … [Else 語句塊 n+1] End If 表達(dá)式 2 表達(dá)式 n T F T F 語句塊 n + 1 語句塊 2 語句塊 1 F T 表達(dá)式 1 語句塊 n 作用：根據(jù)不同的表達(dá)式值確定執(zhí)行哪個語句塊 本章目錄 本書目錄 102 例 已知變量 ch中存放了一個字符，判斷該字符是字母字符、數(shù)字字符還是其他字符。 If UCase(ch) = A And UCase(ch) = Z Then MsgBox(ch + “是字母字符” ) 39?？紤]大小寫字母 ElseIf ch = 0 And ch = 9 Then 39。 數(shù)字字符 MsgBox(ch + 是數(shù)字字符 ) Else 39。 除上述字符以外的字符 MsgBox(ch + 是其他字符 ) End If 不管有幾個分支，依次判斷，當(dāng)某條件滿足，執(zhí)行相應(yīng)的語句，其余分支不再執(zhí)行；若條件都不滿足，且有Else子句，則執(zhí)行該語句塊，否則什么也不執(zhí)行。 ElseIf不能寫成 Else If 多分支結(jié)構(gòu)例 本章目錄 注意問題 本書目錄 103 If語句的嵌套是指 If或 Else后面的語句塊中又包含 If語 If 表達(dá)式 1 Then If 表達(dá)式 2 Then … End If … End If If xy Then t=x: x=y: y=t If yz Then t=y: y=z: z=t If xy Then t=x: x=y: y=t End If End If If語句的嵌套 例 已知 x， y， z三個數(shù)，使得 xyz 用一個 IF語句和一個嵌套的 IF語句實現(xiàn) 本章目錄 本書目錄 104 Select Case語句 Select Case 變量或表達(dá)式 Case 表達(dá)式列表 1 語句塊 1 Case 表達(dá)式列表 2 語句塊 2 … [Case Else 語句塊 n+1] End Select 表達(dá)式列表 與 變量或表達(dá)式 的類型必須相同，是下面 4種形式之一 ： ?表達(dá)式 例 : A ?一組用逗號分隔的枚舉 值 2,4,6,8 ?表達(dá)式 1 To 表達(dá)式 2 60 To 100 ?Is 關(guān)系運算符表達(dá)式 Is 60 本章目錄 本書目錄 105 Select Case語句例 將例 改用 Select Case 語句實現(xiàn)： Select Case ch Case a To z， A To Z MsgBox( ch + 是字母字符 ) Case 0 To 9 MsgBox (ch +是數(shù)字字符 )