题目

有如下VB程序段： Dim d(1 to 5) As Integer， i As Integer For i= 1 To 8 a(i) =Int(Rnd*10) + 1 Next i For i=1 To 5 Step 2 k=i For j=i+2 To 7 Step 2If a(j) <a(k) Or a(j) =a(k) And a(j+1) <a(k+1) Next j Then k=j If i<>k Thent=a(i)：a(i)=a(k)：a(k)=tt=a(i+1)：a(i+1)=a(k+1)：a(k+1)=t EndIf Next i 运行该程序段后，数组a各元素的值可能为（ ） A . 1，2，1，1，4，3，6，5 B . 1，1，1，2，3，4，5，6 C . 0，1，5，2，7，4，5，6 D . 3，4，5，2，6，4，7，11下图是2006—2011年各年5月中下旬长江中游洞庭湖和鄱阳湖水体面积变化对比图。读图回答下列各题。 1.该时期两湖水体面积变化的特点是（    ） A．两湖水体面积均持续减少         B．两湖水体面积变化基本同步 C．洞庭湖水体面积变化逐年减小      D．2009—2010年鄱阳湖水体面积变化最大 2.该时期鄱阳湖水体面积变化的主要原因是（    ）    A．鄱阳湖流域降水量的变化                    B． 鄱阳湖流域蒸发量的变化 C．鄱阳湖出水量的变化                 D． 长江干流入湖水量的变化