在VB编程中，判断一个数m是否为素数，可以通过以下方法实现：
方法一：暴力枚举法
从2到m-1依次判断m能否被这些数整除。如果能被整除，则m不是素数；如果都不能整除，则m是素数。
```vb
Private Function IsSushu（ByVal m As Long） As Boolean
Dim i As Long
For i = 2 To m - 1
If （m Mod i） = 0 Then
IsSushu = False
Exit Function
End If
Next i
IsSushu = True
End Function
```
方法二：优化枚举法
从2到sqrt（m）依次判断m能否被这些数整除。如果能被整除，则m不是素数；如果都不能整除，则m是素数。这种方法可以提高效率。
```vb
Private Function IsSushu（ByVal m As Long） As Boolean
Dim i As Long
For i = 2 To Int（Sqr（m））
If （m Mod i） = 0 Then
IsSushu = False
Exit Function
End If
Next i
IsSushu = True
End Function
```
方法三：判断因数个数法
如果一个数m的因数个数等于2，则m是素数。
```vb
Function IsSushu（ByVal m As Long） As Boolean
Dim i As Long
Dim count As Integer
For i = 1 To m
If m Mod i = 0 Then
count = count + 1
End If
Next i
IsSushu = （count = 2）
End Function
```
建议
在实际应用中，推荐使用方法二，因为它的效率最高。方法一和方法三虽然也能得到正确的结果，但效率较低。