[Iska]

11.0.4. »

Спасибо, ясно.

с вот этим »

Код:

Option Explicit

Dim arrGeometricProgression

Dim i
Dim elem


arrGeometricProgression = Array(2, 4, 8, 16, 32)

MsgBox Join(arrGeometricProgression, vbLf)

For i = LBound(arrGeometricProgression) To UBound(arrGeometricProgression)
	MsgBox arrGeometricProgression(i)
Next

For Each elem In arrGeometricProgression
	MsgBox elem
Next

WScript.Quit 0

Три способа вывода: один — все элементы в одном окне, и два варианта вывода поэлементно.