OM кои ue 0
WATWA
WSOU
на тоа
даа.
Las Maryla
Тим роман
подорожі».
Не випадково місцем дії в рома
другій частині) було обрано Афри
найменш досліджений на той час к
тому чимало наукових експед
споряджено до Африки в середи
Серед них усесвітньо відомими
криття славетного англійського
ка Девіда Лівінгстона (на його а
дослідження повсякчас посилаєть
У романі).
Коли друга частина роман биш
2 o s​

Sub Alg_1()
    xN = -5: xK = 5: h = 0.1
    x = xN: i = 1
    Do While x <= xK
        y = 3 * x ^ 2 - 6 * x + 5
        Cells(i, 1) = x: Cells(i, 2) = y
        x = x + h: i = i + 1
    Loop
End Sub

Во вложении файл с рабочей книгой MS Excel 2003. Макрос на листе 1.

Теперь о Вашей ошибке

Dim xN, xK, x As Integer
Dim y, h As Single
xN = -5
...
h = 0.1
x = xN
...
x = x + h

Такое описание означает, что xN, xK будут типа Variant, х - типа Integer.
y тоже будет типа Variant, h - типа Single.
При выполнении опeратора x=x+h целочисленное x сначала увеличится на 0.1, а затем дробная часть будет отброшена. Поэтому х постоянно будет равен xN и цикл станет бесконечным.

Если матрица подаётся построчно (вводить числа без [] разделённые пробелом)

# input

matrix = []

line = list(map(int, input().split()))

matrix.append(line)

for j in range(len(line) - 1):

   line = list(map(int, input().split()))

   matrix.append(line)

print(matrix)

# k + max

k = int(input("k: "))

maximum = matrix[0][0]

counter = 0

for arr in matrix:

   for num in arr:

       if num % k == 0:

           if maximum < num:

               maximum = num

           counter += 1

print("{0} чисел, кратных {1}".format(counter, k))

if maximum != 0:

   print("Максимальное число кратное {0} - {1}".format(k, maximum))

else:

   print("Нет чисел кратных {0}".format(k))

Если одной строкой, уже массивом ([1,20,3,4],[2,5,5,5],[3,8,9,12],[8,9,10,11])

# input

matrix = input().split("],[")

matrix[0] = matrix[0][1:]

matrix[len(matrix) - 1] = matrix[len(matrix)-1][:len(matrix[len(matrix) - 1])-1]

newMatrix = []

for arr in matrix:

   line = list(map(int, arr.split(",")))

   newMatrix.append(line)

matrix = newMatrix

print(matrix)

# k + max

k = int(input("k: "))

maximum = matrix[0][0]

counter = 0

for arr in matrix:

   for num in arr:

       if num % k == 0:

           if maximum < num:

               maximum = num

           counter += 1

print("{0} чисел, кратных {1}".format(counter, k))

if maximum != 0:

   print("Максимальное число кратное {0} - {1}".format(k, maximum))

else:

   print("Нет чисел кратных {0}".format(k))