文登市境内的圣经山“东华宫”旧址上留有皇庆六年（1312）《东华帝君碑》一通，赵孟頫篆写了匾额。据此，你可以判断出《东华帝君》是哪个朝代的碑刻（　　）

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