Заданны целые числа 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

                    Листинг программы
                
Public n As Integer
 
Private Sub CommandButton1_Click()
Dim A() As Single, B() As Single
Dim i As Integer, j As Integer, k As Integer, S As Integer
 
n = 1: i = 4: j = 4: k = 4
 
ReDim A(1 To i, n)
 
For i = 1 To 4: n = 1
 
A(i, n) = InputBox("Введите элементы массива A (" & CStr(i) & "," & CStr(n) & ")", "Окно ввода A(i,1)")
TextBox1.Text = TextBox1.Text & CStr(A(i, n)) & " "
 
Next i
 
ReDim B(1 To 4, 1 To 4)
 
For i = 1 To 4
 
For j = 1 To 4
 
A(i, n) = TextBox1.Text
For k = 1 To 4
B(i, j) = 6 * i * A(k, n) - 3 * j * A(k, n)
Next k
TextBox2.Text = TextBox2.Text & CStr(B(i, j)) & " "
Next j
TextBox2.Text = TextBox2.Text & vbCrLf
Next i
 
End Sub

такой код, тут уже по разному пробовали, возможен бред)

Решение задачи: «Заданны целые числа 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы