我有一个非常妙的方法，多年来一起自己用。现在公开出来：做一个自定义函数，供调用：function myRnd()dim all as long'all数组的长度dim x as long'临时变量dim i as integer'临时变量dim j as integer'临时变量all=len(num_arr)'数组的长度，即数据的个数for x=1 to alli=int(rnd()*all)//i是数组下标，随机产生j= num_arr(x)num_arr(x)=num_arr(i)num_arr(i)=j'以上三行，实现数据在数组里随机重新排序'也就相当于随机抽取数字，只不过是一次完成，
