下面程序的功能是:将数组a中下标值为偶数的元素从小到大排列,其他元素不变。 Dim a(1 To 10),i,j,k For i=1 To 10 a(i):InputBox("input:") Next i For i;

admin2009-03-15  27

问题 下面程序的功能是:将数组a中下标值为偶数的元素从小到大排列,其他元素不变。
   Dim a(1 To 10),i,j,k
   For i=1 To 10
      a(i):InputBox("input:")
   Next i
   For i;1 To 10
      Print a(i)
   Next i
   Print
   For i=2 To 10【  】
     For j=i+2 To 10
     If【  】Then
      t=a(i)
      a(i)=a(j)
      a(j)=t
     End If
    Next j
   Next i
   For i=1 To 10
     Print a(i)
   Next i

选项

答案step 2 ,a(i)>a(j)

解析 i循环中假定a最小,j循环中和i后面的偶数下标元素进行比较,如果当前元素a[j]比最小元素 a还要小,就交换。而只对偶数下标的元素比较排序,因此循环变量的步长为2,在空[14]处填step 2。捧序顺序是从小到大,因此应该是后面的元素a(j)小于前面的元素a(i)时,两者交换值,因此在空[15]处填a(i)>a(j)。
转载请注明原文地址:https://kaotiyun.com/show/gG1p777K
0

最新回复(0)