Question

vb 数组如何提取

Dim a(1 To 10) As Integer
For i = 1 To 10
a(i) = Int(Rnd * 100) + 1
Combo1.AddItem a(i)
Next i
End Sub

Private Sub Command2_Click()
Dim a(1 To 11)
For m = 1 To 10
For n = 1 To 10 - m

If a(m) > a(n) Then
t = a(m)
a(m) = a(n)
a(n) = t
End If
Next n
Next m
For a(m) = 1 To 10
List1.AddItem a(m)
Next a(m)
End Sub

我想在Command2里用前面的那组数据
要怎么样做呢

Answer 1

'获取command1中的数据组据就是获取combo1中的数据
dim a(1 to 10) as integer
for i=0 to 9
a(i+1)=val(combo1.list(i))
next

Answer 2

Dim a(1 To 10) As Integer 在通用中声明，以后就不用声明，直接就可以用了。