Как заполнить половину двумерного массива определенными числами - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д