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