【文章內(nèi)容簡介】 Default = 1039。設(shè)置缺省值。100：　　　　MyValue = InputBox(Msg,bt, Default)　　　　If MyValue 10 Or MyValue 25 Thenaa = MsgBox(輸入數(shù)值超出范圍，請重新輸入或者退出。, 1)If aa vbOK Then Exit SubGoTo 100　　　ElseMsgBox 你輸入的是 amp。 MyValue　End IfEnd Sub三、代碼詳解Sub示例_1_17()：宏程序的開始語句。宏名為示例_1_17。Dim Msg$, bt$, Default, MyValue,aa：變量Msg、Default和bt聲明為字符串?dāng)?shù)據(jù)類型，其它的沒有顯式聲明，都為可變型數(shù)據(jù)類型。Msg = 輸入一個10到25之間的數(shù)值：：設(shè)置提示信息，把字符串賦給變量Msg。bt = InputBox函數(shù)示例：設(shè)置標(biāo)題，把字符串賦給變量bt。Default = 10：設(shè)置缺省值，把字符串賦給變量Default。MyValue = InputBox(Msg,bt, Default)：通過InputBox函數(shù)顯示信息、標(biāo)題及缺省值，把函數(shù)返回值賦給變量MyValue。If MyValue 10 Or MyValue 25 Then：如果InputBox函數(shù)返回的數(shù)值小于10或者大于25，那么執(zhí)行下面的語句。aa = MsgBox(輸入數(shù)值超出范圍，請重新輸入或者退出。, 1)：如果InputBox函數(shù)返回的數(shù)值超出了范圍，顯示一個消息框，消息框里面的第2個參數(shù)是1，表示消息框上有兩個按鈕：“確定”和“取消”按鈕。并把消息框返回的結(jié)果賦給變量aa。If aa vbOK Then Exit Sub：如果用戶按了消息框上的“取消”按鈕，就退出本程序。GoTo 100：如果用戶按了消息框上的“確定”按鈕，就轉(zhuǎn)而從行號100開始執(zhí)行代碼。1MsgBox 你輸入的是 amp。 MyValue：如果用戶輸入了符合要求的數(shù)值，按了回車鍵或者“確定”按鈕，消息框顯示用戶輸入的值。InputBox函數(shù)在一對話框來中顯示提示，等待用戶輸入正文或按下按鈕，并返回包含文本框內(nèi)容的字符串。語法InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])InputBox函數(shù)的語法具有以下幾個命名參數(shù)：Prompt必需的。作為對話框消息出現(xiàn)的字符串表達(dá)式。Prompt的最大長度大約是1024個字符，由所用字符的寬度決定。如果Prompt包含多個行，則可在各行之間用回車符(Chr(13))、換行符(Chr(10))或回車換行符的組合(Chr(13) amp。 Chr(10))來分隔。Title可選的。顯示對話框標(biāo)題欄中的字符串表達(dá)式。如果省略Title，則把應(yīng)用程序名放入標(biāo)題欄中。Default可選的。顯示文本框中的字符串表達(dá)式，在沒有其它輸入時作為缺省值。如果省略Default，則文本框為空。其它參數(shù)省略，請參見Excel幫助文件。Instr函數(shù)一、題目：要求編寫一段代碼，運用Instr函數(shù)，在一字符串中查找另一字符串并返回結(jié)果。二、代碼：Sub示例_1_18()Dim bssString, yczChar, wzbssString =ABpAApCDPBBPyczChar = PMsgBox bssString = ABpAApCDPBBP amp。 Chr(10) amp。 _yczChar= P時： amp。 Chr(10) amp。 Chr(10) amp。 _InStr(4, bssString, yczChar, 1)返回值為 amp。 _InStr(4, bssString, yczChar, 1)wz = Instr(1, bssString, yczChar, 0)wz = Instr(bssString,yczChar)39。返回9。wz = Instr(1, bssString, W)39。返回0。End Sub三、代碼詳解Sub示例_1_18()：宏程序的開始語句。宏名為示例_1_18。Dim bssString, yczChar, wz：變量bssString、yczChar和ws聲明為可變型變量。bssString =ABpAApCDXPBBP：把被搜索的字符串賦給變量bssString。yczChar = P：把要查找的字符P賦給變量yczChar。MsgBox bssString = ABpAApCDPBBP amp。 Chr(10) amp。 _yczChar= P時： amp。 Chr(10) amp。 Chr(10) amp。 _InStr(4, bssString, yczChar, 1)返回值為 amp。 _InStr(4, bssString, yczChar, 1)：用消息框顯示從第四個字符開始，以文本比較的方式找字符P，返回值為6（小寫p的位置）。小寫p和大寫P在文本比較下是一樣的，也就是當(dāng)函數(shù)的最后一個參數(shù)為1時，查找不分大小寫。把要查找的字符P的位置賦給變量yczChar。式中Chr(10)是換行符。wz = Instr(1, bssString, yczChar, 0)：從第一個字符開始，以二進(jìn)制比較的方式查找，返回值為9（大寫P的位置）。小寫p和大寫P在二進(jìn)制比較下是不一樣的，也就是當(dāng)函數(shù)的最后一個參數(shù)為0時，查找分大小寫。把查找到的字符P的位置賦給變量wz。wz = Instr(bssString, yczChar)：上一句也可寫成這樣的，因為缺省的比對方式為二進(jìn)制比較（最后一個參數(shù)可省略）。第一個參數(shù)省略默認(rèn)從第一個字符開始查找。返回值為9。wz = Instr(1,bssString,”W”)：在被搜索的字符串中查找字符W，由于沒找到返回值為0。InStr函數(shù)返回Variant (Long)，指定一字符串在另一字符串中最先出現(xiàn)的位置。語法InStr([start, ]string1, string2[, pare])InStr函數(shù)的語法具有下面的參數(shù)：start可選參數(shù)。為數(shù)值表達(dá)式，設(shè)置每次搜索的起點。如果省略，將從第一個字符的位置開始。如果指定了pare參數(shù)，則一定要有start參數(shù)。string1必要參數(shù)。接受搜索的字符串表達(dá)式。string2必要參數(shù)。被搜索的字符串表達(dá)式。Compare可選參數(shù)。指定字符串比較。如果省略pare，Option Compare的設(shè)置將決定比較的類型。pare參數(shù)設(shè)置為：常數(shù)值描述vbUseCompareOption1使用Option Compare語句設(shè)置執(zhí)行一個比較。vbBinaryCompare0執(zhí)行一個二進(jìn)制比較。vbTextCompare1執(zhí)行一個按照原文的比較。vbDatabaseCompare2僅適用于Microsoft Access，執(zhí)行一個基于數(shù)據(jù)庫中信息的比較。InstrRev函數(shù)一、題目：要求編寫一段代碼，運用InstrRev函數(shù)，返回一個字符串在另一個字符串中出現(xiàn)的位置，從字符串的末尾算起。二、代碼：Sub示例_1_19()Dim bssString, yczChar, wzbssString =ABpAApCDPBBPyczChar = pws = InstrRev(bssString, yczChar, 4,1)MsgBox wsEnd Sub三、代碼詳解Sub示例_1_19()：宏程序的開始語句。宏名為示例_1_19。Dim bssString, yczChar, wz：變量bssString、yczChar和ws聲明為可變型變量。bssString =ABpAApCDXPBBP：把被搜索的字符串賦給變量bssString。yczChar = p：把要查找的字符P賦給變量yczChar。wz = InstrRev( bssString, yczChar,4,1)：從第4個字符開始，按原文比較的方式從末尾往前查找字符p，返回值為3。InStrRev函數(shù)返回一個字符串在另一個字符串中出現(xiàn)的位置，從字符串的末尾算起。語法InstrRev(stringcheck, stringmatch[, start[, pare]])InstrRev函數(shù)語法有如下命名參數(shù)：stringcheck必需的。要執(zhí)行搜索的字符串表達(dá)式。stringmatch必需的。要搜索的字符串表達(dá)式。start可選的。數(shù)值表達(dá)式，設(shè)置每次搜索的開始位置。如果忽略，則表示從字符串末尾位置開始搜索。pare可選的。數(shù)字值，指出在判斷子字符串時所使用的比較方法。如果忽略，則執(zhí)行二進(jìn)制比較。pare參數(shù)值如下：常數(shù)值描述vbUseCompareOption–1用Option Compare語句的設(shè)置值來執(zhí)行比較。vbBinaryCompare0執(zhí)行二進(jìn)制比較。區(qū)分大小寫。vbTextCompare1執(zhí)行文字比較。不區(qū)分大小寫。vbDatabaseCompare2只用于Microsoft Access?；谀臄?shù)據(jù)庫信息執(zhí)行比較。MsgBox ws：用消息框顯示查找返回的值3。IsArray函數(shù)一、題目：要求編寫一段代碼，運用IsArray函數(shù)，返回一個變量是否為一個數(shù)組。二、代碼：Sub示例_1_20()Dim Arr1(1 To 8,1 to 3) As Integer, Arr2Arr2 = Array(1, 2, 3,4,5)MsgBox“Arr1是否為數(shù)組：”amp。 IsArray(Arr1)39。返回True。MsgBox“Arr2是否為數(shù)組：”amp。 IsArray(Arr2)39。返回True。End Sub三、代碼詳解Sub示例_1_20()：宏程序的開始語句。宏名為示例_1_20。Dim Arr1(1 To 8,1 to 3) As Integer, Arr2：聲明變量Arr1為整型數(shù)組、Arr2為可變型變量。Arr2 = Array(1, 2, 3,4,5)：用Array函數(shù)賦值給Arr2。Array函數(shù)返回一個包含數(shù)組的Variant。語法Array(arglist)所需的arglist參數(shù)是一個用逗號隔開的值表，這些值用于給Variant所包含的數(shù)組的各元素賦值。如果不提供參數(shù)，則創(chuàng)建一個長度為0的數(shù)組。使用Array函數(shù)創(chuàng)建的數(shù)組的下界受Option Base語句指定的下界的決定，默認(rèn)為0。IsArray函數(shù)返回Boolean值，指出變量是否為一個數(shù)組。語法IsArray(varname)必要的varname參數(shù)是一個指定變量的標(biāo)識符。如果變量是數(shù)組，則IsArray返回True；否則返回False。對于包含數(shù)組的variant表達(dá)式來說，IsArray尤為有用。MsgBox“Arr1是否為數(shù)組：”amp。 IsArray(Arr1)：用消息框顯示Arr1是否為數(shù)組。IsNumeric函數(shù)一、題目：要求編寫一段代碼，運用IsNumeric函數(shù)，返回一個變量是否為一個數(shù)值。二、代碼：Sub示例_1_21()Dim bl,bl1bl = MsgBox 變量bl是否為數(shù)值： amp。IsNumeric(bl)bl1 = 4500 CmMsgBox 變量bl1是否為數(shù)值： amp。IsNumeric(bl1)End Sub