小雨: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

图中p表示商品单价，x表示商品数量，并根据所需金额进行优惠打折活动，如果小红买了10件单价为15元的商品，那么他因付款总金额为（  ）

a(I)=68: a(2)=88: a(3)=76: a(4)= 60: a(5)=98: a(6)=100: a(7)= 64: a(8)=85: a(9)=99: a(10)=59

  For i=1 To 9

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

    c(b(i)\10)= c(b(i)\10) + 1

  Next i

  For i=0 To 10

    If c(i)> 0 Then Label1.Caption = Label1.Caption + "" + Str(c(i))

Next i

数组c各元素初值为0，执行该程序段，标签Label 1上显示的内容是（  ）

执行这部分流程，输出s的值是（  ）