在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换法将10个数排成升序，请在空白处填入适当的语句。
Sub SORT( )
Dim a(1 To 10)
For i=1 To 10
a(i)=Val(InputBox(" " ，" "，0))
Next i
For i=【 】
k=i
For j=【 】
If a(k)＞a(j)Then 【 】
If k＜ ＞i Then
b＝a(k)
a(k)＝a(i)
a(i) =b
End If
Next j
Next i
For k=1 To 10
Print a(k)
Next k
End Sub