请问这道题该怎么做:用随机函数产生10个20~100之间的不同整数,然后按从大到小的顺序排序输出。我设计了以下的代码Private Sub Form_click()Dim a(1 To 100) As IntegerDim i As Integer, j As Integer, t As IntegerFor i = 1 To 10a(i)=Int((100-20+1)*Rnd+20)Next iFor i = 1 To 9For j = i + 1 To 10If a(i) = a(j) Thena(i)=Int((100-20+1)*Rnd+20)End IfNext jNext iFor i = 1 To 9For j = i + 1 To 10If a(i) < a(j) Thent = a(i)a(i) = a(j)a(j) = tEnd IfNext jNext iFor i = 1 To 10Print a(i)Next iEnd Sub但不知道正确的答案是什么,我刚开始学vb,请高手们帮忙分析是否正确,另外能否给一段简单一些的代码来做这道题。
前面也有问随机函数题的,但看不懂,请高手们一定帮忙!。