这个VB编程怎么做的？

输入一串字符，统计各字母出现的次数（大小写字母不区分），并将字母出现的个数显示在图片框中，效果如图所示：

给你个思路：

Private Sub Command1_Click()
Dim a, b, c, d As Integer
Dim t As String
For i = 1 To Len(Text1.Text)
t = Mid(Text1.Text, i, 1)
If t = "a" Or t = "A" Then
a = a + 1
ElseIf t = "b" Or t = "B" Then
b = b + 1
ElseIf t = "c" Or t = "C" Then
c = c + 1
ElseIf t = "d" Or t = "D" Then
d = d + 1
End If
Next i
Text2.Text = "字母A出现的次数为" & Format(a, "00")
Text2.Text = Text2.Text + vbCrLf & "字母B出现的次数为" & Format(b, "00")
Text2.Text = Text2.Text + vbCrLf & "字母C出现的次数为" & Format(c, "00")
Text2.Text = Text2.Text + vbCrLf & "字母D出现的次数为" & Format(d, "00")

End Sub
自己再加点别的字母吧

安字符一个个读入字符串，判断每一个字符，进行计数。应该不是一个很难的问题。好好考虑一下，应该是很简单的