VBS/WSH/JS - в программе два массива размерностью 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]

Цитата shar9n@vk:



два одновременных массива

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

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





Код:

Код: Выделить всё

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