【正文】 功能：從字符串左邊截取 N個字符 Left(beijing2021 ,7) 結(jié)果： beijing （ 5）右邊截取 格式： right（字符串，整數(shù) N） 功能：從字符串右邊截取 N個字符。若找到返回所在位置整數(shù)，若找不到，返回值為 0。 格式： MsgBox(prompt[, buttons] [, title]) 【 例 】 在圖 ?msgBox(確認(rèn)退出系統(tǒng)嗎 ?,vbYesNo,退出警告 )，彈出圖 ，單擊“否（ N）”按鈕，返回值為 7。 domain可以是表名稱或不需要參數(shù)的查詢名稱。1103839。 truepart必要參數(shù)。 例：在立即窗口中輸入： score=85 ?iif(score=60,及格 ,不及格 ) 結(jié)果：及格 （ 2） switch函數(shù) 格式： Switch(條件 1，表達式 1[，條件 2，表達式 2…[ ，條件 N，表達式 N]]) 功能：從左邊條件開始計算，若某個條件成立，函數(shù)的值就為該條件對應(yīng)的表達式的值。 例：在立即窗口中輸入： xy=2 ?choose(xy,英文學(xué)院 ,經(jīng)貿(mào)學(xué)院 ,信息學(xué)院 ) 經(jīng)貿(mào)學(xué)院 DoCmd對象 使用 DoCmd 對象的方法，可以從 Visual Basic 運行 Microsoft Access 操作。 選擇結(jié)構(gòu)：又稱為條件結(jié)構(gòu)或分支結(jié)構(gòu)，根據(jù)條件分別執(zhí)行不同的分支語句。 條件語句 ——if語句 格式 1： if 條件 then 語句序列 1 end if 格式 2： if 條件 then 語句序列 1 else 語句序列 2 end if 格式 3： If 條件 1 Then 語句序列 1 ElseIf 條件 2 Then 語句序列 2 Else 語句序列 3 End If 案例 ——窗體“用戶登錄”代碼實現(xiàn)。 案例 ——窗體“用戶登錄”代碼實現(xiàn)。 ) = password Then 39。彈出消息框報錯 MsgBox 密碼錯誤！ ,vbCritical End If End Sub 案例 ——窗體“用戶登錄”代碼實現(xiàn)。 完整的含義是： 在 用戶 表中查找 [用戶號 ]字段值為 userid的記錄所對應(yīng)的 [密碼 ]字段的值，若找到的值與用戶輸入的 password相同，則登錄成功，否則登錄失敗。 MsgBox 密碼錯誤！ ,vbCritical，彈出一個消息框，顯示“密碼錯誤”。 （ 4）表達式 1，表達式 2， ?? 。 （ 1）功能說明：用戶輸入身高（米）和體重（公斤），計算體重指數(shù) BMI=身高 /（體重 *體重），如 BMI值區(qū)間為[18， 20]，為標(biāo)準(zhǔn)體重，（ 20， 23]之間，體重正常，但應(yīng)注意適量運動，（ 23， 25]之間，輕度肥胖，注意節(jié)食，超過 25，為肥胖，應(yīng)立即減肥。 Private Sub Command1_Click() Dim bmi As Double bmi = / ( * ) Select Case bmi Case Is 18 = 體重過輕 ,請注意營養(yǎng) Case 18 To 20 = 體重很標(biāo)準(zhǔn)哦 ,注意保持 ! Case 20 To 23 = 體重標(biāo)準(zhǔn) ,應(yīng)適量運動 Case 23 To 25 = 輕度肥胖 ,注意節(jié)食 Case Else = 肥胖 ,請立刻減肥 End Select End Sub 說明： ① Weight、 high是文本框名稱，表示用戶輸入的體重和身高，本框 weight的值（ value）屬性，為文本框中輸入的內(nèi)容。 循環(huán)變量必須是數(shù)值型。 表 87 控件名稱 標(biāo)題 說明 title 數(shù)學(xué)問題計算 字體：楷體 _GB2312，字號： 24 money 文本框，輸入錢總數(shù) num 文本框，輸入雞總數(shù)量 result 結(jié)果 圖中“公雞 10母雞 20”標(biāo)簽，設(shè)計初始化時為“結(jié)果”或空 Command1 計算 采用非向?qū)Х绞缴? （ 4）程序代碼： 【 計算 】 按鈕的“單擊”事件輸入如下代碼。 ? 滿足要求后，在 result標(biāo)簽上顯示結(jié)果，同時 exit for退出循環(huán)，不再進行其他測試。 循環(huán) —— do ……loop 語句 格式 1： Do [while | until 條件表達式 ] [語句序列 1] [Exit Do] [語句序列 2] Loop 格式 2： Do [語句序列 1] [Exit Do] [語句序列 2] Loop [while | until 條件表達式 ] 說明： ? 圖 、圖 格式 2的執(zhí)行過程 ? 格式 1先判斷后執(zhí)行，格式 2先執(zhí)行后判斷，循環(huán)體內(nèi)的語句至少執(zhí)行一次。 （ 3）控件屬性：主要控件如下，其他控件屬性參見以前例子。過程有兩種形式： ? Sub（子過程） ? Function（函數(shù)過程） Sub子過程 Sub子過程 sub（子過程）的功能是將一定的語句集合起來，可接受相應(yīng)的參數(shù)，并完成一定的任務(wù)。 通用過程 通用過程獨立于窗體和報表，能被多個窗體或報表調(diào)用 編寫通用過程： （ 1）選擇菜單 【 插入 】 |【 模塊 】 ，插入一個新標(biāo)準(zhǔn)模塊，同時進入VBE編輯器界面。 案例 ——【 例 】 創(chuàng)建一個標(biāo)準(zhǔn)模塊，在模塊中創(chuàng)建一個通用過程 fine，創(chuàng)建一個窗體“罰金計算”，調(diào)用該過程。 表 810 控件名稱 標(biāo)題 說明 title 圖書罰金計算 字體：楷體 _GB2312，字號： 24 n 文本框，輸入過期天數(shù) Command1 計算 采用非向?qū)Х绞缴? 4）編寫過程：進入 VBE界面，添加一個新的標(biāo)準(zhǔn)模塊或在選定一個已有的標(biāo)準(zhǔn)模塊，執(zhí)行菜單 【 插入 】 |【 過程 】命令，出現(xiàn)圖 ，輸入過程名“ fine”，類型選擇“子程序”，范圍選擇“公共的”，會在當(dāng)前模塊自動產(chǎn)生一個過程 fine ()，對其進行修改，代碼如下： Public Sub fine(n) Dim fine As Double fine = n * MsgBox 罰金 : + CStr(fine) + 元 End Sub 說明： ? fin(n)， n為參數(shù)，在調(diào)用的時候賦給它一個值 ? 過程沒有返回值， （ 5）調(diào)用過程，程序代碼： 【 計算 】 按鈕的“單擊”事件輸入如下代碼。例如，如果希望在單擊 —個名稱為“命令 3”的命令選鈕后，則調(diào)用事件過程 Private Sub 命令3_Click()。 函數(shù) 函數(shù)過程定義格式為： [Private|Public|Static]function 函數(shù)名 ([參數(shù) [As類型， ……1] 語句 [Exit function] 語句 函數(shù)名＝表達式 End function 函數(shù)調(diào)用格式： 變量 =函數(shù)名 (參數(shù) ) 案例 ——【 】 編寫一個函數(shù)給定過期天數(shù)計算應(yīng)繳罰金，并創(chuàng)建一個窗體“函數(shù)調(diào)用”調(diào)用該函數(shù) 。 （ 4）編寫過程：進入 VBE界面，添加一個新的標(biāo)準(zhǔn)模塊或在選定一個已有的標(biāo)準(zhǔn)模塊，執(zhí)行菜單 【 插入 】 |【 過程 】命令，出現(xiàn)圖 ，輸入過程名“ getFine”，類型選擇“函數(shù)”，范圍選擇“公共的”，會在當(dāng)前模塊自動產(chǎn)生一個過程 getFine()，對其進行修改，代碼如下： Public Function getFine(n) Dim fine As Double fine = n * getFine = fine End Function 說明： ? n為參數(shù)，在調(diào)用時需要給一個值。 fine = getFine(n)表示調(diào)用函數(shù) getFine，將 n傳遞給 getFine，函數(shù)的返回值賦值給 fine。 ByRef：地址傳遞，默認(rèn)選項，形參值的變化影響實參的值。 程序的調(diào)試與出錯處理 程序錯誤類型 ? 編譯錯誤 一般是語法上的錯誤，如 if沒有對應(yīng)的 endif， sub沒有對應(yīng)的end sub，將引號寫成中文的引號，調(diào)用函數(shù)時，參數(shù)不對應(yīng)等。 ? On Error Resume Next 忽略錯誤行，繼續(xù)執(zhí)行錯誤行下一條命令。 圖 調(diào)試工具欄 設(shè)置斷點 設(shè)置或取消斷點有以下幾種方法： ? 單擊要設(shè)置斷點處命令行左邊空白區(qū)域即斷點設(shè)置區(qū)，再次單擊可取消。 ? 設(shè)置監(jiān)視點 案例 ——【 例 】 使用調(diào)試工具調(diào)試 【 例 】 功能說明：單步調(diào)試每條語句，并監(jiān)視運行過程中各變量的變化。 3. 運行程序：運行窗體“買雞問題計算”，輸入一個值，單擊 【 計算 】 按鈕。 6. 打開本地窗口可以監(jiān)視當(dāng)前過程中所有變量的狀態(tài)。 （ 2）數(shù)據(jù)庫訪問對象 DAO（ Data Access Object）。 ? Database：操作的數(shù)據(jù)庫對象。 在 vba中訪問數(shù)據(jù)庫的對象，要設(shè)置對 DAO庫的引用，設(shè)置方法如下： （ 1）進入 VBE環(huán)境。 Dim ws as Workspace 39。設(shè)置數(shù)據(jù)庫對象 Set db=(數(shù)據(jù)庫文件名 ) 39。聲明 rs為 Recordset對象 Set rs = (借書 ) 39。聲明 fd為 Recordset記錄集合中當(dāng)前記錄（行）字段“罰款金額”的值。聲明一個數(shù)據(jù)庫變量 Dim rs As Recordset 39。設(shè)置工作區(qū)變量 ws Set db = CurrentDb() 39。循環(huán)處理每條記錄，直到文件結(jié)尾 EOF 39。計算還書日期與應(yīng)還日期之間的天數(shù) If d 0 Then fd3 = d * 3