有如下VB程序段：

a（1）=“ABC”：a（2）=“DEF”：a（3）=“GHI”

s1=“31，12，23，33”：s2=“”

For i = 1 To Len（s1）

ch = Mid（s1，i，1）

If ch < > “，” Then

i=i+1

p=Val（Mid（s1，i，1））

s2=s2+Mid（a（p），Val（ch），1）

End If

Next i

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

A、“CDHI”

B、“GBFI”

C、“CDH”

D、“GBF”