运行下列过程，当输入一组数据：10，20，50，80，40，30，90，100，60．70，输出的结果应该是
sub pl()
Dim i, j, arr(11)As Integer
k=1
While k＜=10
arr(k)=Val(InputBox("请输入第" & k & "个数：", "输入窗口" ))
k=k+1
Wend
For i=1 T0 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

A. 升序数列
B. 降序数列
C. 无序数列
D. 原输入数列