【原创】VBA（实验13）基础数学题：实现连续相加和 连续相乘

 

 

题目1 ：写出1加到100的过程

多个数字连续相加

著名的高斯1加到100问题

Sub math1()   ‘1加到100


Rem 第1部分：数据输入
Dim sum_1 As Integer
Dim i  As Integer
Let sum_1 = 0        'VBA为什么不赋初值也可以直接表达式运算？

        
     
Rem 第2部分：数据处理
For i = 1 To 100
    sum_1 = sum_1 + i
Next i


Rem 第3部分：返回结果
Debug.Print (sum_1)
End Sub

 

二 多个数字连续相乘

阶乘：一个正整数的阶乘（factorial）是所有小于及等于该数的正整数的积，并且0的阶乘为1

• 特别注意，要把乘以定义为long 而不是integer 否则会报告溢出
• 变量溢出，就是溢出的一种
• 变量的integer数据类型存不了这么大的数据
• Integer是int的封装类型是 32 位的整数，long 是 64 位的整数，表示范围：-2^63 ~ 2^63 -1 long是长整型。

 

Sub math1()

Rem 第1部分：数据输入
Dim sum_1 As Long    'integer最多才几位，注意！
Dim i  As Integer
Let sum_1 = 1        '赋初值，以及重置变量！VBA为什么不赋初值也可以直接表达式运算？


Rem 第2部分：数据处理
For i = 1 To 10
    sum_1 = sum_1 * i
Next i


Rem 第3部分：返回结果
Debug.Print (sum_1)


End Sub