还记得以前考计算机等级考试四级时,用C语言实现过一些很基本的算法,其中就包括冒泡排序法。
今天,试着用VBA来实现以下冒泡排序。
程序特点:
1. 随机生成数字和日期
2. 实现对日期的排序
3. 添加了程序参数,方便控制排序类型(可以关闭不需要的排序操作)
4. 体验了Option Explicit (强制显式声明变量)功能
运行效果:
代码:
Option Explicit
Sub NestedLoop()
Dim i, j As Integer '循环控制变量
Dim t As Integer '随机数排序时的中间变量
Dim td As Date '随机日期排序时的中间变量
Dim sd As Date '随机生成日期时的起始日期
Dim s1 As Boolean '控制是否执行随机数排序
Dim s2 As Boolean '控制是否执行随机日期排序
'设置程序参数
s1 = True 'True -> 执行随机数排序
s2 = True 'True -> 执行随机日期排序
Const n As Integer = 20 '循环次数
sd = #11/29/1980# '起始日期
'设置表头
With Worksheets("BubbleSort")
.Cells(1, 1) = "序号"
.Cells(1, 2) = "随机数(排序前)"
.Cells(1, 3) = "排序后随机数"
.Cells(1, 4) = "随机日期(排序前)"
.Cells(1, 5) = "排序后随机日期"
End With
'数据区
With Worksheets("BubbleSort")
For i = 1 To n
.Cells(i + 1, 1) = i '序号(1,2,...,20)
.Cells(i + 1, 2) = Int(Rnd * 20) + 1 '随机数(1-20)
.Cells(i + 1, 4) = DateAdd("d", Int(Rnd() * (Date - sd)) + 1, sd) '随机日期
'Debug.Print .Cells(i + 1, 4)
Next
'复制随机数
For i = 1 To n
.Cells(i + 1, 3) = .Cells(i + 1, 2)
.Cells(i + 1, 5) = .Cells(i + 1, 4)
Next
'冒泡法排序随机数
If s1 Then
For i = 2 To n '外循环
For j = i + 1 To n + 1 '内循环
If .Cells(i, 3) < .Cells(j, 3) Then
t = .Cells(i, 3)
.Cells(i, 3) = .Cells(j, 3)
.Cells(j, 3) = t
End If
Next
Next
End If
'冒泡法排序随机日期
If s2 Then
For i = 2 To n '外循环
For j = i + 1 To n + 1 '内循环
If .Cells(i, 5) < .Cells(j, 5) Then
td = .Cells(i, 5)
.Cells(i, 5) = .Cells(j, 5)
.Cells(j, 5) = td
End If
Next
Next
End If
End With
End Sub