有如下 VB 程序段

import random

flag=[False]*10

a=[0]*6

i=0

while i<6:

    a[i]=random. randint(1,9)

    if not flag[a[i]]:

        flag[a[i]]=True

        i+=1

print(a)

该程序执行后，列表a的值可能的是（   ）

A、[7,1,6,3,2,1]

B、[6,3,5,2,4,1]

C、[8,9,1,3,0,4]

D、[5,7,3,3,8,2]