有如下VB程序段：

c = 1: Max = 0

s = "19491001ZHong20211001"

For i = 2 To Len(s)

    If Asc(Mid(s, i - 1, 1)) < Asc(Mid(s, i, 1)) Then

        c = c + 1

    ElseIf c > Max Then

        Max = c

        c = 1

    Else

        c = 1

    End If

Next i

Text1.Text = Str(Max)

执行上述程序段后，文本框 Text1 中显示的是（   ）

A、3

B、4

C、5

D、6