在文本框Text1中输入一串字符,用标签Label1显示其中出现频率最高的字母及其出现次

只适用于西文字符
Private Sub Command1_Click()
Dim 频次(256) As Integer
For i = 1 To Len(Text1)
asc值 = Asc(Mid(Text1, i, 1))
频次(asc值) = 频次(asc值) + 1
Next i
最高频率 = 0
最高频字符 = ""
For i = 0 To 256
If 频次(i) > 最高频率 Then
最高频率 = 频次(i)
最高频字符 = Chr(i)
End If
Next i
Label1 = "出现次数最多的字符是：" & 最高频字符 & vbCrLf & "一共出现了" & 最高频率 & "次"
End Sub