Заполнить матрицу по образцу - VB

Узнай цену своей работы

Формулировка задачи:

помогите написать программу по двум заданиям: 2. Заполнить и напечатать матрицу: Я вообще понять не могу как делать второе.

Решение задачи: «Заполнить матрицу по образцу»

textual
Листинг программы
Option Base 1
Private Sub Command1_Click()
Dim m As Integer, i As Integer
Dim n As Integer, j As Integer
Dim Z() As Integer, E() As Integer, T() As Integer
Dim W() As Integer
m = InputBox("Введите m=")
n = InputBox("Введите n=")
 ReDim Z(m, n)
For i = 1 To m
For j = 1 To n
Z(i, j) = InputBox(" Z ( " & i & " " & j & " ) = ")
Print "(Z" & i & " " & j & ")) =" & Z(i, j);
Next
Print
Next
ReDim E(m, n)
For i = 1 To m
For j = 1 To n
E(i, j) = InputBox(" E ( " & i & " " & j & " ) = ")
Print "(E" & i & " " & j & ")) =" & E(i, j);
Next
Print
Next
ReDim T(m, n)
For i = 1 To m
For j = 1 To n
T(i, j) = InputBox(" T ( " & i & " " & j & " ) = ")
Print "(T" & i & " " & j & ")) =" & T(i, j);
Next
Print
Next
ReDim W(m, n)
For i = 1 To m
For j = 1 To n
W(i, j) = Z(i, j) + E(i, j) - T(i, j)
Print "(W" & i & " " & j & ")) =" & W(i, j)
Next
Next
End Sub

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


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

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

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