我发现了这个数字规律,

我发现了这个数字规律,
我发现了,（电筒数）,（名字是朋友帮取的）,我用从0到N的数,列了个等差数列 表,我原来是为了,看看,这些数里面,质数在这个数列里是不是有规律呢?那个规律并没有发现,倒发现了这个规律!也就是一个数,与相邻的那列,平行,低一行,的那个数相乘,那么它们的积,也必然以两个乘数的方向看去的话,是一个方向的,并且,积与相乘 的第二个数的相隔（包括第二个数与积）的格数正好是等于第一个数,我的空间里有我试验再现时情景,《电筒数!》请问大家,这个规律前人有 了吗,如果没有,我这个发现,在哪里申请认证啊?
以下是我写的宏代码!请大家也拿去研究研究吧,
Private Sub 计算_Click()
Dim n$,lgs%,qish1%,qish2%,qisl1%,tt,oush1%,oush2%,ous&,ousl%,oush%
Dim zgs&,n1&,qis&,hs() As Boolean,n2%,qsil0%,qisl%,lzgs&,bfb!
Dim x&,qis1&,qis2&,qis3&,pfs() As Long
Cells.Select
Selection.Delete Shift:=xlUp
tiao:
n = InputBox("请输入列数","金字塔数列表：",1)
If n = "" Then End
tt = Now
If n x = MsgBox("请输入大于0的数,如果不想计算请按取消,如果想计算请按确定并且重新在输入框中输入!",65,"输入错误提示：")
If x = 1 Then
GoTo tiao
ElseIf x = 2 Then
End
End If
End If
n1 = (n + 1) * (n + 1) - 1
ReDim hs(n1)
n = n + 6
zgs = 0
ReDim pfs(1 To n - 2)
oush1 = n
oush2 = n
ous = -1
For ousl = 1 To n - 5
For oush = oush1 To oush2
ous = ous + 1
Cells(oush,ousl) = ous
Next oush
oush1 = oush1 - 1
oush2 = oush2 + 1
Next ousl
End Sub
请大家进入这个网址看看我的视频吧！
哦我这里播放的不是很清楚，进入我空间，那里播放比较清楚的！看我的空间博客里面的《电筒数！》里面视频哦！