vb程序；输入一串字符，统计各字母出现的次数，不区分大小写，并将字母出现个数显示在图片

Question

谢谢大家 请大家尽快给我解决吧 我明天还要叫作业 谢谢了

Answer 1

Private Sub Form_Click()
Dim a(65 To 90)
s = UCase(Text1.Text)
For i = 1 To Len(s)
n = Asc(Mid(s, i, 1))
If n >= 65 And n <= 90 Then
a(n) = a(n) + 1
End If
Next i
For i = 65 To 90
Picture1.Print "字符"; Chr(i) & "的个数" & a(i)
Next i
End Sub本回答被提问者和网友采纳