module1.vb

Visual Basic.NET精彩编程百例 第八章源码

Module Module1

    Sub Main()
        Dim i, j As Integer
        Dim a(1000, 1000) As Integer
        Dim x As Integer
        Console.Write("请输入单位矩阵的行（列）数x=")
        x = Console.ReadLine
        For i = 1 To x
            For j = 1 To x
                If (i = j) Then
                    a(i, j) = 1
                Else
                    a(i, j) = 0
                End If
            Next
        Next
        For i = 1 To x
            For j = 1 To x
                Console.Write(a(i, j))
                Console.Write("    ")
            Next
            Console.WriteLine()
        Next
        Console.Write("按Enter键离开")
        Console.ReadLine()
    End Sub

End Module