#VB#这个求多种解法，我只会两种来个大佬，( •︠ˍ•︡ )

level 2

榛子风味酥楼主

2021年02月18日 16点02分 1

level 11

DiverAZAM

4楼是我的代码被吞了，这次改用图片，是一个概率均等的解法

2021年02月18日 20点02分 5

榛子风味酥

谢谢谢谢，

2021年03月02日 10点03分

level 11

小楠😳♀

这个是比较高效的算法。

2021年02月19日 01点02分 6

榛子风味酥

谢谢谢谢，麻烦了

2021年03月02日 10点03分

Luosen56

打乱 1 ～ 10 这 10 个数，就可以了。无需进行判断。

2021年03月03日 16点03分

小楠😳♀

@Luosen56 这里面确实没有判断啊

2021年03月03日 22点03分

Luosen56

@小楠😳♀ 是的，你的代码没有判断，就是打乱顺序即可。

2021年03月04日 16点03分

吧务

level 13

Luosen56

'　随机打乱字符型一位数组【S(?)】的顺序
Dim cc As String, i As Integer, j As Integer
Randomize
For i = LBound(S) To UBound(S)
j = Int((UBound(S) - LBound(S) + 1) * Rnd) + LBound(S)
cc = S(j) : S(j) = S(i) : S(i) = cc '　随机交换位置
Next

2021年03月04日 16点03分 8