这段程序什么意思啊.我知道上半部分是在1-30之间产生7个不重复的随机数,下面那部分是将这七个数排序,但从dim j%之

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/05/16 00:31:09

这段程序什么意思啊.
我知道上半部分是在1-30之间产生7个不重复的随机数,下面那部分是将这七个数排序,但从dim j%之后我不知道什么意思,求教.
Private Sub Command3_Click()
Dim myarray(1 To 7) As Integer
myarray(1) = Int(Rnd() * 30) + 1
Dim i%, n%
For i = 2 To 7
myarray(i) = Int(Rnd() * 30) + 1
For n = 1 To i - 1
Do While myarray(i) = myarray(n)
myarray(i) = Int(Rnd() * 30) + 1
n = 1
Loop
Next n
Next i
For i = 1 To 7
Print myarray(i);
Next i
Print

Dim j%
For i = 1 To 30
For j = 1 To 7
If i = myarray(j) Then
Print i;
End If
Next j
Next i
Print
End Sub

Dim j%
For i = 1 To 30
For j = 1 To 7
If i = myarray(j) Then
Print i;
End If
Next j
Next i
Print
这段代码看起来就是把那7个随机数由小到大的打出来
再问：是的，就是从小到大排列，拜托给我解释下吧。
再答： Dim j% For i = 1 To 30 '这里是一个从1到30的循环，即由小到大 For j = 1 To 7 '这是随机出来的数组值循环，数字大小不定 If i = myarray(j) Then '如果第一个循环中的数字等于随机数组中的数字的话，下面就会打印出来。打个比方，如果这时i=1，然后程序会拿这个1与数组中的所有值循环比较，如果数组中也有一个相应的数，则打印。由于i是从小到大的，估这里打出来的值也只会从小到大 Print i; End If Next j Next i Print

从1—22中产生5个随机数,不能有重复,我的程序错哪里了? 如何产生1000个从1到1000之间的不重复的随机数,用C语言实现! 火星文,不知道念小还是你,就是上面是台字的上半部分,下面是个小字. 上面是馨的上半部分面,下面是个耳读什么字?是个繁体字,打不出来. VB下面程序对产生的10个随机数进行排序,程序中有3个错误,请在相应的行上改正随机产生1-33之间的6个随机数（保证6个数字不重复）按照从大到小的顺序排列卷的上半部分,下面是个“言”,怎么读? c语言要随机置出1到1000的随机数10组一组7个一组中数字不得重复从中选出出现次数的七个,在输出这七个数程序填空题下列程序的功能是：随机产生10个1——100（包含1不包含100）之间的正整数,按从大到小的次序排序并输出. dim j%什么意思一个罄上半部分下面一个香什么意思 excel随机数生成怎样在A2：A577中产生10000---9999999之间的随机数?而且要不重复.我用的是2003