作业帮 > 数学 > 作业

求会做VB的做一个程序 内容是:求 输入一段英文找出字母a出现次数最多的英文单词.大致就是这个意思.

来源:学生作业帮 编辑:百度作业网作业帮 分类:数学作业 时间:2024/04/30 01:29:47
求会做VB的做一个程序 内容是:求 输入一段英文找出字母a出现次数最多的英文单词.大致就是这个意思.
一定要vb的,
求会做VB的做一个程序 内容是:求 输入一段英文找出字母a出现次数最多的英文单词.大致就是这个意思.
Private Sub Command1_Click()
Dim i As Integer,myWord() As String,myOutput As String,myTemp As String,myMax As Integer
myTemp = Replace(Text1.Text,vbCrLf," ")
myWord = Split(myTemp," ")
myMax = 0
For i = LBound(myWord) To UBound(myWord)
If myMax < Len(myWord(i)) - Len(Replace(myWord(i),"a","")) Then
myMax = Len(myWord(i)) - Len(Replace(myWord(i),"a",""))
myOutput = myWord(i)
End If
Next
MsgBox myOutput & vbTab & myMax
End Su