Сформировать двумерный массив по правилу - Visual Basic .NET

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

Сформируйте двумерный массив M(7,7) по правилу: M (i,j) = -5+10×r , где r – случайное число из отрезка [0;1]. Введите одномерный массив K = {-5, -3, -1, 1, 3}. Замените нулями в массиве M те элементы, для которых имеются равные среди элементов массива K. Выведите полученный массив M.

Решение задачи: «Сформировать двумерный массив по правилу»

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

                                    Dim s As String
        Dim ii As Integer, jj As Integer
        Dim M(7, 7) As Double, k(5) As Integer
        For ii = 1 To 7
            For jj = 1 To 7
                M(i, j) = -5 + 10 * Rnd()
            Next
        Next
        For ii = 1 To 5
            k(ii) = InputBox("введите значение k(i)", , 0)
        Next
        For ii = 1 To 5
            For jj = ii + 1 To 5
                If k(ii) = k(jj) And k(ii) <> 0 And k(jj) <> 0 Then
                    k(ii) = 0
                    k(jj) = 0
                End If
            Next
        Next
        s = ""
        For ii = 1 To 5
            s = s & " " & Str(k(ii))
        Next
        MsgBox(s)
                        