1. (2020高二上·浙江期中) 某Visual Basic程序如下：

Private Sub Commandl_Click()

    Dim a As String

    a ="r"

    a=Chr(Asc(a) - 4)

    Label1. Caption =a

End Sub

运行程序后， Label1中的显示结果为（    ）