求大神帮忙VB.NET代码

求大神帮忙VB.NET代码

用二维数组存放矩阵的数据，窗体上添加一个按钮，完整代码如下；
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim d(3, 3) As Integer
        Dim i As Integer
        Dim j As Integer
        Dim n As Integer
        Dim T As Integer


        '生成原始的矩阵
        n = 0
        For i = 1 To 3
            For j = 1 To 3
                n = n + 1
                d(i, j) = n
            Next j
        Next i


        '输出初始矩阵
        Dim MyX As Single = 10.0
        Dim MyY As Single = 10.0
        Dim MyGraphics As Graphics = Me.CreateGraphics
        Dim MyBrush As New SolidBrush(Color.Black)
        For i = 1 To 3
            For j = 1 To 3
                MyX = MyX + 25
                MyGraphics.DrawString(CStr(d(i, j)), Me.Font, MyBrush, MyX, MyY)
            Next j
            MyX = 10.0
            MyY = MyY + 15
        Next i


        '转换
        T = d(1, 1)
        For i = 1 To 3
            For j = 1 To 2
                n = d(i, j)
                d(i, j) = d(i, j + 1)
            Next j
            If i < 3 Then d(i, 3) = d(i + 1, 1)
        Next i
        d(3, 3) = T


        MyY = MyY + 10
        For i = 1 To 3
            For j = 1 To 3
                MyX = MyX + 25
                MyGraphics.DrawString(CStr(d(i, j)), Me.Font, MyBrush, MyX, MyY)
            Next j
            MyX = 10.0
            MyY = MyY + 15
        Next i
    End Sub
End Class
显示效果如下：