有如下程序段：

Dim a(1 To 9) As Integer, m As Integer, k As Integer, i As Integer

a(1)=2 : a(2)=8 : a(3)=3 : a(4)=4 : a(5)=5 : a(6)=6 : a(7)=1 : a(8)=7 : a(9)=9

m = 1: k = 1

For i = 2 To 9

    If a(i) > a(i - 1) Then

k = k + 1

If k > m Then m = k

    Else

k = 1

    End If

Next i

Text1.Text = Str(m)

该程序段运行后，文本框Text1中显示的内容是（   ）

A：4

B：6

C：8

D：9