1. (2021高二下·丽水月考) 有如下 VB 程序段：

x = 86420: s1 = "ByeBye2020": s2 = "Fighting2021" result = ""

Do While x > 0

    r = x Mod 10

    If r Mod 3 = 0 Then

        result = Mid(s1, r + 1, 1) & result

    Else

        result = result & Mid(s2, r + 1, 1)

    End If

    x = x \ 10

Loop

Text1.Text = result

执行该程序段后，文本框Text1中显示的内容是（    ）