VB中的一些问题

对于插入排序。Private Sub Command1_Click()
Dim intnum() As Integer
Dim intmp As Integer
Dim n As Integer
Dim i As Integer
Dim j As Integer

n = InputBox("请输入排序个数")
ReDim intnum(n)

For i = 1 To n
intnum(i) = InputBox("请输入第" & i & "个数")
Next i

For i = 2 To n
For j = i To 2 Step -1
If intnum(j) < intnum(j - 1) Then
intmp = intnum(j)
intnum(j) = intnum(j - 1)
intnum(j - 1) = intmp
Else
Exit For
End If
Next j
Next i

For i = 1 To n
Print intnum(i);
Next

End Sub

这一段代码，else exit for是否存在对结果没影响但在冒泡排序中
Option Explicit

Private Sub Command1_Click()
Dim intnum() As Integer
Dim inttmp As Integer
Dim n As Integer
Dim i As Integer
Dim j As Integer

n = InputBox("请输入排序元素个数")
ReDim intnum(n)
For i = 1 To n