????????

原搬硬套写下了程序，也能运行出来就是不知道啥意思

Private Sub Command1_Click()
    Cls
    Font.Size = 70
    Dim arr(5) As Integer
   
    For i = 1 To 5
   
        arr(i) = i
    Next
    For Each t In arr
        Print t
    Next
   

End Sub