实现某算法的部分VB 程序段如下：

i=1

Do While i <= 9

  If a(i) <> 0 Then

    j=10

    Do While j > i

      If a(j)=a(i) Then a(j)=0

      j=j - 1

    Loop

  End If

  i=i+1

Loop

For i=1 To 10

   If a(i) <> 0 ThenText1.Text= Text1.Text+str(a(i))

Next i

数组元素a(1)到a(10)的数据依次为“4，1，6，4，4，9，1，7，6”，则程序运行后，文本框Text1中显示的内容是(  )

A、4 9 1 7 6

B、4 1 6 9 7

C、6 7 1 9 4

D、7 9 6 1 4