Как заполнить массив заданными числами? - VB
Формулировка задачи:
За данными числам n и m заполнить двумерный массив размером n × m числами от 1 до n × m "диагоналями", как показано в на рисунке:
1 2 4 7 10
3 5 8 11 13
6 9 12 14 15.
может кто-то знает, как это сделать?
Решение задачи: «Как заполнить массив заданными числами?»
textual
Листинг программы
- Sub new1()
- Dim n As Long, m As Long, k As Long
- n = InputBox("число строк", , 3)
- m = InputBox("число столбцов", , 5)
- ReDim a(1 To n, 1 To m) As Long
- On Error GoTo 1
- For m = 1 To m + n - 1
- For n = 1 To UBound(a)
- k = k + 1
- a(n, m - n + 1) = k
- 2 Next
- Next
- 'вывод массива
- For n = 1 To UBound(a)
- For m = 1 To UBound(a, 2)
- Print a(n, m); " ";
- Next
- Next
- Exit Sub
- 1 k = k - 1
- Resume 2
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
