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

VB程序题:sn=a+aa+aaa+aaaa+…+aa…aaa(n个a),其中a是一个由随机数产生的1~9(包括1,9)中的一个正整数,n是一个由随机数产生的5~10(包括5,10)中的一个数。龚沛曾

VB程序题:s n=a+aa+aaa+aaaa+……+aa…aaa(n个a),其中a是一个由随机数产生的1~9(包括1,9)中的一个正整数,n是一个由随机数产生的5~10(包括5,10)中的一个数。
例如,当a=2,n=5时,sn=2 + 22 + 222 + 2222 + 22222

提示:该题的关键是通项T是一个不断在原有基础上增加1位的过程,通项关系式为:
T i + 1 = T i * 10 + a        .....其中:T的初值为0
 
解题,代码如下:
Private Sub Form_Click()
    Cls
    Dim s!, t!, i!, a%, n%
    a = Int(Rnd * 9 + 1)
    n = Int(Rnd * 6 + 5)
    t = 0: s = 0
    Print "a ="; a, "n ="; n
    For i = 1 To n
        t = t * 10 + a
        s = s + t
        Print t;
    Next i
    Print
    Print "s ="; s
End Sub

运行程序,点击窗体,程序会随机产生a,n的随机数。运行程序效果图如下:


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

打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:https://wb98.com/post/74.html

    << 上一篇 下一篇 >>

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