王峰炬

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

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

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

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

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

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

摘要： 参考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... 阅读全文

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

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

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