[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