【新手进阶】之一：基础算法（一）

roych · 发表于 2015-1-26 15:51:28

看到这题目，大家第一反应可能是，我需要学吗？跟编程有关系吗？对于这两个问题，我的回答是：不需要学，但建议学；跟编程有关系，但并非充分条件。就好比下象棋，不懂棋谱，不代表不能赢，但在杀法上可能就有区别了，懂棋谱的可能更容易妙招迭出；同样地，不懂算法，不代表不会编程。不过，如果想编写出一个更优雅的程序，还是学学算法吧。

说到算法，大多数都显得枯燥艰涩，向来曲高和寡。其实，算法也并不是那么复杂，现在我手头上这本就浅显易懂得多了，只是不知道为什么市面上关于这方面的书籍都是那么无趣。只是，这个日本人定位的是科普读物，所以，代码部分只能由我动手写了（当然，算法中的变量名称也根据我写的函数来定的）。

先申明一下，这部分只说基础算法，不涉及任何技巧，所以不要拿数学或者系统函数等等来说事儿。

关于自然数求和：

先列出步骤：
先将结果lngRes初始化为0。
对lngRes求和，i为加数。
重复执行4、5，直至i>intN。
计算lngRes+i的值，存入lngRes里。
每次i值加1。

根据步骤写下的代码是：

Function getSum(ByVal intN As Long) As Long
Dim i As Long
Dim lngRes As Long
Do Until i > intN
lngRes = lngRes + i
i = i + 1
Loop
getSum = lngRes
End Function

复制代码

至此，第一个算法就算完成了。很简单是吗？接下来，以斐波那契数列为例，简单介绍下递归算法（这里不打算细说，详细请参考之前我发的帖子），步骤如下：

令数组s(0)=0,s(1)=1。
i从2开始。
当i<=intN时，重复执行步骤4、5。
令s(i)=s(i-1)+s(i-2)
每次i+1

按照步骤，可以定义一个从s(2 to intN)的数组，不过考虑到我们还预先定义了s(0)和s(1)，所以干脆定义一个s(intN)【大部分数组都是默认序号从0开始的】，在执行循环时区分开来即可。于是有：

Function getFib(ByVal intN As Long) As Long
Dim i As Long
Dim s() As Long
ReDim s(intN)
For i = 0 To intN
If i = 0 Then
s(i) = 0
ElseIf i = 1 Then
s(i) = 1
Else
s(i) = s(i - 1) + s(i - 2)
End If
Next
getFib = s(intN)
End Function

复制代码

todaynew · 发表于 2015-1-26 16:42:25

文字有些偏多，读起来有些不易。

风中漫步 · 发表于 2015-1-26 17:00:04

迫切需要扫盲.感谢斑竹.
文字确多,已经习惯浅阅读了.

roych · 发表于 2015-1-26 17:03:43

看来还是拆开好点~~~

风中漫步 · 发表于 2015-1-26 17:10:58

{:soso_e100:}主要是电子屏看久了眼睛很难受

zhidao · 发表于 2015-1-26 18:55:28

听说算法是一个软件的灵魂

天涯沦落20131 · 发表于 2015-1-27 09:52:38

我一直在看你发的贴！

roych · 发表于 2015-1-27 09:56:59

天涯沦落20131 发表于 2015-1-27 09:52
我一直在看你发的贴！

多谢支持！

today_suny · 发表于 2016-1-5 22:45:49

喜欢扫盲，代码看了好几遍才懂了

ej1213 · 发表于 2018-6-8 17:05:10

xiexie

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 【新手进阶】之一：基础算法（一）

评分

本帖被以下淘专辑推荐:

浏览过的版块

群介绍
主题无相 (随机显示版	同地区群块其他地区)