题干
【加试题】一个程序功能如下：单击开始按钮，每隔1秒产生一个[1,100]的随机数，赋给变量n，对产生的随机数进行判断，如果是偶数就显示在列表框1中，如果是奇数显示在列表框2中。当随机数达到20个时，停止。Timer控件的Enabled属性设置为False，即程序刚运行时不起作用。程序代码如下：
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
在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整:
程序中①划线处应填入____。
程序中②划线处应填入____。
程序中③划线处应填入____。
答案(点此获取答案解析）
n=Int(Rnd*100)+1,nMod2=0（多）,Timer1.Enabled=False
