又一道编程小题(题目过于简单，稍微加了点难度)

不规则结构

这是网上找的一道题目！为适应excel习惯，略作改动！我发的题目是希望和同好分享解题的乐趣，希望大家畅所欲言，就题目本身展开讨论甚至适当扩展！既然是vba专区，当然希望用原生代码解题，就像砍柴比赛只能用柴刀不能用电锯一样！无脑循环显然不是好办法，万一有15位数呢？

不规则结构

8写成了5！所有大于1的奇数都是能分成两个连续数的和的n和n+1

perfect131

力扣的题？

yynrzwh

虽然不明白原因，
但是通过结果发现，”没有诗意的数字“貌似都是2的n次方

所以有以下代码：
Sub test2()

n = 10000
ReDim ar(1 To n, 1 To 2)
r = 0
k = 0
For i = 3 To n
    flag = False
    For x = 1 To n
        y = 2 ^ x
        If y > i Then Exit For
        If i = y Then
            k = k + 1
            ar(k, 2) = i
            flag = True
            Exit For
        End If
    Next
   
    If Not flag Then
        r = r + 1
        ar(r, 1) = i
    End If
Next

Range("b:c").ClearContents
Range("b1").Resize(r, 2) = ar
MsgBox r
End Sub

micch

都是2的幂，那直接循环就行了，都不用算法了

micch