一、VB Instr函数
VB Instr函数用于返回一个字符串在另一个字符串中出现的位置。如果未找到该字符串，则返回0。
语法：
Instr([start, ]string1, string2[, compare])
参数说明：
- start（可选）：规定开始搜索字符串的位置。如果忽略 start，则默认从字符串的第一个字符开始搜索。
- string1：必需。被搜索的字符串。
- string2：必需。想要查找的字符串。
- compare（可选）：规定比较的类型。可以是以下值之一：
- 0 - vbBinaryCompare - 执行二进制比较（默认）
- 1 - vbTextCompare - 执行文本比较
例子：
Dim a, b, pos a = "I am a boy" b = "boy" pos = Instr(a, b) MsgBox pos '结果为 8
二、VB中Instr函数的语法
函数的语法：“InStr([start,] string1, string2[, compare])”
其中，“start”表示指定查找的起始位置，它可以是数字（通常为常数）或者表达式。若省略，则默认从字符串“string1”的第一个字符开始查找。在字符串“string1”中，从位置“start”的后面开始查找包含字符串“string2”的位置。如果在“string1”中找到了“string2”，则返回值为“string2”在“string1”中的位置（从1开始），否则返回0。
如果“compare”被省略，则函数执行二进制比较。如果“compare”为0，则也执行二进制比较（用于区分大小写）。如果“compare”为1，则执行基于文本的比较（不区分大小写）。
三、VB Instr 最大长度
VB Instr最大长度为2147483647（2 ^ 31 - 1），即“Long”类型的最大值。
例子：
Dim s1, s2, i s1 = String(2147483645, "a") s2 = "aaa" i = InStr(s1, s2) MsgBox i '结果为1
四、VB InStrB函数
VB InStrB函数是对VB Instr函数的二进制衍生版本，主要用于比较字节而非字符。它的参数与Instr函数完全相同，但它在比较上更为精确。因为它是一种二进制比较，不会受到本地字符集设置的影响。
例子：
Dim s1, s2, i s1 = ChrB(231) & ChrB(132) & ChrB(191) s2 = ChrB(132) i = InStrB(1, s1, s2) MsgBox i '结果为2
五、VB InStrRev函数
VB InStrRev函数用于在指定字符串中从右侧查找一个字符串，并返回一个整数，该整数表示被查找到字符串的起始位置。如果未找到该字符串，则返回0。其参数和VB Instr函数相同，只是从右边开始搜索。
例子：
Dim a, b, pos a = "I am a boy. I am a student." b = "am" pos = InStrRev(a, b) MsgBox pos '结果为 14 pos = InStrRev(a, b, 13) MsgBox pos '结果为 2
六、VB InStr函数用法
VB Instr函数常用于文本处理任务，如查找字符串中的一部分，或者判断字符串是否包含特定的子串。下面是一个例子：
例子：
Dim strSearch As String
Dim strFind As String
strSearch = "This is a sample string to test Instr function"
strFind = "sample"
If InStr(strSearch, strFind) <> 0 Then
MsgBox "The string contains the word 'sample'"
Else
MsgBox "The string does not contain the word 'sample'"
End If
七、VB Instr返回值
VB Instr函数的返回值为整数，表示被查找的子串在主串中的位置。如果查找不到，则返回0。
八、VB InStrRev函数
与VB Instr函数不同，VB InstrRev函数从字符串的右侧开始查找指定的字符串。
例子：
Dim str As String Dim iPos As Integer str = "This is a sample string" iPos = InStrRev(str, "is") MsgBox iPos '结果为 5
九、VB Instr所有位置
如果要查找字符串中出现某个字符或子串的所有位置，可以结合使用Mid函数和Instr函数。下面是一个例子：
例子：
Dim str As String Dim iPos As Integer str = "this is a sample string" iPos = 1 Do Until iPos = 0 iPos = InStr(iPos, str, "s") If iPos > 0 Then MsgBox iPos '循环输出字符串中“s”的所有起始位置 iPos = iPos + 1 Loop
从上面的例子可以看出，InStr函数可以用于各种不同的字符串处理任务。知道了如何使用该函数，您就可以轻松处理字符串以及在VB6环境中编写更强大的应用程序。
