Dim aDataaData = Array(3,2,4,1,6,0)Call ResponseArray(aData, "原来顺序")Call ResponseArray(SelectSort(aData), "选择排序")Call ResponseArray(QuickSort(aData), "快速排序")Call ResponseArray(InsertSort(aData), "插入排序...