[已解决]VB这个升序数组错在哪里编译不通过

laoau138

VB这个升序数组错在哪里编译不通过

数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，

插入后数组仍有序。

注意：要求利用动态数组，能够实现多次插入

Sub test()
Dim MyValue, a As Integer
MyValue = InputBox("输入要添加的数", "添加元数", 0)
a = Array(1, 5, 42, 105)'初始数组
For i = LBound(a) To UBound(a)
If MyValue > Val(a(UBound(a))) Then
a(UBound(a)) = a(UBound(a)) & " " & MyValue
Exit For
end If
If MyValue < Val(a(i)) Then
a(i) = MyValue & " " & a(i)
Exit For
end If
next
a = Split(Join(a)) '结果
'在立即窗口里查看结果,可删除
For i = LBound(a) To UBound(a)
Debug.Print a(i)
next
End Sub

最佳答案

月排行榜 / 总排行榜

france723

2017-4-30 18:27

dim a as Interger 和后面赋予A为数组冲突了。修改成 Dim a 即可

跳转到最佳答案楼层

france723

dim a as Interger 和后面赋予A为数组冲突了。修改成 Dim a 即可