【正文】 BsYug） absyug Ltrim（ x） 去掉 x 左邊的空格 Lrim( ABC ) ABC Rtrim（ x） 去掉 x 右邊的空格 Trim( ABC ) ABC Trim（ x） 去掉 x 兩邊的空格 Trim( ABC ) ABC Instr（ x， 字符 , M） 在 x 中查找給定的字符 ,返回該字符在 x 中的位置 ,M=1不區(qū)分大小寫 ,省略則區(qū)分 Instr(WBAC,B) 2 String（ n， 字符 ） 得到由 n 個首字符組成的一個字符串 String(3,abcd) aaa Space (n) 得到 n 個空格 Space (3) Replace(C,C1,C2,N1,N2) 在 C 字符串中從 N1開始將 C2 替代 N2次 C1,如果沒有 N1表示從 1 開始 Replace(ABCASAA,A,12,2,2) ABC12S12A 3. 日期與時間函數(shù) 常用的日期與時間函數(shù) 函數(shù)名 含義 示例 結(jié)果 Date () 返回系統(tǒng)日期 Date () 02319 Time() 返回系統(tǒng)時間 Time() 3:30 :00 PM Now 返回系統(tǒng)時間和日期 Now 02319 3:30 :00 Month(C) 返回月份代號（ 112） Month(02,03,19) 3 Year(C) 返回年代號（ 17522078） Year(020319) 2020 Day(C) 返回日期代號（ 131） Day(02,03,19) 19 WeekDay() 返回星期代號（ 17） ， 星期 日為 1 WeekDay(02,03,17) 1 增減日期函數(shù)： DateAdd（要增減日期形式，增減量，要增減的日期變量） 例： 計(jì)算期末考試日期： DateAdd(ww,15,2020/3/19) 求日期之差函數(shù)： DateDiff（要間隔日期形式，日期一，日期二） 例： 計(jì)算距畢業(yè)天數(shù)： DateDiff(d, Now, 2020/6/30) 日期形式 日期形式 yyyy q m y d w ww h n s 意義 年 季 月 一年的天數(shù) 日 一周的天數(shù) 星期 時 分 秒 4. 轉(zhuǎn)換函數(shù) 函數(shù)名 功能 示例 結(jié)果 Str (x) 將數(shù)值數(shù)據(jù) x 轉(zhuǎn)換成 字符 串 Str () Val(x) 將字符串 x 中的數(shù)字 轉(zhuǎn)換 成 數(shù)值 Val(23ab) 23 Chr(x) 返回以 x 為 ASCII 碼的字 符 Chr(65) A Asc(x) 給出字符 x 的 ASCII 碼值 ， 十進(jìn) 制 數(shù) Asc(a) 97 Cint(x) 將數(shù)值型數(shù)據(jù) x 的小 數(shù)部 分 四舍 五 入取整 Cint() 4 Int(x) 取小于等于 x 的最大 整數(shù) Int() Int() 4 3 Fix(x) 將數(shù)值型數(shù)據(jù) x 的小 數(shù)部 分 舍去 Fix() 3 CBool(x) 將任何有效的數(shù)字字符串或數(shù)值轉(zhuǎn)換成邏輯型 CBool(2) CBool(0) True False CByte(x) 將 0255 之間的數(shù)值 轉(zhuǎn)換 成 字節(jié) 型 CByte(6) 6 CDate(x) 將有效的日期字符串轉(zhuǎn)換成日期 CDate(1990,2,23) 1990223 CCur(x) 將數(shù)值數(shù)據(jù) x 轉(zhuǎn)換 成 貨幣 型 CCur() Round(x， N) 在保留 N 位小數(shù)的情 況下 四 舍五 入 取整 Round(， 1) CStr(x) 將 x 轉(zhuǎn)換成字符串型 CStr(12) 12 CVar(x) 將數(shù)值型數(shù)據(jù) x 轉(zhuǎn)換 成變 體 型 CVar(23)+A 23A CSng(x) 將數(shù)值數(shù)據(jù) x 轉(zhuǎn)換成 單精 度 型 CSng() CDbl(x) 將數(shù)值數(shù)據(jù) x 轉(zhuǎn)換成 雙精 度 型 CDbl() 5. 格式輸出 Format 函數(shù) Format 函數(shù)用于制定字符串或數(shù)字的輸出格式。 語法 ： x = Format (expression, fmt ) expression 是所輸出的內(nèi)容。 fmt 是指輸出的格式，這是一個字符串型的變量，這一項(xiàng)若省略的話，那么 Format 函數(shù)將和 Str 函數(shù)的功能差不多。如： 語句 輸出 Format (2, “ ” ) Format (.7, “ 0%” ) 70% Format (1140, “ $,0” ) $1,140 Format 字符 的 意義 字符 意義 字符 意義 0 顯 示一 數(shù) 字 ，若此 位 置沒 有 數(shù)字 則 補(bǔ)0 . 小數(shù)點(diǎn) 顯 示一 數(shù) 字 ，若此 位 置沒 有 數(shù)字 則 不顯示 , 千位的分隔符 % 數(shù)字乘以 100 并在右 邊 加上 ” %”號 + $ ( ) 這 些字 出 現(xiàn) 在 fmt 里 將 原樣 打出 第四章 VB 程序的控制結(jié)構(gòu) 算法概論 1．算法的概念 算法 ：指用計(jì)算機(jī)解決某一問題的方法和步驟。 算法分類 ： 數(shù)值算法 ： 用于解決一般數(shù)學(xué)解析方法難以解決的問題，如：求超越方程的根、求定積分、解微分方程等。 非數(shù)值算法： 用于對非數(shù)值信息進(jìn)行查找、排序等 2．算法的特征 （ 1）確定性：指算法的每個步驟都應(yīng)確切無誤，沒有歧義。 （ 2）可行性：指算法的每個步驟必須是計(jì)算機(jī)能夠有效執(zhí)行、可以實(shí)現(xiàn)的，并可得到確定的結(jié)果。 （ 3）有窮性：指一個算法應(yīng)該在有限的時間和步驟內(nèi)可以執(zhí)行完畢的。 （ 4）輸入性：指一個算法可以有 0 或多個輸入數(shù)據(jù)。 （ 5）輸出性：指一個算法必須有一個或多個輸出結(jié)果 。 3．算法的評價 主要評價指標(biāo)是：算法 是否正確、運(yùn)行的效率、占用系統(tǒng)資源的多少。 4．算法的描述 一般常用流程框圖來描述算法。 圖形符號 名稱 代表操作 輸入 /輸出 數(shù)據(jù)的輸入與輸出 處理 各種形式的數(shù)據(jù)處理 判斷 判斷選擇，根據(jù)條件滿足與否選擇不同路徑 起止 流程的起點(diǎn)與終點(diǎn) 特定過程 一個定義過的過程 流程線 連接各個框圖，表示執(zhí)行順序 連接點(diǎn) 表示與流程圖其他部分相連接 “結(jié)構(gòu)化程序設(shè)計(jì)方法”規(guī)定算法有三種基本結(jié)構(gòu)： 順序結(jié)構(gòu)、選擇結(jié)構(gòu) 和 循環(huán)結(jié)構(gòu) 6．算法示例 歐幾里德算法 —— 求兩個自然數(shù)的最大公約數(shù) 4． 2 賦值語句及 InputBox、 MsgBox 函數(shù) （ 1）賦值語句： P59 一般格式： var= 表達(dá)式 其中： var 可以是變量名或?qū)傩悦? 功能：將表達(dá)式的值賦給“ =”左邊的變量（或?yàn)槟硞€對象設(shè)置某屬性值）。 使用說明：■ “ =”左邊的變量和右邊的表達(dá)式的值的類型要一致。 程序舉例：已知半徑，求圓面積 已知三邊長，求三角形面積 P65 （ 2）不同數(shù)據(jù)類型數(shù)據(jù)的賦值： P59 4． 2． 2 InputBox 函數(shù)： P60 InputBox 函數(shù)：用來接受 用戶通過鍵盤輸入的數(shù)據(jù)。 InputBox 的使用形式： (P60) v=InputBox(prompt[,title][,default][,x,y][,helpfile,context]) 其中： v ：可為 變體變量、字符串變量、數(shù)值變量。 功能：執(zhí)行本語句，調(diào)用 InputBox 函數(shù)時，將在屏幕上出現(xiàn)一個帶有提示信息的對話框，當(dāng)用戶從對話框的用戶編輯框中輸入數(shù)據(jù)并按回車鍵（或單擊確定按鈕））后，系統(tǒng)則把輸入的數(shù)據(jù)賦給變量 v 。或按 [Esc]鍵或取消按鈕，則把 0 或空串賦給變量 v 。 用戶可通 過設(shè)置 InputBox 函數(shù)的參數(shù)來定制提示信息對話框的形式。具體內(nèi)容見 P61 例： P61 MsgBox 函數(shù)：向用戶發(fā)布提示信息，并要求用戶作出必要的響應(yīng)。 函數(shù)格式：（ P61） 例： P63 4． 3 分支結(jié)構(gòu)與分支結(jié)構(gòu)語句 ① if –then 結(jié)構(gòu)： (可實(shí)現(xiàn)單分支 ) 一般格式： 格式一： if e then 語句 格式二： if e then 語句組 end if 其中： e 為條件，其形式可為：邏輯變量、關(guān)系表達(dá)式或邏輯表達(dá)式。 功能 ：執(zhí)行本語句時，判斷 e 的值，若為 true ,則執(zhí)行 then 后的語句（語句組），若為 false ，則執(zhí)行本 if 語句（或 end if ）下面的語句。 （對此功能的理解可看 P64 圖 47 ） 程序舉例： 用 InputBox 輸入一個數(shù)，若此數(shù)大小 0，則在窗體上將它顯示出來。 Private Sub Form_click() Dim x As Integer x = InputBox(請輸入一個數(shù) ) If x 0 Then Print x End Sub ② ifthenelseend if 結(jié)構(gòu)：（可實(shí)現(xiàn)兩分支） 一般格式： if e then A 語句組 Else B 語句組 End if 功能：執(zhí)行本語句時，先判斷 e 的值： e 為 true : 執(zhí)行 A 語句組后轉(zhuǎn) end if 下一條語句繼續(xù)執(zhí)行。 e 為 false: 執(zhí)行 B 語句組后轉(zhuǎn) end if 下一條語句繼續(xù)執(zhí)行。 (對此功能的理解可參考 P58 圖 43 （ b） ) 程序舉例： 教材 P6實(shí)驗(yàn)指導(dǎo)書 P43 實(shí)驗(yàn) 53 ③ ifthenelse if 結(jié)構(gòu)：（可實(shí)現(xiàn)多分支） 一般格式： if e1 then A1 語句組 Else if e2 then A2 語句組 Else if e3 then A3 語句組 …… Else if en then An 語句組 else A(n+1)語句組 End if 功能：執(zhí)行本語句時依次判斷各條件的值， 若有 ei 的值為 true ,則執(zhí)行相應(yīng)的 Ai 語句組后轉(zhuǎn) end if 的下一條語句去繼續(xù)執(zhí)行。 若所有 ei 的值均為 false ,則執(zhí)行 else 后的 A(n+1) 語句組后轉(zhuǎn) end if 的下一條語句去繼續(xù)執(zhí)行。 （對此功能的理解參考教材 P66 圖 48） 一般來說， ei中最多只有一個值為 true 。 程序舉例：教材 P66 例 42 ④ SelectCaseEnd Select 結(jié)構(gòu)語句：（可以實(shí)現(xiàn)多分支結(jié)構(gòu)） P66 一般格式： Select Case e Case c1 A1 語句組 Case c2 A2 語句組 …… Case An 語句組 Case Else A(n+1)語句組 End Select 其中： e ： 測試表達(dá)式，形式可為：算術(shù)表達(dá)式 或 字符表達(dá)式。 c1,c2,… ：測試項(xiàng)。形式可為以下三種： ◆ 具體取值：常量 1，常量 2， … .. ◆ 連續(xù)的數(shù)據(jù)范圍： 下界值 to 上界值 例如： 8 to 12 B to H 等等。 ◆ 滿足某個判決條件： Is 關(guān)系表達(dá)式 常量 例如： Is20 Is=”p” 其中 Is 代表 e (測試表達(dá)式 )的值。 程序舉例：教材 P67 例 42 4． 4 循環(huán)結(jié)構(gòu)與循環(huán)結(jié)構(gòu)語句 循環(huán)語句：（可以使得某些語句組重復(fù)執(zhí)行的語句） 4． 4． 2 fornext 循環(huán)語句： P69 一般格式： for v=e1 to e2 [step e3] …… [exit for] 循環(huán)體語句組 …… next v 其中： v ：循環(huán)控制變量。應(yīng)為 整型 或 單精度型。 e1：循環(huán)控制變量的初值。 e2：循環(huán)控制變量的終值 。 e3：循環(huán)控制變量的步長值。