Двумерный массив. Как написать код умножения двух матриц - VBA
Формулировка задачи:
Нужно написать макрос который переумножает одну матрицу на другую...
По листав форумы я сделал вот это...
когда нажимаю вывести результат выдает 0... тоесть числа не остаются в системе
если я ввожу массив не чего не изменяется... что нужно сделать? что бы за роботала моя форма
Листинг программы
- Private Sub CommandButton1_Click()
- A = InputBox("Введите (1.1) первой матрицы", Title)
- Label1.Caption = A
- B = InputBox("Введите (1.2) первой матрицы", Title)
- Label2.Caption = B
- c = InputBox("Введите (1.3) первой матрицы", Title)
- Label3.Caption = c
- e = InputBox("Введите (2.1) первой матрицы", Title)
- Label4.Caption = e
- f = InputBox("Введите (2.2) первой матрицы", Title)
- Label5.Caption = f
- j = InputBox("Введите (2.3)первой матрицы", Title)
- Label6.Caption = j
- k = InputBox("Введите (3.1)первой матрицы", Title)
- Label7.Caption = k
- l = InputBox("Введите (3.2)первой матрицы", Title)
- Label8.Caption = l
- M = InputBox("Введите (3.3) первой матрицы", Title)
- Label9.Caption = M
- Q = InputBox("Введите (1.1) второй матрицы", Title)
- Label10.Caption = Q
- w = InputBox("Введите (1.1) второй матрицы", Title)
- Label11.Caption = w
- r = InputBox("Введите (1.1) второй матрицы", Title)
- Label12.Caption = r
- y = InputBox("Введите (1.1) второй матрицы", Title)
- Label13.Caption = y
- u = InputBox("Введите (1.1) второй матрицы", Title)
- Label14.Caption = u
- i = InputBox("Введите (1.1) второй матрицы", Title)
- Label15.Caption = i
- P = InputBox("Введите (1.1) второй матрицы", Title)
- Label16.Caption = P
- s = InputBox("Введите (1.1) второй матрицы", Title)
- Label17.Caption = s
- g = InputBox("Введите (1.1) второй матрицы", Title)
- Label18.Caption = g
- End Sub
- Private Sub CommandButton2_Click()
- x = (A * Q) + (B * y) + (c * P)
- c1 = (e * Q) + (f * y) + (j * P)
- r1 = (k * Q) + (l * y) + (M * P)
- v = (A * w) + (B * u) + (c * s)
- d1 = (e * w) + (f * u) + (j * s)
- t1 = (k * w) + (l * u) + (M * s)
- a1 = (A * r) + (B * i) + (c * g)
- f1 = (e * r) + (f * i) + (j * g)
- y1 = (k * r) + (l * i) + (M * g)
- Label19.Caption = x
- Label20.Caption = v
- Label21.Caption = a1
- Label22.Caption = c1
- Label23.Caption = d1
- Label24.Caption = f1
- Label26.Caption = r1
- Label27.Caption = t1
- Label28.Caption = y1
- End Sub
- Private Sub CommandButton4_Click()
- End
- End Sub
- Private Sub UserForm_Click()
- End Sub
Решение задачи: «Двумерный массив. Как написать код умножения двух матриц»
textual
Листинг программы
- Option Explict
- DIM A as DOUBLE,B AS DOUBLE 'и т.д.
- Private Sub CommandButton1_Click()
- A = InputBox("Введите (1.1) первой матрицы", Title)
- Label1.Caption = A
- и т.д.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д