RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/VBScript/loop-over-multiple-arrays-simultaneously.vb

' Loop over multiple arrays simultaneously - VBScript - 08/02/2021

a = Array("a","b","c")
b = Array("A","B","C")
c = Array(1,2,3)
For i = LBound(a) To UBound(a)
    buf = buf & vbCrLf & a(i) & b(i) & c(i)
Next
WScript.Echo Mid(buf,3)