As 按升序对数字数组进行排序

Question

我有一个显示非重复随机数的代码，但我坚持不按升序排序。

这是我的代码：

    Public Class Form1
        Dim intNumber As Integer
        Dim arrNumber(0 To 5) As Integer
        Dim i, x, y As Integer
        Private Sub mostrar_resultados_sorteo(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
            repetido()
            For i = 0 To 5
                ListBox1.Items.Add(arrNumber(i).ToString)           
            Next
        End Sub            
        Private Sub repetido()
            For x = 0 To 5
    Start:
                Randomize()
                intNumber = Int((49 * Rnd()) + 1)
                For y = 0 To 5

                    If intNumber = arrNumber(y) Then
                        GoTo Start
                    End If                         
 Next y
        arrNumber(x) = intNumber
    Next x
    ordenar()
End Sub
Private Sub ordenar()
End Sub

结束类

Answer 1

你的问题没有用编程语言标记，但我猜是VB。

请参阅this link 了解如何对数组进行排序。