VB程序题：一个富翁试图与陌生人做一笔换钱生意，换钱规则为：陌生人每天给富翁10万元钱，直到满一个月（30天）；而富翁第一天给陌生人1分钱，第二天2分…… 龚沛曾 源代码

VB程序题：一个富翁试图与陌生人做一笔换钱生意，换钱规则为：陌生人每天给富翁10万元钱，直到满一个月（30天）；而富翁第一天给陌生人1分钱，第二天2分，第三天4分，……，富翁每天给陌生人的钱是前一天的两倍，直到满一个月。分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少？

提示：设富翁第1天给出的钱x₀为0.01，第2天给出的钱为前一天的两倍，即x₀=2*x₀，如此重复到30天，累计求得富翁给出的钱远元超过陌生人给出的10万*30=300万元。
 
解题，窗体上画一个按钮，代码如下：
Private Sub Command1_Click()
    s = 0
    x0 = 0.01
    For i = 1 To 30
        s = s + x0
        x0 = x0 * 2
    Next i
    Print "富翁给陌生人的钱是："; s; "元"
    Print "陌生人给富翁的钱是："; 10 * 30 * 10000; "元"
End Sub

运行程序，运行程序效果图如下：

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/77.html