— ____________________

— It's under the desk. [ ]

A. What's your name?

B. Where is my book?

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

A．无序数列

B．升序数列

C．降序数列

D．原输入数列