VB 以下是Visual Basic语言的程序代码，用于定义一个函数用以判断给定的数是否是素数。_vb判断素数的程序代码

以下是Visual Basic语言的程序代码，用于定义一个函数用以判断给定的数是否是素数。

```vb
Imports System

Public Class PrimeNumber

    Public Function IsPrime(n As Integer) As Boolean
        ' 排除0、1和负数
        If n < 2 Then
            Return False
        End If
        ' 取平方根提高效率
        Dim sqrt_n As Integer = CInt(Math.Sqrt(n))
        ' 从2到平方根遍历是否有因子
        For i As Integer = 2 To sqrt_n
            If n Mod i = 0 Then
                Return False
            End If
        Next
        ' 无因子，是素数
        Return True
    End Function

    Public Shared Sub Main()
        Console.WriteLine("请输入一个正整数：")
        Dim n As Integer = CInt(Console.ReadLine())
        Dim prime As New PrimeNumber()
        If prime.IsPrime(n) Then
            Console.WriteLine(n & "是素数")
        Else
            Console.WriteLine(n & "不是素数")
        End If
    End Sub
End Class
```

使用IsPrime函数判断给定的数是否是素数，如果是素数，输出"%d是素数"，否则输出"%d不是素数"。

Imports System
 
Public Class PrimeNumber
 
    Public Function IsPrime(n As Integer) As Boolean
        ' 排除0、1和负数
        If n < 2 Then
            Return False
        End If
        ' 取平方根提高效率
        Dim sqrt_n As Integer = CInt(Math.Sqrt(n))
        ' 从2到平方根遍历是否有因子
        For i As Integer = 2 To sqrt_n
            If n Mod i = 0 Then
                Return False
            End If
        Next
        ' 无因子，是素数
        Return True
    End Function
 
    Public Shared Sub Main()
        Console.WriteLine("请输入一个正整数：")
        Dim n As Integer = CInt(Console.ReadLine())
        Dim prime As New PrimeNumber()
        If prime.IsPrime(n) Then
            Console.WriteLine(n & "是素数")
        Else
            Console.WriteLine(n & "不是素数")
        End If
    End Sub
End Class