单选题
运行下列过程，当输入一组数据：10，20，50，80，40，30，90，100，60，70，输出的结果应该是
Sub p10
Dim ij，arr(1 1)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