高校等考试题天天练二级VB]10月28日

文章作者 100test 发表时间 2007:03:10 18:03:47
来源 100Test.Com百考试题网

知识点：程序填空（五）
下面事件过程用来统计指定字符串中26个英文字母（不区分大小写）各自出现的次数。请填空完善它。
Private Sub Command1_Click()
Dim s As String
Dim m(25) As Integer
s = InputBox("请输入指定的字符串：")
For k = 1 To [ （7） ]
c = [ (8) ](Mid$(s, k, 1))
If c <= "Z" And c >= "A" Then
n = Asc(c) - Asc("A")
m(n) = [ (9) ]
End If
Next k
For k = 0 To 25
Print Chr(k Asc("A")). "---". m(k)
Next k
End Sub