VB题 只要学过就会

来源：百度知道 编辑：UC知道 时间：2024/05/12 02:06:54
统计26个字母（不分大小） 在文本中出现次数
提示 考虑定义26各计数器（数组A(0 to 25)）

要快阿 急用
分数很高哦

新建一个默认工程，
在主界面添加两个文本框，两个按钮。
文本框名称分别叫做txtChar,txtOut，MultiLine属性设为True;
按钮名称分别为cmdExec，cmdExit

全部代码如下：

Option Explicit

Private Sub cmdExec_Click()
Dim alpha(1 To 26) As Integer
Dim Chars As String, strRes As String, char As String * 1
Dim i As Integer, k As Integer, length As Integer
Chars = LCase$(txtChar.Text)
length = Len(Chars)
For i = 1 To length
char = Mid$(Chars, i, 1)
If Asc(char) >= Asc("a") And Asc(char) <= Asc("z") Then
k = Asc(char) - Asc("a") + 1
alpha(k) = alpha(k) + 1
End If
Next
strRes = ""
For i = 1 To 26
If alpha(i) > 0 Then
strRes = strRes + Chr(i + Asc("a") - 1) + ":" + CStr(alpha(i)) + vbCrLf
End If
Next
txtOut.Text = "统计结果：" +