用Visual Basic6.0中文版完成以下问题
发布网友
发布时间：2022-05-02 02:52
共1个回答
热心网友
时间：2022-06-27 06:54
Show
f = 0 '表示富翁出的钱
m = 0 '表示陌生人出的钱
t = 0
For d = 1 To 30
f = f + 0.01 * 2 ^ (d - 1)
m = d * 100000
If f > m And t = 0 Then
a = d '表示第a天富翁出的钱多
f1 = Format(f, "0.00")
m1 = Format(m, "0.00")
t = t + 1
End If
Next d
Print "第"; a; " 富翁的付钱总数超过陌生人的付钱总数"
Print "富翁付给陌生人钱的总数为："; f1; "元"
Print "陌生人付给富翁钱的总数为："; m1; "元"
Print ""
Print "第 30 天"
Print "富翁付给陌生人钱的总数为："; Format(f, "0.00"); "元"
Print "陌生人付给富翁钱的总数为："; Format(m, "0.00"); "元"
Print "富翁将多付出："; Format(f - m, "0.00"); "元"
End Sub
