vb高手进！帮忙写出程序过程啊！

Private Sub Command1_Click()
Dim m, f, t
m = 100000 * 30
t = 0.01
Do
t = t * 2
f = f + t
n = n + 1
Loop While n < 30
MsgBox "陌生人给富翁:" & m & "元钱"
MsgBox "富翁给陌生人:" & f & "元钱"
End Sub

sub money()
dim m1,m2

m1=100000*30 '陌生人给富翁的钱

m2=(1-2^29)/-1 '富翁给陌生人的钱，使用等比数列求和公式：首项=1，项数=30，公比=2，首项*(1-公比^(项数-1)/(1-公比)=1*(1-2^(30-1))/(1-2)=(1-2^29)/-1

msgbox "陌生人一共给富翁" & m1 & "元钱，富翁一共给陌生人" & m2 & "元钱"

end sub

Private Sub Form_Click()
a = 100000
s1 = a * 30
Print "陌生人给富人的钱是：" & s1
m = 0.01
For k = 1 To 2
s2 = s2 + m
m = 2 * m
Next k
Print "富人给陌生人的钱是：" & s2
End Sub