下列说法正确的是（   ）

解决此问题的流程图如图四所示。根据流程图编写的Visual Basic程序如下，在划线处，填入合适的语句或表达式，把程序补充完整。

Private Sub Command1_Click()

  Dim x As  ① 

  x = Val(Text1.Text)

  If   ②   Then

    Label1.Caption = "你属于醉酒驾车!"

  Else

    If x >= 0.3 Then

    Label1.Caption = "你属于酒后驾车!"

    ③ 

    Label1.Caption = "恭喜你没有违法! "

    End If

    ④

End Sub

程序中划线处①应填入{#blank#}1{#/blank#}

程序中划线处②应填入{#blank#}2{#/blank#}

程序中划线处③应填入{#blank#}3{#/blank#}

程序中划线处④应填入{#blank#}4{#/blank#}

   If  a>b  Then

     max=a

   Else

     max=b

      .  

n = Len(Text1.Text)

For i = 1 To n

 a(i) = Mid(Text1.Text, i, 1)

Next i

Do While n > 1

 If Asc(a(n)) >= Asc(a(n - 1)) Then

    m = 1

 Else

    m = 2

 End If

 b(m) = b(m) + 1

 n = n-1

Loop

数组b各元素的初始值都为0，文本框Text1的内容为“2018Python”。执行程序后，变量b(1)的值为（  ）