比如我有30个A，30个B，20个C
要怎么把它个三个数据随机排放，又能有序排放
我就想随机排列坐位一样，不要重复
vb 要怎么使一个堆数组的随机排放
答案:2 悬赏:30
解决时间 2021-03-12 04:57
- 提问者网友：但未伤到心
- 2021-03-11 20:10
最佳答案
- 二级知识专家网友：眠于流年
- 2021-03-11 21:10
rnd就可以了,必要时进行排序,如冒泡法
全部回答
- 1楼网友：一池湖水
- 2021-03-11 22:49
dim arr(20)
dim i,j
dim msg
randomize
for i = lbound(arr) to ubound(arr)
arr(i)=int(rnd()*99+1)
next
for i = lbound(arr) to ubound(arr)
msg=msg & arr(i) & ","
next
msg=msg & chr(13) & chr(10)
for i = lbound(arr) to ubound(arr)-1
for j =i+1 to ubound(arr)
if arr(i)>arr(j) then
temp=arr(i)
arr(i)=arr(j)
arr(j)=temp
end if
next
next
for i = lbound(arr) to ubound(arr)
msg=msg & arr(i) & ","
next
msgbox msg
给你个vbs的，和vb基本一样，加上数据类型
把显示方式和数组长度改一下
就ok
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯