求会做VB的做一个程序 内容是:求 输入一段英文找出字母a出现次数最多的英文单词.大致就是这个意思.
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:数学作业 时间:2024/07/17 13:17:28
求会做VB的做一个程序 内容是:求 输入一段英文找出字母a出现次数最多的英文单词.大致就是这个意思.
一定要vb的,
一定要vb的,
![求会做VB的做一个程序 内容是:求 输入一段英文找出字母a出现次数最多的英文单词.大致就是这个意思.](/uploads/image/z/4129530-42-0.jpg?t=%E6%B1%82%E4%BC%9A%E5%81%9AVB%E7%9A%84%E5%81%9A%E4%B8%80%E4%B8%AA%E7%A8%8B%E5%BA%8F+%E5%86%85%E5%AE%B9%E6%98%AF%EF%BC%9A%E6%B1%82+%E8%BE%93%E5%85%A5%E4%B8%80%E6%AE%B5%E8%8B%B1%E6%96%87%E6%89%BE%E5%87%BA%E5%AD%97%E6%AF%8Da%E5%87%BA%E7%8E%B0%E6%AC%A1%E6%95%B0%E6%9C%80%E5%A4%9A%E7%9A%84%E8%8B%B1%E6%96%87%E5%8D%95%E8%AF%8D.%E5%A4%A7%E8%87%B4%E5%B0%B1%E6%98%AF%E8%BF%99%E4%B8%AA%E6%84%8F%E6%80%9D.)
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
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
求会做VB的做一个程序 内容是:求 输入一段英文找出字母a出现次数最多的英文单词.大致就是这个意思.
输入一段英文,找出字母a出现次数最多的英文单词的vb编程怎么写
英文单词中出现次数最多的字母是
VB中在一段英文字母中 统计哪个字母出现的最多,次数是多少 有段代码求解释!
编写程序,在一个文字框中输入一个简单的英文句子,找出这个英文句子中最长的单词.用vb做
编写VB程序,在文本框中输入一个简单的英文句子,找出这个句子中最长的单词
编写程序VB,在一个文本框中输入一个简单的英文句子,找出这个英文句子中最长的单词
编写一个程序.功能是读入一篇英文文章,统计该文章中每个单词的出现次数,并输出出现次数最多的前5个单词及其出现次数.
C语言:编写一个程序,输入一段英文(以'$'代表结束),输出文章中出现的每个字母的出现频率.
英文单词中哪个字母出现次数最多?
使用java编写程序,要求输入一段话,统计其中某个词语出现的次数.
vb统计在一个文本框内各英文单词出现的次数