Задать матрицу при помощи inputbox - VB
Формулировка задачи:
Помогите, пожалуйста.
Нужно написать программку для решения транспортной задачи.
Как при помощи inputbox попросить пользователя ввести элементы матрицы задачи после того, как он задал размерность?
и после этого вывести матрицу на лист
Решение задачи: «Задать матрицу при помощи inputbox»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim a() As Integer
- Dim m As Integer
- Dim n As Integer
- m = InputBox("Кол-во строк")
- n = InputBox("Кол-во столбцов")
- ReDim a(m, n)
- For i = 1 To m
- For j = 1 To n
- a(i, j) = InputBox("Ввод элемента матрицы (" & i & ";" & j & ")")
- Print a(i, j);
- Next
- Next
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
