Access选择排序算法
时 间:2022-11-01 08:37:23
作 者:欧志华 ID:51519 城市:广州
摘 要:选择排序算法。
正 文:
代码如下:
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交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)