我的程序是
Private Sub Command5_Click()
dgs = Val(Text3.Text)
For i = 1 To dgs
ReDim d(i)
d(i) = List1.List(i - 1)
Next i
For i = 1 To dgs
ReDim c(i) As Single
m = Int(Rnd * dgs) + 1
c(i) = List1.List(m - 1)
For j = m To dgs - 1
d(j) = d(j + 1)
Next j
dgs = dgs - 1
List2.AddItem c(i)
Next i
End Sub
运行的结显示的不是list1中的数据组合,请教各位大虾