' 功能:以下利用随机函数生成 15 个 10-100 之间的整数, 然后用选择法将其从小到大排序。 '------------------------------------------------------- Private Sub Form_Click() Const n = 15 Dim a(1 To n) As Integer Dim i As Integer, j As Integer, t As Integer, min As Integer Randomize For i = 1 To n '**********SPACE********** a(i) = 【 ? 】 Next i For i = 1 To n Print a(i); Next i Print For i = 1 To n - 1 '**********SPACE********** 【 ? 】 For j = i + 1 To n If a(j) < a(t) Then t = j Next j '**********SPACE********** If 【 ? 】 Then min = a(i): a(i) = a(t): a(t) = min End If Next i For i = 1 To n Print a(i); Next i End Sub