1、启动VB新建工程1，在form1的合适位置画出3个Label框、2个Text框以及1个Command按钮（可以预先对各控件的Caption等属性进行修改）。
2、双击“统计”（即Command1）按钮，在弹出的代码框中编写如下代码：
PrivateSubCommand1_Click()DimxAsStringa=Text1.Textb=Text2.Textn=0Fori=1ToLen(a)x=Mid(a,i,1)
If x = b Then n = n + 1 Next i Label3.Caption = "字符" & b & "在字符串”" & a & "“中" & vbCrLf & "共出现了" & n & "次。"End Sub
这样便达到了检索所有字符、统计某个字符出现次数的需求了。
3、同理，对text2进行设置，当光标停留在text2中，按下回车键时，光标将跳到Command上，方便操作：
PrivateSubtext2_keypress(keyasciiAsInteger)Ifkeyascii=13ThenCommand1.SetFocusEndSub
4、最后点击运行即可。
InStr 函数
返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。
InStr([start, ]string1, string2[, compare])
InStr 函数的语法具有下面的参数：
start 可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果指定了 compare 参数，则一定要有 start 参数。
string1 必要参数。接受搜索的字符串表达式。
string2 必要参数。被搜索的字符串表达式。
Compare可选参数。指定字符串比较。如果省略 compare，Option Compare 的设置将决定比较的类型。
例如如下
Sub tttt()
a = "abvsdf"
b = "z"
c = InStr(a, b)
If c > 0 Then
MsgBox "a包含b"
Else
MsgBox "a不包含b"
End If
End Sub
测试结果
dim b as string
dim i as integer
dim l as integer
a="1234 23 2345 a23a" '被搜索变量
b="23" '搜索参考变量
l=len(b) 'LEN()意思是取文字变量的长度
for i=1 to len(a)
if b=mid(a,i,l) then'MID（变量，起点位置，长度）意思是截取
print "found!"'找到
exit for
endif
next i
当然这个是基本，你可以通过数组循环找更多的。进行推广本回答被提问者和网友采纳
If Instr("1234","23") > 0 then Msgbox("包含")
vb中怎么判断一个字符串中包含另一个字符串
1、启动VB新建工程1，在form1的合适位置画出3个Label框、2个Text框以及1个Command按钮（可以预先对各控件的Caption等属性进行修改）。2、双击“统计”（即Command1）按钮，在弹出的代码框中编写如下代码：PrivateSubCommand1_Click()DimxAsStringa=Text1.Textb=Text2.Textn=0Fori=1ToLen(a)x=Mid(...
vb中怎么判断一个字符串中包含另一个字符串
(Long)，指定一字符串在另一字符串中最先出现的位置。InStr([start,]string1,string2[,compare])InStr 函数的语法具有下面的参数：start 可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果指定了 compare 参数，则一定要有 start 参数。string1 必要参数。接受搜...
vba怎么判断是否包含特定字符串
InStr(,string1,string2,)：可选，表示从 string1 的第 start 个字符开始查找，默认为 1。String1：必需，表示要查找的字符串。String2：必需，表示要在 string1 中查找的子字符串。：可选，表示指定搜索类型。默认为 0，表示执行二进制比较。如果找到了指定的字符串，则返回一个大于 0 的整数，...
VB.net, 如何判断一个字符串包含另一个字符串?
很简单，用字符串查找函数就可以实现了。\\x0d\\x0a当在StrB查找到StrA字符串时，返回肯定是非0的数，值就是True，找不到为0或者-1，值就是Flase\\x0d\\x0a\\x0d\\x0a比如：\\x0d\\x0aDim StrA As String = "Time is Limited"\\x0d\\x0aDim StrB As String = "Time"\\x0d\\x0aDim St...
VB 怎么判断一个字符串里面包含了某个字符?
InStr([start, ]string1, string2[, compare])返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。Dim SearchString, SearchChar, MyPos SearchString ="XXpXXpXXPXXP" ' 被搜索的字符串。SearchChar = "...
vb6中怎样判断字符串中是否包含某个字符
注：1表示从第一个字符串的第一个字符开始查找 InStr 函数可返回下面的值：如果 string1 为 ""（零长度） - InStr 返回 0 如果 string1 为 Null - InStr 返回 Null 如果 string2 为 "" - InStr 返回 start 如果 string2 为 Null - InStr 返回 Null 如果 string2 没有找到 - InStr 返回 ...
VB中怎么看一个字符串是否在另一个里面呢?
instr(源字符串,比较字符串)instr("我是中国人","中国") 就会返回中字的起始位置3 instr("我是中国人","美国") 找到不匹配 返回0 if instr("我是中国人","中国") <> 0 then msgbox "在我是中国人中找到了中国两个字"End if
vb6中怎样判断字符串中是否包含某个字符
在VB6编程中，要判断一个字符串是否包含特定字符，可以借助Instr函数。Instr函数的作用是返回第二个字符串在第一个字符串中的起始位置，若未找到则返回0。例如，Instr(1, "abcdef", "j")的结果为0，表明"j"没有在"abcdef"中找到。Instr函数有明确的规则：如果第一个字符串（string1）为空，Instr...
vb如何检测一个字符串中是否有某个字符?
使用Instr函数来检测 例如：dim s as string dim i as long s="hello$world!"i=Instr(s,"$") '检测字符串s中是否含有$,并返回$的位置,此处$是第6个字符，所以返回6,即i=6,如果不存在则返回0 If i>0 then msgbox "存在"else msgbox "不存在"End If ...
vb中怎么判断一个字符串中,是否有除了字母和数字以外的字符
用mid把字符串拆成单个字符 转为ASCII码，如果只有数字和字母的话，在ASCII码中只有一段数值，比如48-57是数字，65-90是小写字母，97-122是大写字母
