选择排序法排列10个随机产生的10~100之间的数

最新推荐文章于 2022-04-11 21:54:15 发布

原创最新推荐文章于 2022-04-11 21:54:15 发布 · 2.9k 阅读

1 ·

CC 4.0 BY-SA版权

本文提供了一个使用Visual Basic实现的简单排序算法示例。通过随机生成不重复的整数并利用冒泡排序进行排序，展示了如何初始化数组、生成随机数、确保数的唯一性以及完成排序过程。

Dim a(1 To 10) As Integer
Private Sub Command1_Click()
Form_Load

End Sub

Private Sub Command2_Click()
p = ""
For i = 1 To 9
   For j = i + 1 To 10
    If a(i) < a(j) Then
     t = a(i): a(i) = a(j): a(j) = t
    End If
    Next j
   Next i
   For i = 1 To 10
    p = p & Str(a(i)) & ","
   Next
   label2.Caption = LTrim(Left(p, Len(p) - 1))

End Sub

Private Sub Form_Load()
Dim p As String
Randomize
p = ""
For i = 1 To 10
      Do
       x = Int(Rnd * 91) + 10
       yes = 0
       For j = 1 To i - 1
        If x = a(j) Then yes = 1: Exit For
       Next j
    Loop While yes = 1
    a(i) = x
    p = p & Str(a(i)) & ","
       Next i
       label1.Caption = LTrim(Left(p, Len(p) - 1))
       label2.Caption = ""
End Sub