如何改变它的值？？？100分重酬

Question

我是一个菜鸟我的意见如下：COLLECTION对象下的集合中的对象的属性是否支持你要给它的数据也许到现在我还没有看懂你的题意，算了我去跳楼

Answer 1

VB中不允许编辑集合，如果实在要改也只能这样了：
x.Remove 1
x.Add "12345", , 1

Answer 2

你可以自定义一个类（CNum)
加入一个默认的属性Value (as Variant)
Option Explicit'保持属性值的局部变量
Private mvarValue As Variant '局部复制
Public Property Let Value(ByVal vData As Variant)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.Value = 5
    mvarValue = vData
End Property
Public Property Set Value(ByVal vData As Variant)
'向属性指派对象时使用，位于 Set 语句的左边。
'Syntax: Set x.Value = Form1
    Set mvarValue = vData
End Property
Public Property Get Value() As Variant
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.Value
    If IsObject(mvarValue) Then
        Set Value = mvarValue
    Else
        Value = mvarValue
    End If
End Property---------------------------------------Dim x As CollectionSet x = New Collection
Dim Num As New CNum
Num = 3.1415
x.Add Num
x(1) = 12345

Answer 3

to:h_x_k(一缕清烟)　
当然支持，Collection是支持任何类型的。to:haor(一个好人)
最简单的方法，我就使用它吧。to:jifeng(疾风)
最好的方法，不过我的程序只用过一次对象赋值，没有必要这么麻烦吧。(^_^)