EXCE 中如何对一组数随机排列成一组数.比如0123456789 + - / *〈 〉这16个数随机排列成21位数,不重复4行,每行21个数

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/06 01:08:37
EXCE 中如何对一组数随机排列成一组数.比如0123456789 + - / *〈 〉这16个数随机排列成21位数,不重复4行,每行21个数

EXCE 中如何对一组数随机排列成一组数.比如0123456789 + - / *〈 〉这16个数随机排列成21位数,不重复4行,每行21个数
EXCE 中如何对一组数随机排列成一组数.
比如0123456789 + - / *〈 〉这16个数随机排列成21位数,不重复
4行,每行21个数

EXCE 中如何对一组数随机排列成一组数.比如0123456789 + - / *〈 〉这16个数随机排列成21位数,不重复4行,每行21个数
用RND函数加MID函数结合一下即可完成你的要求.代码如下:
Sub noky()
For i = 1 To 21
a = Int((16 - 1 + 1) * Rnd + 1)
B = Mid("0123456789+-/*〈〉",a,1)
c = c + B
Next
End Sub
这段代码中的变量C就是你要的随机数