ACCESS里面将text2的数字冒泡排序再将排好的数字输出到text4里

好的，以下是实现冒泡排序的代码片段：

Sub BubbleSort()
    Dim arr() As Integer
    Dim i As Integer, j As Integer, temp As Integer
    Dim lastRow As Long
    
    ' 获取text2中数字的总行数
    lastRow = Range("text2").Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 将数字存储到数组中
    ReDim arr(lastRow - 1)
    For i = 0 To lastRow - 1
        arr(i) = Range("text2").Cells(i + 1, 1).Value
    Next i
    
    ' 冒泡排序
    For i = LBound(arr) To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            If arr(i) > arr(j) Then
                temp = arr(i)
                arr(i) = arr(j)
                arr(j) = temp
            End If
        Next j
    Next i
    
    ' 将排好序的数字输出到text4
    Range("text4").ClearContents
    For i = 0 To lastRow - 1
        Range("text4").Cells(i + 1, 1).Value = arr(i)
    Next i
End Sub

你可以将以上代码复制到你的VBA编辑器中，然后在需要运行的地方调用BubbleSort()函数即可。注意，这里假设text2和text4是单列的，如果不是，需要修改代码中的Cells参数。