某Visual Basic程序如下：

Private Sub Commandl_Click()

    Dim a As String

    a ="r"

    a=Chr(Asc(a) - 4)

    Label1. Caption =a

End Sub

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

A、m

B、M

C、n

D、v