Dim a(1 To 26) As Integer
    Dim max As Integer
    n = Len(s)
    For i = 1 To n
        k = Asc(Mid$(s, i, 1))
        If (k >= 65 And k <= 90) Then
            a(k - 64) = a(k - 64) + 1
        End If
        If (k >= 97 And k <= 122) Then
            a(k - 96) = a(k - 96) + 1
        End If
    Next
    max = 0
    For m = 1 To 26
        If max < a(m) Then
            max = a(m)
        End If
    Next m
    print max
  '请把字符出现次数最多的字符的代码下下面，谢谢大神

没看懂。
你现在是输出了最大值，要输出 是哪个字符吗？

那就改最后一段统计结果部分吧
    max = 1        '改成保存下标
    For m = 1 To 26
        If a(max) < a(m) Then
            max = m        '保存下标
        End If
    Next m
print a(max)           '得到最大值
print chr(max+64)      '得到最大值的那个字母

Private Sub Command1_Click()
 Dim a(65 To 90) As Integer
 Dim max1 As Integer
 Dim max2 As Integer
 n = Len(Text1.Text) '字符在text1中
 For i = 1 To n
   k = Asc(UCase(Mid$(Text1.Text, i, 1))) '全部转为大写
   If (k >= 65 And k <= 90) Then
     a(k) = a(k) + 1
     If max1 < a(k) Then max1 = a(k): max2 = k
   End If
 Next
 Print Chr(max2), max1
End Sub

[此贴子已经被作者于2018-7-28 16:48编辑过]

谢谢