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

Узнай цену своей работы

Формулировка задачи:

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

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

textual
Листинг программы
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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.75 из 5
Похожие ответы