有人能帮忙解决下素数的问题吗？

sa7878sa 发布于 2014-06-15 18:34， 304 次点击

[local]1[/local] 我想把列表框1中的素数通过command1 click弄到列表框2中
Private Sub Form_Load()
Dim i As Integer, a(10) As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 30) + 1
List1.AddItem a(i)
Next i

End Sub 这是窗体的程序请问各位大神控件按钮的程序怎么设计

1 回复

xzlxzlxzl2014-06-16 10:13

这是习题练习吧，这么基础，都不好意思做。
Private Sub Command1_Click()
  Dim i As Integer, j As Integer, m As Integer
  List2.Clear
  For i = 0 To List1.ListCount - 1
    m = Val(List1.List(i))
    If m > 1 Then
      f = True
      For j = 2 To m - 1
        If (m Mod j) = 0 Then Exit For
      Next
      If j > m - 1 Then List2.AddItem m
    End If
  Next
End Sub