用VB求解a aa aaa aaaa ...算法实现

大家好，今天我们共同来学习VB实际算法题的求解。

实际题目如下：

编写单击事件，求S=a+aa+aaa+aaaa+....(n个a)之和，a是随机产生的【1,9】之间的一个正整数，n是项数，位于【5,10】之间。

用到的VB知识：

1、如何用VB产生随机数？

2、表达式的语句表示及规律查找；

3、变量及数据类型的正确使用；

4、事件及输出的应用。

代码如下：

Private Sub Form_Click()

    Dim a As Integer '定义正整数a

    Dim n As Integer '定义算术总个数

    Dim s As Double  '定义最后结果值s

    Dim b As Double  '定义每项的数值

        s = 0

        a = Int(Rnd * 9 + 1) '通过随机数产生a值

        n = Int(Rnd * 6 + 5) '通过随机数产生n值

        Label1.Caption = 'a的值为' & a

        Label2.Caption = 'n的值为' & n

        b = a

        For i = 1 To n

            s = s + b

            b = b + (10 ^ i) * n

        Next i

    MsgBox '总数和为' & s, vbOKOnly, '跟我学VB' 

End Sub

实际运行图如下，程序运行结果经过与电脑自带的计算器结果验证后，可知程序运行正确无误。

愿大家都能顺利学好VB编程！