关于程序(文本)的解析,高手进来看看.

输入一段文本程序,例如一段VB片段,解析出结果
---------------------------------------------------
dim i as  integer
dim j as interger
dimi s as string
for i = 1 to 5 do
   if i > 3 then
     j = j * j
   end if
next
----------------------------------------------------------
分析任意一段VB片段(只有简单的循环,判断等最基本的结构),得出例如变量j的结果.
请注意,不是编译这段程序,只是分析这段程序结构,然后运算.不需要生成可执行程序.用Delphi实现,高手帮忙给个思路也可,谢谢!