在VB（Visual Basic）中，可以通过以下几种方法来判断一个数字是否为三位数：
比较法
如果一个数字大于999，那么它是四位数；如果小于等于999，那么它是三位数或更小。
除法法
将数字除以100，取商。如果商大于等于1且小于10，那么这个数字是三位数。
取模和除法结合法
如果一个数字的长度为3，并且该数字的百位数等于十位数，那么它是对称的三位数。
随机数生成法
使用`Randomize`函数初始化随机数种子，然后使用`Rnd`函数生成一个0到999之间的随机数，这样可以确保生成的数字是三位数。
示例1：使用比较法
```vb
Dim num As Integer
num = 567
If num > 999 Then
MsgBox "这是一个四位数"
ElseIf num <= 999 Then
MsgBox "这是一个三位数"
End If
```
示例2：使用除法法
```vb
Dim num As Integer
num = 567
If num / 100 >= 1 And num / 100 < 10 Then
MsgBox "这是一个三位数"
Else
MsgBox "这不是一个三位数"
End If
```
示例3：使用取模和除法结合法
```vb
Dim num As Integer
num = 567
If Len（Str（num）） = 3 And num \ 100 = num Mod 10 Then
MsgBox "这是一个对称的三位数"
Else
MsgBox "这不是一个对称的三位数"
End If
```
示例4：使用随机数生成法
```vb
Randomize
Dim num As Integer
num = 100 + Int（900 * Rnd）
MsgBox "这是一个三位数： " & num
```
这些方法可以帮助你在VB中判断一个数字是否为三位数。根据具体的应用场景，你可以选择最适合的方法。