在VB编程中，求三位数的方法主要依赖于随机数生成和数学运算。以下是几种常见的方法：
使用Rnd函数生成随机三位数
生成0到999之间的随机数：
```vb
Dim num As Integer
num = Int（Rnd（） * 1000）
```
生成100到999之间的随机数：
```vb
Dim num As Integer
num = Int（Rnd（） * 900） + 100
```
或者使用另一种方法：
```vb
Dim num As Integer
num = CInt（Int（（999 - 100 + 1） * Rnd（） + 100））
```
通过数学运算生成随机三位数
使用公式：
```vb
Dim num As Integer
num = 100 + Int（900 * Rnd）
```
或者：
```vb
Dim num As Integer
num = （100 - 999） * Rnd + 999
```
截取字符进行判断
虽然这种方法不太常见，但也可以通过截取字符并进行判断来生成随机三位数：
```vb
Dim m As String
m = "000"
Dim a, b, c As String
a = Left（m, 1）
b = Mid（m, 2, 1）
c = Right（m, 1）
```
使用水仙花数判断
如果需要判断一个数是否为水仙花数，可以使用以下代码：
```vb
Dim num As Integer
num = InputBox（"请输入一个三位数"）
If num >= 100 And num <= 999 Then
Dim a, b, c As Integer
a = num \ 100
b = （num Mod 100） \ 10
c = num Mod 10
If a * a * a + b * b * b + c * c * c = num Then
MsgBox num & "是水仙花数"
Else
MsgBox num & "不是水仙花数"
End If
Else
MsgBox "请输入一个有效的三位数"
End If
```
这些方法可以根据具体需求选择使用。如果需要生成随机三位数，前两种方法是最常用的。如果需要判断一个数是否为水仙花数，则可以使用第四种方法。