有如下VB程序段：

Dim i As Integer, j As Integer, a(1 To 5) As Integer

For i =1 To 5

 a(i)=Int(Rnd*5+1)

 For j = 1 To i-1

   If a(i)=a(j) Then

    i=i-1 : Exit For

   End If

 Next j

Next i

执行程序后,数组中的数据可能是（  ）

A、1 4 3 2 5

B、1 1 3 5 4

C、1 4 5 6 3

D、2 3 4 5 5