Написать программу на Visual Basic - VB

Формулировка задачи:

Даны две матрицы X и Y 18 2 8 X = 3 0 3 7 1 1 7 18 19 Y = 3 10 12 2 8 7 Выбрать из них наименьший элемент.

Решение задачи: «Написать программу на Visual Basic»

textual
                            Листинг программы 
                        

                            Public Class Form1
    Function pr(ByVal y(,) As Integer, ByVal x(,) As Integer) As Integer
        Dim i, k, maxx, maxy, j As Integer
        k = x(0, 0)
        maxx = x(0, 0)
        maxy = y(0, 0)
        For i = 0 To x.GetLength(0)
            For j = 0 To x.GetLength(1)
                maxx = x(i, j)
                If maxx < k Then maxx = k
                k = x(i, j)
            Next
        Next
        k = y(0, 0)
        For i = 0 To y.GetLength(0)
            For j = 0 To y.GetLength(1)
                maxy = y(i, j)
                If maxx < k Then maxx = k
                k = y(i, j)
            Next
        Next
        If maxx < maxy Then maxx = maxy
        Return maxx
    End Function
End Class
                        