VB編程：編寫程序，統計壹段英文中26個字母出現的頻率,並按其頻率從高到低排序輸出

Dim?s1?As?String,?s2?As?String,?t?As?Integer

Dim?sN(0?To?25)?As?Integer,?ss(0?To?25)?As?Integer

Open?"(這裏寫盤符+文件名.txt)"?For?Input?As?#1

Do?While?Not?EOF(1)

Input?#1,?s1

s2?=?s2?+?s1

Loop

Close?#1

Call?countN(s2,?sN)

For?i?=?0?To?25

ss(i)?=?i

Next?i

For?i?=?0?To?25?-?1

For?j?=?i?+?1?To?25

If?sN(i)?<?sN(j)?Then

t?=?sN(i)

sN(i)?=?sN(j)

sN(j)?=?t

t?=?ss(i)

ss(i)?=?ss(j)

ss(j)?=?t

End?If

Next

Next

Text1.Text?=?""

For?i?=?0?To?25

Text1.Text?=?Text1.Text?&?"?"?&?Chr(ss(i)?+?65)?'?&?"="?&?sN(i)

Next?i

End?Sub

Function?countN(str,?Arr)

Dim?i,?j

Dim?bound

bound?=?UBound(Arr)

For?i?=?1?To?Len(str)

For?j?=?0?To?bound

If?Asc(Mid(str,?i,?1))?=?j?+?65?Or?Asc(Mid(str,?i,?1))?=?j?+?97?Then?Arr(j)?=?Arr(j)?+?1

Next?j

Next?i

End?Function

妳自己填上存放.TXT文件路徑 和名稱 就行了 試試看是不是符合妳的要求