СРОЧНО! ПОМОГИТЕ ПО ИНФОРМАТИКЕ 15 ЗАДАНИЕ ПЛИИИИИЗ, ВЫРУЧАЙТЕЕ...

Не ясно на каком именно бейсике это написано, но у меня есть только VBS
Так что форматирование может не совпасть

Код

Sub Zadanie
    s = ""

    n = 4
    l = 2
    for i = 1 to n
        for j = 1 to n
            if j=1 or i=1 or i=n or j=n then
                s = s & "0"
            else
                l = l + 1
                s = s & l mod 10
            end if
        next
        s = s & vbNewLine
    next

    MsgBox (s)
End Sub

Вывод
0000
0340
0560
0000