Двумерный массив. Как написать код умножения двух матриц - VBA

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

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

Нужно написать макрос который переумножает одну матрицу на другую... По листав форумы я сделал вот это...
Листинг программы
  1. Private Sub CommandButton1_Click()
  2.  
  3. A = InputBox("Введите (1.1) первой матрицы", Title)
  4. Label1.Caption = A
  5. B = InputBox("Введите (1.2) первой матрицы", Title)
  6. Label2.Caption = B
  7. c = InputBox("Введите (1.3) первой матрицы", Title)
  8. Label3.Caption = c
  9. e = InputBox("Введите (2.1) первой матрицы", Title)
  10. Label4.Caption = e
  11. f = InputBox("Введите (2.2) первой матрицы", Title)
  12. Label5.Caption = f
  13. j = InputBox("Введите (2.3)первой матрицы", Title)
  14. Label6.Caption = j
  15. k = InputBox("Введите (3.1)первой матрицы", Title)
  16. Label7.Caption = k
  17. l = InputBox("Введите (3.2)первой матрицы", Title)
  18. Label8.Caption = l
  19. M = InputBox("Введите (3.3) первой матрицы", Title)
  20. Label9.Caption = M
  21. Q = InputBox("Введите (1.1) второй матрицы", Title)
  22. Label10.Caption = Q
  23. w = InputBox("Введите (1.1) второй матрицы", Title)
  24. Label11.Caption = w
  25. r = InputBox("Введите (1.1) второй матрицы", Title)
  26. Label12.Caption = r
  27. y = InputBox("Введите (1.1) второй матрицы", Title)
  28. Label13.Caption = y
  29. u = InputBox("Введите (1.1) второй матрицы", Title)
  30. Label14.Caption = u
  31. i = InputBox("Введите (1.1) второй матрицы", Title)
  32. Label15.Caption = i
  33. P = InputBox("Введите (1.1) второй матрицы", Title)
  34. Label16.Caption = P
  35. s = InputBox("Введите (1.1) второй матрицы", Title)
  36. Label17.Caption = s
  37. g = InputBox("Введите (1.1) второй матрицы", Title)
  38. Label18.Caption = g
  39.  
  40. End Sub
  41.  
  42. Private Sub CommandButton2_Click()
  43. x = (A * Q) + (B * y) + (c * P)
  44. c1 = (e * Q) + (f * y) + (j * P)
  45. r1 = (k * Q) + (l * y) + (M * P)
  46. v = (A * w) + (B * u) + (c * s)
  47. d1 = (e * w) + (f * u) + (j * s)
  48. t1 = (k * w) + (l * u) + (M * s)
  49. a1 = (A * r) + (B * i) + (c * g)
  50. f1 = (e * r) + (f * i) + (j * g)
  51. y1 = (k * r) + (l * i) + (M * g)
  52. Label19.Caption = x
  53. Label20.Caption = v
  54. Label21.Caption = a1
  55. Label22.Caption = c1
  56. Label23.Caption = d1
  57. Label24.Caption = f1
  58. Label26.Caption = r1
  59. Label27.Caption = t1
  60. Label28.Caption = y1
  61. End Sub
  62.  
  63. Private Sub CommandButton4_Click()
  64. End
  65. End Sub
  66.  
  67. Private Sub UserForm_Click()
  68. End Sub
когда нажимаю вывести результат выдает 0... тоесть числа не остаются в системе если я ввожу массив не чего не изменяется... что нужно сделать? что бы за роботала моя форма

Решение задачи: «Двумерный массив. Как написать код умножения двух матриц»

textual
Листинг программы
  1. Option Explict
  2. DIM A as DOUBLE,B AS DOUBLE 'и т.д.
  3.  
  4. Private Sub CommandButton1_Click()
  5.  
  6. A = InputBox("Введите (1.1) первой матрицы", Title)
  7.  
  8. Label1.Caption = A
  9. и т.д.

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


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

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

15   голосов , оценка 3.867 из 5

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

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

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы