有如下程序段：

For i = 1 To Len(Text1.Text)

  c = Mid(Text1.Text, i, 1)

  If c >= "0" And c <= "9" Then c = Chr(Asc(c) + 1)

  If c >= "A" And c <= "Z" Then c = Chr(Asc(c) + 32)

  s =s + c

Next i

若文本框Text1的内容为“Number 2468！”执行程序后，变量s的值为（   ）

A、NUMBER 3579！

B、NUMBER 2468！

C、number 3579！

D、number 2468！