1、打开EXCEL,按Alt+F11键显示VBE。
2、选择“插入->模块”选项。
3、输入代码:Sub qiuhe()Dim i As IntegerDim 艘绒庳焰n As Integeri = 1n = 0For i = 1 To 100 n = n + i NextMsgBox nEnd Sub
4、以上代码是求1-100的数想加的和,将光标移动到代码行,按F5运行程序。
时间:2024-10-17 05:47:23
1、打开EXCEL,按Alt+F11键显示VBE。
2、选择“插入->模块”选项。
3、输入代码:Sub qiuhe()Dim i As IntegerDim 艘绒庳焰n As Integeri = 1n = 0For i = 1 To 100 n = n + i NextMsgBox nEnd Sub
4、以上代码是求1-100的数想加的和,将光标移动到代码行,按F5运行程序。