关于vb中的set语句的CreateObject()

Question

（一）
Private Sub Form_Click()
Dim a As New Excel.Application
Set a = CreateObject("excel.Application")
a.Visible = True
End Sub

（二）
Private Sub Form_Click()
Dim a As New Excel.Application
Set a = CreateObject("excel.Application")
a.Visible = True
End Sub

为什么在（一）的情况下，不自动弹出excel，在（二）的情况下会自动弹出excel呢？

Answer 1

　　1、CreateObject函数简介:创建并返回一个对 ActiveX 对象的引用。
　　2、CreateObject函数语法 ：CreateObject(class,[servername]) ；
　　3、CreateObject参数简介 ：
　　class必需的；
　　Variant (String). 要创建的应用程序名称和类；
　　servername可选的；
　　Variant (String). 要在其上创建对象的网络服务器名称。
　　4、CreateObject函数应用 ：
　　每个支持自动化的应用程序都至少提供一种对象类型。例如，一个字处理应用程序可能会提供 Application 对象，Document 对象，以及 Toolbar 对象。 要创建 ActiveX 对象，只需将 CreateObject 返回的对象赋给一个对象变量： ’声明一个对象变量来存放该对象’的引用。Dim as Object 采用后期绑定方式。
　　Dim ExcelSheet As Object
　　Set ExcelSheet = CreateObject("Excel.Sheet")

Answer 2

这两行代码有区别吗？