王峰炬

摘要： It's easy: Sub getallquwei()Dim i As Byte, j As Byte, k As Byte, n As Integer, arr(1 To 1000, 1 To 10)n = 1For i = 16 To 87For j = 1 To IIf(i = 5... 阅读全文

摘要： Dim prov As New Collection Private Sub Form_Load() prov.Add "北京市,东城,西城,崇文,宣武,朝阳,丰台,石景山,海淀,门头沟,房山,通州,顺义,昌平,大兴,平谷,怀柔,密云,延庆"... 阅读全文

摘要： I have max integers between 1 and max, If I choose m of them to get a sum sums ,Suppose I have counts ways,How can I get the counts ? I write som... 阅读全文

摘要： 诗云： 人生凡事有前期，尤是功名难强为。 多少英雄埋没杀，只因莫与指途迷。 有个该中了，撞着人来帮村的。湖广有个举人姓何，在京师中会试，偶入酒肆，见一伙青衣大帽人在肆中饮酒。听他说话半文半俗，看他气质假斯文带些光棍腔。何举... 阅读全文

摘要： 任意钝角三角形都可以分割为7个锐角三角形 阅读全文

摘要： Function ZDGYS(ByVal m As Long, ByVal n As Long) As Long 'Great Common DivisorZDGYS = mWhile n > 0m = ZDGYS Mod nZDGYS = nn = mWendEnd Function Fun... 阅读全文

摘要： 1集合的方法： Sub getallcolor()Dim sh As Worksheet, x As New Collection, colors(), c As Range, i As LongOn Error Resume NextFor Each sh In SheetsFor Each c... 阅读全文

摘要： Function LCS(ByVal A As String, ByVal B As String) As StringIf Len(A) * Len(B) = 0 Then LCS = "": Exit FunctionDim la As Integer, lb As Integer, acha... 阅读全文

摘要： 在a1,a2,a3,a4单元格内输入数字,如果能算24点的话在b列显示解法,如果有多种解法则分别在b1,b2...中显示: Sub get24p()Const p24 = "123412431324134214231432213421432314234124132431312431423214... 阅读全文

摘要： 下面代码将实现任意n(3≤n≤256)阶幻方，显示在EXCEL的 A1:IV256中 Sub magicsquare(ByVal n As Long, ByRef matrix())Dim i As Long, j As Long, k As Long, p As Long, a(), temp ... 阅读全文