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

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

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

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

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

textual
Листинг программы
  1. Option Explicit
  2. '
  3. 'Как заполнить половину двумерного массива определенными числами
  4. 'Решение ! ... © Антихакер32™
  5. '
  6. Const N = 5
  7. Dim Matrix32(N - 1, N - 1) As Long
  8.  
  9. Private Sub Form_Load()
  10.     Const sL = 100, sR = 100, Sz = 500
  11.     Dim x&, y&
  12.     Randomize Timer
  13.     For y = 0 To N - 1: For x = 0 To N - 1
  14.             '
  15.            'Отображение матрицы на кнопках  это чисто
  16.            'моя инициатива, вы можете отобразить на чем угодно
  17.            '
  18.            With Controls.Add("vb.CommandButton", "cmm" & x & y)
  19.                 .Move sL + x * Sz, sR + y * Sz, Sz, Sz
  20.                 .Visible = 1
  21.                 If x <= y Then Matrix32(x, y) = Fix(Rnd * 10): .Caption = Matrix32(x, y)
  22.             End With
  23.     Next: Next
  24. End Sub

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


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

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

8   голосов , оценка 3.75 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы