準(zhǔn)備工作 1. 啟動(dòng)VB6.0，并創(chuàng)建一個(gè)新的標(biāo)準(zhǔn)exe工程。 2. 在窗體上繪制一個(gè)命令按鈕，并將其名稱設(shè)置為Command1。 3. 雙擊命令按鈕，進(jìn)入代碼窗口。 編寫插入排序算法 4.

準(zhǔn)備工作

1. 啟動(dòng)VB6.0，并創(chuàng)建一個(gè)新的標(biāo)準(zhǔn)exe工程。

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

3. 雙擊命令按鈕，進(jìn)入代碼窗口。

編寫插入排序算法

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

Dim A(10) As Integer
Dim i, j, temp As Integer
' 隨機(jī)生成一批兩位數(shù)的隨機(jī)數(shù)，并有序地裝入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)，觀察排序結(jié)果
Print "排序后："
For i  1 To 10
    Print A(i)
Next i

運(yùn)行測(cè)試

5. 按下F5鍵，運(yùn)行程序進(jìn)行測(cè)試。

通過以上步驟，您可以使用VB6.0編寫一個(gè)簡(jiǎn)單的插入排序算法，對(duì)一批隨機(jī)數(shù)進(jìn)行排序。