Переписать элементы массива X в массив Y и подсчитать их количество

Option Explicit
'
'       © FelixMacintosh
'
Private Sub Command1_Click()
    Const c = 70
    Dim x$(c), y$(c), f&, d#
    Randomize Timer
    For f = 0 To c
        x(f) = -1 + Rnd * 2
    Next
    '============= Переписать значения
    For f = 0 To c
        y(f) = x(f)
        d = d + x(f)
    Next
    Print "Массив Х = {" & Join(x, ";") & "}"
    Print "Массив Y = {" & Join(y, ";") & "}"
    Print "Сумма элементов = " & d
    Print "Количество = " & c
End Sub

Option Explicit
Option Base 1
'
'       © FelixMacintosh
'
Private Sub Command1_Click()
    Const c = 70
    Dim x$(c), y$(c), f&, d#
    Randomize Timer
    For f = 1 To c
        x(f) = -10 + Rnd * 20
    Next
    '============= Переписать значения
    For f = 1 To c
        y(f) = x(f)
        If x(f) >= -1 And x(f) <= 1 Then
            d = d + 1
        End If
    Next
    Cls
    Print "Массив Х = {" & Join(x, ";") & "}"
    Print "Массив Y = {" & Join(y, ";") & "}"
    Print "Количество с Условием и ограчением: 1>=x(i)>=-1 ...  = " & d
End Sub

Option Base 1
Private Sub Command1_Click()
Const c = 70
    Dim x$(c), y$(), f&, d%
    Randomize Timer
    For f = 1 To c
        x(f) = Round(-10 + (Rnd * 21), 1)
    Next
    '============= Переписать значения
    For f = 1 To c
        If Abs(x(f)) <= 1 Then
          d = d + 1: ReDim Preserve y(d): y(d) = x(f)
        End If
    Next
    Cls
    Print "Массив Х = {" & Join(x, ";") & "}"
    Print "Массив Y = {" & Join(y, ";") & "}"
    Print "Количество с Условием и ограчением: 1>=x(i)>=-1 ...  = " & d
End Sub

'
'       © FelixMacintosh

Sub Макрос1()
    Dim s$, j$(), f&
    s = "Пример записи слов в ячейки таблицы"
    j = Split(s)
    
    For f = 0 To UBound(j)
      Range("A" & CStr(f + 1)) = j(f)
    Next
End Sub

Option Explicit
'
'       © FelixMacintosh
'
Private Sub Command1_Click()
    
    Dim s$, j$(), f&
    s = "Пример записи слов в ячейки таблицы"
    j = Split(s)
    
    For f = 0 To UBound(j)
      MSFlexGrid1.AddItem j(f)
    Next
    
End Sub