vb中数组元素的提取问题

Dim s() As String

s = Split(Text1Text, " ")

Text2Text = s(0)

Text3Text = s(1)

Text4Text = s(2)

dim a(30)

for i=1 to 30

a(i)=i

next i

private sub command1_click()

static count as integer

if count <=30 then

count=1

text1text=a(count)

a(count)=0

count=count+1

else

msgbox"数组的数已经清空"

end sub

以上就是关于vb中数组元素的提取问题全部的内容，包括:vb中数组元素的提取问题、VB从数组中选出一个数、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！