有如下VB程序段：

s1 = "2019GaoKao"

For i = 1 To Len(s1)

    ch = Mid(s1, i, 1)

    If ch >= "0" And ch <= "9" Then

        ch = Str((Val(ch)+1) Mod 10)

        s2 = ch + s2

    ElseIf ch >= "a" And ch <= "z" Then

        ch = Chr(Asc(ch) - 32) s2 = s2 + ch

    End If

Next i

该程序运行后，s2的值是（     ）

A、"A0A00213"

B、"0213A0A0"

C、"02130A0A"

D、"0A0A0213"