Dim data(10) As Integer     ‘①

Dim n As Integer     ‘n表示总元素个数

Private Sub Command1_Click()

 Dim t As Integer

 t = Val(Text1.Text)

 For i = t To n-1

   ② 

 Next i

 n = n - 1

 For i = 1 To n

   ③ 

 Next i

End Sub

Private Sub Form_Load()

Dim i As Integer

n = 10

For i = 1 To n

  data(i) = i * 2

  List1.AddItem Str(data(i))

Next i

End Sub

PRIVATE SUB FORMCLICK

  FOR I = 3 TO {#blank#}1{#/blank#}

     F=0

     FOR J= 2 TO I-1

       IF {#blank#}2{#/blank#} THEN

        F=1

        EXIT FOR

       END IF

     NEXT J

  IF F=0   THEN {#blank#}3{#/blank#}

  {#blank#}4{#/blank#}

 END SUB