Dim i As Integer, Sum As Integer

Dim a(1 To 6) As Integer, b(1 To 6) As Integer

Sum = 0

a(6) = 18: a(5) = 7: b(6) = 14: b(5) = 16

For i = 4 To 1 Step -1

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

 b(i) = b(i+2)-a(i)

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

Next i

Textl .Text = Str(Sum)

该程序段运行后，文本框text1中显示的内容是（  ）

Option Base 1

Private Sub Command1Click

     Dim a(4, 4)

     For i = 1 To 3

        For j = 1 To 3

             a(i, j)=(i-1)*3+j

        Next j

     Next i

     PRINT A(3, 1)

End Sub

程序运行后，单击命令按钮，其输出结果为（  ）