这个能解释一下吗太难了@初音✨七奈

你拍题目的时候，能不能把要问的题拍全，尽量不把无关的题拍进去？
你要问的是试题三对吧，产生随机数没啥好说的，只解释一下两个重组
重组1，名为重组，实为计数（同时还是一种排序方法），原理就是利用辅助数组建立数据和数量的对应关系，下标表示数据，元素值表示数据的数量，比如有两个1，计数结果就是a(1)=2
明白计数原理，具体过程应该就简单了，这里只想说一下输出循环中的判断，其实If a(i)<>0 Then这个判断是不必要的，如果a(i)=0，那么For j=1 To a(i)这个循环就不会执行（即循环自带判断功能）
重组2，执行过程如下：从数组第一个数开始，先输出一次该数字，然后循环判断后续数字是否为该数字，如果是，则再输出一次，并将后续的重复数字标记为-1（这样后面再轮到这个数字时，就不会重复输出了）；对整个数组重复该过程，直到全部输出完成为止
这个过程由于直接对原数组进行了标记操作，因此是不能重复执行的（执行一次之后，数组的原始数据就丢失了）

快要考试了感觉VB好难，大佬知道有什么方法能提高吗@初音✨七奈 求助