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

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

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

2025-05-18 15:31:11

推荐回答（1个）

回答（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