Dim m As Integer  'm 为模块级变量，用于记录随机数个数

Private Sub Command1Click()

Randomize

Timer1.Enabled = True

End Sub

Private Sub Timer1Timer()

Dim n As Integer

        ①      

If      ②      Then  

     List1.AddItem n

Else

     List2.AddItem n  

End If

m = m + 1          

If m = 20 Then       ③       

End Sub

在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整:

程序中①划线处应填入{#blank#}1{#/blank#}。

程序中②划线处应填入{#blank#}2{#/blank#}。

程序中③划线处应填入{#blank#}3{#/blank#}。

执行该算法，下列描述正确的是（  ）

Private Sub Command1_Click()

 Dim a(1 To 5) As Integer

 a(5)=Val(Text1.text)

 For i=4 To 1 Step -1

   a(i)=a(i+1)\2

 Next i

 Label1.caption=str(a(1))

End sub

在文本框Text1中输入“100”,单击命令按钮Command1后,标签Label1中显示的内容是（  ）