Private Sub Command1_Click()Dim n As Integer, a As Variant, i As Integer, j As Integer'Randomizen = 55'n代表产生多少个随机数ReDim a(1 To n)For i = 1 To n
a(i) = Int(Rnd * 101)
j = i - 1
Do While j < i
a(i) = Int(Rnd * 101) + 1
For j = 1 To i - 1
If a(i) = a(j) Then Exit For
...
回答即可得2分,回答被采纳则获得悬赏分以及奖励20分Private Sub Command1_Click()Dim n As Integer, a As Variant, i As Integer, j As Integer'Randomizen = 55'n代表产生多少个随机数ReDim a(1 To n)For i = 1 T...