2. 计算机
  3. 运行下列过程，当输入一组数据：10，20，50，80，40，30，90，100，60，70，输出的结果应该是 Sub p1() Dim i，j，arr(11)As Integer k=1 While k＜=10 arr(k)=Val(InputBox("请

运行下列过程，当输入一组数据：10，20，50，80，40，30，90，100，60，70，输出的结果应该是 Sub p1() Dim i，j，arr(11)As Integer k=1 While k＜=10 arr(k)=Val(InputBox("请

admin2015-12-15  14
问题 运行下列过程，当输入一组数据：10，20，50，80，40，30，90，100，60，70，输出的结果应该是
Sub p1()
Dim i，j，arr(11)As Integer
k=1
While k＜=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 art(i)
Next i
End Sub
选项 A、无序数列
B、升序数列
C、降序数列
D、原输入数列
答案A
解析 本段代码段是一个单重循环，对于数组中的每一个元素，依次与后面的元素进行比较，较大的数放在前面。运行这个过程，返回序列为：10、20、50、40、30、80、90、60、70、100，表明是一个无序序列。
转载请注明原文地址:https://kaotiyun.com/show/mxgp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)