' 功能:下面的程序段用于实现以下功能:利用冒泡法将一组整数 ' 从小到大排序。 '------------------------------------------------------- Private Sub Form_Click() Const n = 15 Dim a(1 To n) As Integer, work As Boolean Dim i As Integer, j As Integer, x As Integer Randomize For i = 1 To n a(i) = Int(90 * Rnd) + 10 Next i For i = 1 To n Print a(i); Next i Print '**********SPACE********** For i = n To 2 【 ? 】 work = True For j = 1 To i - 1 If a(j) > a(j + 1) Then x = a(j): a(j) = a(j + 1): a(j + 1) = x '**********SPACE********** 【 ? 】 End If Next j '**********SPACE********** If work Then 【 ? 】 Next i For i = 1 To n Print a(i); Next i End Sub