有偿求VB疑难题目答案,哪位高手能解答啊!!!!!

来源：百度知道 编辑：UC知道 时间：2024/06/28 00:07:55
题目:编一函数过程 Maxlength(s),在一直的字符串s中,找出最长单词,假定字符串s内只含有字母和空格,空格分隔不同单词.
提示 (1)程序中用到当前单词,当前单词长度,最厂单词,最厂单词长度等变量
(2)首先求输入字符串长度,然后从字符串中分离出单词,即对每个字符串的判断:若不为空格,将每个字符连接到当前单词字符串变量,当前单词长度技术器加1;若为空格,表示一个单词结束,将当前单词长度与最长单词长度比较,若长,当前单词替代最长单词.当前单词置空,当前单词计数器清除为0
只要答案就可以了,各位高手,越简单越好,当然要正确,此题5元钱,我网上银行付帐好不好,我是工商的卡,留银行帐号和答案即可...谢谢啊,小第确实有急用 虽然我没积分,但是我绝对信誉的啊

呵呵,我试试...

function maxlength$(s$)
dim t$(),i&,j&
t=split(s) '以空格分割字符串S到数组T

for i=0 to ubound(s) '遍历数组T
'如果当前单词比原最长单词长,记录当前单词的数组元素的序号
if len(t(i))>len(t(j)) then j=i
next

maxlength=t(j) '函数返回最长单词
end function

在这儿写的,没进vb调试.应该没问题的.