Question

VB程序设计1：统计在一个文本框中各英文字母出现的次数

统计在一个文本框中各英文字母出现的次数（不区分大小写），并按英文字母的先后顺序输出各个字符与其对应的出现次数，要求将统计各字母出现的次数的运算编写为过程。程序界面自定
自定义统计过程charcount,各形参定义如下，其中，str1为被统计的文本，数组a存放各个字符出现的次数

Answer 1

用
for i=1 to len(text1) 遍历字符串

各字母出现的次数的运算过程

Sub cisu(ByVal st, Suzu() As Integer)
st = UCase(st) '转换成大写
i = Asc(st) - 65
If i >= 0 And i <= 25 Then Suzu(i) = Suzu(i) + 1
End Sub

Private Sub Command1_Click()
Dim Suzu(25) As Integer '定义个数组,保存次数,0是A,25是Z
Cls
For i = 1 To Len(Text1)
st = Mid(Text1, i, 1)
cisu st, Suzu
Next

For i = 0 To 25
Print Chr(i + 65); ":"; Suzu(i)
Next
End Sub

Answer 2

Private Sub Command1_Click()
Dim S as string,A(1 to 3) as integer
S=Ucase(text1.text)
For i=1 to Len(S)
c=(Mid(S,i,1)
If C>="A" And C<="C" Then
A(Asc(C)-64)=A(Asc(C)-64)+1
End If
Next
For i=1 to 3
Print Chr(64+i) & "出现:" & A(i) & "次,出现频率:" & A(i)*100/Len(S) & "%"
Next
End Sub
添加按钮.text控件