要求：单击“开始”，在窗体输出蛇形排列的方阵

这是以前电脑报上的一个题目.不过我今天和朋友说好出去玩,晚上吧,呵

我今天一会也要出去的
那我们晚上来讨论
谢谢你啊

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim n As Integer, sout As Integer
Dim a(1 To 5, 1 To 5) As Integer
Dim Flags As String
Flags = "Right"
i = 1: j = 1
n = 1
Do While n <= 25
a(i, j) = n
Select Case Flags
Case "Right"
If j = UBound(a, 1) Then
Flags = "Down"
Else
Flags = "Right"
End If
Case "Down"
If j = UBound(a, 1) Then
Flags = "Left"
Else
Flags = "Right"
End If
Case "Left"
If j = LBound(a, 1) Then
Flags = "Down"
Else
Flags = "Left"
End If

End Select
Select Case Flags
Case "Right"
j = j + 1
Case "Down"
i = i + 1
Case "Left"
j = j - 1

End Select
n = n + 1
Loop
For i = 1 To 5
For j = 1 To 5
Print a(i, j);
Next
Print
Next

End Sub

Dim m As Integer, k As Integer
Dim flags As Integer
flags = 1
For m = 0 To n - 1
For k = 0 To n - 1
Matrixn(m, k) = m * n + (k + 1 - (flags - 1) / 2 * (n + 1 - 2 * (k + 1)))
Text1.Text = Text1.Text & Format(Matrixn(m, k), "0000") & " "
Next
flags = flags * -1
Text1.Text = Text1.Text & vbNewLine
Next

这里面我自己推了一个小函数使运算简化:
Matrixn(m, k) = m * n + (k + 1 - (flags - 1) / 2 * (n + 1 - 2 * (k + 1)))
很明显,奇数行的值,等于行值(从0开始)*n+列值(从0开始)+1
而偶数行的值,等于行值(从0开始)*n+(n+1)-(列值(从0开始)+1)
如果希望只用一个函数,使用不同的参量(flags)来区别这两个功能,这是个简单的数学推导:
Matrixn(m, k) = m * n + (k + 1 - (flags - 1) / 2 * (n + 1 - 2 * (k + 1)))
你可以看这个部分:
(k + 1 - (flags - 1) / 2 * (n + 1 - 2 * (k + 1)))
当flags为 1的时候,这部分就=k+1
当flags为-1的时候,这部分就=(n+1)-(k+1)
调整flags,就达到目的了.

[此贴子已经被作者于2006-5-4 23:21:06编辑过]

我出去了刚回来
现在马上看