有如下VB程序段：

s ="ATCGCGCTACTGA"

s1 =" ACGT"

n= Len(s)

i=1：j=1：c=0

Do While i <= n and j <=4

    If Mid(s， i， 1)=Mid(s1， j，1) Then

        j=j+1

    End If

    i=i+1

Loop

s= Mid(s， 1， i-1)

执行该程序段后，变量s的值是(    )

A、ATCCCG

B、ATCC

C、ATCGCGCT

D、ATCCCGC