一个小程序，电脑报上的题目

今天上班路上，看到新一期电脑报出来了，就随手买了一份来看

也就看到了下面的题目，无事，便写了一段

题目如下：

对如下矩阵，要求经过四次顺时针旋转，最后又得到最初的矩阵，并显示过程。

123　741　987　369　123

456 > 852 > 654 > 258 > 456

789　963　321　147　789

我的解题思路很简易，直接抽取对像来对比一下就能看出规律来：

第一个矩阵我用二维数组a(2,2)表示，第二个矩阵用二维数组b(2,2)表示，对比结果如下：

b(0,0)=a(2,0)

b(0,1)=a(1,0)

b(0,2)=a(0,0)

b(1,0)=a(2,1)

b(1,1)=a(1,1)

b(1,2)=a(0,1)

b(2,0)=a(2,2)

b(2,1)=a(1,2)

b(2,2)=a(0,2)

很明显的规律了，看下标的变化哈，然后就有了下面的程序了，vb.net的

删去了窗体设计代码，一个ＦＯＲＭ１，一个Ｔｅｘｔｂｏｘ１，一个ＢＵＴＴＯＮ１，一个ＴＩＭＥＲ１。

Public Class Form1Class Form1

    Inherits System.Windows.Forms.Form

    Public a, b As Integer(,) '定义两个二维数组

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()Sub New()

        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。

        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。

    Protected Overloads Overrides Sub Dispose()Sub Dispose(ByVal disposing As Boolean)

        If disposing Then

            If Not (components Is Nothing) Then

                components.Dispose()

            End If

        End If

        MyBase.Dispose(disposing)

    'Windows 窗体设计器所必需的

    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的

    '可以使用 Windows 窗体设计器修改此过程。

    '不要使用代码编辑器修改它。

    Friend WithEvents Button1 As System.Windows.Forms.Button

    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

    Friend WithEvents Timer1 As System.Windows.Forms.Timer

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()

        Me.components = New System.ComponentModel.Container

        Me.Button1 = New System.Windows.Forms.Button

        Me.TextBox1 = New System.Windows.Forms.TextBox

        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)

        Me.SuspendLayout()

        '

        'Button1

        Me.Button1.Location = New System.Drawing.Point(24, 112)

        Me.Button1.Name = "Button1"

        Me.Button1.Size = New System.Drawing.Size(80, 32)

        Me.Button1.TabIndex = 0

        Me.Button1.Text = "开始演示"

        'TextBox1

        Me.TextBox1.Location = New System.Drawing.Point(24, 32)

        Me.TextBox1.Multiline = True

        Me.TextBox1.Name = "TextBox1"

        Me.TextBox1.Size = New System.Drawing.Size(80, 72)

        Me.TextBox1.TabIndex = 1

        Me.TextBox1.Text = ""

        Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center

        'Timer1

        Me.Timer1.Interval = 1000

        'Form1

        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)

        Me.ClientSize = New System.Drawing.Size(128, 165)

        Me.Controls.Add(Me.TextBox1)

        Me.Controls.Add(Me.Button1)

        Me.Name = "Form1"

        Me.Text = "Form1"

        Me.ResumeLayout(False)

#End Region

    Public Sub print()Sub print() '在文本框里显示结果的过程

        TextBox1.Text = Nothing

        Dim i, j As Integer

        For i = 0 To 2

            For j = 0 To 2

                TextBox1.Text += CStr(a(i, j))

            Next

            TextBox1.Text += vbCrLf

        Next

    Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        a = New Integer(2, 2) {} '重新定义a下标值

        b = New Integer(2, 2) {} '重新定义b下标值

        Dim i, j, g As Integer

        For i = 0 To 2 '循环方式初始化数组a的值

                g += 1

                a(i, j) = g

        Timer1.Enabled = True '启动时间控件

    Private Sub Timer1_Tick()Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        print() '调用显示过程

        For i = 0 To 2 '利用循环给数组了赋值

                b(i, j) = a(2 - j, i)

        For i = 0 To 2 '因为直接a=b的只是句柄相等了，所以用循环重新给数组a赋值

                a(i, j) = b(i, j)

End Class