有如下VB程序段:

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

Dim flag As Boolean, j As Integer

a(1) =1 : a(2) = 1 : a(3) = 1 : a(4)= 1 : a(5) = 1

Randomize

For i = 1 To 5

 j = 1: flag = True

 Do While j <= i - 1 And flag = True

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

  If a(i) = a(j) Then

   i = i - 1: flag = False

  End If

  j = j + 1

 Loop

Next i

运行程序后，数组中的数据值可能是（  ）

A、1 4 3 1 5

B、1 1 3 5 4

C、1 2 3 5 5

D、1 3 4 5 6