這段程序什么意思啊.

這段程序什么意思啊.
我知道上半部分是在1-30之間產(chǎn)生7個不重復的隨機數(shù),下面那部分是將這七個數(shù)排序,但從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

其他人氣：698 ℃時間：2020-10-02 04:31:37

優(yōu)質(zhì)解答

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個隨機數(shù)由小到大的打出來是的，就是從小到大排列，拜托給我解釋下吧。Dim j%For i = 1 To 30 '這里是一個從1到30的循環(huán)，即由小到大 For j = 1 To 7'這是隨機出來的數(shù)組值循環(huán)，數(shù)字大小不定If i = myarray(j) Then'如果第一個循環(huán)中的數(shù)字等于隨機數(shù)組中的數(shù)字的話，下面就會打印出來。打個比方，如果這時i=1，然后程序會拿這個1與數(shù)組中的所有值循環(huán)比較，如果數(shù)組中也有一個相應(yīng)的數(shù)，則打印。由于i是從小到大的，估這里打出來的值也只會從小到大Print i;End IfNext jNext iPrint

我來回答

類似推薦

猜你喜歡

精品偷拍一区二区三区,亚洲精品永久 码,亚洲综合日韩精品欧美国产,亚洲国产日韩a在线亚洲

這段程序什么意思啊.

精品偷拍一区二区三区,亚洲精品永久码,亚洲综合日韩精品欧美国产,亚洲国产日韩a在线亚洲