输入一个英文句子,统计其中单词的个数,输出最长单词在文本中的位置(是文本中的第几个字符)和长度;
c++的从键盘输入一个英文句子,统计其中单词的个数,并输出最长单词在文本中的位置(是文本中的第几个字符)和长度;单词的界定:单词是由空格、换行符号、标点符号等分隔的字母和...
c++的
从键盘输入一个英文句子,统计其中单词的个数,并输出最长单词在文本中的位置(是文本中的第几个字符)和长度;单词的界定:单词是由空格、换行符号、标点符号等分隔的字母和数字组成的连续字符串;
从键盘输入一个英文句子,统计其中单词的个数 这个我会~但是后面的就不会了 展开
从键盘输入一个英文句子,统计其中单词的个数,并输出最长单词在文本中的位置(是文本中的第几个字符)和长度;单词的界定:单词是由空格、换行符号、标点符号等分隔的字母和数字组成的连续字符串;
从键盘输入一个英文句子,统计其中单词的个数 这个我会~但是后面的就不会了 展开
展开全部
Private Sub maxlengthword(ByVal str1$, ByRef maxword$)
Dim i%
Dim temp$
i = InStr(str1, " ")
maxword = ""
Do While i > 0
temp = Mid(str1, 1, i - 1)
If Len(temp) > Len(maxword) Then maxword = temp
str1 = Mid(str1, i + 1)
i = InStr(str1, " ")
Loop
If Len(str1) > Len(maxword) Then maxword = str1
TextBox2.Text = maxword
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str1 As String, m As String
m = ""
str1 = TextBox1.Text
maxlengthword(str1, m)
End Sub
Dim i%
Dim temp$
i = InStr(str1, " ")
maxword = ""
Do While i > 0
temp = Mid(str1, 1, i - 1)
If Len(temp) > Len(maxword) Then maxword = temp
str1 = Mid(str1, i + 1)
i = InStr(str1, " ")
Loop
If Len(str1) > Len(maxword) Then maxword = str1
TextBox2.Text = maxword
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str1 As String, m As String
m = ""
str1 = TextBox1.Text
maxlengthword(str1, m)
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个好像有例子
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询