LISTING 1: 2dArray.vbs

Const MULTIPLIER = 2
Dim Row, Column, n, strBefore, strAfter
Dim Table(4,6)

' BEGIN CALLOUT A
n = 0
For Row = 0 To UBound(Table, 1)
	For Column = 0 To UBound(Table, 2)
		Table(Row,Column) = n
		n = n + 1
	Next
Next
' END CALLOUT A

' BEGIN CALLOUT B
For Row = 0 To UBound(Table, 1)
	For Column = 0 To UBound(Table, 2)
		If Table(Row,Column) < 10 Then
			strBefore = strBefore & " " & Table(Row,Column) & " "
		Else
			strBefore = strBefore & Table(Row,Column) & " "
		End If
	Next
	strBefore = strBefore & vbCrLf
Next
' END CALLOUT B

' BEGIN CALLOUT C
For Row = 0 To UBound(Table, 1)
	For Column = 0 To UBound(Table, 2)
		Table(Row,Column) = Table(Row,Column) * MULTIPLIER
	Next
Next
' END CALLOUT C

' BEGIN CALLOUT D
For Row = 0 To UBound(Table, 1)
	For Column = 0 To UBound(Table, 2)
		If Table(Row,Column) < 10 Then
			strAfter = strAfter & " " & Table(Row,Column) & " "
		Else
			strAfter = strAfter & Table(Row,Column) & " "
		End If
	Next
	strAfter = strAfter & vbCrLf
Next
' END CALLOUT D

WScript.Echo strBefore
WScript.Echo strAfter