运行下列过程 当输入一组数据：10 20 50 80 40 30 90 100 60．70 输出的结果应该是 sub pl（) Dim
数列,过程,结果
已帮助 人
运行下列过程，当输入一组数据：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)原输入数列
-
参考答案：A【答案】：A【知识点】：VBA编程
【解析】：本题中的For循环是一个单循环，i从1开始，每次递增1，循环9次，之后判断前一个数是否大于后一个数，如果大于则两者交换，之后输出。当i=1时，j=2，arr(1)小于arr(2)不交换，输出arr(1)为10。以此类推，输出arr(2)为20，arr(3)为50。当i=4时，j=5，arr(4)大于arr(5)，两者交换，输出arr(4)为交换后的40，由此可以看出结果是无序数列。故本题答案为A。