VB统计。急求助

来源：百度知道 编辑：UC知道 时间：2024/05/21 16:16:19
单击“统计”按钮，则自动统计Text1中所含各字母（不区分大小写）出现的次数，并将出现次数最多的字母显示在Text2文本框内，它所出现的次数显示在Text3文本框内。

Dim a As Integer, myStr As String, myLetter(65 To 90) As Integer, myTemp As Integer, myMax As Integer
If Text1.Text <> "" Then
myStr = UCase(Text1.Text)
For a = 1 To Len(myStr)
myTemp = Asc(Mid(myStr, a, 1))
If myTemp >= 65 And myTemp <= 90 Then myLetter(myTemp) = myLetter(myTemp) + 1
Next
myTemp = 0
For a = 65 To 90
If myLetter(a) > myTemp Then myTemp = myLetter(a): myMax = a
Next
Text2.Text = Chr(myMax)
Text3.Text = myTemp
End If

建议使用动态数组加instr函数
用循环处理