在VB编程中，要找到一个范围内的零巧数，可以通过以下步骤实现：
理解零巧数的定义
零巧数是一个四位数，其百位数字为0。
如果去掉这个0，得到的三位数乘以9等于原数。
编写代码
使用一个循环遍历1000到9999之间的所有四位数。
检查每个数是否满足零巧数的条件。
```vb
Private Sub Command1_Click()
Dim i As Integer
For i = 1000 To 9999
If i Mod 1000 = 0 Then ' 检查百位是否为0
Dim hundred As Integer
hundred = i \ 1000
Dim ten As Integer
ten = (i Mod 100) \ 10
Dim unit As Integer
unit = i Mod 10
If ten * 9 = hundred Then
Print i
End If
End If
Next i
End Sub
```
代码解释：
循环遍历
`For i = 1000 To 9999`：遍历1000到9999之间的所有整数。
检查百位是否为0
`If i Mod 1000 = 0`：检查当前数是否为四位数（即百位是否为0）。
提取三位数
`Dim hundred As Integer`：提取千位数。
`hundred = i \ 1000`：通过整除运算得到千位数。
`Dim ten As Integer`：提取十位数。
`ten = （i Mod 100） \ 10`：通过整除和取余运算得到十位数。
`Dim unit As Integer`：提取个位数。
`unit = i Mod 10`：通过取余运算得到个位数。
检查是否满足零巧数条件
`If ten * 9 = hundred Then`：检查去掉百位后的三位数乘以9是否等于原数。
输出结果
`Print i`：如果满足条件，输出该数。
通过上述代码，可以找到并输出1000到9999之间的所有零巧数。