Dim n As Integer, i As Integer, a As Integer, b As Integer

Randomize

n=5：i=1

Do While i <=n

a= Int(Rnd*90)+ 10

b= Int(Rnd*90)+ 10

If a>b Then

List1.AddItem Str(a)+"-"+ Str(b)+“=“

i=i+1

End If

Loop

执行该程序段后，下列说法正确的是（  ）

Dim a(1 To 5) As Integer

For i = 1 To 5

    a(i) = Int(Rnd * 30 + 10)

    t = t + a(i) \ 10

Next i

For j = 1 To t \ 3

    If j Mod 2 = 1 Then a(j) = a(j) + 1 Else a(j) = a(j) - 1

Next j

运行程序后，数组a各个元素的值，不可能的是（  ）

Dim a (1 To 6) As Integer

Randomize

a(1) = Int (Rnd*2) + 1

For i = 2 To 6

  a(j) = Int (Rnd*i) *2 + 1

  If a(i) < a(i-1) Then

    a(i) = a(i) + a(i-1)

  End If

Next i

执行该程序段后，数组元素a(1)到a(6)的值可能是（  ）