Question

VB程序设计：统计文本文件中各字母出现的次数（不区分大小写），显示出现过的字母和出现的次数。 要求：(1

Answer 1

Private Sub Form_Load()
Dim file_name As String, zs As Long, zd() As Long, zs1() As Long, strline As String, tp As String
CommonDialog1.Filter = "文本文件(.txt)|*.txt|*.*|*.*"
CommonDialog1.ShowOpen
file_name = CommonDialog1.FileName
lngHandle = FreeFile()
zs = 0 ''回车数
ReDim zd(0) As Long
ReDim zs1(0) As Long
zd(0) = "-1"
Open file_name For Input As lngHandle
Do While Not EOF(lngHandle)
zs = zs + 1
Line Input #lngHandle, strline
For i = 1 To Len(strline)
tp = Asc(LCase(Right(Left(strline, i), 1)))
gjz = -1
For k = 0 To UBound(zd) - 1
If zd(k) = tp Then gjz = k
Next

If gjz <> -1 Then
zs1(gjz) = zs1(gjz) + 1
Else
ReDim Preserve zd(UBound(zd) + 1) As Long
ReDim Preserve zs1(UBound(zs1) + 1) As Long
zd(UBound(zd) - 1) = tp
zs1(UBound(zs1) - 1) = 1
End If
Next
Loop
List1.Clear
List1.AddItem "回车 " & ": " & zs & "个"
For k = 0 To UBound(zd) - 1
List1.AddItem Chr(zd(k)) & ": " & zs1(k) & "个"
Next
Close lngHandle
End Sub

修改了一下，不然对中文支持不了！

Answer 2

for each x in t 't为文本文件读出的内容
select case ucase(x)
case "A"
nA=nA+1
case "B"
nB=nB+1
....
end select
next