Question

怎么在vb的列表框中随机输出n个一维数组

Private Sub Command2_Click()
Dim a() As Integer, n As Integer, i As Integer
i = Val(InputBox("输入数组个数"))
Randomize
For i = 1 To n
a(i) = Int(90 * Rnd) + 10
Next i
List1.AddItem a(i)
End Sub
但它说下标越界怎么回事啊，求回复啊。。。。万分感激

Answer 1

For i = 1 To n
这句话，你根本就没有赋值给N，那N为0 所以 For i = 1 To n 直接使得 i=1 但是条件不满足 所以a(i) = Int(90 * Rnd) + 10 无法执行，直接执行List1.AddItem a(i)。但是你又没有赋值给数组a（）所以就肯定越界了嘛。输入的数组个数应该给N 而不是给i n= Val(InputBox("输入数组个数"))

Answer 2

我修改了一下，应该是你想要的效果。出错的原因是因为你的n是没有赋值的。

Private Sub Command2_Click()
Dim n As Integer, i As Integer
Dim a() As Integer
i = Val(InputBox("输入数组个数"))
ReDim a(i) As Integer
Randomize
For n = 0 To i - 1
a(n) = Int(90 * Rnd) + 10
List1.AddItem a(n)
Next n
End Sub

Answer 3

Private Sub Command2_Click()
Dim a() As Integer, n As Integer, i As Integer
n= Val(InputBox("输入数组个数"))
Randomize
For i = 1 To n
a(i) = Int(90 * Rnd) + 10
List1.AddItem a(i)
Next i
End Sub

Answer 4

你可以试一下我这种
Private Sub Command2_Click()
Dim n As Integer, i As Integer
Dim a() As Integer
n= Val(InputBox("输入数组个数"))
ReDim a(1 to n) As Integer
Randomize
For i = 1 to n
a(I) = Int(90 * Rnd) + 10
List1.AddItem a(i )
Next i
End Sub