小说网 找小说 无限小说 烟雨红尘 幻想小说 酷文学 深夜书屋
上一页 1 ··· 121 122 123 124 125 126 127 128 129 ··· 137 下一页

2007年10月1日

四阶素数幻方问题

摘要: 用1到16构成一个四阶幻方,要求任意相邻两个方格中的数字之各均为素数? (原帖见:http://topic.csdn.net/u/20070830/18/1f1957c1-5e66-4c3b-8883-d7eef64c8da1.html) NowCan 网友的解法: 直接递归搜,4阶很快的。以下... 阅读全文

posted @ 2007-10-01 17:02 王峰炬 阅读(326) 评论(0) 推荐(0) 编辑

2007年9月30日

VBA看数字电影

摘要: VBA看数字电影,据说是一位荷兰人的杰作 Sub view()Shell "telnet towel.blinkenlights.nl", vbNormalFocusEnd Sub 阅读全文

posted @ 2007-09-30 23:11 王峰炬 阅读(157) 评论(0) 推荐(0) 编辑

关于括号式子的计数

摘要: CSDN CSDN社区 专题开发/技术/项目 数据结构与算法 超超版主的问题: 如果有n对括号,组成一个式子,而且括号的最深嵌套层次为k 满足这个条件的式子一共有几种? 如果n=3,k=2则有3种: (())() ()(()) (()()) 能否找到递推公式? -----------------... 阅读全文

posted @ 2007-09-30 22:02 王峰炬 阅读(263) 评论(0) 推荐(0) 编辑

2007年9月29日

一沙一世界(10亿光年),科学的图文介绍

摘要: 光年,光走一年的路程。光速!它是速度公认的极限,每秒299792458米,能在眨眼间绕地球七圈半。看见么,就这么快的光,让他跑吧,跑个一年,所度量出来的距离就是一光年了。现在各位把滑鼠移到萤幕的左下角,点“开始”-“程式集”-“附属应用程式”-“小算盘”,都来动手算算它,这一年是31536000秒... 阅读全文

posted @ 2007-09-29 20:02 王峰炬 阅读(456) 评论(0) 推荐(0) 编辑

2007年9月28日

业余兼职的全行业薪酬对照(发表者: swf11519 )

摘要: 买房,买车,还贷款;购物,逛街,高消费。现代人,特别是年轻人,常常抵御不了物质消费的诱惑,但一份薪水有时用起来实在是捉襟见肘,职场中的“月光族”越来越多了。 当然,消极不是方法,聪明的职场人主动出击,谋求新的赚钱途径。于是,“兼职”脱颖而出,成了最受欢迎的业余赚钱方式。兼职不是件新鲜事,在海... 阅读全文

posted @ 2007-09-28 09:40 王峰炬 阅读(297) 评论(0) 推荐(0) 编辑

2007年9月27日

双色球历史数据

摘要: 2003001 10 11 12 13 26 28 11 ... 阅读全文

posted @ 2007-09-27 14:46 王峰炬 阅读(1285) 评论(0) 推荐(0) 编辑

2007年9月23日

VBA实现任意n阶幻方的一种填法(n≥3)

摘要: 参考http://blog.csdn.net/northwolves/archive/2007/09/23/1796696.aspx的思路,拟代码如下: Sub magicsquare(ByVal n As Long, ByRef matrix())Dim i As Long, j As Long... 阅读全文

posted @ 2007-09-23 21:56 王峰炬 阅读(208) 评论(0) 推荐(0) 编辑

在VBA中获取“我的文档”的目录路径

摘要: 方法1. 读取注册表: Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As ... 阅读全文

posted @ 2007-09-23 14:31 王峰炬 阅读(604) 评论(0) 推荐(0) 编辑

应用API函数在用户窗体中画圆

摘要: Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal l... 阅读全文

posted @ 2007-09-23 14:23 王峰炬 阅读(155) 评论(0) 推荐(0) 编辑

VBA增加sheet,重名时自动命名

摘要: VBA增加sheet,如何在出现重名时自动命名?如 Sheets.Add ActiveSheet.Name = "mysheet" 如果已经存在名称为“mysheet”的sheet,如何使增加的sheet名称自动加上一个括号变成"mysheet(1)"呢? 即类似在某文件夹内不断复制同一... 阅读全文

posted @ 2007-09-23 14:10 王峰炬 阅读(735) 评论(0) 推荐(0) 编辑

上一页 1 ··· 121 122 123 124 125 126 127 128 129 ··· 137 下一页

导航