有如下VB程序段：

c = 0: k = 1

For i = 2 To 8

    If i Mod 2 = 0 And a(k) > a(i) Then

        k = i

        c = c + 1

    End If

Next i

数组元素a(1)到a(8)的值依次为“16，8，18，3，12，9，15，2”，执行该程序段后，变量k和c的值为（  ）

A、4 1

B、4 2

C、8 2

D、8 3