Private Sub Command1_Click()
Dim a(1 To 5) As Long
Dim i As Long, tmp As Long, tmpIndex As Long
For i = 1 To 5
a(i) = i
Next
For i = 1 To 5
'随机生成1-5
tmpIndex = Int(Rnd * 5) + 1
tmp = a(tmpIndex)
a(tmpIndex) = a(i)
a(i) = tmp
Next
Text1.Text = a(1)
Text2.Text = a(2)
Text3.Text = a(3)
Text4.Text = a(4)
dim a(3)也就是只能从a(0)到a(3) 当然就越界了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024