101是 素数。素数是指只能被1和自身整除的大于1的自然数。101只能被1和101整除，因此它是素数。
```vb
Private Sub Command1_Click（）
Dim N As Long
Dim IsPrime As Boolean
N = 101
IsPrime = True
For i = 2 To Sqr（N）
If N Mod i = 0 Then
IsPrime = False
Exit For
End If
Next i
If IsPrime Then
MsgBox N & "是一个素数"
Else
MsgBox N & "不是一个素数"
End If
End Sub
```
在这个示例中，我们使用了一个循环从2到`Sqr（N）`来检查`N`是否有除了1和它本身之外的因数。如果找到这样的因数，则`N`不是素数，否则它是素数。最后，我们使用`MsgBox`显示结果。