Question

一道vb题求解答

s = Trim(Text1.Text)
Do While Len(s) > 0
m = InStr(s, Space(1))
If m = 0 Then
word_s = s
s = ""
Else
word_s = Left(s, m - 1) '分离出一个单词
s = Mid(s, m + 1) '剩余内容放入s
End If
If n < Len(word_s) Then
n = Len(word_s)
word_max = word_s
End If
Loop
这个过程每一步是什么意思啊，求解答

Answer 1

s = Trim(Text1.Text)
Do While Len(s) > 0
m = InStr(s, Space(1)) ‘找空格
If m = 0 Then ’没有空格，那么整个一个单词，结束循环
word_s = s
s = ""
Else ‘找到空格
word_s = Left(s, m - 1) '取空格以左的内容，分离出一个单词
s = Mid(s, m + 1) '空格以右的内容 剩余内容放入s
End If
If n < Len(word_s) Then ’应该是记录一个最长的单词
n = Len(word_s) ‘发现更长的，记录长度和单词本身
word_max = word_s
End If
Loop

Answer 2

如果你是学习计算机的，我建议你转学吧
都学到for循环了
连有if必须有endif都不知道。。。
以上回答你满意么？