求vb编程题：有一个已排好序的数组，向该数组中插入一个数，要求按原来排序的规则将它插入到数组中

Question

如题所述

Answer 1

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

For i = 0 To 10
Print b(i) & ",";
Next i

Answer 2

（1）for i=1 to N，循环比较大小，一定能找到这个数合适的位置i,
（2）循环移动数值，for i=n to i，使A(n+1) = A(n)，A(i) = 新插入的数

Answer 3

第一：直接插入这个数值

第二：来个冒泡排序 就搞定了！