填空题

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