初级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)的方法真好，我又学了一招

• 打赏
• 举报

回复 赞