Question

vb 数组应用

在VB中如何实现文本数据或列表数据向数组赋值

Answer 1

private a(<数组上限>) as <每个数据的类型>
赋值 a(n)=<值>

实例：
private a(1000) as string,i as integer
private sub command1_click()
a(i)=text1.text
i=i+1
end sub

Answer 2

dim s,r as string
r="1,2,3,4,5,6"
s=split(r,",")

Answer 3

a=array("这","就","是","数","组")
for i = 0 to ubound(a)
print a(i)
next