你可以使用一个Dictionary对象来存储每个字符出现的次数,然后遍历字符串中的每个字符并更新对应的计数器
你可以使用一个Dictionary对象来存储每个字符出现的次数,然后遍历字符串中的每个字符并更新对应的计数器。以下是一个示例代码:
SubCountCharacters()
DimstrAsString
DimcharCountAsNewDictionary
'输入字符串
str="Hello,World!"
'遍历字符串中的每个字符
Fori=1ToLen(str)
DimcharAsString
char=Mid(str,i,1)
'如果字符已在字典中存在,则将计数器加1
IfcharCount.Exists(char)Then
charCount(char)=charCount(char)+1
Else
'否则初始化计数器为1
charCount.Addchar,1
EndIf
Nexti
'输出每个字符出现的次数
ForEachkeyIncharCount.Keys
Debug.Printkey&":"&charCount(key)
Nextkey
EndSub
这段代码会输出每个字符和它们在字符串中出现的次数。你可以根据自己的需求对结果进行进一步处理。
版权声明
本文仅代表作者观点,不代表博信信息网立场。