关于vb的问题 编程,对于一个任意的字符串,找出最长的单词。假定字符串只含有字母和空格简答,VB的输入和输出简介 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Dim arrWords() As String arrWords = Split(Text1.Text, " ") Dim strMaxLengthString As String strMaxLengthString = "" For i = 0 To UBound(arrWords) If Len(strMaxLengthString) < Len(arrWords(i)) Then strMaxLengthString = arrWords(i) End If Next 还有Split函数。。哎。。接触的知识太窄了 查查MSDN吧。split函数是通过查找一个子字符串,把一个长字符串分割成一个字符串数组。UBound函数是取得数组的上限。 事件例程非正常触发的处理方式 征集:让VB6代码窗口支持鼠标的最佳方法 .如果自己写代码实现+70分 串口通讯问题!急急急!!! 在VB里怎样能生成双表头Excel 报表宽度问题 问几个问题,先来先得分(四)。 求助。WebBrowser是使用什么API同服务器通信的。困扰了一周 关于VBA中 新建CSV文件 保存成文本格式的问题 有代码 部件窗口中,commondialog控件为什么时有时无? 请问在里怎样检测串行口是否一占用,(注:不用mscomm.portopen属性) 微软语音识别引擎可以作为ActiveX控件使用吗? 大家帮我这个忙吧!纯文字的加法运算~我快崩溃了- -~
arrWords = Split(Text1.Text, " ")
Dim strMaxLengthString As String
strMaxLengthString = ""
For i = 0 To UBound(arrWords)
If Len(strMaxLengthString) < Len(arrWords(i)) Then
strMaxLengthString = arrWords(i)
End If
Next
split函数是通过查找一个子字符串,把一个长字符串分割成一个字符串数组。
UBound函数是取得数组的上限。