使用隨機數字和冒泡排序初始化數組

Question

這是僅在按鈕2單擊時生成1個數字的代碼。我需要它採取從按鈕1點擊10個數字數組中，併產生排序，從最小到最大的相同十個數字：

Public Class Form1 
    Dim numberArray(9) As Integer 
    Dim generator As New Random 


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Dim min As Integer 
     Dim r As Integer 
     Dim max As Integer 
     min = Val(TextBox1.Text) 
     max = Val(TextBox2.Text) 
     Label1.Text = "" 
     For r = 0 To numberArray.GetUpperBound(0) 
      numberArray(r) = generator.Next(min, max) 
      Label1.Text += numberArray(r) & " " 
      Label1.Text += ControlChars.NewLine 
     Next 

    End Sub 

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 


     Dim r As Integer 
     Dim intTemp As Integer 
     Dim blnExhchangeMade As Boolean 
     blnExhchangeMade = False 
     Do While blnExhchangeMade 


      For r = LBound(numberArray) To (UBound(numberArray) - 1) 
       If numberArray(r) < numberArray(r + 1) Then 
        intTemp = numberArray(r) 
        numberArray(r) = numberArray(r + 1) 
        numberArray(r + 1) = intTemp 
        blnExhchangeMade = True 

       End If 

      Next 
     Loop 
     Label2.Text += numberArray(r) & " " 
     Label2.Text += ControlChars.NewLine 
    End Sub 
End Class 

Answer 1

下面的代碼我會去用：

Private Const elements As Integer = 9 
Private numberArray(elements - 1) As Integer 
Private generator As New Random 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim min As Integer = Integer.Parse(TextBox1.Text) 
    Dim max As Integer = Integer.Parse(TextBox2.Text) 
    Label1.Text = "" 
    For r = 0 To elements - 1 
     numberArray(r) = generator.Next(min, max + 1) 
     Label1.Text += numberArray(r) & " " 
     Label1.Text += System.Environment.NewLine 
    Next 
End Sub 

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    Dim intTemp As Integer 
    Dim blnExhchangeMade As Boolean = True 
    Do While blnExhchangeMade 
     blnExhchangeMade = False 
     For r = 0 To elements - 2 
      If numberArray(r) > numberArray(r + 1) Then 
       intTemp = numberArray(r) 
       numberArray(r) = numberArray(r + 1) 
       numberArray(r + 1) = intTemp 
       blnExhchangeMade = True 
      End If 
     Next 
    Loop 
    Label1.Text = "" 
    For r = 0 To elements - 1 
     Label1.Text += numberArray(r) & " " 
     Label1.Text += System.Environment.NewLine 
    Next 
End Sub