使用BubbleSort对100个随机数进行排序 [英] Using BubbleSort to sort 100 random numbers

问题描述

大家好， 

Hello everyone, 

我有基本的bubblesort代码，我只是对如何在RichTextBox中显示它感到困惑。这是我到目前为止的代码：

I have the basic bubblesort code and I'm just confused on how to display it in a RichTextBox. Here's my code so far:

 Dim I As Integer
    Dim intNum(99) As Integer
    Dim List As Array
    Dim tmp As Long
    Dim Max As Integer = 100
    Dim min As Integer = 0
    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        'Exit Button
        Application.Exit()

    End Sub

    Private Sub btnNewNumbers_Click(sender As Object, e As EventArgs) Handles btnNewNumbers.Click
        'Randomizing 100 Numbers
        Randomize()
        For I = 0 To 99
            intNum(I) = Int(Rnd() * 100) + 1
        Next
        rtxtNumbers.Text = ""
        'Visualizing Numbers
        For I = 0 To 99
            rtxtNumbers.Text += vbTab + Str(intNum(I))
        Next

        btnSort.Enabled = True

    End Sub

    Private Sub btnSort_Click(sender As Object, e As EventArgs) Handles btnSort.Click
        For Loop1 = min To Max
            For Loop2 = 0 To Max - Loop1
                If (Loop2) > (Loop2 + 1) Then
                    'switch
                    tmp = List(Loop2)
                    List(Loop2) = List(Loop2 + 1)
                    List(Loop2 + 1) = tmp
                End If
            Next
        Next

        rtxtSortedNumbers.Text = Str()

    End Sub

    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
        rtxtNumbers.Text = ""
        rtxtSortedNumbers.Text = ""
        btnSort.Enabled = True
    End Sub

    Private Sub NumberSorterBySophia_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Disables Sort button until New Numbers is clicked
        btnSort.Enabled = False

    End Sub
End Class

任意所有的帮助将不胜感激！

Any and all help would be appreciated!

推荐答案

您好

您是否以两个名字发帖？

Are you posting under two names?

或者你可能会和另一张海报上的同一个班级，他们问同样的问题显示相同的代码！

Or maybe you go to the same classes as another poster here who asked the same question showing the same code!

这篇关于使用BubbleSort对100个随机数进行排序的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！