select seq_i.NextVal into i from dual;
此条语句中要注意变量seq_i.NextVal的唯一性,不能重复。
strSQL:='create table abc_' || to_char(i) || '(f1 int)';
改为:        
strSQL:='create table abc_' || to_char(i) || ' (f1 int)';