为属性分配集合中的新对象随机数- VBA

Sub AssignRandomNumberToProperty()
    Dim myCollection As New Collection
    Dim i As Integer
    
    ' 添加一些对象到集合中
    myCollection.Add "Object 1"
    myCollection.Add "Object 2"
    myCollection.Add "Object 3"
    
    ' 初始化随机数生成器
    Randomize
    
    ' 遍历集合中的每个对象
    For i = 1 To myCollection.Count
        ' 为每个对象的属性分配一个随机数值
        myCollection(i).RandomNumber = Rnd()
    Next i
    
    ' 输出每个对象的属性值
    For i = 1 To myCollection.Count
        Debug.Print myCollection(i).RandomNumber
    Next i
End Sub