数组元素的插入 VB

来源：百度知道 编辑：UC知道 时间：2024/07/05 11:52:35
程序要求：数组a中存放着升序排列的10个元素，现将一个新数据x插入到数组a中，使插入后的数组仍有序，且数组中各元素的值用随机函数产生，在窗体上分别输入插入前后的数组各元素值。
谢谢~~各位，这个问题紧急，大家帮帮忙吧~！

Private Sub Form_Click()
Form1.Cls
Dim A(10) As Integer, B(11) As Integer
Dim I As Integer, J As Integer, X As Integer, T As Boolean
Randomize
For I = 1 To 10
A(I) = Int(Rnd * 100)
Next
Print "随机产生的数组是：";
For I = 1 To 9
For J = I + 1 To 10
If A(I) > A(J) Then
A(0) = A(I)
A(I) = A(J)
A(J) = A(0)
End If
Next
Print A(I);
Next
Print A(10)
X = Int(Val(InputBox("插入值 X ", "输入", Int(Rnd * 100))))
Print "插入"; X; "后数组为：";
J = 1
T = False
For I = 1 To 10
If X > A(I) Then
B(J) = A(I)
Else
If T Then
B(J) = A(I)
Else
B(J) = X