VB：选择排序

最新推荐文章于 2023-12-28 21:58:14 发布

半月斩

最新推荐文章于 2023-12-28 21:58:14 发布

阅读量250

点赞数

分类专栏： VB 文章标签：开发语言

本文链接：https://blog.csdn.net/wanglongjiayou/article/details/132760413

版权

VB 专栏收录该内容

19 篇文章 0 订阅

订阅专栏

VB：选择排序

Private Sub Command1_Click()
    Dim i%
    Dim x(1 To 10) As Single
    For i = 1 To 10
        x(i) = Val(InputBox("input"))
    Next i
    Call selectSort(x)
    For i = LBound(x) To UBound(x)
        Print x(i)
    Next i
End Sub
Sub selectSort(arr!())
    Dim i%, j%, k%
    Dim n%
    n = UBound(arr)
    For i = 1 To n - 1
        k = i
        For j = i + 1 To n
            If arr(j) < arr(k) Then k = j
        Next j
        Call mySwap(arr(i), arr(k))
    Next i
End Sub
Sub mySwap(ByRef a, ByRef b)
    Dim c As Variant
    c = a
    a = b
    b = c
End Sub