【正文】 ? 常州工學(xué)院計(jì)算機(jī)系 97 下次課安排： 實(shí)驗(yàn)二 ： VB編程基礎(chǔ)（一） 1. 請(qǐng)大家做好實(shí)驗(yàn)的預(yù)習(xí)和準(zhǔn)備工作 2. 實(shí)驗(yàn)結(jié)束后在一周內(nèi)提交實(shí)驗(yàn)報(bào)告 ? 常州工學(xué)院計(jì)算機(jī)系 98 下次課安排： 實(shí)驗(yàn)三 ： VB編程基礎(chǔ)（二） 1. 請(qǐng)大家做好實(shí)驗(yàn)的預(yù)習(xí)和準(zhǔn)備工作 2. 實(shí)驗(yàn)結(jié)束后在一周內(nèi)提交實(shí)驗(yàn)報(bào)告 ? 。 當(dāng)提示文本超過一行時(shí) ， 可用 chr（ 13） ＋ chr（ 10） 來分隔 。 ?如： ?myexit=MsgBox(“您確實(shí)想退出嗎？ ” ,VbExclamation+VbYesNo,“退出 ” ) ? 常州工學(xué)院計(jì)算機(jī)系 92 函數(shù)返回值對(duì)照表 單擊按鈕名 返回值 對(duì)應(yīng)的 VB內(nèi)置常量 確定（ Ok） 1 VbOK 取消（ Cancel） 2 VbCancel 終止（ Abort） 3 VbAbort 重試（ Retry） 4 VbRetry 忽略（ Ignore） 5 VbIgnore 是（ Yes） 6 VbYes 否（ No） 7 VbNo ? 常州工學(xué)院計(jì)算機(jī)系 93 對(duì)話框類型的參數(shù)取值 分組 取值 內(nèi)置常量名 意義 第 一 組 0 VbOKOnly 顯示“確定”按鈕 1 VbOKCancel 顯示“確定”、“取消”按鈕 2 VbAbortRetryIgnore 顯示“終止”、“重試”、“忽略”按鈕 3 VbYesNoCancel 顯示“是”、“否”、“取消” 4 VbYesNo 顯示“是”、“否” 5 VbRetryCancel 顯示“重試”、“取消” ? 常州工學(xué)院計(jì)算機(jī)系 94 對(duì)話框類型的參數(shù)取值 分組 取值 內(nèi)置常量名 意義 第 二 組 16 VbCritical 顯示 Critical圖標(biāo) 32 VbQuestion 顯示 Query圖標(biāo) 48 VbExlamation 顯示 Warning圖標(biāo) 64 VbInformation 顯示 Information圖標(biāo) ? 常州工學(xué)院計(jì)算機(jī)系 95 對(duì)話框類型的參數(shù)取值 分組 取值 內(nèi)置常量名 意義 第 三 組 0 VbDefaultButton1 第一個(gè)按鈕是缺省按鈕 256 VbDefaultButton2 第二個(gè)按鈕是缺省按鈕 512 VbDefaultButton3 第三個(gè)按鈕是缺省按鈕 ? 常州工學(xué)院計(jì)算機(jī)系 96 InputBox對(duì)話框 ? 在對(duì)話框中顯示提示信息 ， 等待用戶輸入文本或選擇按鈕 ， 并返回文本框的內(nèi)容 。形式如下： datediff（要間隔日期形式，日期 1，日期 2） ? 常州工學(xué)院計(jì)算機(jī)系 89 ?IIF函數(shù)的形式： IIF(表達(dá)式，當(dāng)條件為真時(shí)的值，當(dāng)條件為假時(shí)的值） A＝ IIF（ XY,X,Y) ?With語句 With 對(duì)象 語句塊 End With With MyLabel .Height=100 .width=200 End With =100 =200 ? 常州工學(xué)院計(jì)算機(jī)系 90 MsgBox的使用 ? 在對(duì)話框中顯示一條消息 ， 等待用戶單擊按鈕 ， 并返回用戶所單擊的按鈕類型 ?語法： 變量％ = MsgBox(消息內(nèi)容 [,對(duì)話框類型 ] [,標(biāo)題 ]) ? 當(dāng)對(duì)話框只顯示單個(gè)按鈕時(shí)，通常采用如下語法格式： MsgBox 消息內(nèi)容 [, 對(duì)話框類型 ] [, 標(biāo)題 ] ? 常州工學(xué)院計(jì)算機(jī)系 91 ?整型變量 :返回用戶所單擊的按鈕類型 ?消息內(nèi)容：在對(duì)話框中出現(xiàn)的消息文本。 Weekdayname函數(shù)：返回星期數(shù)的名稱 Dateadd函數(shù) ：返回一個(gè)加上一段時(shí)間間隔的日期。 Second函數(shù)：從時(shí)間中提取秒數(shù)。 Hour函數(shù)：從時(shí)間中提取小時(shí)數(shù)。 ? 常州工學(xué)院計(jì)算機(jī)系 88 Weekday函數(shù)：從日期中提取星期數(shù)。 Year函數(shù)：從日期中提取年份。 TimeSerial函數(shù)：用來返回任意時(shí)間。其形式如下： Format$（表達(dá)式 [，格式字符串 ]） （ 1）數(shù)值格式化 （ 2）日期和時(shí)間格式化 （ 3）字符串格式化 例： a＝ b=12 Format(a,””）＝ ， Format(b,””)= Format(a,”.”）＝ ， Format(b,”.”)=12 ? 常州工學(xué)院計(jì)算機(jī)系 86 日期與時(shí)間函數(shù) 函數(shù)名 功能 舉例 Date 返回系統(tǒng)日期 Date Time 返回系統(tǒng)時(shí)間 Time Now 返回系統(tǒng)日期時(shí)間的序列數(shù) Now Year(x) 返回系統(tǒng)日期時(shí)間的序列數(shù) x的年號(hào) Year(now) 4位 Month(x) 返回系統(tǒng)日期時(shí)間的序列數(shù) x的月份 Month(now) 1,2,… ,12 Day(x) 返回系統(tǒng)日期時(shí)間的序列數(shù) x的日期 Day(now) 1,2,… ,31 Weekday(x) 返回系統(tǒng)日期時(shí)間的序列數(shù) x的星期號(hào) Weekday(now) sun:1 ? 常州工學(xué)院計(jì)算機(jī)系 87 Date函數(shù)：用來返回當(dāng)前日期。 Strconv（ c，參數(shù)）：按指定的形式轉(zhuǎn)換字符串。 String（ n， c）：以單一字符填充字符串。 Mid（ c， n1， n2）：從中間截取字符串，其中第二、第三個(gè)參數(shù)分別表示從第幾個(gè)字符開始，共截取幾個(gè)字符。 Left（ c， n）：從左邊截取字符串。 LenB（ c）：返回字符串所占的字節(jié)數(shù) StrReverse（ c）：將字符串反向。x=0,返回 0。 ?例： SQR（ X）， VAL（ X）， CHR（ X）。 ?定義 Sub過程 – Sub過程不能嵌套定義 ?建立 Sub過程 ? 常州工學(xué)院計(jì)算機(jī)系 67 [ Private | Public ] Sub 過程名 ([參數(shù)列表 ]) [局部變量和常數(shù)聲明 ] 語句塊 [ Exit Sub ] 語句塊 End Sub – 前綴 Private、 Public、 Static – 形式參數(shù)格式： （“傳值”和“傳址”方式） [ ByVal 變量名 [ () ] AS 數(shù)據(jù)類型 ] ? 常州工學(xué)院計(jì)算機(jī)系 68 3. Function過程 ?語法： [ Private | Public ] Function 函數(shù)名 ([參數(shù)列表 ]) [ As 數(shù)據(jù)類型 ] [局部變量和常數(shù)聲明 ] [語句塊 ] [函數(shù)名 = 表達(dá)式 ] [ Exit Function ] [語句塊 ] [函數(shù)名 = 表達(dá)式 ] End Function ? 常州工學(xué)院計(jì)算機(jī)系 69 ?事件過程由系統(tǒng)自行調(diào)用 ?Sub過程調(diào)用 – Call語句 Call 過程名 （實(shí)在參數(shù)表） – 直接用過程名 過程名 [ 實(shí)參 1 [，實(shí)參 2 . . . ] ] – 參數(shù)的傳遞方式有“傳值”和“傳址” ? 常州工學(xué)院計(jì)算機(jī)系 70 ?Function過程調(diào)用 Function 過程名 ( [ 實(shí)在參數(shù)表 ] ) 注意： 1. 函數(shù)返回的值往往需要使用，則參數(shù)必須加上括號(hào) 2. 但也可以按 Sub來使用，只是此時(shí)將放棄返回值 ? 常州工學(xué)院計(jì)算機(jī)系 71 5. 調(diào)用其他模塊中的公共過程 ?窗體中的公用過程 Call 窗體模塊名 .過程名 ?標(biāo)準(zhǔn)模塊中的公用過程 – 無同名過程 Call 過程名 – 有同名過程 Call 標(biāo)準(zhǔn)模塊名 .過程名 ? 常州工學(xué)院計(jì)算機(jī)系 72 6. 參數(shù)的傳遞 ?形參 – 定義過程（ Sub）或函數(shù)（ Function）時(shí)，出現(xiàn)在形參表中的變量名、數(shù)組名稱之為形式參數(shù) – 形參給出傳遞到過程（函數(shù)）中的值在過程（函數(shù)）中的表現(xiàn)形式 – 形參的類型 (1). 除定長(zhǎng)字符串變量之外的合法變量名； (2). 后面跟有左右圓括號(hào)的數(shù)組名 ? 常州工學(xué)院計(jì)算機(jī)系 73 ?實(shí)參 – 在調(diào)用 Sub或 Function過程時(shí)，傳送給相應(yīng)過程的變量名、數(shù)組名、常數(shù)或表達(dá)式 – “ 形實(shí)結(jié)合 ” 要求在傳遞參數(shù)時(shí)， “ 形實(shí)對(duì)應(yīng) ” ， 要求形參和實(shí)參數(shù)據(jù)類型相互兼容 ?傳遞參數(shù)的兩種方式： 按值傳遞 和 按地址傳遞 （ “ 引用 ” ） – [ByVal|ByRef] 參數(shù)名 [()][As數(shù)據(jù)類型 ] ? 常州工學(xué)院計(jì)算機(jī)系 74 ?按值傳遞參數(shù) – 形參前加關(guān)鍵字 “ ByVal” – 過程調(diào)用時(shí)， VB給按值傳遞參數(shù)分配一個(gè)臨時(shí)存儲(chǔ)單元 – 按值傳遞參數(shù)，傳遞的只是實(shí)參變量的副本 – 過程中改變形參值，只影響副本 ?按地址傳遞參數(shù) – 形參前加關(guān)鍵字 “ ByRef”，或省略關(guān)鍵字 – 形參和實(shí)參共用內(nèi)存的同一 “ 地址 ” – 過程中改變形參值