vb选择法排序的怎么做？

Question

如题所述

Answer 1

Private Sub Command1_Click()

  Dim a(100) As Integer

  Randomize

  For i = 1 To 100

    a(i) = Rnd * 100

  Next i

  For i = 1 To 99

    k = i

    For j = i + 1 To 100

      If a(j) < a(k) Then k = j

    Next j

    t = a(i): a(i) = a(k): a(k) = t

  Next i

  For i = 1 To 100

    Print Format(a(i), "@@@@");

    If i Mod 10 = 0 Then Print

  Next i

End Sub

Answer 2

Dim str As String = "", temp As Integer = 0, sum As Integer = 0, max As Integer
Dim a(10) As Integer
str = str & "原数组为" & vbCrLf
For i = 1 To 10 Step 1
a(i) = Int(Rnd() * 90 + 10)
str = str & a(i) & " "
Next
str = str & vbCrLf
For i = 1 To 9
max = a(i)
For j = i + 1 To 10
If a(j) > max Then
max = a(j)
temp = a(i) : a(i) = a(j) : a(j) = temp
End If
Next
Next
str = str & "排序后的数组为" & vbCrLf
For i = 1 To 10 Step 1
str = str & a(i) & " "
Next
TextBox6.Text = str本回答被提问者采纳