求教大神，新人求不沉。。。

放两个文本框t1和t2，代码如下：
dim a as long=0
private sub form1_click()
t1.text=Cstr(300000*30)+"元"
for i as short=0 to 29
a=a+2^1
next
t2.text=Cstr(a)+"元"
end sub
未经测试，请大神们帮忙测试一下

第一个是陌生人给富翁的，第二个是富翁给陌生人的。 那里应该是2^i ，写错了，不好意思。