解决同一个问题，我想知道为什么课本上要用那么复杂的程序
题目：用“选择法”将数组a中的10个整数按升序排列
方法1
Option Base 1
Private Sub Form_Click()
Dim a
a = Array(9, 8, 12, 4, 7, 10, 23, 34, 21, 5)
For i = 1 To 9
k = i
For j = i + 1 To 10
If a(k) > a(j) Then
k = j
End If
Next j
If k <> i Then
temp = a(i)
a(i) = a(k)
a(k) = temp
End If
Next i
For i = 1 To 10
Print a(i);
Next
End Sub
方法2
Option Base 1
Private Sub Form_Click()
Dim a
a = Array(9, 8, 12, 4, 7, 10, 23, 34, 21, 5)
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i
For i = 1 To 10
Print a(i);
Next
End Sub
结果一样为什么课本中的解决方法是用第一种，而且好多种课本都是用的第一种。求大神指点

因为新手好理解。其实你的方法二都还可以简化。