当前位置:首页 » VB程序题 » 正文

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

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

提示:设富翁第1天给出的钱x0为0.01,第2天给出的钱为前一天的两倍,即x0=2*x0,如此重复到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

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号