vb素数代码

以下是VB.NET中的素数代码：

Private Function IsPrime(ByVal num As Integer) As Boolean
    If num <= 1 Then
        Return False
    End If

    For i As Integer = 2 To Math.Sqrt(num)
        If num Mod i = 0 Then
            Return False
        End If
    Next

    Return True
End Function

这个函数接受一个整数作为参数，并返回一个布尔值，指示该数字是否为素数。它使用一个简单的算法来检查数字是否可以被除以2到其平方根之间的任何数字整除。如果数字可以被整除，则它不是素数。如果数字不能被整除，则它是素数。

以下是一个完整的VB.NET程序，它使用上面的IsPrime函数来打印出1到100之间的所有素数：

Module Module1
    Sub Main()
        For i As Integer = 1 To 100
            If IsPrime(i) Then
                Console.WriteLine(i)
            End If
        Next
    End Sub

    Private Function IsPrime(ByVal num As Integer) As Boolean
        If num <= 1 Then
            Return False
        End If

        For i As Integer = 2 To Math.Sqrt(num)
            If num Mod i = 0 Then
                Return False
            End If
        Next

        Return True
    End Function
End Module

这个程序使用一个简单的循环来遍历1到100之间的所有数字。对于每个数字，它调用IsPrime函数来检查它是否为素数。如果是素数，则它将该数字打印到控制台。