Question

VB编一子过程MaxLength(s,MaxWord)，在字符串s中，找出最长单词 帮我看看我哪里写错了

Sub MaxLength(s, MaxWord)
Dim word$, m%, p%, i%
MaxWord = 0
Do While s <> 0
i = InStr(s, "")
word = Left(s, i - 1)
m = Len("word")
p = Len("MaxWord")
If m > p Then
MaxWord = word
End If
s = Mid(s, i + 1)
Loop
End Sub
Private Sub command1_click()
Dim u$
Call MaxLength(Text1, u)
Text2 = u
End Sub

Answer 1

1.调用子过程MaxLength(s,MaxWord) s没有声明类型
2.maxword=0 类型不对，应改为maxword="" (这个问题VB可以自动转换类型，不影响运行结果，但是应尽量避免)
3.Do While s<>0 局部看类型不对 s<>0 应改为 len(s)<>0 可是从整体看不应该这么判断 应改为 Do While instr(s," ") <> 0
4.i=instr(s,"") 后面应该是空格吧 所以应该是i=instr(s," ")
5.m=len("word") 和 p=len("maxword") 不应该有引号
所以 整体根据你的程序 修改后应该为
Sub MaxLength(s$, MaxWord)
Dim word$, m%, p%, i%
MaxWord = 0
Do While InStr(s, " ") <> 0
i = InStr(s, " ")
word = Left(s, i - 1)
m = Len(word)
p = Len(MaxWord)
If m > p Then MaxWord = word
s = Mid(s, i + 1)
Loop
End Sub
Private Sub command1_click()
Dim u$
Call MaxLength(Text1, u)
Text2 = u
End Sub