单选题 运行下列过程，当输入一组数据：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