VB 打乱数组 简单的说就是有一个数组（1，2,3,4） 他这个数组顺序打乱！求高人指点
展开全部
Dim a(20), k
Dim i As Integer, j As Integer
Randomize
For i = 0 To 20
a(i) = i
Next
Print "原始数组：" & Join(a, ", ")
For i = 0 To 20
j = Int(Rnd * (UBound(a) + 1))
k = a(i)
a(i) = a(j)
a(j) = k
Next
Print "打乱后的：" & Join(a, ", ")
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
