有如下 VB 程序段：
s1 = "Shui"
For i = 1 To Len(s1)
       ch = Mid(s1, i, 1)
       If ch >= "a" And ch   <= "z" Then
             ch = Chr((Asc(ch) - Asc("a") + 23) Mod 26 + Asc("A"))
       End If
       s2 = ch + s2
Next i
Label1.Caption = s2
执行该程序段后，标签 Label1 中显示的内容是（     ）

A．FRES

B．Serf

C．freS

D．SERF