一个程序功能如下：单击开始按钮，每隔1秒产生一个[1,100]的随机数，赋给变量n，对产生的随机数进行判断，如果是偶数就显示在列表框1中，如果是奇数显示在列表框2中。当随机数达到20个时，停止。Timer控件的Enabled属性设置为False，即程序刚运行时不起作用。

程序代码如下：
Dim m As Integer  'm 为模块级变量，用于记录随机数个数
Private Sub Command1_Click()
Randomize
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim n As Integer
①
If ②     Then  
List1.AddItem n
Else
List2.AddItem n  
End If
m =" m" + 1  
If m =" 20" Then ③  
End Sub
在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整:
程序中①划线处应填入___________________。
程序中②划线处应填入___________________。
程序中③划线处应填入___________________。