vb click 运行text2没有结果显示，求高手解答，说明理由，谢谢

Question

Dim m(1 To 26) As Integer
Dim i As Integer

Private Sub Command1_Click()
Dim j As Integer
st = Text1.Text
For i = 1 To Len(st)
c = Mid(st, i, 1)
If c >= a And c <= z Then
j = Asc(c) - 64
m(j) = m(j) + 1
End If
Next i
For i = 65 To 90
h = Chr(i)
If m(i - 64) <> 0 Then
Text2 = Text2 & h & "=" & m(i - 64)
End If
Next i
End Sub

Answer 1

不知道你的程序是什么意图？
错误很多，
第一个不等式就不正确
没有定义数据类型，c被赋值一个字符，而a是什么不知道，z是什么也不知道，你比较什么啊
a应该被加上引号，z也应该被加上引号，
If c >= “a” And c <=“z”Then
下面你仔细检查检查吧

Answer 2

If c >= a And c <= z Then
这个条件是不对的 如果是字符要引起来