Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

Access选择排序算法

时 间:2022-11-01 08:37:23
作 者:欧志华   ID:51519  城市:广州
摘 要:选择排序算法。
正 文:

      选择排序(SelectionSort)是一种简单直观的排序算法。它的工作原理如下:首先在未排序序列中找到最小元素,存放到排序序列的起始位置,然后再从剩余未排月字元素中继续寻找最小元素,然后放到排序序列末尾。依此类推,直到所有元素均排序完毕。
代码如下:
Private Sub Command5_Click()
    Dim i As Integer
    Dim j As Integer
    Dim arr() As String     '定义数组
    Dim t As Integer        '用于展示数组元素
    Dim tmp As String       '调整数组元素位置临时容器
    Dim pivotkey    As String
    
    arr() = Split(Me.Text0, ",")
    Me.Text2 = ""
    Me.Text2 = Me.Text2 & "[初始数组元素]: "
    For t = 0 To UBound(arr)
        Me.Text2 = Me.Text2 & arr(t) & " "
    Next t
    Me.Text2 = Me.Text2 & vbCrLf & vbCrLf
    For i = LBound(arr) To UBound(arr)
        k = i
        For j = i + 1 To UBound(arr)
            If Val(arr(j)) < Val(arr(k)) Then
                k = j
            End If
        Next j
        If k <> i Then
            pivotkey = arr(i)
            arr(i) = arr(k)
            arr(k) = pivotkey
            
        End If
        '显示第几次排序结果
        Me.Text2 = Me.Text2 & i + 1 & "次排序结果: "
        For t = 0 To UBound(arr)
            Me.Text2 = Me.Text2 & arr(t) & " "
        Next t
         Me.Text2 = Me.Text2 & vbCrLf
    Next i

End Sub


附   件:

点击下载此附件


图   示:

点击图片查看大图



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助