Question

使用VB.NET Windows应用程序我正在尝试做以下事情：我有2个ListBoxes ListBox1和ListBox2。 ListBox1中有一些数字。如果我只是单击按钮，我想在ListBox2中添加所有素数。我现在真的无法做到这一点。请帮帮我。

由于

Answer 1

使用此项（如果需要，更改按钮和列表框名称） -

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    For Each item As Integer In ListBox1.Items
        If IsPrime(item) Then
            ListBox2.Items.Add(item)
        End If
    Next
End Sub
Public Shared Function IsPrime(subject As Integer) As Boolean
    If (subject And 1) = 0 Then
        If subject = 2 Then
            Return True
        Else
            Return False
        End If
    End If
    Dim i As Integer = 3
    While (i * i) <= subject
        If (subject Mod i) = 0 Then
            Return False
        End If
        i += 2
    End While
    Return subject <> 1
End Function

Prime编号中的VB.NET帮助

1 个答案: