Firebird execute block 批处理

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