初级VB编程题！

[fantasyfan]

如何统计输入的字符串中各字符出现的次数？

[lwjlwj]

对亚，马甲是什么意思

[northwolves]

Private Sub Command1_Click()
On Error Resume Next
Dim i As Long, temp As String, all As New Collection
For i = 1 To Len(Text1.Text)
temp = Mid(Text1.Text, i, 1)
all.Add temp & "出现了： " & UBound(Split(Text1.Text, temp)) & " 次！", temp
Next
For i = 1 To all.Count
Debug.Print all(i)
Next
End Sub

Private Sub Form_Load()
Text1.Text = "fantasyfan (fantasyfan)"
End Sub

[viena]

马甲就是坎肩儿、背心儿，没有袖子的

[viena]

有没有看过赵本山、宋丹丹的一个小品？

[orsharp]

看了 估计穿上 就不认识了

[BlueBeer]

回复人： flyingZFX(我飞！我飞！我飞呀飞！)

逗~ ^o^o^o^o^o^o^o^o^o^o^o^

[flyingZFX]

分太少了？不告诉！

[fantasyfan]

flyingZFX(我飞！我飞！我飞呀飞！) ：多少为宜？

[flyingscv]

Option Explicit

Private Sub Command1_Click()
Dim s As String
Dim l As Long
Dim c As String

s = "fghdfghdfghdfghdfghdfgh"
Do While LenB(s) > 0
l = Len(s)
c = Left(s, 1)
s = Replace(s, c, "")
Debug.Print c & ":" & l - Len(s) & "个"
Loop
End Sub

[fantasyfan]

感谢！

[fantasyfan]

怎么给分，由我来操作吗？

[pigpag]

flyingscv(zlj)的方法比较巧妙，此方法比较好 :)

再想一个比较不正常的方法：
Dim Str As String, i As Integer
Dim Temp() As String
Str = "abcdefghijkolmnkqposcihugbuyvgfuxwncsaoungyzouyfxtncdjixzidnmizaxdsjgcnxhkbcaf"
For i = 65 To 90
Temp = Split(UCase(Str), Chr(i))
MsgBox "字母 " & Chr(i) & " 共有 " & Format(UBound(Temp)) & " 个"
Next i

也可以 :)

[fantasyfan]

flyingscv(zlj)的算法没什么问题，而且巧妙。

northwolves(野性的呼唤)的在有大小写字母时会出问题。

[pigpag]

晕，原来northwolves(野性的呼唤)早把我的方法说掉了 :)

大小写不是问题，都用LCase或者UCase处理一下就可以了，就像我代码中那样

[88391788]

mark...

[高高兴兴的晶晶]

马甲:

http://www.cctv.com/special/956/2/86993.html

[88391788]

最好是可以 用 VB直接打开的，不然就失去意义了，你说呢， koof78() ( )
http://expert.csdn.net/Expert/topic/3049/3049570.xml?temp=.4477045

[jeff__lueny]

flyingscv(zlj) 太妙了,我的思路又开阔了很多~~

[johnyjin]

flyingscv(zlj)的算法就是妙，看了之后还想看：）

[starsoulxp]

flyingscv(zlj)的方法真好，我又学了一招