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时，s_n=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版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://www.wb98.com/post/74.html