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

    max=10 000

    For i=1 To 10

        s=0

        For j=i To 10

          s=s+a(j)

          If s>max Then max=s

        Next j

Next i

已知数组a(1)到a(10)的原始数据为6，-6，8，-7，7，2，-2，-1，-2，4。程序执行后，变量max的值为（  ）

Dim x As String, y As String

 Dim ans As Integer

 x=“5”：y=“20”：ans=0

 If x>y Then ans=Val(x)Else ans=Val(y)

ans=ans+Val(x+y)

Text1.Text=Str(ans)

程序运行完后，文本框Text1中显示的是：（  ）

      PRIVATE SUB FORM-------CLICK()

      S=0

DIM I AS INTEGER, S AS INTEGER

      FOR I= 2 TO 100 {#blank#}1{#/blank#}

           S=S+{#blank#}2{#/blank#}

      NEXT I

      PRINT S

      END SUB