有如下程序段：

Private Sub Command1_Click()

    s = "Tokyo_Olympic_Games"

    ans = ""

    For i = 1 To Len(s)

        c = Mid(s, i, 1)

        If (2020 \ 10 ^ 2 - i) <= Len(s) Mod 10 \ 3 Then

            If c >= "a" And c <= "z" Then c = Chr(Asc(c) - Asc("a") + Asc("A"))

        End If

        ans = ans + c

    Next i

    Label1.Caption = ans

End Sub

执行上述程序段后，标签Labele1中输出的内容为（      ）

A、TOKYO_OLYMPIC_GAMES

B、TOKYO_OLYMPIC_GAMes

C、Tokyo_Olympic_GaMES

D、Tokyo_Olympic_GameS