题目内容
Private Sub Comand1_Click ()
Dim count (25 ) As Integer, ch As String
ch=U c ase (InputBox (" 请输入字母字符串 " ) )
For k=1 To Len (ch )
n=Asc (Mid (ch,k,1 ) ) -Asc (" A " )
If n>=0 Then
Count (n ) =Count (n ) + 1
End If
Next k
m=count (0 )
For k=1 To 25
If m
m=count (k )
End If
Next k
Print m
End Sub
A ) 0
B ) 1
C ) 2
D ) 3
查看答案
搜索结果不匹配?点我反馈
更多问题