[已解决]按规律填充n的平方个数字

爱疯

1.rar (7.05 KB, 下载次数: 7)

2013-1-15 12:34 上传

点击文件名下载附件



要求：指定自然数n，按规律写入单元格。比如n=4，结果如第4个图。

说明：
1）写入位置随意
2）最好不借助单元格的方法或属性
3）固定从矩形左上角开始，按逆时针顺序，就可以了。
     如果便于修改就更完美：可从其它角开始，或顺时顺序。



请问怎么编写呢？谢谢！

最佳答案

月排行榜 / 总排行榜

aof110

2013-1-15 14:07

换了种思路

用一直向左转的方法

Sub aa()
  Dim arr() As Integer
  Dim i%, n%, x%, y%, x2%, y2%
  On Error Resume Next
  n = 6
  x = 1: y = 1 '初始位置
  x2 = 1: y2 = 0 '控制方向
  
  ReDim arr(1 To n, 1 To n)
  For i = 1 To n * n
    arr(x, y) = i
    If arr(x + x2, y + y2) <> 0 Then
   
      If x2 = 1 And y2 = 0 Then
        x2 = 0: y2 = 1
      ElseIf x2 = 0 And y2 = 1 Then
        x2 = -1: y2 = 0
      ElseIf x2 = -1 And y2 = 0 Then
        x2 = 0: y2 = -1
      ElseIf x2 = 0 And y2 = -1 Then
        x2 = 1: y2 = 0
      End If
   
    End If
   
    x = x + x2
    y = y + y2
   
  Next i
  Range("a1").Resize(n, n) = ""
  Range("a1").Resize(n, n) = arr
End Sub

跳转到最佳答案楼层

aof110

这题好深啊，从规律上看，需要用到递归，难，太难了

aof110

换了种思路

用一直向左转的方法

Sub aa()
  Dim arr() As Integer
  Dim i%, n%, x%, y%, x2%, y2%
  On Error Resume Next
  n = 6
  x = 1: y = 1 '初始位置
  x2 = 1: y2 = 0 '控制方向
  
  ReDim arr(1 To n, 1 To n)
  For i = 1 To n * n
    arr(x, y) = i
    If arr(x + x2, y + y2) <> 0 Then
   
      If x2 = 1 And y2 = 0 Then
        x2 = 0: y2 = 1
      ElseIf x2 = 0 And y2 = 1 Then
        x2 = -1: y2 = 0
      ElseIf x2 = -1 And y2 = 0 Then
        x2 = 0: y2 = -1
      ElseIf x2 = 0 And y2 = -1 Then
        x2 = 1: y2 = 0
      End If
   
    End If
   
    x = x + x2
    y = y + y2
   
  Next i
  Range("a1").Resize(n, n) = ""
  Range("a1").Resize(n, n) = arr
End Sub

爱疯

aof110 发表于 2013-1-15 14:07
换了种思路

用一直向左转的方法

谢谢aof110!

厉害呀！
可否讲解下for next里的这么写的原因吗？我还没明白为什么这么做。

aof110

N *N 个数，如N=6，一共36个数，一直按一个方向前进，遇到边或是前一格已经有数据，就向左转，直到36个数填写完毕

爱疯

aof110 发表于 2013-1-15 14:30
N *N 个数，如N=6，一共36个数，一直按一个方向前进，遇到边或是前一格已经有数据，就向左转，直到36个数填 ...

奇怪，为什么在你的代码里不报“下标越界”，而在我的测试代码（如下的过程a）里报错呢？
Sub a()
    Dim arr, n
    n = 6
    ReDim arr(1 To n, 1 To n)
    MsgBox arr(7, 1) <> 0
End Sub

爱疯

哦，就是想起了，前面有    On Error Resume Next

{:031:}

爱疯

aof110 发表于 2013-1-15 14:30
N *N 个数，如N=6，一共36个数，一直按一个方向前进，遇到边或是前一格已经有数据，就向左转，直到36个数填 ...

如果不用on error，会很麻烦么？

想晕了。。。。。。

aof110

不用on error 也可以，需要把数组声明的大点
如N=6，就需要声明 arr(1 to 8,1 to 8) 的数组，让数组最外一圈留下位置做判断，防止下标出界

爱疯

aof110 发表于 2013-1-15 15:37
不用on error 也可以，需要把数组声明的大点
如N=6，就需要声明 arr(1 to 8,1 to 8) 的数组，让数组最外一 ...

谢谢！