189 8069 5689
使用一个单重的循环扫描这个字符串中的所有字符，对每一个字符的出现次数进行统计，最后输出每个字符的出现次数。
创新互联主营广灵网站建设的网络公司,主营网站建设方案,重庆APP软件开发,广灵h5成都小程序开发搭建,广灵网站营销推广欢迎广灵等地区企业咨询
Private Sub Command1_Click()
s = InputBox("请输入一个英文字符串：")
Dim a(128) As Integer
For i = 1 To Len(s)
t = Asc(Mid(s, i, 1))
a(t) = a(t) + 1
Next i
For i = 1 To 127
If a(i) 0 Then Print Chr(i); ":"; a(i)
Next i
End Sub
比如数组a。里面有5个值，其中有3个是重复的？
如果这样的话，很好办哦。
新建一个数组b，然后遍历要去除的数组a，
从a中把每一个都取出来，和新建的b里面的去比，如果有相同的，则不放入b，
否则就放入数组b，直到循环结束。
有许多字符串操作技巧可以帮助你优化代码，以获得更好的性能。StringBuilder允许你执行重复的字符串操作，取得比手工操作更佳的性能。在本文中，我说明在VB.NET中利用StringBuilder的情况。应用StringBuilder的优点StringBuilder是一个可修改字符的缓冲器。当你不直接进行字符串操作而应用StringBuilder时，与每次重复生成一个含有修正的新字符串相比，这样可以获得更佳的性能。你不能总是希望性能得到提高，因为StringBuilder有少量的过度操作，会将指定字符串的内容复制到StringBuilder中，然后将由StringBuilder得到的结果值复制回字符串对象中。在进行二个或更多字符串操作时，我建议使用StringBuilder。(如果只有一项改变，将值复制进StringBuilder再拷贝出来并不会改善性能。)StringBuilder方法Append:允许你在缓冲器末端增加一个字符串。注意，在应用StringBuilder对象时不能使用操作符。
Insert:允许你在StringBuilder对象中增加一个字符串。(就像String.Insert一样。)
Remove:允许你从StringBuilder对象中删除一个字符串。(就像String.Remove一样。)
Replace:允许你替代StringBuilder对象的一部分。(就像String.Replace一样。)
实例在列表A的样本代码中，我建立一个字符串变量strOriginal来保存原始文本的值。我还定义StringBuilder对象BuilderStr，我将利用它对存储在srtOriginal中的文本进行字符串操作。定义BuilderStr时，我将它设定到strOriginal的值中。之后，我操作BuilderStr，给它添加一些文本(“is”,
”very”,”
important”)，然后再利用Replace方法去掉”very”这个单词。(注意，在这个例子中，你使用Remove方法而非Replace方法。)最后，我用BuilderStr.ToString的值更新strOriginal，并在信息框中显示所得到的字符串。
用法 RndString(xx) xx为随机数字长度
比如12位长度的随机字符串 则为 RndString(12)
字符串包含数字和大小写字母，函数如下：
Function RndString(ByVal l As Integer) As String
Randomize()
Dim R, i As Integer
Dim S As Char
Dim returnStr As String
returnStr = ""
'a-z 的ASCII码是：97-122
'A-Z 的ASCII码是：65-90
'0-9 的ASCII码是：48-57
For i = 1 To l
R = Int(Rnd() * 62) '随机生成的字符有大小写字母和数字，共有26个
If R 10 Then '如果小于10，则是数字 数字的ASCII是48-57 对应 随机数字 0-9 所以要将随机数字加48
S = Chr(R + 48) 'Chr 是将把数字按Ascii码转换为对应的字符
ElseIf R 36 Then '如果小于36，则是大写字母 大写字母的ASCII是65-90 对应 随机数字10-35 所以要将随机数字加55
S = Chr(R + 55)
Else '如果大于36，则是小写字母 小写字母的ASCII是97-122 对应 随机数字36-62 所以要将随机数字加61
S = Chr(R + 61)
End If
returnStr = returnStr + S
Next
RndString = returnStr
End Function