打印文章

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

作者：佚名文章来源：不详点击数更新时间：2008/4/18 14:49:25 文章录入：杜斌责任编辑：杜斌

知识点：程序填空（五）
下面事件过程用来统计指定字符串中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

打印本文

关闭窗口