导读 我给你编了个,你试试就知道了。代码如下：Private Sub Form_Click()Dim a%(1 To 20), i%, j%For i = 1 To 20Randomizea(i) =...
我给你编了个,你试试就知道了。
代码如下：Private Sub Form_Click()Dim a%(1 To 20), i%, j%For i = 1 To 20Randomizea(i) = Int(Rnd * 20) + 1For j = 1 To i - 1If a(j) = a(i) Then Exit ForNext jIf j = i ThenPrint a(i)Elsei = i - 1End IfNext iEnd Sub。