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