快速排序算法调试记录.docVIP

快速排序算法.exe 调试记录 界面： 说明：主要采用了3个Label控件，1个TextBox控件，2个CommandButton控件，1个PictureBox控件，力求界面简洁明了，容易操作。 程序调试： PART1：对“开始排序”按钮触发程序的调试记录 第一次调试： 代码： Private Sub quicksort(ByRef arrValue() As String, ByVal intLx As Integer, ByVal intRx As Integer) arrValue()是待排的数组，intLx,intRx为左右边界 Dim strValue As String Dim I As Integer Dim j As Integer Dim intLoop As Integer I = intLx j = intRx Do While arrValue(I) = arrValue(j) And I j: I = I + 1: Wend If I j Then strValue = arrValue(I) arrValue(I) = arrValue(j) arrValue(j) = strValue End If While arrValue(I) = arrValue(j) And I j: j = j - 1: Wend If I j Then strValue = arrValue(I) arrValue(I) = arrValue(j) arrValue(j) = strValue End If Loop Until I = j I = I - 1: j = j + 1 If I intLx Then Call quicksort(arrValue, intLx, I) End If If j intRx Then Call quicksort(arrValue, j, intRx) End If End Sub Private Sub Form_Load() Dim arr(8) As String arr(0) = r arr(1) = e arr(2) = a arr(3) = n arr(4) = b arr(5) = u arr(6) = c arr(7) = o arr(8) = f Call quicksort(arr, 0, UBound(arr)) End Sub 调试结果及分析：完全没与Text1和Picture1挂钩，无法使用，需推倒重来。但其中新数据类型的引入对以后新代码的编写有参考意义。 第二次调试： 代码： Private Sub Command1_Click() Dim strX As String Dim A Dim strY As Integer Dim I, J As Integer Text1.Text = strX = Text2.Text A = Split(strX, vbCrLf) For I = 1 To UBound(A) - 1 For J = I + 1 To UBound(A) If A(I) A(J) Then strY = A(I) A(I) = A(J) A(J) = strY End If Next J Next I For I = 1 To UBound(A) Text2.Text = Text2.Text A(I) vbCrLf Next I End Sub 调试结果及分析：本组代码与采用Text1输入，Text2输出的方法，但测试时对于Text1输入的数组，Text2中并没有产生任何数据。我们决定推倒重来。 第三次调试： 代码： Private Sub Command1_Click()Dim ss = Split(Trim(Text1.Text), )Dim smin As IntegerFor i = 0 To UBound(s)For j = 0 To UBound(s) - 1If s(j) s(j + 1) Thensmin = s(j)s(j) = s(j + 1)s(j + 1) = sminEnd IfNext jNext iFor i = LBound(s) To UBound(s)Picture1.Print s(i) ;Next iEnd Sub 说明：该段代码采用了双循环嵌套模式，并且选用了新的数据类型。 调试数据记录表： 测试序号 输入 输出 1 12 1 3 23 31 25 2 1 12 2 23 25 3 31 调试结果分析：直观地可以看出，该程序优先按照最高位数字大小