VB随机产生10个100到200之间的整数,将其按从大到小顺序排列

Question

VB随机产生10个100到200之间的整数,将其按从大到小顺序排列

Answer 1

Private Sub Command1_Click()
Text1.Text = ""
Dim A(1 To 10) As Integer, K As Integer
For I = 1 To 10
    Randomize
    A(I) = Int(Rnd * 100 + 100)
Next I
For I = 1 To 9
    For J = I + 1 To 10
        If A(I) < A(J) Then
        K = A(I)
        A(I) = A(J)
        A(J) = K
        End If
    Next J
Next I
For I = 1 To 10
If I < 10 Then
Text1.Text = Text1.Text & A(I) & ","
Else
Text1.Text = Text1.Text & A(I)
End If
Next I
End Sub