Заданны целые числа A1,A2,A3,A4. Получить матрицу B(i,j) - VB

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

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

Заданны целые числа A1,A2,A3,A4. Получить матрицу B(i,j) для которой B(i,j)=6*i*A(i)-3*j*A(j), где i,j=1,2,3,4
такой код, тут уже по разному пробовали, возможен бред)

Решение задачи: «Заданны целые числа A1,A2,A3,A4. Получить матрицу B(i,j)»

textual
Листинг программы
Option Explicit
Dim a(1 To 4) As Double
Dim b(1 To 4, 1 To 4) As Double
Dim i As Integer
Dim j As Double
Private Sub Command1_Click()
Print "Ââåä¸Г*Г*ûå Г·ГЁГ±Г«Г*:"
For i = 1 To 4
 
a(i) = InputBox("Ââåäèòå " & i & " ÷èñëî", "Ââîäèì Г·ГЁГ±Г«Г*")
Print a(i); vbTab;
Next i
Print vbLf
Print "Ïîëó÷Г*ГҐГ¬:"
For i = 1 To 4
      For j = 1 To 4
            b(i, j) = 6 * i * a(i) - 3 * j * a(i)
      If j <> 4 Then
Print b(i, j); vbTab;
 
            Else
 
Print b(i, j); vbTab;
Print vbLf
 
End If
      Next j
Next i
End Sub

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


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

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

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