VB里,已知s1和s2字符串,请统计s2字符串在s1里出现的次数。分别用Mid函数和Instr函数

如题所述

Dim num As Long
Dim p As Long
s1 = "abcaca"
s2 = "a"
Do While True
p = InStr(1, s1, s2)
If p = 0 Then
Exit Do
Else
num = num + 1
s1 = Mid(s1, p + 1)
End If
Loop
MsgBox "共出现" & num & "次"
温馨提示:内容为网友见解,仅供参考
无其他回答

...串在s1里出现的次数。分别用Mid函数和Instr函数
s2 = "a"Do While True p = InStr(1, s1, s2)If p = 0 Then Exit Do Else num = num + 1 s1 = Mid(s1, p + 1)End If Loop MsgBox "共出现" & num & "次"

vb 如何用MID函数处理如下问题
例如:Dim s as string s = "1234ABCD甲乙丙丁"那么 MID(S,6,4)将返回字符串"BCD甲"理解了它的格式与作用,你的问题应该自己可以回答了吧?要注意,参数S,n,k都可以使用表达式。补充说明一个定位函数:Instr()格式:Instr(n,s1,s2)功能:返回在字符串s1里,从它左起第n个字符开始寻找...

Vb中的mid函数和instr函数介绍!举例说明,谢谢!麻烦详细点,呵呵...
InStr([start, ]string1, string2[, compare])函数可以找到指定的字符串在另一字符串中最先出现的位置如 InStr(1,"abcdefg", "de") 刚函数返回 4 <\/SPAN>mid(s,start,len)它的作用是在s字符串中的start位置开始截取长度为len的字符串 如果len省略,则默认截取长度为start到s字符串的尾部 ...

VB问题instr和mid函数问题
所以 InStrB 返回的是字节位置,而不是字符位置。InStr 函数示例本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。Dim SearchString, SearchChar, MyPosSearchString ="XXpXXpXXPXXP" ' 被搜索的字符串。SearchChar = "P" ' 要查找字符串 "P"。' 从第四个字符开始,...

...截取函数(Mid)、长度函数(Len)与查找函数(Instr)
这个函数返回一个Variant(Long)值,指定一个字符串在另一个字符串中首次出现的位置。语法:InStr([start], string1,string2,[compare])参数:start 可选。 设置每次搜索的起始位置的数字表达式。 如果忽略,则搜索从第一个字符位置开始。 如果start包含Null,则出现错误。如果指定了compare,则start参数...

求VB字符串处理函数。
VB 字符串处理函数集 1. Mid(字符串,从第几个开始,长度) 在[字符串]中[从第几个开始]取出[长度个字符串]。例:Mid("小欣无敌",1,3) 则返回 "小欣无"。2. Instr(从第几个开始,字符串1,字符串2) 从规定的位置开始查找,返回字符串2在字符串1中的位置。例:Instr(1,"小欣无敌","...

vb中在一个字符串变量中查找子串的程序怎么编
VB 字符串处理函数集 mid(字符串,从第几个开始,长度) 在[字符串]中[从第几个开始]取出[长度个字符串]例如 mid("小欣无敌",1,3) 则返回 "小欣无"instr(从第几个开始,字符串1,字符串2) 从规定的位置开始查找,返回字符串2在字符串1中的位置 例如 instr(1,"小欣无敌","小") 则返回...

vb查询字符串并替换
查找字符串的函数是 instr,替换字符串的函数是replace,用法:instr(n , S1 , S2) 在字符串S1中,从左边第n个字符向后搜索S2第一次出现的位置,例如 i = instr ( 3, "abcbcbc", "b" ),此时 i = 4 replace(s,s1,s2) 在字符串s中搜索s1,如果搜索到就将s1替换成s2,例如 replace("...

VB中判断相邻两个字符组成的位置
s = "RS06P55201301GS2PRA12GSQ150GS3S130100001GSD13\/10\/09RSEQT"i = InStr(1, s, "3S")Print i s1= Mid(s, i + 2, 9)Print S1

VB中,如何判断某字符在某个字符串中出现的次数?
没有专用函数能解决,只有编一个小代码了。如果你要找的字符是A,要搜索的字串变量是b for i=1 to len(b)'逐个循环变量B中字符 if instr(i,b,"A")>0 then j=j+1'如果找到一个就将计数+1并从下一位开始继续查 next 取得的j变量就是你的要求。

相似回答