有如下VB程序段：

Private Sub Text1_Change()

  Dim a, i As Integer

a= Val(Text1.Text)

  For i = 2 To 6 Step 2

    If a<= 15 Then a = a + i

  Next i

  Text1.Text = Str(a)

End Sub

若在文本框Text1中输入2，执行该程序段，For语句的循环次数为（  ）

A、3

B、5

C、6

D、9