如何得到Split函数返回数组的元素个数？我的数组老是下标越界！
问题点数：26、回复次数：12Top
1 楼uguess（天地间，有我在行走！）回复于 2001-11-07 11:14:37 得分 16
还是我告诉你！
s="VB4,VB5,VB6"
x=split(s,",")
for i=0 to ubound(x)
print x(i)
next
记住给分！Top
2 楼acptvb（微软全球技术中心 VB技术支持）回复于 2001-11-07 11:20:19 得分 10
感谢您使用微软产品。
您可以参看以下代码：
Dim strText As String
Dim astrWords() As String
strText = "This is a test"
astrWords = Split(strText)
CountWords = UBound(astrWords) - LBound(astrWords) + 1
MsgBox CountWords
- 微软全球技术中心 VB技术支持
本贴子仅供CSDN的用户作为参考信息使用。其内容不具备任何法律保障。您需要考虑到并承担使用此信息可能带来的风险。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境，请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。
Top
3 楼rabbitwy（流浪小兔）回复于 2001-11-07 11:30:05 得分 0
str = "s1,s2,s3"
dim i as integer
for each aaa in split(s,",")
i = i + 1
next aaa
msgbox i
呵呵，要给分哦
Top
4 楼jackjack（）回复于 2001-11-07 11:49:33 得分 0
补充：
元素个数=ubound(split(s,","))+1
没理由越界！Top
5 楼vcbug（今夜最后一次陪你而醉）回复于 2001-11-07 11:57:55 得分 0
tretTop
6 楼rabbitwy（流浪小兔）回复于 2001-11-07 14:33:34 得分 0
分来？Top
7 楼uguess（天地间，有我在行走！）回复于 2001-11-07 14:45:19 得分 0
to rabbitwy(流浪小兔):
哇，你这个写法也敢要分？敢问阁下代码中的“aaa ”是何许人？按你的写法“str = "s1,s2,s3"”看看系统有什么提示？这才是分成三个部分，如果让你分3万个，你这种方法不知要多长时间？
Top
8 楼rabbitwy（流浪小兔）回复于 2001-11-07 14:57:56 得分 0
uguess, 呵呵，你那么高明，这么基础的东西，还要我教你啊？！水平高可以， 不要太狂。Top
9 楼uguess（天地间，有我在行走！）回复于 2001-11-07 15:18:49 得分 0
这不是狂不狂的问题，而是付不负责任的问题！你那段代码很不负责任！
Top
10 楼rabbitwy（流浪小兔）回复于 2001-11-07 15:30:21 得分 0
怎么叫不负责任了？本来一个问题就可以有多种方法，而且论坛就是给人讨论的地方，觉的好就可以学习，没错，我用VB就3个月，好多效率是没考虑到，我自己也有好多问题，可要是每个回答问题的都象你一样，那别人回答就没什么意思了，干脆你开个专栏得了。我想这里肯定有比你高的人，人家看了都没笑我们的浅薄，你有何必呢？
--
争论可以，争吵就不奉陪了：）Top
11 楼TonyJoule（寒星㊣）回复于 2001-11-07 15:36:06 得分 0
for i=lbound(array) to ubound(array)
....
nextTop
12 楼ipman（.NET）回复于 2001-11-08 20:18:34 得分 0
谢谢大家Top
