Как создать двумерный массив из двух одномерных - VB

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

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

Даны два одномерных массива по 3 елемента, надо составить двумерный массив 2 на 3, в первом столбце которого размещалось произведение соответствующих елементам двух заданых массивов, а во втором - квадраты елементов 1го массива. Вот то что написал, но как сделать двумерный не знаю, прошу помощи!
Листинг программы
  1. Option Base 1
  2. Private Sub Command3_Click()
  3. Dim A(3), B(3)
  4. For i = 1 To 3
  5. A(i) = Val(InputBox("Vvedi A"))
  6. B(i) = Val(InputBox("Vvedi B"))
  7. PR = A(i) * B(i)
  8. KV = A(i) ^ 2
  9. Next
  10. End Sub

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

textual
Листинг программы
  1. Option Explicit
  2. '!!!OPTION BASE 0 '!!!
  3.  
  4. Sub abc()
  5.   Dim A, B, C, I
  6. '  ReDim A(2) As Byte
  7. '  ReDim B(2) As Byte
  8.  
  9.   A = Array(1, 2, 3)
  10.   B = Array(5, 6, 8)
  11.   ReDim C(1, 2) As Byte
  12.   For I = 0 To 2
  13.     C(0, I) = A(I) ''''''??? ??? ?????? ???
  14.    C(1, I) = B(I) '''''''''''''''''''''''''''''''''''''''''''''''
  15.    Debug.Print C(0, I), C(1, I)
  16.   Next I
  17. End Sub

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


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

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

12   голосов , оценка 4.417 из 5

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

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

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