单选

运行下列过程,当输入一组数据: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.原输入数列
参考答案
您可能感兴趣的试题
¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服