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"。
1)求一个数列的累加和,如求 sum = 1 + 2 + 3 + ... + 100
Dim i As IntegerDim 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 IntegerDim 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)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)