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

实现上述功能的VB程序如下，请回答下列问题。

1. （1） 根据代码可知，若要产生20个随机数，只需将的值修改为20即可。
3. （2） 请在划线处填入合适代码。

   Const n = 10

   Dim a(1 To n) As Integer

   Private Sub Command1_Click()  '素数迁移模块

       Dim i As Integer

       List1.Clear                 '清除列表框

       List2.Clear

       For i = 1 To n

           For j = 2 To a(i) - 1

               If  Then

                   Exit For             'Exit For的功能是退出For循环

               End If

           Next j

           If 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 = 1 To n

           a(i) =

           List1.AddItem Str(a(i))

       Next i

   End Sub