12 lines
215 B
Text
12 lines
215 B
Text
|
Public Sub Main()
|
||
|
|
Dim a1 As String[] = ["a", "b", "c"]
|
||
|
|
Dim a2 As String[] = ["A", "B", "C"]
|
||
|
|
Dim a3 As String[] = ["1", "2", "3"]
|
||
|
|
Dim siC As Short
|
||
|
|
|
||
|
|
For siC = 0 To a1.Max
|
||
|
|
Print a1[siC] & a2[siC] & a3[siC]
|
||
|
|
Next
|
||
|
|
|
||
|
|
End
|