有如下VB 程序段：

s = "20210606"

c1 = 6

n = 0

For i = 1 To Len(s)

  c = Val(Mid(s, i, 1))

If c < c1 Then

  n = n + 1: c1 = c

Next i

运行该程序段后，n 的值为（    ）

A、0

B、2

C、6

D、8