1. (2020高一下·瑞安期末) 有如下VB程序段：该程序段运行后，文本框Text1中显示的内容是 (     )

Dim i As Integer, Sum As Integer

Dim a(1 To 11) As Integer

Sum = 6

a(11) = 49

For i = 10 To 1 Step -1

  a(i) = a(i +1) -1

  If a(i) Mod 3 = 0 Then Sum = Sum + a(i)

Next i

Text1.Text = Str(Sum)