阅读下面程序代码: Private Sub Command1_Click() Dim temp As Integer a=Array(2,7,4,10,0,1,8,5,3,9,6) For i=7 To 4 Step-1

admin2018-07-11  29

问题 阅读下面程序代码:
    Private Sub Command1_Click()
    Dim temp As Integer
    a=Array(2,7,4,10,0,1,8,5,3,9,6)
    For i=7 To 4 Step-1
    For j=3 To i-1
    If a(j)>a(j+1)Then
    temp=a(j)
    a(j)=a(j+1)
    a(j+1)=temp
    End If
    Next j
    Next i
    For i=0 To 10
    Print a(i);
    Next i
    End Sub
    此程序代码运行后的输出是(    )。

选项 A、2 7 4 0 1 5 8 10 3 9 6
B、0 1 2 3 4 5 6 7 8 9 10
C、2 7 0 1 4 5 8 10 3 9 6
D、2 7 4 10 0 1 3 5 8 9 6

答案A

解析 Array函数用来为数组元素赋值,即把一个数据集读入某个数组。本题利用Array函数,将一组整型数据读入到数组变量a中。利用二重For循环对数组中的部分元素进行排序,循环执行过程中,各变量的值如下表所示。

  循环结束后数组中各元素的值依次为:(2,7,4,0,1,5,8,10,3,9,6);所以A选项正确。
转载请注明原文地址:https://jikaoti.com/ti/pem0FFFM
0

最新回复(0)