让我来解释使用循环将1加到了100
学过之前的教程,已经知道如何把开发工具显示出来,已经知道如何绘制一个按钮,然后编写代码,如果不会操作,请参考之前的教程。
循环是在编程中容易使用的,今天解释使用循环,将1一直加到100,掌握了这个思路,换其他的编程语言,其实也一样,只不过代码稍做修改。
完整代码如下:
Private Sub CommandButton1_Click()
Dim i As Byte
Dim s As Integer
i = 1
S=0
For i = 1 To 100
s = s + i
Next
MsgBox s
End Sub
这段代码点击一下,很快就显示结果 5050,比大数学家高斯的方法还要快,但是解释一下就麻烦了。
使用这种for循环,有两个特点,一是固定循环次数,如1-100循环,二是中间有间隔。
For i=1 to 100其实是省略写法,完整写法是 for i=1 to 100 step 1,间隔1,如果for i=1 to 100 step 2 也就是间隔2了,就是,1,3,5,7,9
我来解释一下:
第2句 Dim i As Byte 声明i是变量,数量类型是字节型,也就是取值范围在0-255之间。
第3句 Dim s As integer 声明s是变量,是更大一点的容器,因为用来装1-100全部加起来的值, -32768到32767的取值范围之间。
第4句,i初始值为1,你可以假设容器i最开始装1毫升的水。
第5句,s初始值为0,你可以理解优大容器S最开始是空的,此句可以省略。
第6句第7句第8句应该连在一起来理解, for i=1 to 100,就是1到100循环,是for i=1 to 100 step 1的缩写,可以理解成,先让小容器装1毫升的水,然后s=s+i,可以理解,将这目前i小容器中1毫升的水倒入到大容器s中,第8句,next指的是下一个i,因为步长值step默认为1,下一个i就是2,然后再将2毫升的水倒入到S容器中,再下一个。
第9句,显示目前大容器s中的值。
完整的解释,我打一个比方,解释如下。
假设你有两个容器,S是一个大容器,i是一个小容器,先用小容器i装1毫升的水倒入到大容器S中,再用小容器装2毫升的水倒入到大容器s中,再用小容器装3毫升的水倒入到大容器s中……,最后,用小容器装100毫升的水倒入到大容器中,最后看大容器最后到底有多少水了。
至此代码解释完毕。
子曰:用之则行,不用则藏。
意思是说,如果你用我的这些建议,就马上行动,知行合一,如果你不用,就赶紧收藏,以绝后患。