Как заполнить половину двумерного массива определенными числами

Option Explicit
'
'Как заполнить половину двумерного массива определенными числами
'Решение ! ... © Антихакер32™
'
Private Sub Form_Load()
    Const sL = 100, sR = 100, Sz = 500, N = 5
    Dim x&, y&
    Randomize Timer
    For y = 0 To N - 1: For x = 0 To N - 1
            '
            'Отображение матрицы на кнопках  это чисто
            'моя инициатива, вы можете отобразить на чем угодно
            '
            With Controls.Add("vb.CommandButton", "cmm" & x & y)
                .Move sL + x * Sz, sR + y * Sz, Sz, Sz
                .Visible = 1
                If x <= y Then .Caption = Fix(Rnd * 10)
            End With
    Next: Next
End Sub

Option Explicit
'
'Как заполнить половину двумерного массива определенными числами
'Решение ! ... © Антихакер32™
'
Const N = 5
Dim Matrix32(N - 1, N - 1) As Long
 
Private Sub Form_Load()
    Const sL = 100, sR = 100, Sz = 500
    Dim x&, y&
    Randomize Timer
    For y = 0 To N - 1: For x = 0 To N - 1
            '
            'Отображение матрицы на кнопках  это чисто
            'моя инициатива, вы можете отобразить на чем угодно
            '
            With Controls.Add("vb.CommandButton", "cmm" & x & y)
                .Move sL + x * Sz, sR + y * Sz, Sz, Sz
                .Visible = 1
                If x <= y Then Matrix32(x, y) = Fix(Rnd * 10): .Caption = Matrix32(x, y)
            End With
    Next: Next
End Sub