在VB编程中找零通常涉及以下几个步骤：
设定变量
定义变量来存储不同面额的零钱数量，例如50元、20元、10元、5元和1元。
计算找零
通过总金额减去商品价格得到找零金额。
使用循环和条件判断来逐步减少找零金额，直到找零金额为0。
判断零钱面额
使用除法和取模运算来判断需要哪种面额的零钱，并逐步减少该面额的数量，直到找零金额不足以支付当前面额。
```vb
Function CalculateChange（price As Integer, amount As Integer） As Integer
Dim num50 As Integer = 0
Dim num20 As Integer = 0
Dim num10 As Integer = 0
Dim num5 As Integer = 0
Dim num1 As Integer = 0
' 计算找零金额
Dim change As Integer = amount - price
' 如果找零金额为0，直接返回
If change = 0 Then
Exit Function
End If
' 判断并找零50元
If change >= 50 Then
num50 = change \ 50
change = change Mod 50
End If
' 判断并找零20元
If change >= 20 Then
num20 = change \ 20
change = change Mod 20
End If
' 判断并找零10元
If change >= 10 Then
num10 = change \ 10
change = change Mod 10
End If
' 判断并找零5元
If change >= 5 Then
num5 = change \ 5
change = change Mod 5
End If
' 判断并找零1元
If change >= 1 Then
num1 = change \ 1
change = change Mod 1
End If
' 返回找零的详细情况
Return num50, num20, num10, num5, num1
End Function
' 示例调用
Dim price As Integer = 100
Dim amount As Integer = 150
Dim changeDetails（4） As Integer
changeDetails = CalculateChange（price, amount）
MsgBox "需要找零：" & changeDetails（0） & "张50元， " & changeDetails（1） & "张20元， " & changeDetails（2） & "张10元， " & changeDetails（3） & "张5元， " & changeDetails（4） & "张1元"
```
在这个示例中，`CalculateChange`函数接受商品价格和顾客支付的金额，然后计算并返回找零的详细情况。通过逐步减少找零金额并判断不同面额的零钱，最终得到需要找的各种面额的数量。