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