初级VB编程题!

fantasyfan 2004-05-08 12:17:16
如何统计输入的字符串中各字符出现的次数?
...全文
107 23 点赞 打赏 收藏 举报
写回复
23 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
starsoulxp 2004-05-10
flyingscv(zlj)的方法真好,我又学了一招
  • 打赏
  • 举报
回复
johnyjin 2004-05-10
flyingscv(zlj)的算法就是妙,看了之后还想看:)
  • 打赏
  • 举报
回复
jeff__lueny 2004-05-10
flyingscv(zlj) 太妙了,我的思路又开阔了很多~~
  • 打赏
  • 举报
回复
88391788 2004-05-10
最好是可以 用 VB直接打开的,不然就失去意义了,你说呢, koof78() ( )
http://expert.csdn.net/Expert/topic/3049/3049570.xml?temp=.4477045
  • 打赏
  • 举报
回复
马甲:

http://www.cctv.com/special/956/2/86993.html
  • 打赏
  • 举报
回复
88391788 2004-05-10
mark...
  • 打赏
  • 举报
回复
pigpag 2004-05-10
晕,原来northwolves(野性的呼唤)早把我的方法说掉了 :)

大小写不是问题,都用LCase或者UCase处理一下就可以了,就像我代码中那样
  • 打赏
  • 举报
回复
fantasyfan 2004-05-10
flyingscv(zlj)的算法没什么问题,而且巧妙。

northwolves(野性的呼唤)的在有大小写字母时会出问题。
  • 打赏
  • 举报
回复
pigpag 2004-05-09
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 2004-05-09
怎么给分,由我来操作吗?
  • 打赏
  • 举报
回复
fantasyfan 2004-05-09
感谢!
  • 打赏
  • 举报
回复
flyingscv 2004-05-08
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 2004-05-08
flyingZFX(我飞!我飞!我飞呀飞!) :多少为宜?
  • 打赏
  • 举报
回复
flyingZFX 2004-05-08
分太少了?不告诉!
  • 打赏
  • 举报
回复
BlueBeer 2004-05-08
回复人: flyingZFX(我飞!我飞!我飞呀飞!)

逗~ ^o^o^o^o^o^o^o^o^o^o^o^
  • 打赏
  • 举报
回复
orsharp 2004-05-08
看了 估计穿上 就不认识了
  • 打赏
  • 举报
回复
viena 2004-05-08
有没有看过赵本山、宋丹丹的一个小品?
  • 打赏
  • 举报
回复
viena 2004-05-08
马甲就是坎肩儿、背心儿,没有袖子的
  • 打赏
  • 举报
回复
northwolves 2004-05-08
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
  • 打赏
  • 举报
回复
lwjlwj 2004-05-08
对亚,马甲是什么意思
  • 打赏
  • 举报
回复
加载更多回复
相关推荐
发帖
VB基础类
加入

7546

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-05-08 12:17
社区公告
暂无公告