题目

有如下程序段： Const n = 6 Dim a (1 To n) As Integer Dim i As Integer, j As Integer, t As Integer Randomize For i = 1 To n     a (i) = Int (Rnd * 20 + 11) Next i Do While True     For i = 1 To n-1         If a(i) > a(i +1) Then Exit For     Next i     If i < n Then         For i = 1 To n             j = Int(Rnd * 6) + 1             t = a(3): a(3)=a(i): a(i) = t         Next i     Else         Exit Do     End if Loop 上述程序段执行后，a(1)到a(6)的值可能是（  ） A . 10  13  15  25  25  28 B . 15  16  22  26  28  28 C . 18  21  25  25  19  30 D . 29  22  20  20  18  16 答案：B

查看本题答案和解析