解决此问题的流程图如图四所示。根据流程图编写的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#}

T=1：K=1

Do While K<=5

T=T*K

K=K+2

Loop

For i=1 to 30

   If i mod 5=0 then

      s=s+i

      i=i+6

   end if

next i