利用 VBA编程语言生成一个筛选序列，并且实现一个排序算法。

下面是一个示例，演示了如何使用VBA编程语言生成随机序列并实现冒泡排序算法：

Sub GenerateRandomSequence()
    Dim length As Integer
    length = 10 ' 序列长度

    Dim sequence() As Variant
    ReDim sequence(1 To length)

    Dim i As Integer
    For i = 1 To length
        sequence(i) = i ' 生成序列
    Next i

    ' 打乱序列的顺序
    Dim j As Integer, temp As Variant
    For i = length To 2 Step -1
        j = Int((i - 1 + 1) * Rnd + 1)
        temp = sequence(j)
        sequence(j) = sequence(i)
        sequence(i) = temp
    Next i

    ' 输出生成的随机序列
    For i = 1 To length
        Debug.Print sequence(i)
    Next i
End Sub

Sub BubbleSort()
    Dim sequence() As Variant
    sequence = Array(5, 3, 8, 4, 2, 9, 6, 1, 7) ' 需要排序的序列

    Dim n As Integer
    n = UBound(sequence) - LBound(sequence) + 1

    Dim i As Integer, j As Integer, temp As Variant
    For i = 0 To n - 1
        For j = 0 To n - i - 2
            If sequence(j) > sequence(j + 1) Then
                temp = sequence(j)
                sequence(j) = sequence(j + 1)
                sequence(j + 1) = temp
            End If
        Next j
    Next i

    ' 输出排序后的序列
    For i = LBound(sequence) To UBound(sequence)
        Debug.Print sequence(i)
    Next i
End Sub

在第一个子程序中，我们首先定义了一个长度为10的序列，并使用Rnd函数将数字1到10随机打乱。然后，通过循环输出生成的随机序列。

在第二个子程序中，我们定义了一个需要排序的序列，并使用冒泡排序算法对其进行排序。冒泡排序算法重复地遍历序列，将相邻的元素进行比较，并根据需要交换它们的位置，直到整个序列排序完成。

你可以根据需要修改代码中的序列长度和需要排序的序列，并根据实际情况调整算法来满足你的需求。请在VBA开发环境中运行这些代码并查看输出结果。