有如下VB程序段：

s = "python": b = 0

For i = 1 To Len(s) - 1

    a = Abs(Asc(Mid(s, i, 1)) - Asc(Mid(s, i + 1, 1)))

    If a > b Then b = a

Next i

Label1．Caption = Str(b)

执行该程序段后，标签Label1上显示的内容是（    ）

A、1

B、7

C、9

D、12