в программе два массива размерностью 5 элементов, присвойте числовые значения

[shar9n@vk]

Не могу решить задачу: Опишите в программе два одновременных массива размерностью 5 элементов, присвойте числовые значения элементам массивов. Покажите данные в окне сообщений: в первой строке - элементы второго массива от 5-го до первого. Решение подобной задачи, но другого варианта: Dim a(6)
a(0)=1
a(1)=2
a(2)=3
a(3)=4
a(4)=5
a(5)=6
a(6)=7
d = ""
d=d & a(0) & vblf
d=d & a(6) & vblf
d=d & a(1) & vblf
d=d & a(5) & vblf
d=d & a(2) & vblf
d=d & a(4) & vblf
d=d & a(3) & vblf

MsgBox d, vbYesNo

Помогите пожалуйста :)

[Iska]

два одновременных массива »
«Одновременные» массивы — это новое слово в программировании. Может быть, «одномерных»?

Option Explicit

Dim aFirst(4), aSecond(4)
Dim i

Dim strOut


Randomize Timer

For i = LBound(aFirst) To UBound(aFirst)
aFirst(i) = Int(100 * Rnd)
aSecond(i) = Int(100 * Rnd)
Next


strOut = ""

For i = UBound(aSecond) To LBound(aSecond) Step -1
strOut = strOut & aSecond(i) & vbTab
Next

MsgBox strOut, vbOKOnly + vbInformation, "Results"

WScript.Quit 0

[megaloman]

shar9n@vk, Еще вариант:Mas1 = Array(1, 2, 3, 4, 5)
Mas2 = Array(10, 20, 30, 40, 50)

Out2 = ""
Out12 = ""

For Each iMas In Mas1
Out12 = Out12 + CStr(iMas) + vbTab
Next
Out12 = Out12 + vbCrLf

For Each iMas In Mas2
Out2 = CStr(iMas) + vbTab + Out2
Out12 = Out12 + CStr(iMas) + vbTab
Next

MsgBox Trim(Out2) + vbCrLf + vbCrLf + Out12