小雨:1d(或24h)降雨量小于10mm者。

中雨:1d(或24h)降雨量10~25mm者。

大雨:1d(或24h)降雨量25~50mm者。

暴雨:1d(或24h)降雨量50~100mm者。

大暴雨:1d(或24h)降雨量100~250mm者。

特大暴雨:1d(或24h)降雨量在250mm以上者。

Private Sub Command1_Click()

Dim a As Single

Dim s as      ①            

a =         ②             

If a > 250 Then

    s = "特大暴雨"

ElseIf a > 100 Then

    s = "大暴雨"

ElseIf a > 50 Then

    s = "暴雨"

ElseIf a > 25 Then

    s = "大雨"

ElseIf a > 10 Then

    s= "中雨"

ElseIf    ③        Then

    s = "小雨"

Else

    s = "无雨"

End If

Label3.caption=    ④           

End Sub

      If I=1 Then

          X=X+1

      Else

          X=X*2

      End If

它的基本结构属于(    ).

    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数组各元素可能是（  ）