【正文】 可得到確定的結(jié)果。 3．算法的評價 主要評價指標(biāo)是：算法 是否正確、運行的效率、占用系統(tǒng)資源的多少。 使用說明：■ “ =”左邊的變量和右邊的表達(dá)式的值的類型要一致?；虬?[Esc]鍵或取消按鈕，則把 0 或空串賦給變量 v 。 功能 ：執(zhí)行本語句時，判斷 e 的值，若為 true ,則執(zhí)行 then 后的語句（語句組），若為 false ，則執(zhí)行本 if 語句（或 end if ）下面的語句。 (對此功能的理解可參考 P58 圖 43 （ b） ) 程序舉例： 教材 P6實驗指導(dǎo)書 P43 實驗 53 ③ ifthenelse if 結(jié)構(gòu)：（可實現(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í)行。 c1,c2,… ：測試項。應(yīng)為 整型 或 單精度型。 功能：（執(zhí)行過程）： P70 使用說明：◆ 超過終值的情況：當(dāng) e3 0 時，指 ve2, 當(dāng) e30 時，指 ve2 。 s End Sub 例： 求 1*2*3*4 Private Sub Form_click() Dim s As Integer, i As Integer s = 1 For i = 1 To 4 s = s * i Next I Print s=。 Rnd(0) End Sub 產(chǎn)生 [a,b]范圍內(nèi)隨機(jī)整數(shù)的公式： P73 int((ba+1)*rnd+a) 例：生成 5 個 3 位隨機(jī)整數(shù)。 流程圖 P67 （ a） 例 ：（補充） 求 s=1+2+3+4+?? 當(dāng)結(jié)果大小等于 55 時結(jié)束 Private Sub Form_click() Dim s As Integer, n As Integer s = 0 n = 0 Do While s 55 n = n + 1 s = s + n Loop Print s, n End Sub 格式二： （ 1）執(zhí)行循環(huán)體語句組。 流程圖 P68 圖 413 （ a） 特別說明 ：無論哪種格式，記住循環(huán)體執(zhí)行的條件： （ 1） while 后的條件值為 true 時，執(zhí)行循環(huán)體，為 false 時，循環(huán)結(jié)束。 一、數(shù)組命名、數(shù)組元素、數(shù)組的維數(shù)與數(shù)組的類型： 上例中： 數(shù)組名 s 命名規(guī)則同簡單變量的命名規(guī)則。表示該元素在數(shù)組中排列的位置。 Score(1,3,5?? ) 數(shù)組的類型： （ 1） （ 1） 固定大小數(shù)組： P85 （ 2） （ 2） 動態(tài)數(shù)組： 二、數(shù)組定義：程序中的數(shù)組必須先定義，后使用。 數(shù)組的基本操作 P92 5． 2． 1 數(shù)組元素的賦值 1． 用賦值語句給數(shù)組元素賦值 例： P92 Dim Score(3) As Integer Dim Two(1,1 to 2)As Integer Score(0)=80 Score(1)=75 Score(2)=91 Score(3)=68 Two(0,1)= Score(0) Print Two(0, 1) 2 2 通過循環(huán)逐一給數(shù)組元素賦值 例： Private Sub Form_Click() Dim A(6) As Integer, i As Integer Dim B(1 To 2, 1 To 2) As Integer, j As Integer For i = 0 To 6 39。 Next i Print End Sub 4 用 Array 函數(shù)給數(shù)組賦值 Array 函數(shù)的一般使用形式如下： 〈變體變量名〉 = Array（ [數(shù)據(jù)列表 ]） 功能：將一個數(shù)據(jù)集賦給一個 Variant 變量，并將該變量創(chuàng)建成一個一維數(shù)組。 A(4)。 A(4) A = NO Array Print A 39。 A(2)。 A(2)。利用二重循環(huán)給二維數(shù)組賦值并輸出 For j = 1 To 2 B(i, j) = i * 10 + j Print B(i, j)。 ? ? 若在窗體或標(biāo)準(zhǔn)模塊的所有過程之前書寫下列語句： Option Base 1 則下界缺省值為 1 。 二維數(shù)組：有兩個下標(biāo)的數(shù)組稱為二維數(shù)組。 如上例中 s 數(shù)組中有 5 個元素，分別為： s(1) s(2) s(3) s(4) s(5) 數(shù)組元素又稱為下標(biāo)變量。 程序舉例： P68 例 43 第五章 第五章 數(shù)組 5． 5． 1 數(shù)組的概念 數(shù)組：是同類變量的一個有序的集合。 流程圖 P67 (b) 格式三： do until e 格式四： do … .. … . [exit do] [exit do] …… …… loop loop until e 格式三功能： (1) 判斷 e 的值，若為 false ，則執(zhí)行循環(huán)體語句；若為 true ，則循環(huán)結(jié)束，轉(zhuǎn) loop 的下面一條語句去執(zhí)行。 若 x 是數(shù)字串，其值為 True ，若不是數(shù)字串，其值為 False 4． 4． 1 doloop 循環(huán)結(jié)構(gòu)： P68 一般格式： 4 種 P68 do while e do …… …… [exit do] [exit do] …… …… loop loop while e 格式一： （ 1）先判斷 e 的值，為 true ，執(zhí)行循環(huán)體 A，為 false , 循環(huán)結(jié)束，轉(zhuǎn) loop 的下面一條語句去執(zhí)行。 (一個漢字為 2 個字符 ) （ 2） （ 2） mid(x,n1,n2) :取子串函數(shù) 作用一：取子串： mid(A,1,1)=”a” mid(A,1,2)=”ab” mid(A,3,1)=”c” 從一個字符串中一個一個取出字符的方法： for I=1 to len(x) print mid(x,I,1) next I 若逆序取出： for I=len(x) to 1 step 1 print mid(x,I,1) next I 作用二：改變一個字符串中某些字符。 ◆循環(huán)中執(zhí)行到 exit for 語句時，結(jié)束本循環(huán)語句，轉(zhuǎn)本 next 的下一條語句去執(zhí)行。 e2：循環(huán)控制變量的終值 。 ◆ 滿足某個判決條件： Is 關(guān)系表達(dá)式 常量 例如： Is20 Is=”p” 其中 Is 代表 e (測試表達(dá)式 )的值。 （對此功能的理解參考教材 P66 圖 48） 一般來說， ei中最多只有一個值為 true 。 Private Sub Form_click() Dim x As Integer x = InputBox(請輸入一個數(shù) ) If x 0 Then Print x End Sub ② ifthenelseend if 結(jié)構(gòu)：（可實現(xiàn)兩分支） 一般格式： if e then A 語句組 Else B 語句組 End if 功能：執(zhí)行本語句時，先判斷 e 的值： e 為 true : 執(zhí)行 A 語句組后轉(zhuǎn) end if 下一條語句繼續(xù)執(zhí)行。具體內(nèi)容見 P61 例： P61 MsgBox 函數(shù)：向用戶發(fā)布提示信息，并要求用戶作出必要的響應(yīng)。 InputBox 的使用形式： (P60) v=InputBox(prompt[,title][,default][,x,y][,helpfile,context]) 其中： v ：可為 變體變量、字符串變量、數(shù)值變量。 圖形符號 名稱 代表操作 輸入 /輸出 數(shù)據(jù)的輸入與輸出 處理 各種形式的數(shù)據(jù)處理 判斷 判斷選擇，根據(jù)條件滿足與否選擇不同路徑 起止 流程的起點與終點 特定過程 一個定義過的過程 流程線 連接各個框圖，表示執(zhí)行順序 連接點 表示與流程圖其他部分相連接 “結(jié)構(gòu)化程序設(shè)計方法”規(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ū)傩悦? （ 4）輸入性：指一個算法可以有 0 或多個輸入數(shù)據(jù)。 算法分類 ： 數(shù)值算法 ： 用于解決一般數(shù)學(xué)解析方法難以解決的問題，如：求超越方程的根、求定積分、解微分方程等。 （ 2）常用 的字符串函數(shù) 函數(shù)名 功能 示例 結(jié)果 Len（ x） 求 x 字符串的字符長度 (個數(shù) ) Len(ab 技術(shù) ) 4 LenB（ x） 求 x 字符串的字節(jié)個數(shù) LenB(ab 技術(shù) ) 8 Left（ x， n） 從 x 字符串左邊取n 個字符 Left(ABsYt,2) AB Right（ x， n） 從 x 字符串右邊取n 個字符 Right(ABsYt,2) Yt Mid（ x， n1， n2） 從 x 字符串左邊第n1 個位置開始向右取 n2 個字符 Mid（ ABsYt,2,3） BsY Ucase（ x） 將 x 字符串中所有小寫字母改為大寫 Ucase（ ABsYug） ABSYUG Lcase（ x） 將 x 字符串中所有大寫字母改為小寫 Ucase（ ABsYug） 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