Dim a As Integer, b As Integer

  a = Val(Text1.Text)

  If a Mod 2 = 0 Then

b = a + 1

ElseIf a Mod 3 = 0 Then

b = a + 2

ElseIf a Mod 5 = 0 Then

b = a + 4

  Else

b = a

  End If

  Label1.Caption = Str(b)

运行该程序，在文本框Text1中输入25，单击命令按钮Command1，在标签Label1中显示的是（   ）

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语句的循环次数为（  ）

        PRIVATE SUB FORM_CLICK

        DIM A（4，4） AS INTEGER

        FOR I = 1 TO 4

           FOR J= 1 TO 4

              IF {#blank#}1{#/blank#}

                A（I，J）=1

              {#blank#}2{#/blank#}

               A（I，J）=0

              END IF

              PRINT A（I，j）;

              {#blank#}3{#/blank#}

            PRINT

              {#blank#}4{#/blank#}

        END SUB

a＝15

b＝12

a＝b

print（a，b）