Dim a(2, 2), b(2, 2), c(2, 2) As Integer

        FileOpen(1, "c:\940305.sm", OpenMode.Input)
        Input(1, a(1, 1))
        Input(1, a(1, 2))
        Input(1, a(2, 1))
        Input(1, a(2, 2))
        Input(1, b(1, 1))
        Input(1, b(1, 2))
        Input(1, b(2, 1))
        Input(1, b(2, 2))
        FileClose()

        For i = 1 To 2
            TextBox1.Text = TextBox1.Text & "[ "
            For j = 1 To 2
                c(i, j) = a(i, j) + b(i, j)
                TextBox1.Text = TextBox1.Text & c(i, j) & " "
            Next
            TextBox1.Text = TextBox1.Text & "]" & vbCrLf
        Next