计数问题大侠请指点！！有分我就尽量全给你

SKYBULE 2005-11-01 09:17:29

输入一串字符，统计各字母出现的次数，不区分大小写（程序要简单些啊！我刚学不大会）

...全文

138 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

SKYBULE 2005-11-23

打赏
举报

嘻嘻
结的太晚，一位管理员结呢
加10分表示歉意！！

vbman2003 2005-11-23

打赏
举报

不好意思
怎么结贴啊
结！
====================
点右下角“管理”
呵呵

SKYBULE 2005-11-23

打赏
举报

不好意思
怎么结贴啊
结！

northwolves 2005-11-03

打赏
举报

用replace（）函数，replace（“某个字符串”,len("某个字符串“），”“），得到的返回值不统计空格在内
--------------
当然统计在内了,这样更直观一点:

Sub getn(ByVal x As String)
Dim msg As String, temp As String
msg = ""
x = LCase(x)
temp = Len(x)
Do While Len(x) > 0
temp = Replace(x, Left(x, 1), "")
msg = msg & """" & Left(x, 1) & """:" & Len(x) - Len(temp) & vbCrLf
x = temp
Loop
MsgBox msg
End Sub

Private Sub Command1_Click()
getn "asash skjksdj"
End Sub

返回:
"a":2
"s":4
"h":1
" ":2
"k":2
"j":2
"d":1

SKYBULE 2005-11-03

打赏
举报

谢谢
我知道了，replace（"asd",left("asd",1),""),这里的“”不是空格，相当于删除“a”，我原以为是用空格替换。

SKYBULE 2005-11-02

打赏
举报

northwolves(狼行天下) ( ×××)
谢谢
你的回答我看明白了，但是仅是在你给的这个过程里
我现在只学到数组以前的知识，查了好些时间才看懂了
用len（“某个字符串”），如果有空格也属于字符串中
用replace（）函数，replace（“某个字符串”,len("某个字符串“），”“），得到的返回值不统计空格在内
刚开始我看到len（x）－len（temp），还以为是0！！

你或者大家能继续说说吗？
谢谢

vansoft 2005-11-02

打赏
举报

又是作業貼。

SKYBULE 2005-11-02

打赏
举报

先谢谢大家了
我的不是作业帖！

northwolves 2005-11-01

打赏
举报

Sub getn(ByVal x As String)
Dim msg As String, temp As String
msg = ""
x = LCase(x)
temp = Len(x)
Do While Len(x) > 0
temp = Replace(x, Left(x, 1), "")
msg = msg & Left(x, 1) & ":" & Len(x) - Len(temp) & vbCrLf
x = temp
Loop
MsgBox msg
End Sub

SKYBULE 2005-11-01

打赏
举报

Dim i As Integer, j As Integer, k As Integer
Dim a(1 To 10) As String
Text1.Text = InputBox("")
k = Len(Text1.Text)
For i = 1 To k
a(i) = Text1.Text
j = i + 1
If a(i) = a(j) Then
n = n + 1
End If
Next i
。。。。。。。
.............
________________________
我就只能写到这了！！

今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分？ 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，常用软件、游戏、精美图库下载,希望对网友有帮助!顺便散分! 6：VBA请教怎

violing资深会员我的数据库每天数据量目前高达7000万条插入!可能还要提高! 这么极端的情况我还得进行各种各样的统计,其中不乏难度比较大的统计工作,没想到经过我的潜心研究竟然工作得爽爽的!搞得我特有成就感!这个表t的列很多,其中比较重要的

延时与中断出错，是单片机新手在单片机开发应用过程中，经常会遇到的问题，本文汇总整理了包含了MCS－51系列单片机、MSP430单片机、C51单片机、8051F的单片机、avr单片机、STC89C52、PIC单片机…..在内的各种单片机常见的延时与中断问题及解决方法，希望对单片机新手们，有所帮助！一、单片机延时问题20问 1、单片机延时程序的延时时间怎么算的？答:如果用循环语句实现

注意:!!!!!!!!!!!!文章可能还在连载.请关注:http://topic.csdn.net/u/20080318/10/e4543fc2-d726-465c-bc95-fea14b92db1d.htmlhttp://topic.csdn.net/u/20080318/10/e4543fc2-d726-465c-bc95-fea14b92db1d.html 《是非人生——一个菜鸟程序员

阮一峰的网络日志 » 首页 » 档案上一篇：理解OAuth 2.0 下一篇：我的博客文集上架了！分类：开发者手册 RESTful API 设计指南作者：阮一峰日期： 2014年5月22日网络应用程序，分为前端和后端两个部分。当前的发展趋势，就是前端设备层出不穷（手机、平板、桌面电脑、其他专用设备......）。因此，必须有一种统一的机制，方便不同...