Private Sub Command1_Click()

Dim i As Integer, c As Integer, n As Integer

c = 0: n = 10

For i = 1 To 10 Step 2

    If n Mod i = 0 Then

       c = c * i

    Else

       c = c + i

    End If

Next i

Text1.Text = Str(c)

End Sub

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

 Dim a(1 To 10) As Integer

 Dim s(1 To 10) As Integer

 Private Sub Form_Load()

  a(1) = 3: a(2) = 6: a(3) = 8: a(4) = 4: a(5) = 9

  a(6) = 5: a(7) = 3: a(8) = 3: a(9) = 10: a(10) = 5

 End Sub

 Private Sub Command1_Click()

 Dim i As Integer, t As Integer

 s(1) = a(1)

 For i = 2 To 10

  s(i) = s(i - 1) + a(i)

 Next i

 t = s(8) - s(4)

 Text1.Text = Str(t)

End Sub

程序运行后，文本框Text1显示的内容是（  ）

Dim a(l To n) As Integer,y(l To n) As Integer, i As Integer, j As Integer

k=Val(Text1.Text)

For i=1 To n

    y(i)=1

Next i

For i=1 To n

    For j=1 To n

        If a(i) < a(j) Then y(i)=y(i)+1

    Next j

    If y(i)=k Then List1.AddItem Str(a(i))

Next i

数组 a 的各元素的值为3，4，3，1，4，4，5，5，6，2，0， 在文本框中输入4，执行该段程序后 List1 中显示的值为（    ）