有如下VB程序段：

n = 3: s = 0

c = Val(Text1.Text)

For i = 1 To c

    p = i Mod n + 1

    s = s + p

Next i

在文本框Text1中输入9，程序执行后，变量s的值为（    ）

A、6

B、9

C、18

D、45