作业帮 > 综合 > 作业

急 把一个给定数插到有序数列中,插入后数列仍然有序

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/05/15 17:03:03
急 把一个给定数插到有序数列中,插入后数列仍然有序
嗯 给我找个详细的代码
急 把一个给定数插到有序数列中,插入后数列仍然有序
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 Su