Из заданых чисел создать матрицу с расчётом элементов по заданой формуле

[Ixituni]

Заданы 4-ре целых числа: А1,А2,А3,А4 .
Необходимо получить матрицу Вij для которой Вij= 6*i*Ai-3*j*Aj, где 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("Введите жлемент À (" & CStr(i) & "," & CStr(n) & ")", "Окно ввода À(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

Походу програма обрабатывает сразу весь массив А. Вообще как-то странно работает..

[doober]

Сообщение от Ixituni

Вообще как-то странно работает..

Это точно.

Private Sub CommandButton1_Click()
    Dim A() As Single, B() As Single
    Dim i As Integer, j As Integer, k As Integer, S As Integer
    TextBox2.MultiLine = True
    TextBox2.Text = ""
    TextBox1.Text = ""
     i = 4: j = 4: k = 4

    ReDim A(1 To i)
    For i = 1 To 4
        A(i) = InputBox("Введите жлемент A (" & CStr(i) & " )", "Окно ввода A(i)")
        TextBox1.Text = TextBox1.Text & CStr(A(i)) & vbTab
    Next i

    ReDim B(1 To 4, 1 To 4)
    For i = 1 To 4
        For j = 1 To 4
                B(i, j) = 6 * i * A(i) - 3 * j * A(j)
            TextBox2.Text = TextBox2.Text & CStr(B(i, j)) & vbTab
        Next j
        TextBox2.Text = TextBox2.Text & Chr(13)
    Next i
End Sub

Понравились вопросы

[Ixituni]

Большое спасибо