编写程序VB,在一个文本框中输入一个简单的英文句子,找出这个英文句子中最长的单词PrivateSubCommand1_Click()Dimword()AsString,sAsStringDimkAsInteger,maxwAsString,nAsIntegers=Text1.TextDon=InStr(s,quot;quot;)If
<p>问题：编写程序VB,在一个文本框中输入一个简单的英文句子,找出这个英文句子中最长的单词PrivateSubCommand1_Click()Dimword()AsString,sAsStringDimkAsInteger,maxwAsString,nAsIntegers=Text1.TextDon=InStr(s,quot;quot;)If<p>答案：↓↓↓<p class="nav-title mt10" style="border-top:1px solid #ccc;padding-top: 10px;">苏晓丽的回答：<div class="content-b">网友采纳 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<p class="nav-title mt10" style="border-top:1px solid #ccc;padding-top: 10px;">董林玺的回答：<div class="content-b">网友采纳 我要改我追问的。。。谢谢<p class="nav-title mt10" style="border-top:1px solid #ccc;padding-top: 10px;">苏晓丽的回答：<div class="content-b">网友采纳 哦，我看一下，就怕看别人代码测试了，没有看到问题，你是在什么情况下有的提示错？经过空测试，错误：应该在s=Text1.Text下面判断：ifs=""thenexitsub
页:
[1]