急 能帮帮我么 怎么做这个题么 把一个给定数插到有序数列中，插入后数列仍然有序

Question

嗯 能帮帮我么 谢谢 给我找个详细的代码

Answer 1

Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer, k As Integer, t As Integer
t = Val(InputBox(""))
For i = 0 To 9 '生成数组
a(i) = i * 3 + 1
Print a(i);
Next i
Print
Print "插入" & t
For k = 0 To 9 '查找插入数在数组中的位置
If t < a(k) Then Exit For
Next k
For i = 9 To k Step -1 '从最后元素开始逐个后移，腾出位置
a(i + 1) = a(i)
Next i
a(k) = t '插入数
For i = 0 To 10
Print a(i);
Next i
Print
End Sub

Answer 2

题唉？