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