在VB编程中，找零巧数可以通过以下几种方法：
方法一：循环遍历判断
可以通过循环遍历1000到9999之间的所有数，判断每个数是否满足零巧数的条件。具体步骤如下：
1. 遍历1000到9999之间的所有整数。
2. 对于每个整数，检查其百位是否为0。
3. 如果百位为0，去掉这个0得到三位数。
4. 判断这个三位数乘以9是否等于原数。
5. 如果等于原数，则该数是零巧数，将其输出或进行其他处理。
```vb
Private Sub Command1_Click（）
Dim i As Integer
For i = 1000 To 9999
If i >= 1000 And i <= 9999 Then
If Mid（i, 2, 1） = "0" Then
Dim threeDigitNum As Integer
threeDigitNum = Left（i, 1） & Mid（i, 3, 3）
If threeDigitNum * 9 = i Then
' 输出零巧数
MsgBox i
End If
End If
End If
Next i
End Sub
```
方法二：使用函数判断
可以编写一个函数来判断一个数是否是零巧数，然后在循环中调用这个函数。以下是一个示例代码：
```vb
Function Shu（n As Integer） As Integer
Dim k As Integer
Dim m As Integer
Shu = -1
k = Mid（n, 2, 1） ' 获取百位数
If k = "0" Then
m = Mid（n, 1, 1） & Mid（n, 3, 3）
If m * 9 = n Then
Shu = m
End If
End If
Return Shu
End Function
Private Sub Command1_Click（）
Dim i As Integer
For i = 1000 To 9999
If Shu（i） <> -1 Then
' 输出零巧数
MsgBox i
End If
Next i
End Sub
```
方法三：使用数组存储已找到的零巧数
为了提高效率，可以使用数组存储已经找到的零巧数，避免重复计算。以下是一个示例代码：
```vb
Private Sub Command1_Click（）
Dim i As Integer
Dim n As Integer
Dim found As Boolean
Dim ShuList（） As Integer
ReDim ShuList（0 To 1000）
For i = 1000 To 9999
n = Shu（i）
If n <> -1 And Not IsArrayElementPresent（ShuList, n） Then
' 输出零巧数
MsgBox n
ShuList（UBound（ShuList） + 1） = n
End If
Next i
End Sub
```
总结
以上方法都可以用来找零巧数，具体选择哪种方法可以根据个人习惯和实际需求来决定。循环遍历判断方法简单直观，函数判断方法可以提高代码的可读性和可维护性，使用数组存储已找到的零巧数可以提高效率。