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

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

第1个回答  推荐于2016-11-05
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本回答被提问者和网友采纳
相似回答