VB中编写一个子过程,计算1*3+2*4+3*5+····+(n-2)*n的值
问题描述:
VB中编写一个子过程,计算1*3+2*4+3*5+····+(n-2)*n的值
答
题目似乎改成:
计算1*3+2*4+3*5+····+ n*(n+2)的值,比较合理!
通常,n表示项数,而n*(n+2)表示通项公式,即:
第1项是将n=1,代到n*(n+2)里得到的值,就是1*3
第2项是将n=2,代到n*(n+2)里得到的值,就是2*4
.
等等.
当键盘输入n,表示求该式的前n项的和.
比如输入3,就是求:1*3+2*4+3*5
比如输入2,就是求:1*3+2*4
所以代码为:
dim n as integer
dim s as double
dim i as integer
n = Val(InputBox("输入一个正整数!"))
s =0
for i = 1 to n
s = s + i*(i+2)
next i
Print s