下列程序表示将输入的一个数插入到按递减的有序数列中,插入后使该序列仍有序 Private Sub Form_Click() Dim a, i%, n%, m% a = Array(19, 17, 15, 13, 11, 9, 7, 5, 3, 1) n = UBound(a) ReDim Preserve a(n + 1) m = Val(InputBox("输入欲插入的数")) For i = UBound(a) - 1 To 0 Step -1 If m >= a(i) Then ________________ If i = 0 Then a(i) = m Else _______________ Exit For End If Next i For i = 0 To UBound(a) Print a(i) Next i End Sub