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

Private Sub Command1_Click()

  Dim s As String, a As String, t As String

  s = Text1.Text: t = ""

  For i = 1 To Len(s)

    a = Mid(s, i, 1)

    If a >= "0" And a <= "9" Then

      t = t + a

    ElseIf a = "!" Then

      t = ""

    ElseIf t <> "" Then

      List1.AddItem t

    End If

  Next i

End Sub

在文本框Text1中输入“12+23=35!456Ye”，单击按钮“Command1”后，在列表框List1中显示的结果是（  ）

实现上述功能的VB程序如下，请回答下列问题:

s=0

For k=1 To 5

s=s * k

Next k

Print s