有一英文文章 vb编程统计出26个字母中 出现频率最高的前5个字母 不区分大小写

问题补充：

有一英文文章,vb编程统计出26个字母中,出现频率最高的前5个字母,不区分大小写

答案：

Private Sub Command1_Click()

Dim t As String,c As String,s(25) As Long,n(25) As Long,i As Long,j As Long,k As Long

Open e:\tmp\123.txt For Binary As #1

t = Input(LOF(1),#1)

Close #1

For i = 0 To 25

n(i) = i

NextFor i = 1 To Len(t)

c = LCase(Mid(t,i,1))

If c >= a And c <= z Then s(Asc(c) - Asc(a)) = s(Asc(c) - Asc(a)) + 1

NextFor i = 0 To 24

For j = i + 1 To 25

If s(i) < s(j) Then

k = s(i)

s(i) = s(j)

s(j) = k

k = n(i)

n(i) = n(j)

n(j) = k

End IfNextNextFor i = 0 To 4

Print No.; i + 1,Chr(n(i) + Asc(a)); (; s(i); )

NextEnd Sub

以上代码假定英文文章是在e:\tmp\123.txt文件中