[填空题] 在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换法将10个数排成升序，请在空白处填入适当的语句。　　Sub　SORT( )　　　Dim a(1 To 10)　　　Fo

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

1 To 9 I+1 To 10 k=j

解析：由于是10个数所以1从1到9，j从i到10形成两次循环，如果是100个的话，那就是1从1到99，j从1到100形成两次循环；由于a(k)〉a(j)所以要交换，以便排序。