1.VBA

首先需要2010+以上的office

然后首次的话不会有开发工具这一栏如下图所示

然后可以通过单击 文件——更多——自定义功能区——开发者工具打上勾

然后点击选项

有了开发者工具栏后进去之后就可以写代码了如下图所示操作、 快捷键 Alt+F11

再点击 模块 再按快捷键F4 或者点击下图上方小框 就能出现大框的属性框。可以给模块命名。

现在就可以写代码了 如果我们要求1到100的合示例如下

我们可以通过视图打开立即窗口 可以用来检验我们写的代码是否是我们想要的 通过debug.print 可以输出我们想要的东西

Sub main()
    Dim i As Integer '这里将表里i定义为数值类型
    Dim sum As Integer
    i = 0
    sum = 0
    Do While i < 101     'while循坏  当i小于101 执行这一行到  LOOP上面的所有行代码
        sum = sum + i
        i = i + 1
    Loop                '当i不小于101时跳出while循坏
    Debug.Print sum     'Debug.Print打印最后的sum   也就是总和
End Sub

如果我们要找出1到100的奇数示例如下

Sub main()
    Dim i As Integer '这里将表里i定义为数值类型
    Do While i < 101     'while循坏  当i小于101 执行这一行到  LOOP上面的所有行代码
        If i Mod 2 = 1 Then     ''如果i除以2余1  就打印i
            Debug.Print i
        End If
        i = i + 1
    Loop                '当i不小于101时跳出while循坏
End Sub

如果我们要套娃 比如想在一个方法里调用另一个方法 示例如下

Sub main()
    fun_2 (2)
End Sub
Function fun_1(num1)
    Debug.Print "我是方法" & Str(num1)
End Function

Function fun_2(num2)
    Debug.Print "我是方法" & Str(num2)
    fun_1 (1)
End Function

2.python

本人用的vs code写的代码，想要的也可以私信可以提供相关安装包

接下来我们同样的用python代码来是想上面三个功能

2.1

sum = 0       "定义一个sum等于0  用来保存累加的和"
for i in range(0,101):   "for循环  从0 到101   包前不包后"
    sum += i    "sum = sum + i      将sum + i重新赋值给sum  "

print(sum)   "打印最终结果sum   要注意缩进"

2.2

for i in range(0,101):  "for循环  从0 到101   包前不包后"
    if i % 2 == 1:   "if 判断语句  如果i除以2 余1成立就打印 i "
        print(i)   "注意缩进"

2.3

def A():   '定义一个方法'
    print('我是A方法')   '直接打印我是A方法' 

def B():   '定义一个方法'
    print('我是B方法')  '直接打印我是B方法'
    A()     '调用A方法'

B()   '调用B方法'

总结

个人还是比较喜欢python 感觉更加简单一些。