有如下VB程序段：

s = 0: x ="0123456789": i = 1

Do While i <= Len(x)

    t = Val(Mid(x,i,2))

    If t Mod 3 = 0 Then s = s + t

    i = i + 1

Loop

执行该段程序后，s的值为（    ）

A、18

B、135

C、144

D、225