Задать матрицу при помощи 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
  Print
  For j = 1 To n
  a(i, j) = InputBox("Ввод элемента матрицы (" & i & ";" & j & ")")
  Print a(i, j);
  Next
Next
End Sub

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


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

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

7   голосов , оценка 4.143 из 5
Похожие ответы