Private Sub Command1_Click()

  Dim n As Integer，cj As Integer，s As String

  n＝Val(Text1.Text)

  cj＝{#blank#}1{#/blank#}

  s＝”s＝”

  Do While {#blank#}2{#/blank#}

    If n<>4 Then

      n＝n－3

      cj＝cj*3

      s＝s＋”3×”

    Else

      n＝n－2

      cj＝cj*2

      s＝s＋”2×”

    End If

  Loop

    cj＝{#blank#}3{#/blank#}

    If n＝3 Then s＝s＋”3” Else s＝s＋”2”

    Text2.Text＝s

    Text3.Text＝cj

End Sub

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

Text1.Text = Str(sum)

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

i=0

while i<6:

   print

   i=i+1