素数迁移：小王编写了一个VB程序，在左边List1中显示随机生成的10个介于[2，99]的随机整数，单击命令按钮Command1后，其中的素数全部迁移到右边的List2中并进行显示，同时只有那些非素数（合数）的才继续在List1中显示，运行界面如图所示。

实现上述功能的VB程序如下，请回答下列问题。
（1）根据代码可知，若要产生20个随机数，只需将的值修改为20即可。
（2）请在横线处填入合适代码。
Const n=10
Dim a（1To n） As Integer
Private Sub Command1_Click （　　）’素数迁移模块
Dim i As Integer
List1．Clear’清除列表框
List2．Clear
For i=1To n
For j=2To a（i）-1
If ①

a（i）Mod j=0

a（i）Mod j=0

Then
Exit For’Exit For的功能是退出For循环
End If
Next j
If ②

j=a（i）

j=a（i）

 Then
List2．AddItem Str（a（i））
Else
List1．AddItem Str（a（i））
End If
Next i
End Sub
Private Sub Form_Load （　　）’随机数初始化模块
Randomize’随机数种子初始化
For i=1To n
a（i）=③

Int（Rnd*98）+2

Int（Rnd*98）+2

List1．AddItem Str（a（i））
Next i
End Sub