首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

字符串数组有关问题

2012-01-31 
字符串数组问题我这边样把一个字符串进行分割,DimstrAsStringstr中的值是这样的:1,2,3,4,5,6Dimstrings()A

字符串数组问题
我这边样把一个字符串进行分割,
Dim   str   As   String           'str中的值是这样的:1,2,3,4,5,6
Dim   strings()   As   String

strings()   =   Split(str,   ", ")   '分段读也字符中的数据。
                Text1.Text   =   strings(0)
                Text2.Text   =   strings(1)
                Text3.Text   =   strings(2)
                Text4.Text   =   strings(3)
                Text5.Text   =   strings(4)
                Text6.Text   =   strings(5)
                Text7.Text   =   strings(6)
前面几句没有问题,只是在Text7.Text   =   strings(6)出现了问题,因为没有对strings(6)进行赋值,我用   strings(6)   =   " "   来判断也不行,有没有哪位高手知道这个strings(6)怎么进行判断?

[解决办法]
你数组上标最大值是5,不可能为6啊
如果你非要给text7赋值的话可以这样
Dim str As String 'str中的值是这样的:1,2,3,4,5,6
Dim strings() As String

strings() = Split(str, ", ") '分段读也字符中的数据。
Text1.Text = strings(0)
Text2.Text = strings(1)
Text3.Text = strings(2)
Text4.Text = strings(3)
Text5.Text = strings(4)
Text6.Text = strings(5)
if ubound(strings)=6 then
Text7.Text = strings(6)
else
text7.text= "数组上标超出界限 "
end if

热点排行