下面程序的功能是统计文件中英文字母(不区分大小写)出现的个数。 Option Base 1 Private Sub Command1_Click() Dim alpha(26)As Integer,n As Integer Dim i As Integer,s As String Open ′′C:\kav2003\readme.txt′′ For Input As #11 Do While Not EOF(11) s = 【 】 s = UCase(s) If s >= ′′A′′ And s <= ′′Z′′ Then n = 【 】 alpha(n)= alpha(n)+ 1 End If Loop For i = 1 To 26 If alpha(i)<> 0 Then List1.AddItem Chr(i + 64)& ′′:′′ & CStr(alpha(i)) End If Next i Close End Sub