如何统计一段英文中的各字母出现次数,用vb,

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/08/27 03:41:29

Private Sub Command1_Click()
Dim arr(1 To 26) As Integer,i
For i = 1 To Len(Text1)
arr(Asc(UCase(Mid(Text1,i,1))) - 64) = arr(Asc(UCase(Mid(Text1,i,1))) - 64) + 1
Next
For i = 1 To 26
Print Chr(i + 64) & ":",arr(i)
Next
End Sub
再问：好厉害！如果要用instr函数来写，怎么写啊？
再答： ’上面的代码有点问题先修改一下在回答你的提问： Private Sub Command1_Click() Dim arr(1 To 26) As Integer, i, n Cls For i = 1 To Len(Text1) n = Asc(UCase(Mid(Text1, i, 1))) - 64 If n > 0 And n < 27 Then arr(n) = arr(n) + 1 Next For i = 1 To 26 Print Chr(i + 64) & ":", arr(i) Next End Sub '-------------instr Private Sub Command1_Click() Dim arr(1 To 26) As Integer, i, n, s s = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Cls For i = 1 To Len(Text1) n = InStr(s, UCase(Mid(Text1, i, 1))) If n > 0 Then arr(n) = arr(n) + 1 Next For i = 1 To 26 Print Chr(i + 64) & ":", arr(i) Next End Sub

如何统计一段英文中的各字母出现次数,用vb, VB中在一段英文字母中统计哪个字母出现的最多,次数是多少有段代码求解释! 输入一段英文,找出字母a出现次数最多的英文单词的vb编程怎么写如何求英文句子中的每个字母出现次数 java语言要求句子可以用键盘输入如何统计一个字符串中出现某个字母的次数求会做VB的做一个程序内容是：求输入一段英文找出字母a出现次数最多的英文单词.大致就是这个意思. vb统计在一个文本框内各英文单词出现的次数 VB统计一组数在另一组数中出现的次数 excel如何统计首字出现的次数? 键盘输入200字符以上英文文章,统计各字母出现次数并输出（每个字母、出现次数占一行）,结束时以响铃（07H）加以提示,请 C语言编写程序,从键盘输入若干个英文字母,并统计各字母出现的次数用indexOf写一个程序,统计一段话里一个词语出现的次数