[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