VB下统计字符串中所含某字符的个数

Question

通过文本框输入一串字符，单击“统计”按钮，统计字符串中所含e字符的个数，并将结果通过label标签显示统计字符串中所含e字符的个数

使用For循环语句实现程序的功能。

Answer 1

首先保证窗体上有一个标签label1，一个按钮command1,一个文本框text1

Private Sub Command1_Click()

Dim ii As Integer, Ccount As Integer    

For ii = 1 To Len(Text1)

If Mid(Text1, ii, 1) = "e" Then Ccount = Ccount + 1

Next ii    

Label1.Caption = "共有" & Count & "个e"

End Sub

扩展资料：

字符串函数（String processing function）也叫字符串处理函数，指的是编程语言中用来进行字符串处理的函数，如C，pascal，Visual以及LotusScript中进行字符串拷贝，计算长度，字符查找等的函数。

Visual Basic

定位函数

InStr,InStrRev,InStrB

截取函数

Mid,Right,Left

替换函数

Replace

分割函数

Split

格式化输出

Format

比较函数

StrComp,Like

长度计算

Len,LenB

编码转换

StrConv

大小写转换

LCase,UCase

重复产生

String,Space

参考资料来源：百度百科-字符串函数

Answer 2

<p>'  首先保证窗体上有一个标签label1，一个按钮command1,一个文本框text1</p>
<p>Private Sub Command1_Click()</p>
<p>    Dim ii As Integer, Ccount As Integer    </p>
<p>    For ii = 1 To Len(Text1)</p>
<p>        If Mid(Text1, ii, 1) = "e" Then Ccount = Ccount + 1</p>
<p>    Next ii    </p>
<p>    Label1.Caption = "共有" & Count & "个e"</p>
<p>End Sub</p>
<p></p>

Answer 3

n=(len(text1.text)-len(replace(text1.text,"e","")))/len("e")
如果E是变量，那么取消双引号！

如果要用FOR的形式
n=0
for i=1 to len(text1.text)-1
if mid(text1.text,i,len("e"))="e" then n=n+1
next i
label1.caption= n
同样如上！

或者
Dim a() As String
a = Split(Text1.Text, "e")
label1.caption= UBound(a)

Answer 4

'  首先保证窗体上有一个标签label1，一个按钮command1,一个文本框text1

Private Sub Command1_Click()

    Dim ii As Integer, Ccount As Integer    

    For ii = 1 To Len(Text1)

        If Mid(Text1, ii, 1) = "e" Then Ccount = Ccount + 1

    Next ii    

    Label1.Caption = "共有" & Count & "个e"

End Sub