Firebird execute block 批处理

https://chuna2.787528.xyz/jonney-wang/p/9350974.html

execute block as
declare variable i int = 0;
begin
while(:i < 100) do
begin
:i = :i + 1;
insert into m_user(code) values('shang hai' || :i);
end
end