求用VB做的 1-100 累加法 写上算法、流程、程序.

在窗体上增加一个command控件Private

Sub

Command1_Click()

Dim

i

As

Integer

'定义一个循环变量i

Dim

sum

As

Long

'定义一个存放和的变量

sum

=

0

'初始化变量值为0

For

i

=

1

To

100 '采用For循环

sum

=

sum

+

i

'第一次循环，采用和+循环变量值的方法累加

Next

'下一次，相当于i=i+1，即i=2，再返回到For循环，判断i值是否满足<100，满足再次执行累加和 *** 作，将前一次的和加上本次循环变量值后存放sum中

Print

sum

'循环完成后在窗体打印累加的和值

End

Sub

1.用VB求出阶乘数相加的值，分为两个步骤来求，一个是计算阶乘数，然后相加阶乘数。1!+2!+3!+……+n!举个例子。

2、首先要理解阶乘知识，4!它是数字1到4的乘法N!它是1到n的乘积等等。如下图所示。

3.现在我们来编写代码。第一步是定义变量，如下图所示。

4、这是一个累加器，所以会使用版本相关的累加器语句，这个问题使用for-next循环语句。具体的准备工作如下图所示。

5.这个问题不仅需要一个for-next循环，还需要一个嵌套在其中的for-next循环。

6.最后，编写剩余的代码并编写完整的代码，如下图所示。

7.运行程序并输入一个值来验证它。如果权值n是8，那么1!+2!+3!+4!。+8!=46233。

1）求一个数列的累加和，如求 sum = 1 + 2 + 3 + ... + 100

Dim i As Integer

Dim sum As Integer

' 赋初值

sum = 0 

' 循环，求数列的累积和

For i = 1 To 100

    sum = sum + i

Next

' 显示结果

MsgBox "1 + 2 + 3 +...+ 100 = " + CStr(sum)

2）求一个数组所有元素的累加和

Dim a(1 To 5) As Integer

Dim sum As Integer

Dim i As Integer

' 给数组赋值

a(1) = 1

a(2) = 23

a(3) = 8

a(4) = 50

a(5) = 99

' 赋初值

sum = 0

' 循环，求数组的累积和

For i = 1 To 5

    sum = sum + a(i)

Next

MsgBox "数组的累加和为：" + CStr(sum)

---