Question

VB编程题填空改错

VB编程题填空改错按照照片上划线部分改成s做出来列表框只有滑动条出现没有内容，text2也是空的，
划线部分不改错误提示如图





Answer 1

书上的程序填空没有错，只是循环体的第一个语句中少了一个空格，改过以后再试试？
s=Text1.Text
n=InStr(s," ") '右图中双引号中少了空格

k=k+1
ReDim Preserve word(k)
word(k)=Left(s,n-1)
S=Right(s,Len(s)-n)
Loop Until n=0
ReDim Preserve word(k)
List1.AddItem word(k)
maxw=lLen(word(1)):k=1
If Len(word(n)>maxw Then
maxw=Len(word(n)):k=n
Text2=word(k)
最后四行也可以这样写：
maxw=1
If Len(word(n)>word(maxw) Then
maxw=n
Text2=word(maxw)