随机产生20个两位正整数，并按由大到小的顺序排列。

热心网友

Dim alngTest(20) As Long Dim lngTemp As Long Dim lngIndex As Long Dim lngIndexNew As Long For lngIndex = 1 To 20 Call Randomize alngTest(lngIndex - 1) = CLng(Rnd * 1000) Next For lngIndex = 1 To 20 For lngIndexNew = 1 To 20 If alngTest(lngIndex - 1) alngTest(lngIndexNew - 1) Then lngTemp = alngTest(lngIndex - 1) alngTest(lngIndex - 1) = alngTest(lngIndexNew - 1) alngTest(lngIndexNew - 1) = lngTemp End If Next Next For lngIndex = 1 To 20 Debug。Print alngTest(lngIndex - 1) Next 。