Question

VB 将列表框1的内容全部复制到列表框2中

这样的一道题，进入程序时，列表框1中的出现30个100到300的随机整数。（这一步我会。）然后单击command1（判断质数），就在列表框2中显示出列表框1中所筛选出来的质数。是不是需要先将列表框1中的数据复制到列表框2中再判断筛选？这道题究竟该怎么做？
在线等啊。今天不解决睡不着，网上好多列表框的教程都看了，还是没看到一个能帮上忙的。
我试过了...你们给的答案筛选出来的都有的不是质数..很费解，我看了语句也应该是判断质数的语句啊。

Answer 1

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
For j = 2 To Int(Sqr(List1.List(i)))
If i Mod j = 0 Then
Exit For
End If
Next
If j > Int(Sqr(List1.List(i))) Then List2.AddItem List1.List(i)
Next
End Sub

Private Sub Form_Load()
Randomize
For i = 1 To 30
List1.AddItem Int(Rnd(1) * 201 + 100)
Next
End Sub

Answer 2

dim n,m as int...
m=0
for n=0 to 29
if list1.n=质数 then
list2.m=list1.n
m=m+1
end if

Answer 3

for i = 0 to list1.listcount-1
如果list1.list(i)是质数list2.additem list1.list(i)
next i