18.数组练习(2)
下面程序段是统计字符串中各个字符个数的例子,上机试试看吧
Private Sub Command1_Click()
Dim A(1 To 26) As Integer
Dim T As String
Dim C As String * 1
Dim L As Integer
Dim i As Integer
Dim j As Integer
T = InputBox("输入一个英文的字符串:")
L = Len(T)
For i = 1 To L
C = UCase(Mid(T, i, 1))
If C >= "A" And C <= "Z" Then
j = Asc(C) - 65 1
A(j) = A(j) 1
End If
Next
For i = 1 To 26
If A(i) > 0 Then Print " ". Chr(i 64). "=". A(i)
Next
End Sub