使用数组进行冒泡排序

今天学习了使用数组进行排序,对其总结如下

Private Sub CommandButton1_Click()
  Dim ARR '声明数组
  Dim X, Y '声明变量
  ARR = Range("A1:A10") '数区域装入数组中
  For X = 1 To UBound(ARR) - 1 '从1到数组最后减1,假设一共10个,原因9和10对比
    For Y = X + 1 To UBound(ARR) '第一个是和2到最后进行对比
      If ARR(X, 1) >= ARR(Y, 1) Then '如果大于
        temp = ARR(X, 1) '先记下当前
        ARR(X, 1) = ARR(Y, 1) '互换内容
        ARR(Y, 1) = temp '再将其原来记下的内容存入
      End If
    Next
  Next
 Range("C1").Resize(UBound(ARR), 1) = ARR '数组内容存入到C1扩展后的区域
End Sub

 

发表评论

电子邮件地址不会被公开。 必填项已用*标注