请帮帮忙做VB题

来源：百度知道 编辑：UC知道 时间：2024/05/30 11:00:47
VB题：一个富翁试图与陌生人做一笔换钱生意，换钱规则为：陌生人每天给富翁10万元钱，直到满一个月（30天）；而富翁第一天给陌生人1分钱，第二天2分，第三天4分，......，富翁每天给陌生人的钱是前一天的2倍，直到瞒一个月。分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少？
提示：设富翁第一天给出的钱Xo为0.01，第2天给出的钱为前一天的两倍，即Xo=2*Xo,如此重复到30天，累计求得富翁给出的钱远远超过陌生人给出的10万*30=300万元。（需代码完整）

控件说明：
text1：陌生人给富翁的钱
text2：富翁给陌生人的钱
command1：控制计算开始

下面是代码，控件自己添加：
Dim money As Double
Private Sub Command1_Click()
money = 0.01
Text1.Text = 100000 * 30
For i = 2 To 30
money = money * 2
Next i
Text2.Text = money
End Sub