有如下VB程序段： s = "PYTHON5678" For i = 1 To Len(s)

ch = Mid(s, i, 1)

If ch >= "0" And ch <= "9" Then

  k = (Val(ch) - 1) Mod (Len(s) - 4) + 1

  s1 = Mid(s, k, 1) + s1

End If

Next i

Text1.Text = s1

程序执行完后，Text1 中显示的内容是（     ）

A、ONPY

B、YPNO

C、PNOH

D、HONP