vb:有一个已排好序的数组,向该数组中插入三个数,要求按原来排序的规则将它插入到数组中
Private Sub Command2_Click()
Dim a(10) As Integer, i%, m%, t%, n%
Dim b(11) As Integer
For i = 0 To 9 '模拟一组数 0-9的
a(i) = i
Print a(i) & ",";
Next i
Print ""
m = CInt(InputBox("输入要插入的数:"))
For i = 0 To 10
If m < a(i) And n = 0 Then
b(i) = m
n = n + 1
Else
b(i) = a(i - n)
End If
Next i
If n = 0 Then b(i - 1) = m
For i = 0 To 10
Print b(i) & ",";
Next i
End Sub
这段代码只能插入1个数,如果要插入3个数,该如何修改?
在线等,谁能帮帮忙啊?急!!!