社区
community_281
帖子详情
northwolves的留言板
northwolves
2020-01-02 06:45:31
大家好,这里是我的留言板,如果有问题,欢迎大家留言,我会第一时间进行回复
...全文
90
回复
打赏
收藏
northwolves的留言板
大家好,这里是我的留言板,如果有问题,欢迎大家留言,我会第一时间进行回复
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
VBA字典用法集锦及代码详解
凡是上过EH论坛的想学习VBA里面字典用法的,几乎都看过研究过
northwolves
狼版主、oobird版主的有关字典的精华贴和经典代码。我也是从这里接触到和学习到字典的,在此,对他们表示深深的谢意,同时也对很多把字典用得...
Number of sets of natural numbers less than n which sum to n.
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
一沙一世界(10亿光年),科学的图文介绍
光年,光走一年的路程。光速!它是速度公认的极限,每秒299792458米,能在眨眼间绕地球七圈半。看见么,就这么快的光,让他跑吧,跑个一年,所度量出来的距离就是一光年了。现在各位把滑鼠移到萤幕的左下角,点...
输出螺旋矩阵(一)
输出这样的二维阵列: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...
community_281
686
社区成员
253,706
社区内容
发帖
与我相关
我的任务
community_281
提出问题
复制链接
扫一扫
分享
社区描述
提出问题
其他
技术论坛(原bbs)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章