Question

vb如何计算字符a出现的次数

vb如何计算字符a出现的次数

Answer 1

str=text1.text '假定测试的字符来自文本框
n=len(str) '计算字符串的总长度
numa=0 '用numa变量存储字母a的个数
for i= 1 to n ’从第一个位置开始到最后一个字符挨个判断
c=mid(str,i,1) '每次从字符串中去一个字符
if c="a" then numa=numa+1 '如果取出来的的当前字符是a，就记一个数
next i
print numa '输出最后的统计结果

Answer 2

str = "a string with multiple a's"
position = 0
n = Len(str)
count = 0
Do
position = InStr(position + 1, str, "a")
n = n - 1
count = count + 1
Loop Until position = 0 Or n = 0

MsgBox count

Answer 3

Dim l As String = "xxddaaadfbadg"
Dim count As Integer
Dim m(10) As Object
Dim y(10) As Single
Do Until InStr(l, "a") = 0
l = Mid(l, InStr(l, "a") + 1)
m(0) = m(0) + 1
count = CType(m(0), Integer)
RichTextBox1.Text = count
Loop

Answer 4

dim fiel()
dim str
str="aaabbbbccssssaaddfds"
fiel=split(str,"")
debug.print ubound(fiel)