帮我看看我写的代码有没有问题@miku_con

level 7

贴吧用户_QNAAVSQ 楼主

帮我看看我写的代码有没有问题@初音✨七奈

2020年06月07日 04点06分 1

level 15

你的数组b定义的有点大啊，而且给数组b赋值的循环，为什么要循环50次，每次从数组a中随机选一个数赋值给b的对应元素呢？

2020年06月07日 04点06分 2

level 7

贴吧用户_QNAAVSQ 楼主

因为是循环50次统计出现次数

2020年06月07日 04点06分 4

你不是已经统计完了么？结果就在数组a中啊，然后只需要复制一份到数组b中用来排序就可以了啊

2020年06月07日 04点06分

那怎么定义b的数量

2020年06月07日 04点06分

level 15

如果把b也定义成静态数组，只要b(1 To 6)就够了，跟a一样
另外，既然是数组复制，也可以把b定义成动态数组，像这样：
Dim b() As Integer
b = a
只要一句，就把数组a复制给b了；当然，这要求b必须是动态数组

2020年06月07日 04点06分 5