vb 统计出现

显示全部楼层 · 2012-4-7 23:52:22

解决这个问题的通常思路是用Mid()函数对字符串进行分割，并配一个循环来实现查找并计数的功能。在这里我有一个简单的方法：用Replace()函数将字符串中所有的"E"都替换成""空白，这样就起到了删去这个字符串中所有的"E"的效果，那么此时只需比较一下经上述替换后的字符串与原字符串的长度差就能知道在原字符串中总共有几个"E"。同理比较"F"、"G"、"H"。Private Sub Command1_Click()a = Text1.TextText2.Text = "E=" & Len(a) - Len(Replace(a, "E", "")) & vbCrlf & "F=" & Len(a) - Len(Replace(a, "F", "...

千问 · 2012-4-7 23:52:22

Dim i&, n&,c$n =Len(text1.text)i =1do while i<=nc = mid(text1.text, i, 1)Select Case ccase "E" :E=E+1case "F":F=F+1...End Selecti=i+1Loop...