使用VB6.0進行插入平移排序

準備工作 1. 啟動VB6.0，并創建一個新的標準exe工程。 2. 在窗體上繪制一個命令按鈕，并將其名稱設置為Command1。 3. 雙擊命令按鈕，進入代碼窗口。 編寫插入排序算法 4.

準備工作

1. 啟動VB6.0，并創建一個新的標準exe工程。

2. 在窗體上繪制一個命令按鈕，并將其名稱設置為Command1。

3. 雙擊命令按鈕，進入代碼窗口。

編寫插入排序算法

4. 在命令按鈕的單擊事件中，編寫以下代碼：

Dim A(10) As Integer
Dim i, j, temp As Integer
' 隨機生成一批兩位數的隨機數，并有序地裝入A(i)中
For i  1 To 10
    A(i)  Int((99 - 10   1) * Rnd   10)
Next i
' 輸出A(i)，以便在排序完成后觀察比較
For i  1 To 10
    Print A(i)
Next i
' 插入排序算法
For i  2 To 10
    temp  A(i)
    j  i - 1
    While j > 0 And A(j) > temp
        A(j   1)  A(j)
        j  j - 1
    Wend
    A(j   1)  temp
Next i
' 排序完成后再次輸出A(i)，觀察排序結果
Print "排序后："
For i  1 To 10
    Print A(i)
Next i

運行測試

5. 按下F5鍵，運行程序進行測試。

通過以上步驟，您可以使用VB6.0編寫一個簡單的插入排序算法，對一批隨機數進行排序。