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