1. (2021高二下·温州期中) 有如下 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 Else s = s - t

    i = i + 1

Loop

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