Private Sub Command1_Click()

    For i=1 To 4

    s=””

      For j=1 To 7

     If        Then

s=s+“*“

 Else

       s=s+”  ”    ‘双引号内为1个空格

       End If

    Next j

    List1．AddItem s

    Next i

  End Sub

则方框中的语句是 （  ）

    Dim a(1 To 5) As Integer

    a(1) = 1

    For i = 2 To 5

      a(i) = Int(Rnd() * 3) + 3

    Next i

    For i = 2 To 5

      If a(i) Mod 2 = 1 Then

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

      Else

        a(i) = a(i) / 2

      End If

    Next i

执行程序后，a数组各元素可能是（  ）