有如下VB程序段：

s1 ＝ "BGR"： s2＝ "VBPROGRAM"

i ＝ 1：j ＝ 1：s3 ＝ ""

Do While i ＜ ＝ Len（s1） And j ＜ ＝ Len（s2）

    If Mid（s1，i，1） ＝ Mid（s2，j，1）Then

        i ＝ i ＋ 1

    Else

        s3 ＝ s3 ＋ Mid（s2，j，1）

    End If

    j ＝ j ＋ 1

Loop

执行该程序段后，变量s3的值是（    ）

A、"VPO"

B、"VPRO"

C、"VPOAM"

D、"VPROAM"