VB数组的插入问题

Private Sub Form_Load()
Dim A() As String
ReDim A(1 To 5)
Dim i As Integer
Dim j As Integer
Dim n As String
Dim temp As String

A(1) = "100": A(2) = 101: A(3) = "102": A(4) = "103": A(5) = "105"

n = InputBox("请输入新学生号:")
j = Val(InputBox("请输入要插入的位置:"))
Print
Print Tab(4); "新学生号为：" & n & " "; "插入位置为：" & j

ReDim Preserve A(1 To 6)
For i = j To 6
temp = A(i)
 A(i) = n
 n = temp
 Next i
 Print Tab(4);
 For i = 1 To 6
  Print A(i); " ";
 Next i
End Sub

这是一个数组插入的代码  那位大虾帮忙解释一下从for i = j to 6 到 Next i 之间这几句代码的意思 是怎样实现了数据的插入  这几句我不理解

从第j个位置开始，插入数据n

把　a(j)　存在temp里，再把 n 写入a(j) ，这里你发现temp是个a(j),n =temp作为下一个新值用。

换一个方法你可能更能理解

for i = 5 to j step -1

a(j+1)=a(j)

next

a(j)=n

redim 的结果是a(1 to 6 )　原来最大是5

如插入位置3

把5放到6中，4放到5中，3放到4中，循环就完成了，

3还在，把新值放在3中Ok了

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息