壹、題目:
需要寫壹段代碼,用Instr函數在壹個字符串中找到另壹個字符串,返回結果。
第二,代碼:
子示例_1_18()
Dim bssString,yczChar,wz
bssString ="ABpAApCDPBBP "
yczChar = "P "
MsgBox " BSS string = " " ABpAApCDPBBP " " " & amp;Chr(10)_
"當yczChar = " " P " ":" &;Chr(10)Chr(10)_
" instr (4,bssstring,yczchar,1)返回" &;_
儀器(4,bssString,yczChar,1)
wz = Instr(1,bssString,yczChar,0)
Wz = Instr(bssString,yczChar)'返回9。
' Wz = Instr(1,bssString," W ")'返回0。
末端接頭
第三,代碼細節
1,Sub example _1_18():宏程序的開始語句。宏名為Example _1_18。
2.Dim bssString,yczChar,wz:變量bssString,yczChar和ws被聲明為可變變量。
3.bssString ="ABpAApCDXPBBP ":將搜索到的字符串賦給變量bssString。
4.yczChar = "P ":把要搜索的字符P賦給變量yczChar。
MsgBox " BSS string = " " ABpAApCDPBBP " " " & amp;Chr(10)_
"當yczChar = " " P " ":" &;Chr(10)Chr(10)_
" instr (4,bssstring,yczchar,1)返回" &;_
Instr (4,bssstring,yczchar,1):用消息框顯示從第四個字符開始的字符p,通過文本比較找到,返回值為6(小寫p的位置)。小寫p和大寫p在文本比較中是壹樣的,即當函數的最後壹個參數是1時,搜索是不區分大小寫的。把要搜索的字符p的位置賦給變量yczChar。其中Chr(10)是壹個換行符。
6.wz = instr (1,bssstring,yczchar,0):從第壹個字符開始,通過二進制比較進行搜索,返回值為9(大寫p的位置)。小寫p和大寫p在二進制比較下是不壹樣的,也就是當函數的最後壹個參數為0時,搜索是區分大小寫的。將找到的字符p的位置賦給變量wz。
7.wz = Instr(bssString,yczChar):最後壹句話也可以這樣寫,因為默認的比較方式是二進制比較(最後壹個參數可以省略)。第壹個參數被省略,默認搜索從第壹個字符開始。返回值是9。
8.wz = instr (1,bssstring," w "):在搜索的字符串中查找字符w,由於沒有找到,返回值為0。
儀器功能
返回壹個Variant (Long)值,該值指定壹個字符串在另壹個字符串中首次出現的位置。
InStr([start,]string1,string2[,compare])
InStr函數的語法有以下參數:
開始可選參數。對於數值表達式,設置每次搜索的起點。如果省略,它將從第壹個字符的位置開始。如果指定了比較參數,則必須有壹個開始參數。
String1必需的參數。接受搜索的字符串表達式。
String2必需的參數。正在搜索的字符串表達式。
比較可選參數。指定字符串比較。如果省略compare,選項Compare的設置將決定比較的類型。
比較參數設置為:
常量值描述
VbUseCompareOption -1使用選項Compare語句設置來執行比較。
VbBinaryCompare 0執行二進制比較。
VbTextCompare 1根據原始文本執行比較。
VbDatabaseCompare 2僅適用於Microsoft Access,並根據數據庫中的信息執行比較。