一个富翁试图与陌生人做一笔

一个富翁试图与陌生人做一笔

Private Sub Form_Click()

Dim a#, b#, c#

b = 0.01

a = 100000 * 30

For i = 1 To 30

c = c + b

b = 2 * b

Next i

Print "陌生人给富翁的钱为:"; Format(a, "0,000,000.00") & "元"

Print "富翁给陌生人的钱为:"; Format(b, "0,000,000.00") & "元"

End Sub

dim i as integerdim sum as doubledim mr as double=陌生人付出的钱dim n as intdim tf as Boolean=falsefor i=1 to 30 sum =sum+1*2if sum>mr and tf=false thentf=truen=iend ifnextmsgbox("一共付出" & sum &chr(10) & "第" & n & "天 超过陌生人")