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 SubFunction 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 感觉更加简单一些。
评论 (1 条评论)