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

admin2020-06-06  41

问题 运行下列过程,当输入一组数据:10,20,50,80,40,30,90,100,60,70,输出的结果应该是
    Sub p10
    Dim i,i,art(11)As Integer
k=1
    While k<=10
       arr(k)=Val(InputBox("请输入第"&k&"个数:","输入窗口"))
       k=k+1
    Wend
    For i=l To 9
      j=i+1
      Ifarr(i)>arr(j)Then
        temp=arr(i)
        arr(i)=arr(j)
        arr0)=temp
      End If
      Debug.Print arr(i)
    Next i
  End Sub

选项 A、无序数列   
B、升序数列
C、降序数列   
D、原输入数列

答案A

解析
转载请注明原文地址:https://jikaoti.com/ti/Tjo0FFFM
0

随机试题
最新回复(0)