下列程序运行时输出的结果是
Private Sub Form_Click()
Dim x
x=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”)
For i=LBound(a，1)to UBound(a，1)
If Left(a(i)，1)=“天”Then Print a(i)；
Next
End Sub

A．Private Sub Command2_CliCk()
CommonDialog1.DialogTitle=“新时代”
CommonDialog1.ShowOven
End Sub
B．Private Sub Command2.Click()
CommonDialog1.DialiogTitle=“新时代”
CommonDialog1.ShowFont
End Sub
C．Private Sub Command2_Click()
CommonDialog1.DialogTitle=“新时代”
CommonDialog1.Show
End Sub
D．Private Sub Command2_Click()
CommonDialog1.DialogTitle=“新时代”
CommonDialog1.ShowColor
End Sub

A．实体完整性约束
B．参照完整性约束
C．属性完整性约束
D．用户自定义的完整性约束