VB数组插入数据

Question

Private Sub Command1_Click()
Dim a() As Integer, n%, key%
a = Array(8, 12, 23, 45, 56)
n = UBound(a)
key = InputBox("")
For i = 0 To n
If key < a(i) Then Exit For
Next i
ReDim Preserve a(n + 1)
For j = n To 1 Step -1
a(j + 1) = a(j)
Next j
a(i) = key
For i = 0 To n + 1
Print a(i);
Next i
End Sub

a = Array(8, 12, 23, 45, 56) 此句提示类型不匹配 怎么改 大谢了~~

Answer 1

Private Sub Command1_Click()
Dim a() , n%, key%
a = Array(8, 12, 23, 45, 56)
n = UBound(a)
key = InputBox("")
For i = 0 To n
If key < a(i) Then Exit For
Next i
ReDim Preserve a(n + 1)
For j = n To 1 Step -1
a(j + 1) = a(j)
Next j
a(i) = key
For i = 0 To n + 1
Print a(i);
Next i
End Sub

Answer 2

Dim a() As Variant
用变体