northwolves的留言板

northwolves 2020-01-02 06:45:31

大家好，这里是我的留言板，如果有问题，欢迎大家留言，我会第一时间进行回复

...全文

71 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

凡是上过学校的人都使用过字典，从新华字典、成语词典，到英汉字典以及各种各样数不胜数的专业字典，字典是上学必备的、经常查阅的工具书。有了它们，我们可以很方便的通过查找某个关键字，进而查到这个关键字的种种解释，非常快捷实用。凡是上过EH论坛的想学习VBA里面字典用法的，几乎都看过研究过northwolves狼版主、oobird版主的有关字典的精华贴和经典代码。我也是从这里接触到和学习到字典的，在此，对他们表示深深的谢意，同时也对很多把字典用得出神入化的高手们致敬，从他们那里我们也学到了很多，也得到了提高。字典对象只有4个属性和6个方法，相对其它的对象要简洁得多，而且容易理解使用方便，功能强大，运行速度非常快，效率极高。深受大家的喜爱。本文希望通过对一些字典应用的典型实例的代码的详细解释来给初次接触字典和想要进一步了解字典用法的朋友提供一点备查的参考资料，希望大家能喜欢。给代码注释估计是大家都怕做的，因为往往是出力不讨好的，稍不留神或者自己确实理解得不对，还会贻误他人。所以下面的这些注释如果有不对或者不妥当的地方，请大家跟帖时指正批评，及时改正。

The integer sequence was in : A111133 Seems easy. Sub Calc() Dim n As Long, count(), i As Long n = 500 ReDim count(n) count(0) = 1 For i = 1 To n For j = n To

光年，光走一年的路程。光速！它是速度公认的极限，每秒299792458米，能在眨眼间绕地球七圈半。看见么，就这么快的光，让他跑吧，跑个一年，所度量出来的距离就是一光年了。现在各位把滑鼠移到萤幕的左下角，点“开始”－“程式集”－“附属应用程式”－“小算盘”，都来动手算算它，这一年是31536000秒，一秒跑299792458米，乘出来就9454254955488000米，约等于十万亿公里吧。你说什么

输出这样的二维阵列:1 2 3 4 12 13 14 511 16 15 610 9 8 7 Private Sub Command1_Click()spiral 17Debug.Printspiral 18End SubSub spiral(ByVal n As Integer)Dim temp() As Long, i As Long,

笔者曾写过一个递归与组合的算法（http://www.csdn.net/Develop/read_article.asp?id=23809），下面给出一个排列的递归算法，请大家指教。Private Sub Command1_Click() 列出数组a 的全排列Dim a(8) As String, temp As StringFor i = 0 To 8a(i) = iNexttemp =

628

社区成员

253,829

社区内容

发帖

与我相关

我的任务

其他技术论坛（原bbs）

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章