У меня есть небольшой фрагмент кода, который выводит шаблон (см. Ниже). Моя проблема в том, что я не могу запустить все четыре цикла for одновременно, чтобы завершить шаблон. Если я запускаю первые два оператора, я могу сгенерировать половину шаблона, но когда я запускаю все четыре оператора for, я получаю следующую ошибку в завершении теста. Ошибка возникает в строке End Sub.
При ошибке «&pace 'End sub» 100.
Pattern
*
**
***
****
***
**
*
Sub Main()
for i=1 to 4 step +1
for j=i to 4 step +1
for i=3 to 1 step -1
for j=i to 1 step -1
vstr=vstr & "*" & " "
next
vstr=vstr & vbnewline
next
msgbox vstr
End sub