问题详情

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