例022：学生成绩排序

1. 建立一个EXE工程，在窗体上添加三个标签，三个文本框，两个按钮，如图20。

                           图20

1. 两个按钮一个添加数据，一个负责排序。代码如下：

Dim Shared intarray(100) As Long

Dim Shared arrayLength As Long

Sub Form1_Command1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)'添加按钮

      intarray(arrayLength) = CInt(Trim(Text1.Text))

      arrayLength = arrayLength + 1

      Text3.Text = Text3.Text & Text1.Text & Space(2)

      Text1.Text = ""

      Text1.SetFocus()    

      Print arrayLength

End Sub

Sub Form1_Command2_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)‘排序按钮’

   QuickSortLong(intarray(), LBound(intarray), arrayLength -1)

   For i As Integer=0 To arrayLength-1

          Text2.Text = Text2.Text & intarray(i) & Space(2)

   Next

1. 运行结果参考图21。

                        图21