1. (2016·杭州模拟) 编写一个具有下列功能的VB程序：单击“分类”按钮Command1，随机产生10个[10，99]区间中的整数，并将其中3的倍数显示在List1中，余下的数显示在List2中。运行界面如图所示。

 

 

1. （1） 要使命令按钮Command1上显示的文本为“分类”，可在其属性窗口中将属性的属性值改为“分类”。
3. （2） 为实现上述功能，请在划线处填写合适的代码。

   Private Sub Command1_Click()

   List1.Clear

   List2.Clear

   Dim a(1 To 10) As Integer

   For i = 1 To 10

     a(i) =

     If Then

        List1.AddItem Str(a(i))

     Else

       

     End If

   Next i

   End Sub