实现上述功能的 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

随着信息产业的不断发展、互联网技术的广泛应用。通过利用互联网平台，把互联网和包括传统产业在内的各行各业结合起来，在新的领域创造一种新的生态。就是“互联网+”。 “互联网+”围绕自由开放的思维，进一步放宽市场准入，驱动创业创新潮充分涌动，推进产业运行模式全方位升级。因此“互联网+”可能对我国经济带来的影响（  ）

①出现万众创新，逐渐颠覆传统产业，实体经济萎缩

②市场在资源配置中的决定性作用增强，激发市场活力

③改善消费结构，促进消费心理和消费行为全面升级

④加快转变经济发展方式，推进经济结构战略性调整

填表．(从上到下填写)