在VB编程中，判断一个数n是否为素数，可以通过以下几种方法：
方法一：使用For循环遍历2到n-1
```vb
Dim I As Integer, N As Integer
N = Val（InputBox（""））
For I = 2 To N - 1
If N Mod I = 0 Then Exit For ' 如果能被2 ~ N-1中任何一个数整除，则不是素数，跳出For循环
Next I
If I >= N Then ' 如果正常跳出For循环，则I跳出循环For后的值应该是N，所以满足这个条件
Print N & "是素数"
Else
Print N & "不是素数"
End If
```
方法二：使用For循环遍历2到sqrt（n）
```vb
Dim I As Integer, N As Integer
N = Val（InputBox（""））
For I = 2 To Int（Sqr（N））
If N Mod I = 0 Then Exit For ' 如果能被2 ~ sqrt（n）中任何一个数整除，则不是素数，跳出For循环
Next I
If I > Int（Sqr（N）） Then
Print N & "是素数"
Else
Print N & "不是素数"
End If
```
方法三：使用While循环遍历2到sqrt（n）
```vb
Dim I As Integer, N As Integer
N = Val（InputBox（""））
I = 2
c = Int（Sqr（N））
Do While I <= c
If N Mod I = 0 Then Exit Do ' 如果能被2 ~ sqrt（n）中任何一个数整除，则不是素数，跳出Do循环
Next I
If I > c Then
Print N & "是素数"
Else
Print N & "不是素数"
End If
```
方法四：使用条件判断
```vb
Dim n As Integer
n = Val（InputBox（""））
If n <= 1 Then
Print n & "不是素数"
Else
Dim i As Integer
For i = 2 To n / 2
If n Mod i = 0 Then Exit For ' 如果能被2 ~ n/2中任何一个数整除，则不是素数，跳出For循环
Next i
If i >= n / 2 Then
Print n & "是素数"
Else
Print n & "不是素数"
End If
End If
```
方法五：使用自定义函数
```vb
Function Prime（n As Integer） As Boolean
Dim i As Integer
If n <= 1 Then
Prime = False
Exit Function
End If
For i = 2 To Int（Sqr（n））
If n Mod i = 0 Then
Prime = False
Exit Function
End If
Next i
Prime = True
End Function
Private Sub Command1_Click（）
Dim n As Integer
n = Val（InputBox（"请输入一个正整数："））
If Prime（n） Then
MsgBox n & "是素数"
Else
MsgBox n & "不是素数"
End If
End Sub
```
这些方法都可以有效地判断一个数是否为素数。建议选择其中任意一种方法进行实现即可。