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