| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4081 人关注过本帖
标题:[求助]编写程序:求一个字符串中最长的单词
只看楼主 加入收藏
youyuanjia
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2006-9-19
结帖率:84.62%
收藏
 问题点数:0 回复次数:9 
[求助]编写程序:求一个字符串中最长的单词
刚开始学习VB,现在遇到这样一个题目不知道应该怎么做,请各位高手指点,谢谢!
编写程序:求一个字符串中最长的单词(假设字符串中只包含字母和空格).
说明:
1、空格用来分隔不同单词
2、命令按钮“command1”用来实现查询功能;命令按钮“command2”用来实现清空功能
搜索更多相关主题的帖子: 单词 字符 编写 空格 
2006-10-14 22:03
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 

[CODE]Option Explicit
Private Sub Command1_Click()
Dim StrWord As String
Dim Words() As String
StrWord = InputBox("Please Input a Word")
Words = Split(StrWord, " ")
Dim i As Integer
Dim MaxLength As Integer
Dim MaxLengthWord As String

MaxLength = LBound(Words)
MaxLengthWord = Words(MaxLength)

For i = LBound(Words) + 1 To UBound(Words)
If (Len(Words(i)) > MaxLength) Then
MaxLength = Len(Words(i))
MaxLengthWord = Words(i)
End If
Next

Print MaxLengthWord
End Sub[/CODE]


我的msn: myfend@
2006-10-15 09:42
youyuanjia
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2006-9-19
收藏
得分:0 
谢谢你,能帮我解释一下吗?
有些地方我不是很懂.
2006-10-15 22:11
zmetero11
Rank: 1
等 级:新手上路
帖 子:123
专家分:0
注 册:2006-2-5
收藏
得分:0 
我给你说算法吧
1,输入字串
2,清除两端空格,
3,用split函数来分离单词
4,比较各单词长度。
5,输出最长长度
——————————
清除用控件的refresh方法就搞定了
————————————————————
说实话,这个实在太简单了

黑色的羽翼笼罩与夜月中,守护...不变<-\^/
2006-10-15 22:52
HR岩
Rank: 1
等 级:新手上路
帖 子:37
专家分:0
注 册:2006-10-15
收藏
得分:0 
那么用VB来编写某个控件的移动的代码是多少呢   
2006-10-16 12:11
youyuanjia
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2006-9-19
收藏
得分:0 
谢谢你

非常感谢各位,我明白了.
刚开始学VB,好多的东西不懂,还请各位多多指教!

2006-10-16 22:45
Alex0451
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2006-10-16
收藏
得分:0 
斑竹的代码好象忽略了第一个单词吧?
2006-10-17 09:50
HR岩
Rank: 1
等 级:新手上路
帖 子:37
专家分:0
注 册:2006-10-15
收藏
得分:0 
2006-10-18 00:06
chenwind17
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2006-9-25
收藏
得分:0 
版主的方法没遗漏单词,她假设第一个为最长的,然后其他单词与之比较
其实MaxLengthWord = Words(0)就可以吧,因为Lbound(words)应该为0吧,对不?
2006-10-18 09:44
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
嘿嘿...对..

我的msn: myfend@
2006-10-18 13:16
快速回复:[求助]编写程序:求一个字符串中最长的单词
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.012340 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved