Массив + цикл, счётчик - VB

Формулировка задачи:

Всем привет! ребята помогите пожалуйста с кодом! Нужно в консольке с использованием массива(100,100) и цикла сделать такую штуку! Большое Спасибо!

Решение задачи: «Массив + цикл, счётчик»

textual
                            Листинг программы 
                        

                            Sub ConsolePrim()
    Dim fso As Object
    Dim f&, f1&, s$, fn$
    Set fso = CreateObject("Scripting.FileSystemObject")
    s = s & "Echo off" & vbCrLf
    s = s & "cls" & vbCrLf
    For f = 1 To 10
        s = s & "Echo "
        For f1 = f1 To f1 + 9
            s = s & CStr(f1) & " "
        Next
        s = s & vbCrLf
    Next
    s = s & "pause "
    fn = Environ("temp") & "\tmp.cmd"
    fso.CreateTextFile(fn).Write (s) 'создание временного файла
    Shell fn, vbNormalFocus
'    fso.DeleteFile (fn) 'удаление временного файла
End Sub
                        