在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换法将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