要列出所有用数字1、2、3、0组成的没有重复数字的三位数，小赵利用软件编写了程序，界面如图，在 list1 中显示所有满足条件的三位数，在 label1 中显示满足条件的三位数的个数。
实现上述功能的 VB 程序代码如下，请回答下列问题。
Private Sub Command1_Click() Dim a, b, c, d, z As Integer d = 0
For a = 1 To 3 'a代表百位
For b = 0 To 3 'b代表十位
For c = 0 To 3
If a <> b And b <> c And c <> a Then ① list1.AddItem str(z) d = d + 1
End If
Next c
Next b Next a
label1.Caption = "共有" + ② + "个数"
End Sub
