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

    Dim year,t as integer

   t=0

    For year=1896 To 2016

    t=t+1

    Next year

该程序段结束后，变量year的值是（   ）

  s =0

  i =0

   Do While i<=11

      i=i+3

      s=s+i

   Loop

程序执行结束时，变量s的值为（   ）

a(1) = 11 : a(2) = 14 : a(3) = 23 : a(4) = 23 : a(5) = 30 : a(6) = 42

key = Val(Text1.Text)

L = 1 : R = 6 : x = 0

Randomize

Do while L <= R

    mid = Int(Rnd() * (R-L+1))+ L

    If a(mid) = key Then

        Exit Do

    ElseIf a(mid) > key Then

        R = mid - 1

        x = x - 1

    Else

        L = mid + 1

        x = x + 1

    End If

Loop

If L <= R Then

    Label1.Caption = "查找成功，" + "位置为" + str(mid)

Else

    Label1.Caption = "查找失败"

End If

该程序执行后，在文本框Text1中输入23，则x的值不可能是（  ）