Question

怎么在VB中求和

我是想编一个简单计算器，编到求和这块不太会了，下面是我写的代码，麻烦帮我想一下
Sub op()
T1.Enabled = True
T1.Visible = True
T1.SetFocus
End Sub
Sub oi()
T1.Enabled = False
T1.Visible = False
End Sub

Private Sub Command1_Click()

)
ElseIf O7 Then
T5 = Tan(T3 * 3.141592653 / 180)
ElseIf O8 Then
T5 = 1 / Tan(T3 * 3.141592653 / 180)
ElseIf O9 Then
If T3 < 0 Then
MsgBox "被开方数不能小于零", 2 + vbExclamation, "错误"
T3 = ""
T3.SetFocus
Exit Sub
End If
T5 = Sqr(T3)
ElseIf O10 Then
T5 = Abs(T3)
ElseIf O11 Then
T5 = Exp(T3)
ElseIf O12 Then
If T3 <= 0 Then
T3 = ""
T3.SetFocus
End If
T5 = Log(T3)
ElseIf O13 Then O13是求和按钮，这里怎么编才能使我一按下o13就可一出现，，，，
Dim a!(), sum!，n%
n =inputbox("")
For i = 0 To UBound(a) - 1
T5 = T + Array(i)
Next i
End If
End Sub

Answer 1

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。

Answer 2

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。

Answer 3

你的问题不够具体…那么我给你一个例子，你参考下:
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。

Answer 4

VB求和详解,源码:
Sub 求和()
Sheets("面积").Cells(3, 1) = "合计" '在单元格A3打“合计”两个字
For i = 4 To 5000 '从第4行到第5000行输入面积数据,汇总只汇总第4行到第5000行间的数据
If Sheets("面积").Cells(i, 2) > 0 Then '如果面积大于零就接着往下执行程序
d = d + Sheets("面积").Cells(i, 2) '面积叠加
If Sheets("面积").Cells(i, 2) = 0 Then '如果面积等于零就接着往下执行程序
Exit Sub ' 终止执行
End If '如果是这样就一直执行直到结束
Sheets("面积").Cells(3, 2) = d '在单元格B3里显示最后的面积叠加值
End If '如果是这样就一直执行直到结束
Next '下一行
End Sub '本程序结束

我再附上表样式:
面积汇总表
面积
合计 158.2
上饶县 13.2
横峰县 15
弋阳县 26
万年县 32
玉山县 25
广丰县 23
鄱阳县 24

Answer 5

把值取出来，直接加就行了