运行下列过程,当输入一组数据:10,20,50,80,40,30,90,100,60,70,输出的结果应该是 Sub pl () Dim i,j,arr(11)As Integer k=1 While kl<=10

admin2019-06-28  36

问题 运行下列过程,当输入一组数据:10,20,50,80,40,30,90,100,60,70,输出的结果应该是
    Sub pl ()
    Dim i,j,arr(11)As Integer
    k=1
    While kl<=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、原输入数列

答案A

解析 本段代码段是一个单重循环,对于数组中的每一个元素,依次与后面的元素进行比较,较大的数放在前面。运行这个过程,返回序列为:10、20、50、40、30、80、90、60、70、100,表明是一个无序序列。
转载请注明原文地址:https://jikaoti.com/ti/5lo0FFFM
0

随机试题
最新回复(0)