Как создать двумерный массив из двух одномерных - VB
Формулировка задачи:
Даны два одномерных массива по 3 елемента, надо составить двумерный массив 2 на 3, в первом столбце которого размещалось произведение соответствующих елементам двух заданых массивов, а во втором - квадраты елементов 1го массива.
Вот то что написал, но как сделать двумерный не знаю, прошу помощи!
Листинг программы
- Option Base 1
- Private Sub Command3_Click()
- Dim A(3), B(3)
- For i = 1 To 3
- A(i) = Val(InputBox("Vvedi A"))
- B(i) = Val(InputBox("Vvedi B"))
- PR = A(i) * B(i)
- KV = A(i) ^ 2
- Next
- End Sub
Решение задачи: «Как создать двумерный массив из двух одномерных»
textual
Листинг программы
- Option Explicit
- '!!!OPTION BASE 0 '!!!
- Sub abc()
- Dim A, B, C, I
- ' ReDim A(2) As Byte
- ' ReDim B(2) As Byte
- A = Array(1, 2, 3)
- B = Array(5, 6, 8)
- ReDim C(1, 2) As Byte
- For I = 0 To 2
- C(0, I) = A(I) ''''''??? ??? ?????? ???
- C(1, I) = B(I) '''''''''''''''''''''''''''''''''''''''''''''''
- Debug.Print C(0, I), C(1, I)
- Next I
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д