单选题 运行下列过程，当输入一组数据：10，20，50，80，40，30，90，100，60，70，输出的结果应该是
Sub p1()
Dim i,j,arr(11) As Integer
k=1
While k＜=10
arr(k)=Val(InputBox("请输入第"&k&"个数:", "输入窗口"))
k=k+1
Wend
For i=1 To 9
j=i+1
If arr(i)＞arr(j) Then
temp=arr(i)
arr(i)=arr(j)
arr(j)=temp
End If
Debug.Print arr(i)
Next i
End Sub