VB几道问题

Question

在一个VB工程中有两个窗体，分别命名为FrmSt和FrmC1，FrmSt为启动窗体，在FrmSt中有如下代码：
Sub cmdShow_Click()
    Dim A As FrmC1
A.Caption=”Visual Basic Notes”
End Sub
运行时将提示错误信息,为什么显示错误,我运行了 没抱错 但Caption也没改
////////////////////////////////////////////////////////////////////////
下面VB代码段中，（）实现的ActiveX控件的MyColor属性可以读写。（选择一项）1)Private mvarMyColor as Long
Property Get MyColor() as Long
MyColor=mvarMyColor
End Property
Property Let MyColor(vData as Long)
    MvarMyColor=vData
End Property2) Private mvarMyColor as Long
Property Get MyColor() as Long
MyColor=mvarMyColor
End Property
Property Let MyColor(vData as Long)
    MvarMyColor=vData
    PropertyChanged”MyColor”
End Property
////////////////////////////////////////////////////////////////////////
以下的VB代码：
Dim A As New Collection
Dim B As New Collection
A.Add “A”
A.Add A
Set B=A
Set A=Nothing
Debug.Print B.Count
运行结果是（）。（选择一项）
a)0
b)2
c)提示错误信息，对象没有被初始化
d)提示错误信息，内存循环引用
/////////////////////////////////////////////////////////////////////////
VB中，在窗体frmList中，按钮cmdRefresh的事件代码如下：
Private Sub cmdRefresh_Click()
    Dim intindex As Long
    Dim objLoop As Variant
    Set objLoop=Me
    For intindex=1 To 5
        objLoop.Show
    Next intindex
End Sub
只显示frmList窗口，程序无特殊的状态变化
/////////////////////////////////////////////////////////////////////////
以下VB代码，是读取Word文件中的文本内容并且保存为文本文件：
Dim wdApp As Word.Application
Set wdApp=New Application
With wdApp
    .Activate                                        ‘1
    .WindowState=wdWindowStateMaximize              ‘2
     .Documents.Open(“C:\KEY.DOC”)
    Call.ActiveDocument.SaveAs(“C:\MyDocument\KEY.TXT”,wdFormatEncodedText)
.ActiveDocument.Close                             ‘3
      .Quit(False)                               ‘4
 End With
假设Word应用程序正常，Word文档“C:\DEY.DOC”正常存在，则程序运行时，执行到代码行（）时，将产生运行时错误。在下新人
帮忙看上边几道题 告诉我答案 更重要的是告诉我为什么选择那答案
多谢

Answer 1

改:
VB中，在窗体frmList中，按钮cmdRefresh的事件代码如下：
Private Sub cmdRefresh_Click()
    Dim intindex As Long
    Dim objLoop As Variant
    Set objLoop=Me
    For intindex=1 To 5
        objLoop.Show
    Next intindex
End Sub
只显示frmList窗口，程序无特殊的状态变化.为什么没显示新窗体呢?

Answer 2

Dim A As FrmC1 应改为 Dim A As new FrmC1 
new 是代表用来创建新对象

Answer 3

Dim A As New Collection
Dim B As New Collection
A.Add "A"  'A里面添加了"A"
A.Add A  'A里面添加了A
Set B=A  'B指向(引用)这个Collection
Set A=Nothing  'A不再指向(引用)任何对象
Debug.Print B.Count  'B的元素数为2
运行结果是（2）

Answer 4

新手，注意初始化
有些类型如果不用New初始化的话
就必须在第一次使用前Set初始化

Answer 5

  new 一个新的对象

Answer 6

VB中，在窗体frmList中，按钮cmdRefresh的事件代码如下：
Private Sub cmdRefresh_Click()
    Dim intindex As Long
    Dim objLoop As Variant
    Set objLoop=Me
    For intindex=1 To 5
        objLoop.Show
    Next intindex
End Sub
只显示frmList窗口，程序无特殊的状态变化.为什么没显示新窗体呢?
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
相当于5个
me.show
不会有新的窗体显示的

Answer 7

都是VB的面向对像的问题,用New进行实例化才能操作,要不只是一个空的变量