编写程序VB,在一个文本框中输入一个简单的英文句子,找出这个英文句子中最长的单词PrivateSubCommand1_Click()Dimword()AsString,sAsStringDimkAsInteger,maxwAsString,nAsIntegers=Text1.TextDon=InStr(s,quot;quot;)If

问题：编写程序VB,在一个文本框中输入一个简单的英文句子,找出这个英文句子中最长的单词PrivateSubCommand1_Click()Dimword()AsString,sAsStringDimkAsInteger,maxwAsString,nAsIntegers=Text1.TextDon=InStr(s,quot;quot;)If

答案：↓↓↓

苏晓丽的回答：

网友采纳　　PrivateSubCommand1_Click()　　IfText1.Text=""ThenExitSub　　DimwordAsVariant,sAsString　　DimkAsInteger,maxwAsString,nAsInteger　　s=Replace(Replace(Text1.Text,",",""),".","")　　s=Replace(Replace(s,",",""),".","")　　s=Replace(s,vbCrLf,"")　　s=Trim(Replace(s,"",""))　　Ifs=""ThenExitSub　　word=Split(s,"")　　n=UBound(word)　　Fork=0Ton　　Ifn=kThenExitFor　　IfLen(CStr(word(k+1)))>Len(maxw)Then　　maxw=word(k+1)　　EndIf　　Next　　MsgBoxmaxw&"="&Len(maxw)&"字节"　　EndSub

董林玺的回答：

网友采纳　　我要改我追问的。。。谢谢

苏晓丽的回答：

网友采纳　　哦，我看一下，就怕看别人代码测试了，没有看到问题，你是在什么情况下有的提示错？经过空测试，错误：应该在s=Text1.Text下面判断：ifs=""thenexitsub