189 8069 5689
1、首先开始编写代码，定义变量，如下图所示。
创新互联公司服务项目包括巴州网站建设、巴州网站制作、巴州网页制作以及巴州网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，巴州网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到巴州省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
2、这是一个累加程序，所以会用到相关的累加语句,此题使用For-Next循环语句。具体编写如下图所示。
3、不仅仅需要一个For-Next循环语句，还需要在里面嵌套一个For-Next循环语句。
4、最后将剩下的代码补齐，编写完整的代码如下图所示。
5、然后运行程序，输入一个值检验一下。如果n为8，则1！+2!+3!+4!.......+8!=46233，就完成了。
按如下代码可实现：
Option Explicit
Dim a As Single
Dim b As Single
Private Sub Command1_Click()
Text1 = Val(Text1) + a + b
End Sub
Private Sub Form_Load()
a = 1.2569
b = 1.2431
End Sub
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)
1、启动软件，新建一个变准EXE工程。
2、我们在窗体上绘制好要使用到的控件。
3、双击计算按钮进入代码窗口，我们可以在这里编写代码。
4、接下来我们打入累加的赋值语句。
5、接下来我们点击运行测试的小三角。
6、这时候我们就可以开始计算了。
方法如下：
Option Explicit
Private Sub Form_Load()
Dim n1 As Integer
'这个n1变量来作为求平均值的除数,记录输入数据的次数
Dim tot1 As Double
'这个tot1来做为被除数,作为累加总和
Dim aver1 As Double
'aver1变量来作为平均数,用来输出
Dim newinput1 As Double
'这个newinput1用来存放用户输入的数值
Do
newinput1 = Val(InputBox("请输入新的值"))
If newinput1 = 31944027 Then
Exit Do
Exit Sub
End If
'输入特定的数字,我的QQ号,则退出.否则是不能退出的.
tot1 = tot1 + newinput1
n1 = n1 + 1
aver1 = tot1 / n1
Debug.Print "输入值之和=" tot1
Debug.Print "平均值=" aver1
Loop
End Sub
楼上的代码里面num应该在click事件外定义，否则每次单击时num的值都会重新定义