1、打开EXCEL,按Alt+F11键显示VBE。

2、选择“插入->模块”选项。

3、输入代码:
Sub qiuhe()
Dim i As Integer
Dim n As Integer
i = 1
n = 0
For i = 1 To 100
n = n + i
Next
MsgBox n
End Sub

4、以上代码是求1-100的数想加的和,将光标移动到代码行,按F5运行程序。

时间:2026-02-14 10:59:37
1、打开EXCEL,按Alt+F11键显示VBE。

2、选择“插入->模块”选项。

3、输入代码:
Sub qiuhe()
Dim i As Integer
Dim n As Integer
i = 1
n = 0
For i = 1 To 100
n = n + i
Next
MsgBox n
End Sub

4、以上代码是求1-100的数想加的和,将光标移动到代码行,按F5运行程序。
