这是仅在按钮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
是你得到一个错误,或者数组只是没有排序? – Kateract
https://en.wikipedia.org/wiki/Bubble_sort翻译伪码 – Plutonix
你自己没有写过。你可以说因为你在一个地方使用了'GetUpperBound',而在另一个地方使用了'UBound'。你应该真的了解算法并自己编写代码。我想你会发现你可以自己解决这个问题。 Plutonix链接的伪代码是一个好的开始。 – Enigmativity