怎么在VB中求和

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。

可以使岩雀用循环来实现这个算法，具体岩枣拦的VB程序设计语言描述如下：

Dim sum As Integer ' 定义一个变量来保存求和结果

sum = 0 ' 初始化求和结果为0

For i As Integer = 10 To 300 Step 10 ' 循环10到300，每次增加10

sum = sum + i ' 将当前循环变量的值加入求和结果中

Next

MsgBox "10+20+30+...+300 = " &sum ' d出对话框显示求和结果

上述代码中，粗胡首先定义了一个变量sum用来保存求和结果，并将其初始化为0。然后使用For循环从10开始到300，每次增加10，将循环变量的值加入求和结果中。最后使用MsgBox函数d出一个对话框，显示求和结果。

当程序执行完毕后，会d出一个对话框，显示求和结果为"10+20+30+...+300 = 4590"。

你的问题不够具体…那么我给你一个例兆键子，你参考下:

Private

Sub

Form_Load()

Dim

a(1

To

50)

Show

For

i=1

To

50

a(i)=101*RND

sum=sum+a(i)

Next

i

Print

sum

End

Sub

以上希望能给岁猜困你帮助，求和主要是乎念用到循环，可以用For和Do。

---