<% Dim aData aData = Array(3,2,4,1,6,0) Call ResponseArray(aData, “原来顺序”) Call ResponseArray(SelectSort(aData), “选择排序”) Call ResponseArray(QuickSort(aData), “快速排序”) Call ResponseArray(InsertSort(aData), “插入排序”) Call ResponseArray(BubbleSort(aData), “冒泡排序”) ‘选择排序 Function SelectSort(a_Data) Di