大家好,今天我们共同来学习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编程!
长按上图,关注跟我学VB微信