UC知道麻烦告诉我这个程序怎么写？
来源：百度知道 编辑：UC知道 时间：2024/05/16 12:58:51
今天考了VB，可是最后一道题我不会。
题目是这样的：从文件中读取数据，然后统计它当中重复次数最多的字母，并且统计它出现的次数。
我VB学得不好，做了60分钟还没有结果。请大家帮帮忙^^
题目是这样的：从文件中读取数据，然后统计它当中重复次数最多的字母，并且统计它出现的次数。
我VB学得不好，做了60分钟还没有结果。请大家帮帮忙^^
读取文件就不用说了吧～～
至于统计次数，思路有多种，这种比较清晰：
把所有字母的重复次数都统计出来，放进数组里，然后再把遍历数组，把最大的那个找出来～
Option Explicit
Private Type stCHAR
Char As String
Count As Integer
End Type
Private Char() As stCHAR
Private Count As Integer
Public Sub Main()
Dim Str As String
Dim c As String
Dim i As Integer
Dim IndexOfMax As Integer
Str = GetStrFromFile() '读取文件，获取字符串
Count = 0
For i = 1 To Len(Str)
c = Mid(Str, i, 1) '逐位截取单个字符，并添加到数组中
Call Add(c)
Next
'此时次数统计已完成，找出最大者
IndexOfMax = 1 '记录次数最多的下标
For i = 2 To Count
If Char(i).Count > Char(IndexOfMax).Count Then
IndexOfMax = i
End If
Next
'此时统计已完成，输出结果
MsgBox "在字符串 """ & Str & """ 中" & vbNewLine & _